API tools faq
paste
Advertisement
robhunter

Untitled

robhunter
Mar 19th, 2013
295
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Basic4GL 9.37 KB | None | 0 0
raw download clone embed print report
  1.      OPEN '1/1/FSNC0128S'   FOR RANDOM IO ELSE DISPLAY 'NO ABRE FICHERO FSNC0128S'
  2.      TN01=0;TN02=0;TN03=0;TN04=0;TN05=0;TN06=0;TN07=0;TN08=0;TN09=0;TN10=0;TN11=0;TN12=0;TN13=0;TN14=0;TN15=0;TND=0
  3.      TNG01=0;TNG02=0;TNG03=0;TNG04=0;TNG05=0;TNG06=0;TNG07=0;TNG08=0;TNG09=0;TNG10=0;TNG11=0;TNG12=0;TNG13=0;TNG14=0;TNG15=0;TNGD=0
  4.      TP01=0;TP02=0;TP03=0;TP04=0;TP05=0;TP06=0;TP07=0;TP08=0;TP09=0;TP10=0;TP11=0;TP12=0;TP13=0;TP14=0;TP15=0;TPD=0
  5.      TC01=0;TC02=0;TC03=0;TC04=0;TC05=0;TC06=0;TC07=0;TC08=0;TC09=0;TC10=0;TC11=0;TC12=0;TC13=0;TC14=0;TC15=0;TC16=0
  6.      PRINTER ON
  7.      CONLI=90
  8.      WPAG=0
  9.      CANTE='0000'
  10. 5    READ R FROM 1 ELSE GOTO 90
  11.      IF R[26,2]='00' THEN FPRE=R[28,8];GOTO 5
  12.      IF R[26,2]='20' THEN GOSUB 9000;GOTO 5
  13.      IF R[26,2]#30 AND R[26,2]#70 THEN GOTO 5  
  14. 300   IF R[48,4] NE CANTE THEN GOSUB 5000
  15.       TNG=TNG+1
  16.       IF R[26,2]='30' THEN TNGP=TNGP+1
  17. !!!!!!!!!!!DEVOLUCIONES
  18.       IF R[26,2]='70' THEN TND=TND+1;TNGD=TNGD+1;TPD=TPD+R[78,11]
  19. !!!!!!!!!!!!PRESENTACIONES
  20.       TNG=TNG+1
  21.       IF R[15,2]='01' THEN TN01=TN01+1;TNG01=TNG01+1;TP01=TP01+R[78,11]
  22.       IF R[15,2]='02' THEN TN02=TN02+1;TNG02=TNG02+1;TP02=TP02+R[78,11]
  23.       IF R[15,2]='03' THEN TN03=TN03+1;TNG03=TNG03+1;TP03=TP03+R[78,11]
  24.       IF R[15,2]='04' THEN TN04=TN04+1;TNG04=TNG04+1;TP04=TP04+R[78,11]
  25.       IF R[15,2]='05' THEN TN05=TN05+1;TNG05=TNG05+1;TP05=TP05+R[78,11]
  26.       IF R[15,2]='06' THEN TN06=TN06+1;TNG06=TNG06+1;TP06=TP06+R[78,11]
  27.       IF R[15,2]='07' THEN TN07=TN07+1;TNG07=TNG07+1;TP07=TP07+R[78,11]
  28.       IF R[15,2]='08' THEN TN08=TN08+1;TNG08=TNG08+1;TP08=TP08+R[78,11]
  29.       IF R[15,2]='09' THEN TN09=TN09+1;TNG09=TNG09+1;TP09=TP09+R[78,11]
  30.       IF R[15,2]='10' THEN TN10=TN10+1;TNG10=TNG10+1;TP10=TP10+R[78,11]
  31.       IF R[15,2]='11' THEN TN11=TN11+1;TNG11=TNG11+1;TP11=TP11+R[78,11]
  32.       IF R[15,2]='12' THEN TN12=TN12+1;TNG12=TNG12+1;TP12=TP12+R[78,11]
  33.       IF R[15,2]='13' THEN TN13=TN13+1;TNG13=TNG13+1;TP13=TP13+R[78,11]
  34.       IF R[15,2]='14' THEN TN14=TN14+1;TNG14=TNG14+1;TP14=TP14+R[78,11]
  35.       IF R[15,2]='15' THEN TN15=TN15+1;TNG15=TNG15+1;TP15=TP15+R[35,11]
  36.       CANTE=R[48,4]
  37.       GOTO 5
  38. 90
  39.       GOSUB 5000
  40.        TNG01=OCONV(TNG01,'MDZZ,ZZ9')
  41.        TNG02=OCONV(TNG02,'MDZZ,ZZ9')
  42.        TNG03=OCONV(TNG03,'MDZZ,ZZ9')
  43.        TNG04=OCONV(TNG04,'MDZZ,ZZ9')
  44.        TNG05=OCONV(TNG05,'MDZZ,ZZ9')
  45.        TNG06=OCONV(TNG06,'MDZZ,ZZ9')
  46.        TNG07=OCONV(TNG07,'MDZZ,ZZ9')
  47.        TNG08=OCONV(TNG08,'MDZZ,ZZ9')
  48.        TNG09=OCONV(TNG09,'MDZZ,ZZ9')
  49.        TNG10=OCONV(TNG10,'MDZZ,ZZ9')
  50.        TNG11=OCONV(TNG11,'MDZZ,ZZ9')
  51.        TNG12=OCONV(TNG12,'MDZZ,ZZ9')
  52.        TNG13=OCONV(TNG13,'MDZZ,ZZ9')
  53.        TNG14=OCONV(TNG14,'MDZZ,ZZ9')
  54.        TNG15=OCONV(TNG15,'MDZZ,ZZ9')
  55.        TNGD=OCONV(TNGD,'MDZZ,ZZ9')
  56.        TC01=OCONV(TC01,'MDZZ,ZZ9')
  57.        TC02=OCONV(TC02,'MDZZ,ZZ9')
  58.        TC03=OCONV(TC03,'MDZZ,ZZ9')
  59.        TC04=OCONV(TC04,'MDZZ,ZZ9')
  60.        TC05=OCONV(TC05,'MDZZ,ZZ9')
  61.        TC06=OCONV(TC06,'MDZZ,ZZ9')
  62.        TC07=OCONV(TC07,'MDZZ,ZZ9')
  63.        TC08=OCONV(TC08,'MDZZ,ZZ9')
  64.        TC09=OCONV(TC09,'MDZZ,ZZ9')
  65.        TC10=OCONV(TC10,'MDZZ,ZZ9')
  66.        TC11=OCONV(TC11,'MDZZ,ZZ9')
  67.        TC12=OCONV(TC12,'MDZZ,ZZ9')
  68.        TC13=OCONV(TC13,'MDZZ,ZZ9')
  69.        TC14=OCONV(TC14,'MDZZ,ZZ9')
  70.        TC15=OCONV(TC15,'MDZZ,ZZ9')
  71.        TC16=OCONV(TC16,'MDZZ,ZZ9')
  72.       PRINT
  73.       PRINT @(2):'DCTOS.':TNG01:' ':TNG02:' ':TNG03:' ':TNG04:' ':TNG05:' ':TNG06:' ':TNG07:' ':TNG08:' ':TNG09:' ':TNG10:' ':TNG11:' ':TNG12:' ':TNG13:' ':TNG14:' ':TNG15:' ':TNGD
  74.       PRINT
  75.       PRINT @(2):'CABEC.':TC01:' ':TC02:' ':TC03:' ':TC04:' ':TC05:' ':TC06:' ':TC07:' ':TC08:' ':TC09:' ':TC10:' ':TC11:' ':TC12:' ':TC13:' ':TC14:' ':TC15:' ':TC16
  76.        TC01=TC01+TNG01
  77.        TC02=TC02+TNG02
  78.        TC03=TC03+TNG03
  79.        TC04=TC04+TNG04
  80.        TC05=TC05+TNG05
  81.        TC06=TC06+TNG06
  82.        TC07=TC07+TNG07
  83.        TC08=TC08+TNG08
  84.        TC09=TC09+TNG09
  85.        TC10=TC10+TNG10
  86.        TC11=TC11+TNG11
  87.        TC12=TC12+TNG12
  88.        TC13=TC13+TNG13
  89.        TC14=TC14+TNG14
  90.        TC15=TC15+TNG15
  91.        TC16=TC16+TNGD
  92.        TC01=OCONV(TC01,'MDZZ,ZZ9')
  93.        TC02=OCONV(TC02,'MDZZ,ZZ9')
  94.        TC03=OCONV(TC03,'MDZZ,ZZ9')
  95.        TC04=OCONV(TC04,'MDZZ,ZZ9')
  96.        TC05=OCONV(TC05,'MDZZ,ZZ9')
  97.        TC06=OCONV(TC06,'MDZZ,ZZ9')
  98.        TC07=OCONV(TC07,'MDZZ,ZZ9')
  99.        TC08=OCONV(TC08,'MDZZ,ZZ9')
  100.        TC09=OCONV(TC09,'MDZZ,ZZ9')
  101.        TC10=OCONV(TC10,'MDZZ,ZZ9')
  102.        TC11=OCONV(TC11,'MDZZ,ZZ9')
  103.        TC12=OCONV(TC12,'MDZZ,ZZ9')
  104.        TC13=OCONV(TC13,'MDZZ,ZZ9')
  105.        TC14=OCONV(TC14,'MDZZ,ZZ9')
  106.        TC15=OCONV(TC15,'MDZZ,ZZ9')
  107.        TC16=OCONV(TC16,'MDZZ,ZZ9')
  108.       PRINT
  109.       PRINT @(2):'TOTAL ':TC01:' ':TC02:' ':TC03:' ':TC04:' ':TC05:' ':TC06:' ':TC07:' ':TC08:' ':TC09:' ':TC10:' ':TC11:' ':TC12:' ':TC13:' ':TC14:' ':TC15:' ':TC16
  110.        PRINT;PRINT;PRINT;PRINT
  111.        PRINT @(2):'TOT.CABECERAS ........: ':OCONV(TCG,'MDZZZ,ZZ9')
  112.        PRINT
  113.        PRINT @(2):'TOT.DOCTOS.PRESENTADOS: ':OCONV(TNGP,'MDZZZ,ZZ9')
  114.        PRINT
  115.        TCG=TCG+TNGP
  116.        PRINT @(2):'TOT. CABE. + DCTOS. ..: ':OCONV(TCG,'MDZZZ,ZZ9')
  117. !     PRINT @(30,2):'BANKINTER     *** CUADRE SNCE-08 ***          ':'FECHA: ':FPRE[7,2]:'-':FPRE[5,2]:'-':FPRE[1,4]
  118. !     PRINT;PRINT@(28):'**** LISTADO POR TIPO DE OPERACION ****'
  119. !      PRINT;PRINT
  120. !      PRINT @(10):'TIPO OPERACION                   ':'N.DCTOS':SPACE(9):'IMPORTE'
  121. !      PRINT @(10):'---------------------------------':'-------':'----------------'
  122. !       PRINT @(10):'01-EFECTOS                       ':TNG01:SPACE(2):OCONV(TP01,'MDZZZ,ZZZ,ZZZ.Z9')
  123. !PRINT; PRINT @(10):'02-CHEQUES                       ':TNG02:SPACE(2):OCONV(TP02,'MDZZZ,ZZZ,ZZZ.Z9')
  124. !PRINT; PRINT @(10):'03-REGUL.OPERA.SIS.INTER.C.DOCU. ':TNG03:SPACE(2):OCONV(TP03,'MDZZZ,ZZZ,ZZZ.Z9')
  125. !PRINT; PRINT @(10):'04-REGUL.OPERA.SIS.INTER.SIN C.D.':TNG04:SPACE(2):OCONV(TP04,'MDZZZ,ZZZ,ZZZ.Z9')
  126. !PRINT; PRINT @(10):'05-ACTAS DE PROTESTO             ':TNG05:SPACE(2):OCONV(TP05,'MDZZZ,ZZZ,ZZZ.Z9')
  127. !PRINT; PRINT @(10):'06-COMI.Y GTOS.D CREDITO Y/O REM.':TNG06:SPACE(2):OCONV(TP06,'MDZZZ,ZZZ,ZZZ.Z9')
  128. !PRINT; PRINT @(10):'07-PAGOS EN NOTARIA              ':TNG07:SPACE(2):OCONV(TP07,'MDZZZ,ZZZ,ZZZ.Z9')
  129. !PRINT; PRINT @(10):'08-CESIONES DE EFECTIVO          ':TNG08:SPACE(2):OCONV(TP08,'MDZZZ,ZZZ,ZZZ.Z9')
  130. !PRINT; PRINT @(10):'09-COMPRAVENTA MONEDA EXTRAJERA  ':TNG09:SPACE(2):OCONV(TP09,'MDZZZ,ZZZ,ZZZ.Z9')
  131. !PRINT; PRINT @(10):'10-REEMBOLSOS                    ':TNG10:SPACE(2):OCONV(TP10,'MDZZZ,ZZZ,ZZZ.Z9')
  132. !PRINT; PRINT @(10):'11-REGULARIZA.DESFASES TESOREROS ':TNG11:SPACE(2):OCONV(TP11,'MDZZZ,ZZZ,ZZZ.Z9')
  133. !PRINT; PRINT @(10):'12-COMISIONES ...................':TNG12:SPACE(2):OCONV(TP12,'MDZZZ,ZZZ,ZZZ.Z9')
  134. !PRINT; PRINT @(10):'13-RECUPERA.D COMISI.O INTERESES ':TNG13:SPACE(2):OCONV(TP13,'MDZZZ,ZZZ,ZZZ.Z9')
  135. !PRINT; PRINT @(10):'14-OTRAS OPERACIONES             ':TNG14:SPACE(2):OCONV(TP14,'MDZZZ,ZZZ,ZZZ.Z9')
  136. !       TOTP=TP01+TP02+TP03+TP04+TP05+TP06+TP07+TP08+TP09+TP10+TP11+TP12+TP13+TP14
  137. !PRINT;PRINT; PRINT @(10):'*** TOT. GRAL. PRESENTACION ..***':OCONV(TNGP,'MDZZZ,ZZ9'):SPACE(2):OCONV(TOTP,'MDZZZ,ZZZ,ZZZ.Z9')
  138. !       PRINT;PRINT;PRINT
  139. !       PRINT @(10):'*** TOTAL DEVOLUCIONES ...  **** ':OCONV(TND,'MDZZZ,ZZ9'):SPACE(2):OCONV(TPD,'MDZZZ,ZZZ,ZZZ.Z9')
  140.          CLOSE 1 ELSE DISPLAY 'NO CIERRA FICHERO 1';STOP
  141.          STOP
  142. 5000
  143.       IF TNG=0 THEN GOTO 5001
  144.       IF CONLI>50 THEN GOSUB 8000
  145.        TN01=OCONV(TN01,'MDZZ,ZZ9')
  146.        TN02=OCONV(TN02,'MDZZ,ZZ9')
  147.        TN03=OCONV(TN03,'MDZZ,ZZ9')
  148.        TN04=OCONV(TN04,'MDZZ,ZZ9')
  149.        TN05=OCONV(TN05,'MDZZ,ZZ9')
  150.        TN06=OCONV(TN06,'MDZZ,ZZ9')
  151.        TN07=OCONV(TN07,'MDZZ,ZZ9')
  152.        TN08=OCONV(TN08,'MDZZ,ZZ9')
  153.        TN09=OCONV(TN09,'MDZZ,ZZ9')
  154.        TN10=OCONV(TN10,'MDZZ,ZZ9')
  155.        TN11=OCONV(TN11,'MDZZ,ZZ9')
  156.        TN12=OCONV(TN12,'MDZZ,ZZ9')
  157.        TN13=OCONV(TN13,'MDZZ,ZZ9')
  158.        TN14=OCONV(TN14,'MDZZ,ZZ9')
  159.        TN15=OCONV(TN15,'MDZZ,ZZ9')
  160.        TND=OCONV(TND,'MDZZ,ZZ9')
  161.        CANTE=OCONV(CANTE,'MD9999')
  162.       PRINT @(2):CANTE:'  ':TN01:' ':TN02:' ':TN03:' ':TN04:' ':TN05:' ':TN06:' ':TN07:' ':TN08:' ':TN09:' ':TN10:' ':TN11:' ':TN12:' ':TN13:' ':TN14:' ':TN15:' ':TND:' ':CANTE
  163.       PRINT
  164.       CONLI=CONLI+2
  165.      TN01=0;TN02=0;TN03=0;TN04=0;TN05=0;TN06=0;TN07=0;TN08=0;TN09=0;TN10=0;TN11=0;TN12=0;TN13=0;TN14=0;TN15=0;TND=0
  166. 5001  RETURN
  167. 8000 CONLI=0
  168.       PRINT @(30,2):'BANKINTER     *** CUADRE SNCE-08 ***          ':'FECHA: ':FPRE[7,2]:'-':FPRE[5,2]:'-':FPRE[1,4]
  169.       PRINT;PRINT@(31):'**** LISTADO POR BANCO DESTINO ****'
  170.       PRINT;PRINT @(2):'BCO.  01-DTS 02-DTS 03-DTS 04-DTS 05-DTS 06-DTS 07-DTS 08-DTS 09-DTS 10-DTS 11-DTS 12-DTS 13-DTS 14-DTS 15-DTS DEVOL. BCO.'
  171.       PRINT @(2):'----  ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ----'
  172.       PRINT
  173. 8001  RETURN
  174. 9000 TCG=TCG+1
  175.      IF R[15,2]='01' THEN TC01=TC01+1
  176.      IF R[15,2]='02' THEN TC02=TC02+1
  177.      IF R[15,2]='03' THEN TC03=TC03+1
  178.      IF R[15,2]='04' THEN TC04=TC04+1
  179.      IF R[15,2]='05' THEN TC05=TC05+1
  180.      IF R[15,2]='06' THEN TC06=TC06+1
  181.      IF R[15,2]='07' THEN TC07=TC07+1
  182.      IF R[15,2]='08' THEN TC08=TC08+1
  183.      IF R[15,2]='09' THEN TC09=TC09+1
  184.      IF R[15,2]='10' THEN TC10=TC10+1
  185.      IF R[15,2]='11' THEN TC11=TC11+1
  186.      IF R[15,2]='12' THEN TC12=TC12+1
  187.      IF R[15,2]='13' THEN TC13=TC13+1
  188.      IF R[15,2]='14' THEN TC14=TC14+1
  189.      IF R[15,2]='15' THEN TC15=TC15+1
  190.       RETURN
  191.     END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!