There is a tutorial_webservices form which contains a tabpage where
you can get Shakespeare insults back from a webservice online. The
only problem is, the online webservice is down. The original creater
of that services was kind enough to put his source online so that....
An you can ques the rest.
For people who are interessted in getting shakespeare insults in
Axapta, just copy and paste the following project text. Have fun with
it. The only thing you need to do: create a webservice from it with
your favorite tool and integrate it in Axapta ;-)

-cut-cut-cut-

Exportfile for AOT version 1.0 or later
Formatversion: 1

***Element: JOB

; Navision Axapta Job: getShakespeareInsult unloaded at Tuesday 2-3-
2004
; --------------------------------------------------------------------
------------
  JOBVERSION 1
 
  SOURCE #getShakespeareInsult
    #static void getShakespeareInsult(Args _args)
    #{
    #    bjoShakeSpeareInsult bjoInsult=new bjoShakeSpeareInsult();
    #    ;
    #    print bjoInsult.getInsult();
    #    pause;
    #}
  ENDSOURCE

***Element: FTM

; Navision Axapta MENUITEM : bjoShakeSpeareInsult unloaded at Tuesday
2-3-2004
; --------------------------------------------------------------------
------------
  VERSION 1
 
  MENUITEM #bjoShakeSpeareInsult
    Type: 3
    PROPERTIES
      Name                #bjoShakeSpeareInsult
      Label               #
      HelpText            #
      Class               #Class
      Object              #bjoShakeSpeareInsult
      Parameters          #
      EnumTypeParameter   #
      EnumParameter       #
      RunOn               #Client
      ConfigurationKey    #
      CountryConfigurationkey   #
      WebConfigurationkey #
      SecurityKey         #
      NeededAccessLevel   #View
      Web                 #
      WebAccess           #All
      WebSecureTransaction #No
      WebPage             #
      MultiSelect         #No
    ENDPROPERTIES
   
  ENDMENUITEM
 

***Element: CLS

; Navision Axapta Class: bjoShakeSpeareInsult unloaded at Tuesday 2-3-
2004
; --------------------------------------------------------------------
------------
  CLSVERSION 1
 
  CLASS #bjoShakeSpeareInsult
    PROPERTIES
      Name                #bjoShakeSpeareInsult
      Extends             #
      RunOn               #Called from
    ENDPROPERTIES
   
    METHODS
      Version: 3
      SOURCE #classDeclaration
        #public class bjoShakeSpeareInsult
        #{
        #  str Adjective1[];
        #  str Adjective2[];
        #  str Noun[];
        #  str PrefixA[];
        #  str PrefixAn[];
        #  set vowels;
        #}
      ENDSOURCE
      SOURCE #GetInsult
        #public str getInsult()
        #{
        #    str formatStr="%1 %2 %3!";
        #    str Insult;
        #    Boolean firstLetterIsVowel;
        #    RandomGenerate rg=new RandomGenerate();
        #    int iAdjective1;
        #    int iAdjective2;
        #    int iNoun;
        #    int iPrefixAn;
        #    int iPrefixA;
        #
        #    ;
        #
        #    iAdjective1 = rg.randomInt(1, 101);
        #    iAdjective2 = rg.randomInt(1, 54);
        #    iNoun       = rg.randomInt(1, 56);
        #    iPrefixA    = rg.randomInt(1, 3);
        #    iPrefixAn   = rg.randomInt(1, 3);
        #
        #    Insult = strFmt(formatStr, Adjective1[iAdjective1],
