API tools faq
paste
Guest User

Untitled

a guest
May 25th, 2018
98
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.34 KB | None | 0 0
raw download clone embed print report
  1. * -----
  2. * Active les touches nécessaires au retrait rapide
  3. * -----
  4. ActiverTchesEscAF10.
  5.  
  6. Move 1 TO On-off.
  7. Move 0 To debut.
  8. Move 11 To NbreTouches.
  9. CALL X"AF" USING Param-1 Param-2.
  10.  
  11.  
  12. * -----
  13. * Modifié pour ajouter les options de dépot et retrait rapide
  14. * -----
  15. TraiterChoix.
  16.  
  17. Move 0 TO Fin.
  18. Perform Until Fin = 1
  19. Perform ActiverTchesEscAF7
  20. DISPLAY G-EMENUOP
  21. Display "Bienvenue "AT 2113, nom
  22. Accept Bidon with no-echo
  23. On Escape
  24. if F1
  25. Perform EffectuerRetrait
  26. else if F2
  27. Perform EffectuerRetraitRapide
  28. else if F3
  29. Perform MAJLivret
  30. else if F4
  31. Perform RembourserCredit
  32. else if F5
  33. Perform EffectuerDepot
  34. else if F6
  35. Perform EffectuerVirements
  36. else if F7
  37. Perform VoirSoldeCompte
  38. else if ESC
  39. Move 1 TO Fin
  40. End-if
  41. End-Accept
  42. End-Perform.
  43.  
  44.  
  45. EffectuerDepot.
  46.  
  47. Move 0 To Correct Recommencer.
  48. Perform ChoisirCompte.
  49. if Correct = 0
  50. DISPLAY G-EGENERAL
  51. Display "DPOT" AT 0537
  52. Perform Until Recommencer = 1
  53. Move Zeroes TO MontantSaisi
  54. Perform ActiverEscape
  55. Display Spaces AT 2405
  56. Accept MontantSaisi AT 1030
  57. On Escape
  58. Move 1 To Recommencer
  59. Not On Escape
  60. Move "DEP" TO TypeTrans
  61. Move MontantSaisi TO Montant
  62. Perform RetrouverCompteClient
  63. Compute SoldeCompteCh = SoldeCompteCh + Montant
  64. Perform EcrireFichierOperation
  65. Display "D‚pot effectu‚." AT 2205 with
  66. BACKGROUND-COLOR 1 FOREGROUND-COLOR 15
  67. Move 1 To Recommencer
  68. Display "Appuyez sur Enter pour terminer." At 2405 with
  69. BACKGROUND-COLOR 1 FOREGROUND-COLOR 15
  70. Accept Bidon with no-echo
  71. End-Accept
  72. Perform DesactiverTchesFonction
  73. End-Perform
  74. end-if.
  75. Perform TraiterChoix.
  76.  
  77.  
  78. EffectuerRetraitRapide.
  79.  
  80. Perform ChoisirCompte.
  81. Move 0 TO Fin.
  82. Perform Until Fin = 1
  83. Perform ActiverTchesEscAF10
  84. DISPLAY G-EMONT
  85. Display "Retrait rapide" AT 2113
  86. Accept Bidon with no-echo
  87. On Escape
  88. if F1
  89. Move 20 to Montant
  90. Perform VerifierPossibiliteRetrait
  91. else if F2
  92. Move 40 to Montant
  93. Perform VerifierPossibiliteRetrait
  94. else if F3
  95. Move 60 to Montant
  96. Perform VerifierPossibiliteRetrait
  97. else if F4
  98. Move 80 to Montant
  99. Perform VerifierPossibiliteRetrait
  100. else if F5
  101. Move 100 to Montant
  102. Perform VerifierPossibiliteRetrait
  103. else if F6
  104. Move 120 to Montant
  105. Perform VerifierPossibiliteRetrait
  106. else if F7
  107. Move 140 to Montant
  108. Perform VerifierPossibiliteRetrait
  109. else if F8
  110. Move 160 to Montant
  111. Perform VerifierPossibiliteRetrait
  112. else if F9
  113. Move 180 to Montant
  114. Perform VerifierPossibiliteRetrait
  115. else if F10
  116. Move 200 to Montant
  117. Perform VerifierPossibiliteRetrait
  118. else if ESC
  119. Move 1 TO Fin
  120. End-if
  121. End-Accept
  122. Perform DesactiverTchesFonction
  123. End-Perform.
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!