diff --git a/cg/cg0200.cpp b/cg/cg0200.cpp index 800ac3307..deb5b0be4 100755 --- a/cg/cg0200.cpp +++ b/cg/cg0200.cpp @@ -701,7 +701,10 @@ void TClifo_application::add_bank(TSheet_field& ns_sh, const TRectype& rec) default: break; } - + + // Esistono dati erronamente pił lunghi + numcc.cut(12); numcc.trim(); + if (iban.full()) { TString msg; diff --git a/cg/cg0200a.uml b/cg/cg0200a.uml index e1b8200b8..10f1824c4 100755 --- a/cg/cg0200a.uml +++ b/cg/cg0200a.uml @@ -536,9 +536,9 @@ BEGIN ITEM "G|Giuridica" END -BUTTON DLG_ANAG 10 1 +BUTTON DLG_ANAG 16 1 BEGIN - PROMPT 45 15 "Crea percipiente" + PROMPT 40 15 "Crea percipiente" GROUP 4 END @@ -546,7 +546,6 @@ NUMBER F_CODANAGPER 5 BEGIN PROMPT 59 15 "Codice " FIELD CODANAGPER - FLAGS "R" GROUP 4 USE LF_ANAG INPUT TIPOA F_TIPOAPER SELECT @@ -558,6 +557,7 @@ BEGIN OUTPUT F_RAGSOC1 RAGSOC HELP "Codice anagrafico percepiente per la compilazione Mod. 770" CHECKTYPE SEARCH + MESSAGE EMPTY RESET,F_RAGSOC1 WARNING "Percipiente assente" ADD RUN ba4 -1 #F_TIPOAPER END diff --git a/cg/cg0700a.uml b/cg/cg0700a.uml index 68d768f9b..7297cacb2 100755 --- a/cg/cg0700a.uml +++ b/cg/cg0700a.uml @@ -9,7 +9,7 @@ ENDPAGE PAGE "Clienti/Fornitori occasionali" 0 0 0 0 -GROUPBOX DLG_NULL 70 4 +GROUPBOX DLG_NULL 71 5 BEGIN PROMPT 1 0 "" END @@ -45,7 +45,7 @@ END STRING O_COFI 16 BEGIN - PROMPT 2 4 "Codice fiscale " + PROMPT 2 3 "Codice fiscale " FIELD COFI FLAGS "U" VALIDATE XTZCF_FUNC O_STATONAS O_SESSO O_DATANAS O_COMUNENAS @@ -53,12 +53,12 @@ END STRING O_PAIV 12 BEGIN - PROMPT 44 4 "Partita IVA " + PROMPT 44 3 "Partita IVA " FIELD PAIV VALIDATE PI_FUNC O_STATO END -GROUPBOX DLG_NULL 70 5 +GROUPBOX DLG_NULL 71 5 BEGIN PROMPT 1 5 "@bDati residenza" END @@ -114,7 +114,7 @@ END STRING O_DENCOM 50 BEGIN - PROMPT 2 8 "Denominazione " + PROMPT 2 8 "Denominazione " HELP "Nome del comune di residenza della persona" USE LF_COMUNI KEY 2 INPUT DENCOM O_DENCOM @@ -124,7 +124,7 @@ BEGIN CHECKTYPE NORMAL END -GROUPBOX DLG_NULL 70 4 +GROUPBOX DLG_NULL 71 4 BEGIN PROMPT 1 10 "@bDati nascita" END @@ -157,7 +157,7 @@ END STRING O_COMUNENAS 4 BEGIN - PROMPT 55 11 "Comune " + PROMPT 57 11 "Comune " FIELD COMNASC FLAGS "U" COPY USE O_COMUNE @@ -171,7 +171,7 @@ END STRING O_DENCOMNAS 50 BEGIN - PROMPT 2 12 "Denominazione " + PROMPT 2 12 "Denominazione " COPY USE O_DENCOM INPUT DENCOM O_DENCOMNAS COPY DISPLAY O_DENCOM