Adjective2[iAdjective2], Noun[iNoun] );
        #
        #    firstLetterIsVowel = vowels.in( subStr(Insult,1,1) );
        #
        #    if (firstLetterIsVowel)
        #    {
        #        formatStr = PrefixAn[iPrefixAn];
        #    } else
        #    {
        #        formatStr = PrefixA[iPrefixA];
        #    }
        #
        #    return strFmt(formatStr, Insult);
        #}
      ENDSOURCE
      SOURCE #new
        #void new()
        #{
        #
        #    ;
        #    Adjective1[1]=  'artless';
        #    Adjective1[2]=  'bawdy';
        #    Adjective1[3]=  'beslubbering';
        #    Adjective1[4]=  'bootless';
        #    Adjective1[5]=  'churlish';
        #    Adjective1[6]=  'cockered';
        #    Adjective1[7]=  'clouted';
        #    Adjective1[8]=  'craven';
        #    Adjective1[9]=  'currish';
        #    Adjective1[10]= 'dankish';
        #    Adjective1[11]= 'dissembling';
        #    Adjective1[12]= 'droning';
        #    Adjective1[13]= 'errant';
        #    Adjective1[14]= 'fawning';
        #    Adjective1[15]= 'fobbing';
        #    Adjective1[16]= 'froward';
        #    Adjective1[17]= 'frothy';
        #    Adjective1[18]= 'gleeking';
        #    Adjective1[19]= 'goatish';
        #    Adjective1[20]= 'gorbellied';
        #    Adjective1[21]= 'impertinent';
        #    Adjective1[22]= 'infectious';
        #    Adjective1[23]= 'jarring';
        #    Adjective1[24]= 'loggerheaded';
        #    Adjective1[25]= 'lumpish';
        #    Adjective1[26]= 'mammering';
        #    Adjective1[27]= 'mangled';
        #    Adjective1[28]= 'mewling';
        #    Adjective1[29]= 'paunchy';
        #    Adjective1[30]= 'pribbling';
        #    Adjective1[31]= 'puking';
        #    Adjective1[32]= 'puny';
        #    Adjective1[33]= 'qualling';
        #    Adjective1[34]= 'rank';
        #    Adjective1[35]= 'reeky';
        #    Adjective1[36]= 'roguish';
        #    Adjective1[37]= 'ruttish';
        #    Adjective1[38]= 'saucy';
        #    Adjective1[39]= 'spleeny';
        #    Adjective1[40]= 'spongy';
        #    Adjective1[41]= 'surly';
        #    Adjective1[42]= 'tottering';
        #    Adjective1[43]= 'unmuzzled';
        #    Adjective1[44]= 'vain';
        #    Adjective1[45]= 'venomed';
        #    Adjective1[46]= 'villainous';
        #    Adjective1[47]= 'warped';
        #    Adjective1[48]= 'wayward';
        #    Adjective1[49]= 'weedy';
        #    Adjective1[50]= 'yeasty';
        #    Adjective1[51]= 'vomiting';
        #    Adjective1[52]= 'vulturous';
        #    Adjective1[53]= 'contemptuous';
        #    Adjective1[54]= 'groping';
        #    Adjective1[55]= 'miniscule';
        #    Adjective1[56]= 'quivering';
        #    Adjective1[57]= 'shivering';
        #    Adjective1[58]= 'trembling';
        #    Adjective1[59]= 'miserable';
        #    Adjective1[60]= 'licentious';
        #    Adjective1[61]= 'cowering';
        #    Adjective1[62]= 'sulking';
        #    Adjective1[63]= 'gloating';
        #    Adjective1[64]= 'murmuring';
        #    Adjective1[65]= 'audacious';
        #    Adjective1[66]= 'befouling';
        #    Adjective1[67]= 'insolent';
        #    Adjective1[68]= 'murky';
        #    Adjective1[69]= 'pitiable';
        #    Adjective1[70]= 'wretched';
        #    Adjective1[71]= 'dolorous';
        #    Adjective1[72]= 'lamentable';
        #    Adjective1[73]= 'inadequate';
        #    Adjective1[74]= 'contemptible';
        #    Adjective1[75]= 'paltry';
        #    Adjective1[76]= 'measly';
        #    Adjective1[77]= 'meager';
        #    Adjective1[78]= 'paltry';
        #    Adjective1[79]= 'inadequate';
        #    Adjective1[80]= 'insignificant';
        #    Adjective1[81]= 'empty';
        #    Adjective1[82]= 'inferior';
        #    Adjective1[83]= 'pathetic';
        #    Adjective1[84]= 'atrocious';
        #    Adjective1[85]= 'execrable';
        #    Adjective1[86]= 'damnable';
        #    Adjective1[87]= 'repugnant';
        #    Adjective1[88]= 'repulsive';
        #    Adjective1[89]= 'revolting';
        #    Adjective1[90]= 'repellent';
        #    Adjective1[91]= 'offensive';
        #    Adjective1[92]= 'disgusting';
        #    Adjective1[93]= 'horrid';
        #    Adjective1[94]= 'horrible';
        #    Adjective1[95]= 'obscene';
        #    Adjective1[96]= 'beastly';
        #    Adjective1[97]= 'vile';
        #    Adjective1[98]= 'abominable';
        #    Adjective1[99]= 'pitiful';
        #    Adjective1[100]= 'wrangled';
        #    Adjective1[101]= 'whoring';
        #
        #    Adjective2[1]=  'base-court';
        #    Adjective2[2]=  'bat-fowling';
        #    Adjective2[3]=  'beef-witted';
        #    Adjective2[4]=  'beetle-headed';
        #    Adjective2[5]=  'boil-brained';
        #    Adjective2[6]=  'clapper-clawed';
        #    Adjective2[7]=  'clay-brained';
        #    Adjective2[8]=  'common-kissing';
        #    Adjective2[9]=  'crook-pated';
        #    Adjective2[10]= 'dismal-dreaming';
        #    Adjective2[11]= 'dizzy-eyed';
        #    Adjective2[12]= 'doghearted';
        #    Adjective2[13]= 'dread-bolted';
        #    Adjective2[14]= 'earth-vexing';
        #    Adjective2[15]= 'elf-skinned';
        #    Adjective2[16]= 'fat-kidneyed';
        #    Adjective2[17]= 'fen-sucked';
        #    Adjective2[18]= 'flap-mouthed';
        #    Adjective2[19]= 'fly-bitten';
        #    Adjective2[20]= 'folly-fallen';
        #    Adjective2[21]= 'fool-born';
        #    Adjective2[22]= 'full-gorged';
        #    Adjective2[23]= 'guts-griping';
        #    Adjective2[24]= 'half-faced';
        #    Adjective2[25]= 'hasty-witted';
        #    Adjective2[26]= 'hedge-born';
        #    Adjective2[27]= 'hell-hated';
        #    Adjective2[28]= 'idle-headed';
        #    Adjective2[29]= 'ill-breeding';
        #    Adjective2[30]= 'ill-nurtured';
        #    Adjective2[31]= 'knotty-pated';
        #    Adjective2[32]= 'milk-livered';
        #    Adjective2[33]= 'motley-minded';
        #    Adjective2[34]= 'onion-eyed';
        #    Adjective2[35]= 'plume-plucked';
        #    Adjective2[36]= 'pottle-deep';
        #    Adjective2[37]= 'pox-marked';
        #    Adjective2[38]= 'reeling-ripe';
        #    Adjective2[39]= 'rough-hewn';
        #    Adjective2[40]= 'rude-growing';
        #    Adjective2[41]= 'rump-fed';
        #    Adjective2[42]= 'shard-borne';
        #    Adjective2[43]= 'sheep-biting';
        #    Adjective2[44]= 'spur-galled';
        #    Adjective2[45]= 'swag-bellied';
        #    Adjective2[46]= 'tardy-gaited';
        #    Adjective2[47]= 'tickle-brained';
        #    Adjective2[48]= 'toad-spotted';
        #    Adjective2[49]= 'unchin-snouted';
        #    Adjective2[50]= 'weather-bitten';
        #    Adjective2[51]= 'weather-beaten';
        #    Adjective2[52]= 'mutton-eating';
        #    Adjective2[53]= 'coffee-nosed';
        #    Adjective2[54]= 'malodorous';
        #
        #    Noun[1]=  'apple-john';
        #    Noun[2]=  'baggage';
        #    Noun[3]=  'barnacle';
        #    Noun[4]=  'bladder';
        #    Noun[5]=  'boar-pig';
        #    Noun[6]=  'bugbear';
        #    Noun[7]=  'bum-bailey';
        #    Noun[8]=  'canker-blossom';
        #    Noun[9]=  'clack-dish';
        #    Noun[10]= 'clotpole';
        #    Noun[11]= 'coxcomb';
        #    Noun[12]= 'codpiece';
        #    Noun[13]= 'death-token';
        #    Noun[14]= 'dewberry';
        #    Noun[15]= 'flap-dragon';
        #    Noun[16]= 'flax-wench';
        #    Noun[17]= 'flirt-gill';
        #    Noun[18]= 'foot-licker';
        #    Noun[19]= 'fustilarian';
        #    Noun[20]= 'giglet';
        #    Noun[21]= 'gudgeon';
        #    Noun[22]= 'haggard';
        #    Noun[23]= 'harpy';
        #    Noun[24]= 'hedge-pig';
        #    Noun[25]= 'horn-beast';
        #    Noun[26]= 'hugger-mugger';
        #    Noun[27]= 'joithead';
        #    Noun[28]= 'lewdster';
        #    Noun[29]= 'lout';
        #    Noun[30]= 'maggot-pie';
        #    Noun[31]= 'malt-worm';
        #    Noun[32]= 'mammet';
        #    Noun[33]= 'measle';
        #    Noun[34]= 'minnow';
        #    Noun[35]= 'miscreant';
        #    Noun[36]= 'moldwarp';
        #    Noun[37]= 'mumble-news';
        #    Noun[38]= 'nut-hook';
        #    Noun[39]= 'pigeon-egg';
        #    Noun[40]= 'pignut';
        #    Noun[41]= 'puttock';
        #    Noun[42]= 'pumpion';
        #    Noun[43]= 'ratsbane';
        #    Noun[44]= 'scut';
        #    Noun[45]= 'skainsmate';
        #    Noun[46]= 'strumpet';
        #    Noun[47]= 'varlet';
        #    Noun[48]= 'vassal';
        #    Noun[49]= 'whey-face';
        #    Noun[50]= 'wagtail';
        #    Noun[51]= 'phlegm-barrel';
        #    Noun[52]= 'numb-skull';
        #    Noun[53]= 'lip-infection';
        #    Noun[54]= 'blood-clot';
        #    Noun[55]= 'boar-tick';
        #    Noun[56]= 'pervert';
        #
        #    PrefixA[1]= 'Thou art a %1';
        #    PrefixA[2]= 'Thy Mother is a %1';
        #    PrefixA[3]= 'Thou %1';
        #
        #    PrefixAn[1]= 'Thou art an %1';
        #    PrefixAn[2]= 'Thy Mother is an %1';
        #    PrefixAn[3]= 'Thou %1';
        #
        #    vowels = new set (types::String);
        #    vowels.add('a');
        #    vowels.add('e');
        #    vowels.add('i');
        #    vowels.add('o');
        #    vowels.add('u');
        #}
      ENDSOURCE
      SOURCE #main
        #static void main(Args args)
        #{
        #    bjoShakeSpeareInsult bjoInsult=new bjoShakeSpeareInsult
