SEPA
git-svn-id: svn://10.65.10.50/branches/R_10_00@23171 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
		
							parent
							
								
									28b6aab534
								
							
						
					
					
						commit
						f15489af39
					
				
							
								
								
									
										18
									
								
								ef/ef1100a.h
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										18
									
								
								ef/ef1100a.h
									
									
									
									
									
										Normal file
									
								
							@ -0,0 +1,18 @@
 | 
				
			|||||||
 | 
					#define F_TIPOCF  201
 | 
				
			||||||
 | 
					#define F_TIPO    202
 | 
				
			||||||
 | 
					#define F_DATA    204
 | 
				
			||||||
 | 
					#define F_ABI     205
 | 
				
			||||||
 | 
					#define F_CAB     206
 | 
				
			||||||
 | 
					#define F_PRO     207
 | 
				
			||||||
 | 
					#define F_BANCA   208
 | 
				
			||||||
 | 
					#define F_SHEET   300
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					#define S_SELECT  101
 | 
				
			||||||
 | 
					#define S_TIPO    102
 | 
				
			||||||
 | 
					#define S_NUMERO  103
 | 
				
			||||||
 | 
					#define S_DATA    104
 | 
				
			||||||
 | 
					#define S_IMPORTO 105
 | 
				
			||||||
 | 
					#define S_ABI     106
 | 
				
			||||||
 | 
					#define S_CAB     107
 | 
				
			||||||
 | 
					#define S_PRO     108
 | 
				
			||||||
 | 
					#define S_BANCA   109
 | 
				
			||||||
							
								
								
									
										178
									
								
								ef/ef1100a.uml
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										178
									
								
								ef/ef1100a.uml
									
									
									
									
									
										Normal file
									
								
							@ -0,0 +1,178 @@
 | 
				
			|||||||
 | 
					#include "ef1100a.h"
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					TOOLBAR "topbar" 0 0 0 2
 | 
				
			||||||
 | 
					#include <elabar.h>
 | 
				
			||||||
 | 
					ENDPAGE
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					PAGE "Emissione Bonifici e RID SEPA" 0 2 0 0
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					GROUPBOX DLG_NULL 78 4
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 1 0 "@bSelezione"
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					LIST F_TIPOCF 1 10
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 2 1 "Effetti "
 | 
				
			||||||
 | 
					  ITEM "F|Passivi"
 | 
				
			||||||
 | 
					    MESSAGE "9",F_TIPO
 | 
				
			||||||
 | 
					  ITEM "C|Attivi"
 | 
				
			||||||
 | 
					    MESSAGE "8",F_TIPO
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					LIST F_TIPO 1 10
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 25 1 "Tipo "
 | 
				
			||||||
 | 
					  ITEM "9|Bonifici"
 | 
				
			||||||
 | 
					  ITEM "8|R.I.D."
 | 
				
			||||||
 | 
					  FLAGS "D"
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					DATE F_DATA
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 60 1 "Dal "
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					NUMBER F_ABI 5
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 2 2 "Banca "
 | 
				
			||||||
 | 
					  FLAGS "UZ"
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					NUMBER F_CAB 5
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 15 2 ""
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					STRING F_PRO 2
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 22 2 ""
 | 
				
			||||||
 | 
					  FLAGS "UZ"
 | 
				
			||||||
 | 
					  USE BNP
 | 
				
			||||||
 | 
					  JOIN %BAN INTO CODTAB==CODTAB[1,5]
 | 
				
			||||||
 | 
					  INPUT CODTAB[1,5] F_ABI
 | 
				
			||||||
 | 
					  INPUT CODTAB[6,10] F_CAB
 | 
				
			||||||
 | 
					  INPUT CODTAB[6,12] F_PRO
 | 
				
			||||||
 | 
					  DISPLAY "ABI@5" CODTAB[1,5]
 | 
				
			||||||
 | 
					  DISPLAY "CAB@5" CODTAB[6,10]
 | 
				
			||||||
 | 
					  DISPLAY "Prg." CODTAB[11,12]
 | 
				
			||||||
 | 
					  DISPLAY "Denominazione\nBanca di presentazione@50" 4->S0
 | 
				
			||||||
 | 
					  DISPLAY "SEPA\nDett.@4C" B3
 | 
				
			||||||
 | 
					  OUTPUT F_ABI CODTAB[1,5]
 | 
				
			||||||
 | 
					  OUTPUT F_CAB CODTAB[6,10]
 | 
				
			||||||
 | 
					  OUTPUT F_PRO CODTAB[11,12]
 | 
				
			||||||
 | 
					  OUTPUT F_BANCA 4->S0
 | 
				
			||||||
 | 
					  CHECTYPE NORMAL
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					STRING F_BANCA 50 47
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 28 2 ""
 | 
				
			||||||
 | 
					  USE BNP
 | 
				
			||||||
 | 
					  BY 4->S0|CODTAB
 | 
				
			||||||
 | 
					  JOIN %BAN INTO CODTAB==CODTAB
 | 
				
			||||||
 | 
					  INPUT S0 F_BANCA
 | 
				
			||||||
 | 
					  COPY DISPLAY F_PRO
 | 
				
			||||||
 | 
					  COPY OUTPUT F_PRO
 | 
				
			||||||
 | 
					  CHECTYPE NORMAL
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					SPREADSHEET F_SHEET 0 -1
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 1 4 ""
 | 
				
			||||||
 | 
					  ITEM "@1"
 | 
				
			||||||
 | 
					  ITEM "Tipo"
 | 
				
			||||||
 | 
					  ITEM "Distinta@R"
 | 
				
			||||||
 | 
					  ITEM "Data@10"
 | 
				
			||||||
 | 
					  ITEM "Importo@12R"
 | 
				
			||||||
 | 
					  ITEM "ABI@5"
 | 
				
			||||||
 | 
					  ITEM "CAB@5"
 | 
				
			||||||
 | 
					  ITEM "Prg."
 | 
				
			||||||
 | 
					  ITEM "Banca di presentazione@50"
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					ENDPAGE
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					ENDMASK
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					PAGE "Distinta" -1 -1 37 6 
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					BOOLEAN S_SELECT
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 1 1 "Selezione"
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					STRING S_TIPO 1
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 1 2 "Tipo "
 | 
				
			||||||
 | 
					  FIELD TIPODIST
 | 
				
			||||||
 | 
					  FLAGS "D"
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					NUMBER S_NUMERO 6
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 21 2 "Distinta "
 | 
				
			||||||
 | 
					  FLAGS "U"
 | 
				
			||||||
 | 
					  FIELD NDIST
 | 
				
			||||||
 | 
					  FLAGS "D"
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					DATE S_DATA
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 1 3 "Data    "
 | 
				
			||||||
 | 
					  FIELD DATADIST
 | 
				
			||||||
 | 
					  FLAGS "D"
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					CURRENCY S_IMPORTO 12
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 21 3 "Importo "
 | 
				
			||||||
 | 
					  FLAGS "D"
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					NUMBER S_ABI 5
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 1 4 "ABI     "
 | 
				
			||||||
 | 
					  FLAGS "DUZ"
 | 
				
			||||||
 | 
					  FIELD CODABIP
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					NUMBER S_CAB 5
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 21 4 "CAB     "
 | 
				
			||||||
 | 
					  FLAGS "DUZ"
 | 
				
			||||||
 | 
					  FIELD CODCABP
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					STRING S_PRO 2
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 40 4 "Progr. "
 | 
				
			||||||
 | 
					  FLAGS "DU"
 | 
				
			||||||
 | 
					  FIELD PROGBNP
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					STRING S_BANCA 50
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 1 5 "Banca   "
 | 
				
			||||||
 | 
					  FLAGS "D"
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					ENDPAGE
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					TOOLBAR "Topbar" 0 0 0 2
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					BUTTON DLG_OK 2 2
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 1 1 ""
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					BUTTON DLG_CANCEL 2 2
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 2 1 ""
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					ENDPAGE
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					ENDMASK
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					
 | 
				
			||||||
							
								
								
									
										19
									
								
								ef/eftbman.h
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										19
									
								
								ef/eftbman.h
									
									
									
									
									
										Normal file
									
								
							@ -0,0 +1,19 @@
 | 
				
			|||||||
 | 
					#ifndef __EF0200_H
 | 
				
			||||||
 | 
					#define __EF0200_H  
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					//      campi maschera ef0200a
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					#define F_CODCF         101
 | 
				
			||||||
 | 
					#define F_RAGSOC        102
 | 
				
			||||||
 | 
					#define F_PIVA          103
 | 
				
			||||||
 | 
					#define F_COFI          104
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					#define F_MANDATO       110 
 | 
				
			||||||
 | 
					#define F_DESCR         111
 | 
				
			||||||
 | 
					#define F_DATA          112
 | 
				
			||||||
 | 
					#define F_SEQUENZA      113
 | 
				
			||||||
 | 
					#define F_ABI           114
 | 
				
			||||||
 | 
					#define F_CAB           115
 | 
				
			||||||
 | 
					#define F_IBAN          116
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					#endif  // __EF0200_H
 | 
				
			||||||
							
								
								
									
										156
									
								
								ef/eftbman.uml
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										156
									
								
								ef/eftbman.uml
									
									
									
									
									
										Normal file
									
								
							@ -0,0 +1,156 @@
 | 
				
			|||||||
 | 
					#include "eftbman.h"
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					TOOLBAR "" 0 0 0 2
 | 
				
			||||||
 | 
					#include <relapbar.h>
 | 
				
			||||||
 | 
					ENDPAGE
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					PAGE "Mandati" 0 2 0 0
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					GROUPBOX DLG_NULL 78 5
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 1 1 "@bCliente"
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					NUMBER F_CODCF 6
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 2 2 "Codice    "
 | 
				
			||||||
 | 
					  USE LF_CLIFO
 | 
				
			||||||
 | 
					  INPUT TIPOCF "C"
 | 
				
			||||||
 | 
					  INPUT CODCF F_CODCF
 | 
				
			||||||
 | 
					  DISPLAY "Codice" CODCF
 | 
				
			||||||
 | 
					  DISPLAY "Ragione Sociale@50" RAGSOC
 | 
				
			||||||
 | 
					  DISPLAY "Partita IVA@12" PAIV
 | 
				
			||||||
 | 
					  DISPLAY "Codice fiscale@16" COFI
 | 
				
			||||||
 | 
					  OUTPUT F_CODCF CODCF
 | 
				
			||||||
 | 
					  OUTPUT F_RAGSOC RAGSOC
 | 
				
			||||||
 | 
					  OUTPUT F_COFI COFI
 | 
				
			||||||
 | 
					  OUTPUT F_PIVA PAIV
 | 
				
			||||||
 | 
					  CHEKCTYPE REQUIRED
 | 
				
			||||||
 | 
					  HELP "Inserire il codice del cliente"
 | 
				
			||||||
 | 
					  FIELD I0
 | 
				
			||||||
 | 
					  ADD RUN cg0 -1 C
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					STRING F_RAGSOC 50
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 22 2 ""
 | 
				
			||||||
 | 
					  USE LF_CLIFO KEY 2
 | 
				
			||||||
 | 
					  JOIN LF_CFVEN INTO CODCF=CODCF TIPOCF="C"
 | 
				
			||||||
 | 
					  JOIN LF_COMUNI INTO STATO=STATOCF COM=COMCF
 | 
				
			||||||
 | 
					  INPUT TIPOCF "C"
 | 
				
			||||||
 | 
					  INPUT RAGSOC F_RAGSOC
 | 
				
			||||||
 | 
					  DISPLAY "Ragione Sociale@50" RAGSOC
 | 
				
			||||||
 | 
					  DISPLAY "Codice" CODCF
 | 
				
			||||||
 | 
					  DISPLAY "Partita IVA@12" PAIV
 | 
				
			||||||
 | 
					  DISPLAY "Codice fiscale@16" COFI
 | 
				
			||||||
 | 
					  COPY OUTPUT F_CODCF
 | 
				
			||||||
 | 
					  CHECKTYPE REQUIRED
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					STRING F_PIVA 12
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 2 3 "Partita IVA     "
 | 
				
			||||||
 | 
					  FLAGS "D"
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					STRING F_COFI 16
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 2 4 "Codice Fiscale  "
 | 
				
			||||||
 | 
					  FLAGS "D"
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					GROUPBOX DLG_NULL 78 6
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 1 6 "@bMandato"
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					STRING F_MANDATO 35
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 2 7 "Codice      " 
 | 
				
			||||||
 | 
					  USE &EFMAN SELECT STR((#F_CODCF=0)||(#F_CODCF=I0))
 | 
				
			||||||
 | 
					  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=I0
 | 
				
			||||||
 | 
					  INPUT CODTAB F_MANDATO
 | 
				
			||||||
 | 
					  DISPLAY "Codice@35" CODTAB
 | 
				
			||||||
 | 
					  DISPLAY "Descrizione@50" S0
 | 
				
			||||||
 | 
					  DISPLAY "Cliente" I0
 | 
				
			||||||
 | 
					  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
 | 
				
			||||||
 | 
					  OUTPUT F_MANDATO CODTAB 
 | 
				
			||||||
 | 
					  OUTPUT F_DESCR S0
 | 
				
			||||||
 | 
					  OUTPUT F_CODCF I0
 | 
				
			||||||
 | 
					  CHECKTYPE REQUIRED
 | 
				
			||||||
 | 
					  FIELD CODTAB
 | 
				
			||||||
 | 
					  KEY 1
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					STRING F_DESCR 50
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 2 8 "Descrizione "
 | 
				
			||||||
 | 
					  USE &EFMAN KEY 2 SELECT STR((#F_CODCF=0)||(#F_CODCF=I0))
 | 
				
			||||||
 | 
					  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=I0
 | 
				
			||||||
 | 
					  INPUT CODTAB F_MANDATO
 | 
				
			||||||
 | 
					  DISPLAY "Descrizione@50" S0
 | 
				
			||||||
 | 
					  DISPLAY "Codice@35" CODTAB
 | 
				
			||||||
 | 
					  DISPLAY "Cliente" I0
 | 
				
			||||||
 | 
					  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
 | 
				
			||||||
 | 
					  COPY OUTPUT F_MANDATO
 | 
				
			||||||
 | 
					  CHECKTYPE REQUIRED
 | 
				
			||||||
 | 
					  FIELD S0
 | 
				
			||||||
 | 
					  KEY 2
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					DATE F_DATA 
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 2 9 "Data        "
 | 
				
			||||||
 | 
					  FIELD D0
 | 
				
			||||||
 | 
					  CHECKTYPE REQUIRED
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					LISTBOX F_SEQUENZA 4 20
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 34 9 "Sequenza "
 | 
				
			||||||
 | 
					  ITEM "RCUR|RCUR - Ricorrente"
 | 
				
			||||||
 | 
					  ITEM "FRST|FRST - Primo "
 | 
				
			||||||
 | 
					  ITEM "LAST|LAST - Ultimo"
 | 
				
			||||||
 | 
					  ITEM "OOFF|OOFF - Singolo"
 | 
				
			||||||
 | 
					  FIELD S6
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					NUMBER F_ABI 5
 | 
				
			||||||
 | 
					BEGIN        
 | 
				
			||||||
 | 
					  PROMPT 2 10 "Banca d'appoggio "
 | 
				
			||||||
 | 
					  FLAGS "Z"
 | 
				
			||||||
 | 
					  FIELD S4[1,5]
 | 
				
			||||||
 | 
					  CHECKTYPE REQUIRED
 | 
				
			||||||
 | 
					END     
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					NUMBER F_CAB 5
 | 
				
			||||||
 | 
					BEGIN        
 | 
				
			||||||
 | 
					  PROMPT 28 10 ""
 | 
				
			||||||
 | 
					  FLAGS "Z"
 | 
				
			||||||
 | 
					  USE LF_CFBAN
 | 
				
			||||||
 | 
					  INPUT TIPOCF  "C"
 | 
				
			||||||
 | 
					  INPUT CODCF   F_CODCF SELECT
 | 
				
			||||||
 | 
					  INPUT TIPOBAN "V"
 | 
				
			||||||
 | 
					  DISPLAY "ABI@5" ABI
 | 
				
			||||||
 | 
					  DISPLAY "CAB@5" CAB
 | 
				
			||||||
 | 
					  DISPLAY "IBAN@50" IBAN
 | 
				
			||||||
 | 
					  OUTPUT F_ABI  ABI
 | 
				
			||||||
 | 
					  OUTPUT F_CAB  CAB
 | 
				
			||||||
 | 
					  OUTPUT F_IBAN IBAN
 | 
				
			||||||
 | 
					  CHECKTYPE SEARCH
 | 
				
			||||||
 | 
					  FIELD S4[6,10]
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					STRING F_IBAN 34
 | 
				
			||||||
 | 
					BEGIN
 | 
				
			||||||
 | 
					  PROMPT 38 10 "IBAN "
 | 
				
			||||||
 | 
					  FLAGS "D"
 | 
				
			||||||
 | 
					  FIELD S1
 | 
				
			||||||
 | 
					END
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					ENDPAGE
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					ENDMASK
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					
 | 
				
			||||||
							
								
								
									
										182
									
								
								ef/sepa.ini
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										182
									
								
								ef/sepa.ini
									
									
									
									
									
										Normal file
									
								
							@ -0,0 +1,182 @@
 | 
				
			|||||||
 | 
					[SEBOT00F]
 | 
				
			||||||
 | 
					SET001 = CHAR(35)
 | 
				
			||||||
 | 
					SET002 = NUMERIC(8)
 | 
				
			||||||
 | 
					SET0021 = NUMERIC(6)
 | 
				
			||||||
 | 
					SET003 = NUMERIC(15)
 | 
				
			||||||
 | 
					SET004 = NUMERIC(18,2)
 | 
				
			||||||
 | 
					SET005 = CHAR(70)
 | 
				
			||||||
 | 
					SET006 = CHAR(35)
 | 
				
			||||||
 | 
					SET007 = CHAR(35)
 | 
				
			||||||
 | 
					SET008 = CHAR(3)
 | 
				
			||||||
 | 
					SET009 = CHAR(4)
 | 
				
			||||||
 | 
					SET010 = NUMERIC(8)
 | 
				
			||||||
 | 
					SET011 = CHAR(70)
 | 
				
			||||||
 | 
					SET012 = CHAR(4)
 | 
				
			||||||
 | 
					SET013 = CHAR(70)
 | 
				
			||||||
 | 
					SET014 = CHAR(70)
 | 
				
			||||||
 | 
					SET015 = CHAR(70)
 | 
				
			||||||
 | 
					SET016 = CHAR(16)
 | 
				
			||||||
 | 
					SET017 = CHAR(16)
 | 
				
			||||||
 | 
					SET018 = CHAR(35)
 | 
				
			||||||
 | 
					SET019 = CHAR(35)
 | 
				
			||||||
 | 
					SET020 = CHAR(2)
 | 
				
			||||||
 | 
					SET021 = CHAR(70)
 | 
				
			||||||
 | 
					SET022 = CHAR(70)
 | 
				
			||||||
 | 
					SET023 = CHAR(2)
 | 
				
			||||||
 | 
					SET024 = CHAR(34)
 | 
				
			||||||
 | 
					SET025 = CHAR(11)
 | 
				
			||||||
 | 
					SET026 = CHAR(35)
 | 
				
			||||||
 | 
					SET027 = CHAR(4)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					INDEX_1 = SET001
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					[SEBOD00F]
 | 
				
			||||||
 | 
					SED001 = CHAR(35)
 | 
				
			||||||
 | 
					SED002 = CHAR(35)
 | 
				
			||||||
 | 
					SED003 = CHAR(4)
 | 
				
			||||||
 | 
					SED004 = CHAR(35)
 | 
				
			||||||
 | 
					SED005 = CHAR(3)
 | 
				
			||||||
 | 
					SED006 = NUMERIC(12,2)
 | 
				
			||||||
 | 
					SED007 = CHAR(5)
 | 
				
			||||||
 | 
					SED008 = CHAR(11)
 | 
				
			||||||
 | 
					SED009 = CHAR(70)
 | 
				
			||||||
 | 
					SED010 = CHAR(4)
 | 
				
			||||||
 | 
					SED011 = CHAR(70)
 | 
				
			||||||
 | 
					SED012 = CHAR(70)
 | 
				
			||||||
 | 
					SED013 = CHAR(70)
 | 
				
			||||||
 | 
					SED014 = CHAR(16)
 | 
				
			||||||
 | 
					SED015 = CHAR(16)
 | 
				
			||||||
 | 
					SED016 = CHAR(35)
 | 
				
			||||||
 | 
					SED017 = CHAR(35)
 | 
				
			||||||
 | 
					SED018 = CHAR(2)
 | 
				
			||||||
 | 
					SED019 = CHAR(35)
 | 
				
			||||||
 | 
					SED020 = CHAR(35)
 | 
				
			||||||
 | 
					SED021 = CHAR(2)
 | 
				
			||||||
 | 
					SED022 = CHAR(34)
 | 
				
			||||||
 | 
					SED023 = CHAR(3)
 | 
				
			||||||
 | 
					SED024 = CHAR(3)
 | 
				
			||||||
 | 
					SED025 = NUMERIC(12,2)
 | 
				
			||||||
 | 
					SED026 = CHAR(35)
 | 
				
			||||||
 | 
					SED027 = CHAR(35)
 | 
				
			||||||
 | 
					SED028 = CHAR(4)
 | 
				
			||||||
 | 
					SED029 = CHAR(2048)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					INDEX_1 = SED001,SED002
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					[SEBOF00F]
 | 
				
			||||||
 | 
					SEF001 = CHAR(35)
 | 
				
			||||||
 | 
					SEF002 = CHAR(35)
 | 
				
			||||||
 | 
					SEF003 = NUMERIC(5)
 | 
				
			||||||
 | 
					SEF004 = CHAR(4)
 | 
				
			||||||
 | 
					SEF005 = CHAR(35)
 | 
				
			||||||
 | 
					SEF006 = CHAR(35)
 | 
				
			||||||
 | 
					SEF007 = CHAR(35)
 | 
				
			||||||
 | 
					SEF008 = NUMERIC(8)
 | 
				
			||||||
 | 
					SEF009 = NUMERIC(18,2)
 | 
				
			||||||
 | 
					SEF010 = NUMERIC(18,2)
 | 
				
			||||||
 | 
					SEF011 = NUMERIC(18,2)
 | 
				
			||||||
 | 
					SEF012 = CHAR(140)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					INDEX_1 = SEF001,SEF002,SEF003
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					[SERIT00F]
 | 
				
			||||||
 | 
					SERT01 = CHAR(35)
 | 
				
			||||||
 | 
					SERT02 = NUMERIC(8)
 | 
				
			||||||
 | 
					SERT021 = NUMERIC(6)
 | 
				
			||||||
 | 
					SERT03 = NUMERIC(15)
 | 
				
			||||||
 | 
					SERT04 = NUMERIC(18,2)
 | 
				
			||||||
 | 
					SERT05 = CHAR(70)
 | 
				
			||||||
 | 
					SERT06 = CHAR(35)
 | 
				
			||||||
 | 
					SERT07 = CHAR(35)
 | 
				
			||||||
 | 
					SERT08 = CHAR(35)
 | 
				
			||||||
 | 
					SERT09 = CHAR(2)
 | 
				
			||||||
 | 
					SERT10 = CHAR(4)
 | 
				
			||||||
 | 
					SERT11 = CHAR(4)
 | 
				
			||||||
 | 
					SERT12 = CHAR(4)
 | 
				
			||||||
 | 
					SERT13 = CHAR(4)
 | 
				
			||||||
 | 
					SERT14 = NUMERIC(8)
 | 
				
			||||||
 | 
					SERT15 = CHAR(70)
 | 
				
			||||||
 | 
					SERT16 = CHAR(4)
 | 
				
			||||||
 | 
					SERT17 = CHAR(70)
 | 
				
			||||||
 | 
					SERT18 = CHAR(70)
 | 
				
			||||||
 | 
					SERT19 = CHAR(70)
 | 
				
			||||||
 | 
					SERT20 = CHAR(16)
 | 
				
			||||||
 | 
					SERT21 = CHAR(16)
 | 
				
			||||||
 | 
					SERT22 = CHAR(35)
 | 
				
			||||||
 | 
					SERT23 = CHAR(35)
 | 
				
			||||||
 | 
					SERT24 = CHAR(2)
 | 
				
			||||||
 | 
					SERT25 = CHAR(1)
 | 
				
			||||||
 | 
					SERT26 = CHAR(11)
 | 
				
			||||||
 | 
					SERT27 = CHAR(35)
 | 
				
			||||||
 | 
					SERT28 = CHAR(35)
 | 
				
			||||||
 | 
					SERT29 = CHAR(34)
 | 
				
			||||||
 | 
					SERT30 = CHAR(5)
 | 
				
			||||||
 | 
					SERT31 = CHAR(70)
 | 
				
			||||||
 | 
					SERT32 = CHAR(4)
 | 
				
			||||||
 | 
					SERT33 = CHAR(70)
 | 
				
			||||||
 | 
					SERT34 = CHAR(70)
 | 
				
			||||||
 | 
					SERT35 = CHAR(70)
 | 
				
			||||||
 | 
					SERT36 = CHAR(16)
 | 
				
			||||||
 | 
					SERT37 = CHAR(16)
 | 
				
			||||||
 | 
					SERT38 = CHAR(35)
 | 
				
			||||||
 | 
					SERT39 = CHAR(35)
 | 
				
			||||||
 | 
					SERT40 = CHAR(2)
 | 
				
			||||||
 | 
					SERT41 = CHAR(35)
 | 
				
			||||||
 | 
					SERT42 = CHAR(4)
 | 
				
			||||||
 | 
					SERT43 = CHAR(35)
 | 
				
			||||||
 | 
					SERT44 = CHAR(2)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					INDEX_1 = SERT01
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					[SERID00F]
 | 
				
			||||||
 | 
					SERD01 = CHAR(35)
 | 
				
			||||||
 | 
					SERD02 = CHAR(35)
 | 
				
			||||||
 | 
					SERD03 = CHAR(4)
 | 
				
			||||||
 | 
					SERD04 = CHAR(3)
 | 
				
			||||||
 | 
					SERD05 = NUMERIC(12,2)
 | 
				
			||||||
 | 
					SERD06 = CHAR(4)
 | 
				
			||||||
 | 
					SERD07 = CHAR(35)
 | 
				
			||||||
 | 
					SERD08 = CHAR(8)
 | 
				
			||||||
 | 
					SERD09 = CHAR(5)
 | 
				
			||||||
 | 
					SERD10 = CHAR(11)
 | 
				
			||||||
 | 
					SERD11 = CHAR(70)
 | 
				
			||||||
 | 
					SERD121 = CHAR(4)
 | 
				
			||||||
 | 
					SERD12 = CHAR(70)
 | 
				
			||||||
 | 
					SERD13 = CHAR(70)
 | 
				
			||||||
 | 
					SERD14 = CHAR(70)
 | 
				
			||||||
 | 
					SERD15 = CHAR(16)
 | 
				
			||||||
 | 
					SERD16 = CHAR(16)
 | 
				
			||||||
 | 
					SERD17 = CHAR(35)
 | 
				
			||||||
 | 
					SERD18 = CHAR(35)
 | 
				
			||||||
 | 
					SERD19 = CHAR(2)
 | 
				
			||||||
 | 
					SERD20 = CHAR(1)
 | 
				
			||||||
 | 
					SERD21 = CHAR(11)
 | 
				
			||||||
 | 
					SERD22 = CHAR(35)
 | 
				
			||||||
 | 
					SERD23 = CHAR(35)
 | 
				
			||||||
 | 
					SERD24 = CHAR(2)
 | 
				
			||||||
 | 
					SERD25 = CHAR(34)
 | 
				
			||||||
 | 
					SERD26 = CHAR(35)
 | 
				
			||||||
 | 
					SERD27 = CHAR(4)
 | 
				
			||||||
 | 
					SERD28 = CHAR(3)
 | 
				
			||||||
 | 
					SERD29 = CHAR(3)
 | 
				
			||||||
 | 
					SERD30 = CHAR(12)
 | 
				
			||||||
 | 
					SERD31 = CHAR(35)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					INDEX_1 = SERD01,SERD02
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					[SERIF00F]
 | 
				
			||||||
 | 
					SERF01 = CHAR(35)
 | 
				
			||||||
 | 
					SERF02 = CHAR(35)
 | 
				
			||||||
 | 
					SERF03 = NUMERIC(5)
 | 
				
			||||||
 | 
					SERF04 = CHAR(4)
 | 
				
			||||||
 | 
					SERF05 = CHAR(35)
 | 
				
			||||||
 | 
					SERF06 = CHAR(35)
 | 
				
			||||||
 | 
					SERF07 = CHAR(35)
 | 
				
			||||||
 | 
					SERF08 = NUMERIC(8)
 | 
				
			||||||
 | 
					SERF09 = NUMERIC(18,2)
 | 
				
			||||||
 | 
					SERF10 = NUMERIC(18,2)
 | 
				
			||||||
 | 
					SERF11 = NUMERIC(18,2)
 | 
				
			||||||
 | 
					SERF12 = CHAR(35)
 | 
				
			||||||
 | 
					SERF13 = NUMERIC(8)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					INDEX_1 = SERF01,SERF02,SERF03
 | 
				
			||||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user