Patch level : 2.0 638

Files correlati     : cg0.exe cg0200a.msk f20.dir f20.trr
Ricompilazione Demo : [ ]
Commento            :

Prima implementazione della gestione del codice IBAN in generazione effetti


git-svn-id: svn://10.65.10.50/trunk@11582 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2003-11-10 15:03:38 +00:00
parent 27990792f3
commit f1b3583676
6 changed files with 121 additions and 54 deletions

View File

@ -451,6 +451,8 @@ void TClifo_application::init_insert_mode(TMask& m)
void TClifo_application::init_modify_mode(TMask& m) void TClifo_application::init_modify_mode(TMask& m)
{ {
m.enable_page(4, _gesven); m.enable_page(4, _gesven);
if (_gesven)
m.efield(F_IBAN_STATO).validate(K_TAB); // Decodifica IBAN
} }
void TClifo_application::set_pnae(TMask& m, TToken_string& nonacc, TToken_string& nonscd) void TClifo_application::set_pnae(TMask& m, TToken_string& nonacc, TToken_string& nonscd)

View File

@ -42,7 +42,17 @@
#define F_DESPAG 331 #define F_DESPAG 331
#define F_RAGSOC1 132 #define F_RAGSOC1 132
#define F_CODABI 133 #define F_CODABI 133
#define F_CODBAN 134 #define F_CODCAB 134
#define F_IBAN 350
#define F_IBAN_STATO 351
#define F_IBAN_CHECK 352
#define F_BBAN 353
#define F_BBAN_CIN 354
#define F_BBAN_ABI 355
#define F_BBAN_CAB 356
#define F_BBAN_CONTO 357
#define F_DESBAN 140 #define F_DESBAN 140
#define F_CODVAL 136 #define F_CODVAL 136
#define F_DESVAL 336 #define F_DESVAL 336

View File