();
        #    ;
        #    Box::info(bjoInsult.getInsult());
        #}
      ENDSOURCE
    ENDMETHODS
  ENDCLASS

***Element: PRN

; Navision Axapta Project : ShakespeareInsult unloaded at Tuesday 2-3-
2004
; --------------------------------------------------------------------
------------
  PROJECTVERSION 2
 
  PROJECT #ShakespeareInsult
   PRIVATE
  PROPERTIES
    Name                #ShakespeareInsult
  ENDPROPERTIES
 
    GROUP #Jobs
      PROPERTIES
        Name                #Jobs
        ProjectGroupType    #Jobs
        GroupMask           #
        PreventEditProperties #No
      ENDPROPERTIES
     
      BEGINNODE
        FILETYPE 0
        UTILTYPE 5
        UTILOBJECTID 0
        NODETYPE 215
        NAME #getShakespeareInsult
      ENDNODE
      ENDGROUP
     
    GROUP #MenuItems
      PROPERTIES
        Name                #MenuItems
        ProjectGroupType    #MenuItems
        GroupMask           #
        PreventEditProperties #No
      ENDPROPERTIES
     
      GROUP #Action
        PROPERTIES
          Name                #Action
          ProjectGroupType    #Action
          GroupMask           #
          PreventEditProperties #No
        ENDPROPERTIES
       
        BEGINNODE
          FILETYPE 0
          UTILTYPE 3
          UTILOBJECTID 0
          NODETYPE 296
          NAME #bjoShakeSpeareInsult
        ENDNODE
        ENDGROUP
       
      ENDGROUP
     
    GROUP #Classes
      PROPERTIES
        Name                #Classes
        ProjectGroupType    #Classes
        GroupMask           #
        PreventEditProperties #No
      ENDPROPERTIES
     
      BEGINNODE
        FILETYPE 0
        UTILTYPE 45
        UTILOBJECTID 50009
        NODETYPE 329
        NAME #bjoShakeSpeareInsult
      ENDNODE
      ENDGROUP
     
  ENDPROJECT
 

***Element: END





Yahoo! Groups Links

Reply via email to