• API
• FAQ
• Tools
• Archive
SHARE
TWEET

# Untitled

robhunter Mar 19th, 2013 128 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
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
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
RAW Paste Data
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.
Not a member of Pastebin yet?