@ -68,7 +68,7 @@ END
STRING F_RAGSOC 30 STRING F_RAGSOC 30
BEGIN BEGIN
PROMPT 23 1 "Cognome / Rag. Soc. " PROMPT 25 1 "Cognome/Rag. Soc. "
FIELD RAGSOC[1,30] FIELD RAGSOC[1,30]
KEY 2 KEY 2
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
@ -88,7 +88,7 @@ END
STRING F_RAGSOCA 20 STRING F_RAGSOCA 20
BEGIN BEGIN
PROMPT 23 2 "Nome / Seconda parte Rag. Soc. " PROMPT 25 2 "Nome/Seconda parte Rag. Soc. "
FIELD RAGSOC[31,50] FIELD RAGSOC[31,50]
KEY 2 KEY 2
HELP "Seconda parte della ragione sociale o nome" HELP "Seconda parte della ragione sociale o nome"
@ -380,14 +380,14 @@ END
STRING DLG_NULL 30 STRING DLG_NULL 30
BEGIN BEGIN
PROMPT 23 1 "Cognome / Rag. Soc. " PROMPT 25 1 "Cognome/Rag. Soc. "
FLAGS "D" FLAGS "D"
GROUP 3 GROUP 3
END END
STRING DLG_NULL 20 STRING DLG_NULL 20
BEGIN BEGIN
PROMPT 23 2 "Nome / Seconda parte Rag. Soc. " PROMPT 25 2 "Nome/Seconda parte Rag. Soc. "
FLAGS "D" FLAGS "D"
GROUP 6 GROUP 6
END END
@ -606,21 +606,21 @@ END
STRING DLG_NULL 30 STRING DLG_NULL 30
BEGIN BEGIN
PROMPT 23 1 "Cognome / Rag. Soc. " PROMPT 25 1 "Cognome/Rag. Soc. "
FLAGS "D" FLAGS "D"
GROUP 3 GROUP 3
END END
STRING DLG_NULL 20 STRING DLG_NULL 20
BEGIN BEGIN
PROMPT 23 2 "Nome / Seconda parte Rag. Soc. " PROMPT 25 2 "Nome/Seconda parte Rag. Soc. "
FLAGS "D" FLAGS "D"
GROUP 6 GROUP 6
END END
NUMBER F_CODABI 5 NUMBER F_CODABI 5
BEGIN BEGIN
PROMPT 2 4 "Banca appoggio ABI " PROMPT 2 4 "Banca d'appoggio "
FIELD CODABI FIELD CODABI
FLAGS "Z" FLAGS "Z"
USE %BAN SELECT CODTAB ?= "?????" USE %BAN SELECT CODTAB ?= "?????"
@ -630,47 +630,103 @@ BEGIN
OUTPUT F_CODABI CODTAB[1,5] OUTPUT F_CODABI CODTAB[1,5]
HELP "Codice ABI banca del C/F" HELP "Codice ABI banca del C/F"
CHECKTYPE NORMAL CHECKTYPE NORMAL
MESSAGE COPY,F_BBAN_ABI
END END
NUMBER F_CODBAN 5 NUMBER F_CODCAB 5
BEGIN BEGIN
PROMPT 63 4 "CAB " PROMPT 28 4 ""
FIELD CODCAB FIELD CODCAB
FLAGS "Z" FLAGS "Z"
USE %BAN SELECT CODTAB ?= "??????????" USE %BAN SELECT CODTAB ?= "??????????"
INPUT CODTAB[1,5] F_CODABI INPUT CODTAB[1,5] F_CODABI
INPUT CODTAB[6,10] F_CODBAN INPUT CODTAB[6,10] F_CODCAB
DISPLAY "Codice ABI" CODTAB[1,5] DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10] DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT F_CODABI CODTAB[1,5] OUTPUT F_CODABI CODTAB[1,5]
OUTPUT F_CODBAN CODTAB[6,10] OUTPUT F_CODCAB CODTAB[6,10]
OUTPUT F_DESBAN S0 OUTPUT F_DESBAN S0
HELP "Codice CAB banca del C/F" HELP "Codice CAB banca del C/F"
CHECKTYPE NORMAL CHECKTYPE NORMAL
MESSAGE COPY,F_BBAN_CAB
END END
STRING F_DESBAN 50 STRING F_DESBAN 50 37
BEGIN BEGIN
PROMPT 2 5 "Denominazione " PROMPT 37 4 ""
USE %BAN KEY 2 SELECT CODTAB ?= "??????????" USE %BAN KEY 2 SELECT CODTAB ?= "??????????"
INPUT S0 F_DESBAN INPUT S0 F_DESBAN
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
DISPLAY "Codice ABI" CODTAB[1,5] DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10] DISPLAY "Codice CAB" CODTAB[6,10]
COPY OUTPUT F_CODBAN COPY OUTPUT F_CODCAB
END END
STRING F_NUMCC 20 STRING F_NUMCC 20
BEGIN BEGIN
PROMPT 2 6 "Conto corrente " PROMPT 2 5 "Conto corrente "
FIELD NUMCC FIELD NUMCC
FLAGS "U" FLAGS "U"
END END
STRING F_IBAN 34
BEGIN
PROMPT 2 6 ""
FLAGS "H"
FIELD IBAN
END
STRING F_IBAN_STATO 2
BEGIN
PROMPT 2 6 "Codice IBAN "
FLAGS "U"
VALIDATE CHECK_IBAN_FUNC F_IBAN F_IBAN_STATO F_IBAN_CHECK F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END
NUMBER F_IBAN_CHECK 2
BEGIN
PROMPT 24 6 ""
FLAGS "UZ"
VALIDATE CHECK_IBAN_FUNC F_IBAN F_IBAN_STATO F_IBAN_CHECK F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END
STRINGA F_BBAN 30
BEGIN
PROMPT 33 6 "BBAN "
FLAGS "UH"
END
STRINGA F_BBAN_CIN 1
BEGIN
PROMPT 33 6 "BBAN "
FLAGS "U"
VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END
NUMBER F_BBAN_ABI 5
BEGIN
PROMPT 41 6 ""
FLAGS "DGZ"
END
NUMBER F_BBAN_CAB 5
BEGIN
PROMPT 48 6 ""
FLAGS "DGZ"
END
STRING F_BBAN_CONTO 12
BEGIN
PROMPT 55 6 ""
FLAGS "UZ"
VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END
STRING F_CODVAL 3 STRING F_CODVAL 3
BEGIN BEGIN
PROMPT 2 7 "Valuta " PROMPT 2 8 "Valuta "
FLAGS "UZ" FLAGS "UZ"
FIELD CODVAL FIELD CODVAL
USE %VAL USE %VAL
@ -684,7 +740,7 @@ END
STRING F_DESVAL 50 STRING F_DESVAL 50
BEGIN BEGIN
PROMPT 22 7 "" PROMPT 22 8 ""
USE %VAL KEY 2 USE %VAL KEY 2
INPUT S0 F_DESVAL INPUT S0 F_DESVAL
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -695,7 +751,7 @@ END
STRING F_CODVALINTRA 3 STRING F_CODVALINTRA 3
BEGIN BEGIN
PROMPT 2 8 "Valuta INTRA" PROMPT 2 9 "Valuta INTRA "
FLAGS "UZ" FLAGS "UZ"
FIELD VALINTRA FIELD VALINTRA
COPY USE F_CODVAL COPY USE F_CODVAL
@ -709,7 +765,7 @@ END
STRING F_DESVALINTRA 50 STRING F_DESVALINTRA 50
BEGIN BEGIN
PROMPT 22 8 "" PROMPT 22 9 ""
COPY USE F_DESVAL COPY USE F_DESVAL
INPUT S0 F_DESVALINTRA INPUT S0 F_DESVALINTRA
COPY DISPLAY F_DESVAL COPY DISPLAY F_DESVAL
@ -720,7 +776,7 @@ END
STRING F_CODLIN 1 STRING F_CODLIN 1
BEGIN BEGIN
PROMPT 2 9 "Lingua " PROMPT 2 10 "Lingua "
FIELD CODLIN FIELD CODLIN
USE %LNG USE %LNG
FLAGS "U" FLAGS "U"
@ -735,7 +791,7 @@ END
STRING F_DESLIN 50 STRING F_DESLIN 50
BEGIN BEGIN
PROMPT 22 9 "" PROMPT 22 10 ""
USE %LNG KEY 2 USE %LNG KEY 2
INPUT S0 F_DESLIN INPUT S0 F_DESLIN
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -746,7 +802,7 @@ END
STRING F_CODPAG 4 STRING F_CODPAG 4
BEGIN BEGIN
PROMPT 2 10 "Pagamento " PROMPT 2 11 "Pagamento "
FIELD CODPAG FIELD CODPAG
FLAGS "U#" FLAGS "U#"
USE %CPG USE %CPG
@ -762,7 +818,7 @@ END
STRING F_DESPAG 50 STRING F_DESPAG 50
BEGIN BEGIN
PROMPT 22 10 "" PROMPT 22 11 ""
USE %CPG KEY 2 USE %CPG KEY 2
INPUT S0 F_DESPAG INPUT S0 F_DESPAG
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -774,7 +830,7 @@ END
CURRENCY F_FIDO 15 CURRENCY F_FIDO 15
BEGIN BEGIN
PROMPT 2 11 "Fido " PROMPT 2 12 "Fido "
FIELD FIDO FIELD FIDO
DRIVENBY F_CODVAL DRIVENBY F_CODVAL
HELP "Importo massimo fido del cliente/fornitore" HELP "Importo massimo fido del cliente/fornitore"
@ -782,18 +838,18 @@ END
GROUPBOX DLG_NULL 76 3 GROUPBOX DLG_NULL 76 3
BEGIN BEGIN
PROMPT 1 12 "@bConto cliente/fornitore" PROMPT 1 13 "@bConto cliente/fornitore"
END END
NUMBER F_GRUPPO 3 NUMBER F_GRUPPO 3
BEGIN BEGIN
PROMPT 2 13 "Grp." PROMPT 2 14 "Grp."
FIELD GRUPPO FIELD GRUPPO
END END
NUMBER F_CONTO 3 NUMBER F_CONTO 3
BEGIN BEGIN
PROMPT 11 13 "Cnt." PROMPT 11 14 "Cnt."
FIELD CONTO FIELD CONTO
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
INPUT GRUPPO F_GRUPPO INPUT GRUPPO F_GRUPPO
@ -811,7 +867,7 @@ END
STRING F_DESCONTO 50 STRING F_DESCONTO 50
BEGIN BEGIN
PROMPT 22 13 "" PROMPT 22 14 ""
USE LF_PCON KEY 2 SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) USE LF_PCON KEY 2 SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
INPUT DESCR F_DESCONTO INPUT DESCR F_DESCONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
@ -824,18 +880,18 @@ END
GROUPBOX DLG_RIC 76 4 GROUPBOX DLG_RIC 76 4
BEGIN BEGIN
PROMPT 1 15 "@bConto di ricavo" PROMPT 1 16 "@bConto di ricavo"
END END
GROUPBOX DLG_CST 76 4 GROUPBOX DLG_CST 76 4
BEGIN BEGIN
PROMPT 1 15 "@bConto di costo" PROMPT 1 16 "@bConto di costo"
FLAGS "H" FLAGS "H"
END END
NUMBER F_GRUPPORIC 3 NUMBER F_GRUPPORIC 3
BEGIN BEGIN
PROMPT 2 16 "Gruppo " PROMPT 2 17 "Gruppo "
FIELD GRUPPORIC FIELD GRUPPORIC
FLAGS "R" FLAGS "R"
HELP "Gruppo di contropartita" HELP "Gruppo di contropartita"
@ -843,7 +899,7 @@ END
NUMBER F_CONTORIC 3 NUMBER F_CONTORIC 3
BEGIN BEGIN
PROMPT 27 16 "Conto " PROMPT 27 17 "Conto "
FIELD CONTORIC FIELD CONTORIC
FLAGS "R" FLAGS "R"
HELP "Conto di contropartita" HELP "Conto di contropartita"
@ -851,7 +907,7 @@ END
NUMBER F_SOTTOCRIC 6 NUMBER F_SOTTOCRIC 6
BEGIN BEGIN
PROMPT 47 16 "Sottoconto " PROMPT 47 17 "Sottoconto "
FIELD SOTTOCRIC FIELD SOTTOCRIC
FLAGS "R" FLAGS "R"
USE LF_PCON SELECT SOTTOCONTO!="" USE LF_PCON SELECT SOTTOCONTO!=""
@ -873,7 +929,7 @@ END
STRING F_DESCRIC 50 STRING F_DESCRIC 50
BEGIN BEGIN
PROMPT 2 17 "Descrizione " PROMPT 2 18 "Descrizione "
USE LF_PCON KEY 2 SELECT SOTTOCONTO!="" USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
INPUT DESCR F_DESCRIC INPUT DESCR F_DESCRIC
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
@ -912,14 +968,14 @@ END
STRING DLG_NULL 30 STRING DLG_NULL 30
BEGIN BEGIN
PROMPT 23 1 "Cognome / Rag. Soc. " PROMPT 25 1 "Cognome/Rag. Soc. "
FLAGS "D" FLAGS "D"
GROUP 3 GROUP 3
END END
STRING DLG_NULL 20 STRING DLG_NULL 20
BEGIN BEGIN
PROMPT 23 2 "Nome / Seconda Parte Rag. Soc. " PROMPT 25 2 "Nome/Seconda parte Rag. Soc. "
FLAGS "D" FLAGS "D"
GROUP 6 GROUP 6
END END
@ -942,10 +998,10 @@ BEGIN
PROMPT 43 4 "CAB " PROMPT 43 4 "CAB "
FIELD LF_CFVEN->CODCABPR FIELD LF_CFVEN->CODCABPR
FLAGS "Z" FLAGS "Z"
COPY USE F_CODBAN COPY USE F_CODCAB
INPUT CODTAB[1,5] F_CODABIPR INPUT CODTAB[1,5] F_CODABIPR
INPUT CODTAB[6,10] F_CODBANPR INPUT CODTAB[6,10] F_CODBANPR
COPY DISPLAY F_CODBAN COPY DISPLAY F_CODCAB
OUTPUT F_CODABIPR CODTAB[1,5] OUTPUT F_CODABIPR CODTAB[1,5]
OUTPUT F_CODBANPR CODTAB[6,10] OUTPUT F_CODBANPR CODTAB[6,10]
OUTPUT F_DESBANPR S0 OUTPUT F_DESBANPR S0
@ -1061,14 +1117,14 @@ END
STRING DLG_NULL 30 STRING DLG_NULL 30
BEGIN BEGIN
PROMPT 23 1 "Cognome / Rag. Soc. " PROMPT 25 1 "Cognome/Rag. Soc. "
FLAGS "D" FLAGS "D"
GROUP 3 GROUP 3
END END
STRING DLG_NULL 20 STRING DLG_NULL 20
BEGIN BEGIN
PROMPT 23 2 "Nome / Seconda parte Rag. Soc. " PROMPT 25 2 "Nome/Seconda parte Rag. Soc. "
FLAGS "D" FLAGS "D"
GROUP 6 GROUP 6
END END
@ -1153,14 +1209,14 @@ END
STRING DLG_NULL 30 STRING DLG_NULL 30
BEGIN BEGIN
PROMPT 23 1 "Cognome / Rag. Soc. " PROMPT 25 1 "Cognome/Rag. Soc. "
FLAGS "D" FLAGS "D"
GROUP 3 GROUP 3
END END
STRING DLG_NULL 20 STRING DLG_NULL 20
BEGIN BEGIN
PROMPT 23 2 "Nome / seconda parte Rag. Soc. " PROMPT 25 2 "Nome/Seconda parte Rag. Soc. "
FLAGS "D" FLAGS "D"
GROUP 6 GROUP 6
END END
@ -1359,14 +1415,14 @@ END
STRING DLG_NULL 30 STRING DLG_NULL 30
BEGIN BEGIN
PROMPT 23 1 "Cognome / Rag. Soc. " PROMPT 25 1 "Cognome/Rag. Soc. "
FLAGS "D" FLAGS "D"
GROUP 3 GROUP 3
END END
STRING DLG_NULL 20 STRING DLG_NULL 20
BEGIN BEGIN
PROMPT 23 2 "Nome / Seconda parte Rag. Soc. " PROMPT 25 2 "Nome/Seconda parte Rag. Soc. "
FLAGS "D" FLAGS "D"
GROUP 6 GROUP 6
END END
@ -1400,9 +1456,9 @@ BEGIN
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_CODSPMEZZO 2 STRING F_CODSPMEZZO 3
BEGIN BEGIN
PROMPT 46 4 "Codice modalita'spedizione " PROMPT 43 4 "Codice modalita' spedizione "
FIELD LF_CFVEN->CODSPMEZZO FIELD LF_CFVEN->CODSPMEZZO
USE %MSP USE %MSP
INPUT CODTAB F_CODSPMEZZO INPUT CODTAB F_CODSPMEZZO
@ -1636,14 +1692,14 @@ END
STRING DLG_NULL 30 STRING DLG_NULL 30
BEGIN BEGIN
PROMPT 23 1 "Cognome / Rag. Soc. " PROMPT 25 1 "Cognome/Rag. Soc. "
FLAGS "D" FLAGS "D"
GROUP 3 GROUP 3
END END
STRING DLG_NULL 20 STRING DLG_NULL 20
BEGIN BEGIN
PROMPT 23 2 "Nome / Seconda parte Rag. Soc. " PROMPT 25 2 "Nome/Seconda parte Rag. Soc. "
FLAGS "D" FLAGS "D"
GROUP 6 GROUP 6
END END

