home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / commercialdemos / gestacomptedemo / scripts_arexx / transfert3.rexx < prev    next >
OS/2 REXX Batch file  |  1998-03-08  |  2KB  |  75 lines
  1. /** $VER: Tranfert 1.0 (05.08.97)
  2.  ** Auteur: Fabrice SABATIER
  3.  **
  4.  ** Commande Arexx sous GestaCompte V2.1.
  5.  **
  6.  ** Transfert d'une transaction d'un compte vers un autre (Lib).
  7.  **
  8.  **/
  9.  
  10. OPTIONS RESULTS
  11.  
  12. NL = '0a'x
  13.  
  14. /*****************  Définit les variables d'environnement   ***********************/
  15.  
  16. ADDRESS COMMAND "SYS:Rexxc/rx ENV:GestaCompte.ARexxPréfs" /* exécute le script de définitions des préférences */
  17. NOM_PORT_BANQUE1 =GETCLIP('Port_Banque3')
  18. NOM_PORT_BANQUE2 =GETCLIP('Port_Banque4')
  19. NOM_BANQUE2      =GETCLIP('Banque4')
  20. NOM_ECRAN2       =GETCLIP('Ecran_Banque4')
  21.  
  22. /************************************************************************/
  23.  
  24.  
  25. SIGNAL ON SYNTAX        /* détourne les messages d'erreurs */
  26.  
  27. IF~SHOW(L,"rexxsupport.library")THEN DO
  28.  IF~ADDLIB("rexxsupport.library",0,-30,0) THEN DO
  29.      SAY "rexxsupport.library est introuvable !"
  30.      EXIT
  31.  END
  32. END
  33.  
  34. /* ouvre la library rexxreqtools.library pour les messages d'erreurs */
  35. call addlib("rexxreqtools.library",0,-30,0)
  36.  
  37. ADDRESS VALUE NOM_PORT_BANQUE1 /* adresse du port Arexx */
  38.  
  39. click                          /* demande la sélection d'une transaction */
  40. ligne=RESULT
  41. operation ligne                /* retourne la ligne suivant son numéro */
  42.  
  43. Banque=1
  44. IF~SHOW(p,NOM_PORT_BANQUE2) THEN DO
  45.   Banque=0
  46.   ADDRESS COMMAND 'RUN >NIL: Gesta:GestaCompte '||NOM_BANQUE2||' s='||NOM_ECRAN2' p='||NOM_PORT_BANQUE2
  47.   DO 10
  48.      IF SHOW(p,NOM_PORT_BANQUE2) THEN DO
  49.          Banque=1
  50.          LEAVE
  51.          END
  52.      CALL DELAY(100)
  53.   END
  54. END
  55.  
  56.  
  57. ADDRESS VALUE NOM_PORT_BANQUE2 /* adresse du port Arexx */
  58. load force
  59.  
  60. PARSE VAR RESULT Jour '/' Mois '/' Nature '/'.'/'.'/'.'/'Somme'/'Libelle'/'Poste'/'.
  61. enter Jour'|'Mois'|TRANSF|0|'Somme'|'Libelle'|'Poste
  62. display
  63. save force
  64. quit
  65.  
  66.  
  67. /* Traite les messages d'erreurs */
  68. SYNTAX:
  69. IF RC=13 THEN call rtezrequest( "Environnement serveur non trouvé !!!" || NL ||,
  70.                                 "Le nom du port ARexx utilisé dans"|| NL ||,
  71.                                 "le script est : " || NOM_PORT_BANQUE)
  72. ELSE call rtezrequest(errortext(RC),"Vu",,"rt_pubscrname="||NOM_PORT_BANQUE)
  73. EXIT
  74.  
  75.