home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / commercialdemos / gestacomptedemo / scripts_arexx / transfert5.rexx < prev    next >
OS/2 REXX Batch file  |  1998-03-08  |  2KB  |  49 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 (Med).
  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.  
  20. /************************************************************************/
  21.  
  22.  
  23. SIGNAL ON SYNTAX        /* détourne les messages d'erreurs */
  24.  
  25. /* ouvre la library rexxreqtools.library pour les messages d'erreurs */
  26. call addlib("rexxreqtools.library",0,-30,0)
  27.  
  28. ADDRESS VALUE NOM_PORT_BANQUE1 /* adresse du port Arexx */
  29.  
  30. click                          /* demande la sélection d'une transaction */
  31. ligne=RESULT
  32. operation ligne                /* retourne la ligne suivant son numéro */
  33.  
  34. ADDRESS VALUE NOM_PORT_BANQUE2 /* adresse du port Arexx */
  35.  
  36. PARSE VAR RESULT Jour '/' Mois '/' Nature '/'.'/'.'/'.'/'Somme'/'Libelle'/'Poste'/'.
  37. enter Jour'|'Mois'|TRANSF|0|'Somme'|'Libelle'|'Poste
  38. display
  39. EXIT                          /* sort */
  40.  
  41. /* Traite les messages d'erreurs */
  42. SYNTAX:
  43. IF RC=13 THEN call rtezrequest( "Environnement serveur non trouvé !!!" || NL ||,
  44.                                 "Le nom du port ARexx utilisé dans"|| NL ||,
  45.                                 "le script est : " || NOM_PORT_BANQUE)
  46. ELSE call rtezrequest(errortext(RC),"Vu",,"rt_pubscrname="||NOM_PORT_BANQUE)
  47. EXIT
  48.  
  49.