View File

@ -29,7 +29,6 @@ BEGIN
OUTPUT F_FROMFIRM CODDITTA OUTPUT F_FROMFIRM CODDITTA
OUTPUT F_DFROMFIRM RAGSOC OUTPUT F_DFROMFIRM RAGSOC
HELP "Codice della ditta da cui prelevare i dati" HELP "Codice della ditta da cui prelevare i dati"
VALIDATE CHECK_FIRM_FUNC
WARNING "Ditta assente" WARNING "Ditta assente"
END END
@ -44,7 +43,6 @@ BEGIN
COPY OUTPUT F_FROMFIRM COPY OUTPUT F_FROMFIRM
HELP "Ragione sociale della ditta da cui prelevare i dati" HELP "Ragione sociale della ditta da cui prelevare i dati"
WARNING "Ditta assente" WARNING "Ditta assente"
VALIDATE CHECK_FIRM_FUNC
END END
GROUPBOX DLG_NULL 76 3 GROUPBOX DLG_NULL 76 3

View File

@ -1,3 +1,3 @@
20 20
0 0
$clifo|0|0|639|0|Clienti/Fornitori|NCF|| $clifo|0|0|673|0|Clienti/Fornitori|NCF||

View File

@ -1,5 +1,5 @@
20 20
52 53
TIPOCF|1|1|0|Tipo ( <C>liente <F>ornitore TIPOCF|1|1|0|Tipo ( <C>liente <F>ornitore
CODCF|3|6|0|Codice CODCF|3|6|0|Codice
RAGSOC|1|50|0|Ragione sociale RAGSOC|1|50|0|Ragione sociale
@ -40,6 +40,7 @@ CODSTAT|1|7|0|Codice statistico
CODABI|10|5|0|Codice ABI banca CODABI|10|5|0|Codice ABI banca
CODCAB|10|5|0|Codice CAB banca CODCAB|10|5|0|Codice CAB banca
NUMCC|1|20|0|Numero di conto corrente NUMCC|1|20|0|Numero di conto corrente
IBAN|1|34|0|Codice IBAN
OCCAS|8|1|0|Cliente / fornitore occasionale OCCAS|8|1|0|Cliente / fornitore occasionale
STATO|2|3|0|Codice stato ??? STATO|2|3|0|Codice stato ???
CODVAL|1|3|0|Codice valuta CODVAL|1|3|0|Codice valuta