SEPA

git-svn-id: svn://10.65.10.50/branches/R_10_00@23171 c028cbd2-c16b-5b4b-a496-9718f37d4682

ef/ef1100a.h

@@ -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

ef/ef1100a.uml

@@ -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
+
+

ef/eftbman.h

@@ -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

ef/eftbman.uml

@@ -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
+
+

ef/sepa.ini

@@ -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