From 6b4b3c7978744226282cdf47146ab0b9b2cf3537 Mon Sep 17 00:00:00 2001 From: Alessandro Bonazzi Date: Mon, 9 Jun 2025 01:43:12 +0200 Subject: [PATCH] Patch level : 01.00 0282 Files correlati : f23.dir f23.trr f9.dir f9.trr Bug : Aggiornamento FePA --- src/ba/ba4300.h | 13 +++- src/ba/ba4300a.uml | 149 +++++++++++++++++++++++++++++++++++---------- src/ba/bamenu.men | 7 ++- 3 files changed, 134 insertions(+), 35 deletions(-) diff --git a/src/ba/ba4300.h b/src/ba/ba4300.h index c895d9215..b2cb203a2 100755 --- a/src/ba/ba4300.h +++ b/src/ba/ba4300.h @@ -1,6 +1,10 @@ #ifndef __BA4300_H #define __BA4300_H +#ifndef __NDITTE_H +#include +#endif + #define FN_CODDITTA "CODITTA" /* FLD_GD1_PROGD */ #define FN_TIPOA "TIPOA" /* LST_GD1_TIPOA */ #define FN_RAGSOC "RAGSOC" /* FLD_GD1_RAGSOC */ @@ -45,6 +49,7 @@ #define FN_DECCARINT "DECCARINT" /* FLD_GD3_DECCARINT */ #define RDB_GD1_FREQVIVA 102 +#define LST_GD3_TIPOF 106 #define FLD_GD3_FIRMAT 107 #define FLD_GD3_FIRMAT_ANAGR_RAGSOC 108 #define CHK_GD3_ESILOR 109 @@ -106,7 +111,6 @@ #define FLD_GD1_FIRMAT 166 #define FLD_GD1_FIRMAT_ANAGR_RAGSOC 167 #define CHK_GD1_ARTIG 168 -#define FLD_SOCIOUNICO 193 // ATANCION! #define FLD_GD1_DATAISCRAA 169 #define FLD_GD1_NISCRAA 170 #define FLD_GD1_COMAA 171 @@ -131,6 +135,8 @@ #define FLD_GD1_RAGSOCH 190 #define FLD_GD1_MAIL 191 #define FLD_GD1_VALUTA 192 +#define FLD_SOCIOUNICO 193 +#define FLD_REGFISC 194 #define CHK_IN_PRESELEN 195 #define CHK_IN_CESSIVA 196 @@ -145,6 +151,11 @@ #define FLD_CODEORI 205 #define FLD_GD1_PEC 206 #define FLD_GD1_PADESTIN 207 +#define F_TITOLO 208 +#define F_TIPOEMITT 209 +#define F_EMITT 210 +#define F_DESEMITT 211 + #define F_INTCAF 303 #define F_DICHP 304 diff --git a/src/ba/ba4300a.uml b/src/ba/ba4300a.uml index 471bbc1e7..4992d0b7d 100755 --- a/src/ba/ba4300a.uml +++ b/src/ba/ba4300a.uml @@ -21,7 +21,7 @@ END ENDPAGE -PAGE "Pag. 1" -1 -1 77 19 +PAGE "Dati anagrafici" -1 -1 77 19 GROUPBOX DLG_NULL 76 4 BEGIN @@ -98,7 +98,7 @@ BEGIN FLAGS "HG" END -GROUPBOX DLG_NULL 76 6 +GROUPBOX DLG_NULL 76 7 BEGIN PROMPT 0 4 "@bAnagrafica" END @@ -167,7 +167,7 @@ END STRING FLD_GD1_VALUTA 3 BEGIN - PROMPT 36 8 "Codice valuta di riferimento" + PROMPT 25 8 "Valuta di riferimento" FIELD VALUTA USE %VAL INPUT CODTAB FLD_GD1_VALUTA @@ -178,14 +178,45 @@ BEGIN FLAGS "DU" END +GOLEM FLD_GD1_OGGETTI 10 2 +BEGIN + PROMPT 55 8 "" + FIELD OGGETTI + FLAGS "M" +END + +LIST FLD_REGFISC 30 +BEGIN + PROMPT 1 9 "Regime Fiscale " + ITEM "RF01|RF01 Ordinario" + ITEM "RF02|RF02 Contribuenti minimi" + ITEM "RF04|RF04 Agricoltura e pesca" + ITEM "RF05|RF05 Vendita sali e tabacchi" + ITEM "RF06|RF06 Commercio fiammiferi" + ITEM "RF07|RF07 Editoria" + ITEM "RF08|RF08 Gest. servizi tel. pub." + ITEM "RF09|RF09 Rivendita DdT" + ITEM "RF10|RF10 Intr., giochi" + ITEM "RF11|RF11 Agenzie viaggi e turismo" + ITEM "RF12|RF12 Agriturismo" + ITEM "RF13|RF13 Vendite a domicilio" + ITEM "RF14|RF14 Riv. usato arte col." + ITEM "RF15|RF15 Asta d’arte, col." + ITEM "RF16|RF16 IVA per cassa P.A." + ITEM "RF17|RF17 IVA per cassa" + ITEM "RF18|RF18 Altro" + ITEM "RF19|RF19 Regime forfettario" + FIELD REGFISC +END + GROUPBOX DLG_NULL 76 4 BEGIN - PROMPT 0 10 "@bAttività prevalente" + PROMPT 0 11 "@bAttività prevalente" END STRING FLD_GD1_CODATTPREV 5 BEGIN - PROMPT 1 11 "Codice " + PROMPT 1 12 "Codice " FIELD LF_NDITTE->CODATTPREV FLAGS "URZ" USE %AIS @@ -201,7 +232,7 @@ END STRING FLD_GD1_CODATTPREV_TABATT_DESCR 50 BEGIN - PROMPT 1 12 "Descrizione " + PROMPT 1 13 "Descrizione " USE %AIS KEY 2 INPUT S0 FLD_GD1_CODATTPREV_TABATT_DESCR DISPLAY "Attivita'@50" S0 @@ -214,57 +245,50 @@ END GROUPBOX DLG_NULL 76 6 BEGIN - PROMPT 0 14 "@bRecapiti telefonici e telematici" + PROMPT 0 15 "@bRecapiti telefonici e telematici" END STRING FLD_GD1_PTEL 10 BEGIN - PROMPT 1 15 "Telefono : Prefisso " + PROMPT 1 16 "Telefono : Prefisso " FIELD LF_NDITTE->PTEL HELP "Prefisso telefonico della ditta" END STRING FLD_GD1_TEL 30 BEGIN - PROMPT 34 15 "Numero " + PROMPT 34 16 "Numero " FIELD LF_NDITTE->TEL HELP "Numero telefonico della ditta" END STRING FLD_GD1_PFAX 10 BEGIN - PROMPT 1 16 "FAX : Prefisso " + PROMPT 1 17 "FAX : Prefisso " FIELD LF_NDITTE->PFAX HELP "Prefisso telefonico del fax della ditta" END STRING FLD_GD1_FAX 30 BEGIN - PROMPT 34 16 "Numero " + PROMPT 34 17 "Numero " FIELD LF_NDITTE->FAX HELP "Numero telefonico del fax della ditta" END STRING FLD_GD1_MAIL 50 BEGIN - PROMPT 1 17 "E-Mail : " + PROMPT 1 18 "E-Mail : " FIELD LF_NDITTE->MAIL HELP "Indirizzo e-mail della ditta" END STRING FLD_GD1_PEC 80 50 BEGIN - PROMPT 1 18 "Pec : " + PROMPT 1 19 "Pec : " FIELD PEC END -GOLEM FLD_GD1_OGGETTI 10 2 -BEGIN - PROMPT 64 20 "" - FIELD OGGETTI - FLAGS "M" -END - BUTTON DLG_ATT 10 2 BEGIN PROMPT -14 -1 "~Attivita'" @@ -291,7 +315,7 @@ END ENDPAGE -PAGE "Pag. 2" -1 -1 77 18 +PAGE "Iscrizioni e parametri" -1 -1 77 18 GROUPBOX DLG_NULL 76 4 BEGIN @@ -443,7 +467,7 @@ END ENDPAGE -PAGE "Pag. 3" -1 -1 77 18 +PAGE "Dati attività e banca" -1 -1 77 18 GROUPBOX DLG_NULL 76 4 BEGIN @@ -632,7 +656,7 @@ END ENDPAGE -PAGE "Pag. 4" -1 -1 77 18 +PAGE "Cariche e firmatari" -1 -1 77 18 GROUPBOX DLG_NULL 76 4 BEGIN @@ -654,13 +678,21 @@ BEGIN GROUP 2 END -STRING FLD_GD3_FIRMAT 5 +LIST LST_GD3_TIPOF 1 10 BEGIN PROMPT 1 4 "Intermediario " + ITEM "F|Fisica" + ITEM "G|Giuridica" + FIELD LF_NDITTE->TIPOF +END + +STRING FLD_GD3_FIRMAT 5 +BEGIN + PROMPT 30 4 "" FIELD LF_NDITTE->FIRMAT FLAGS "R" USE LF_ANAG KEY 1 - INPUT TIPOA "F" + INPUT TIPOA LST_GD3_TIPOF SELECT INPUT CODANAGR FLD_GD3_FIRMAT DISPLAY "Tipo" TIPOA DISPLAY "Codice" CODANAGR @@ -670,7 +702,7 @@ BEGIN HELP "Codice anagrafico dell'intermediario" CHECKTYPE NORMAL WARNING "Anagrafica assente" - ADD RUN ba4 -1 + ADD RUN ba4 -1 #LST_GD3_TIPOF END STRING FLD_GD3_FIRMAT_ANAGR_RAGSOC 50 @@ -678,14 +710,14 @@ BEGIN PROMPT 17 5 "" HELP "Nome dell'intermediario" USE LF_ANAG KEY 2 - INPUT TIPOA "F" + INPUT TIPOA LST_GD3_TIPOF SELECT INPUT RAGSOC FLD_GD3_FIRMAT_ANAGR_RAGSOC DISPLAY "Nome@50" RAGSOC DISPLAY "Tipo" TIPOA DISPLAY "Codice" CODANAGR OUTPUT FLD_GD3_FIRMAT CODANAGR OUTPUT FLD_GD3_FIRMAT_ANAGR_RAGSOC RAGSOC - ADD RUN ba4 -1 + ADD RUN ba4 -1 #LST_GD3_TIPOF END STRING F_INTCAF 10 @@ -810,7 +842,7 @@ BEGIN HELP "Codice dell'anagrafica del rappresentante legale" CHECKTYPE NORMAL WARNING "Anagrafica assente" - ADD RUN ba4 -1 + ADD RUN ba4 -1 F END STRING FLD_GD3_RAPPR_ANAGR_RAGSOC 50 @@ -822,7 +854,7 @@ BEGIN COPY DISPLAY FLD_GD3_FIRMAT_ANAGR_RAGSOC OUTPUT FLD_GD3_RAPPR CODANAGR OUTPUT FLD_GD3_RAPPR_ANAGR_RAGSOC RAGSOC - ADD RUN ba4 -1 + ADD RUN ba4 -1 F GROUP 4 END @@ -897,7 +929,7 @@ END ENDPAGE -PAGE "Pag. 5" -1 -1 77 18 +PAGE "INTRA" -1 -1 77 18 GROUPBOX DLG_NULL 76 4 BEGIN @@ -1018,6 +1050,61 @@ BEGIN ADD RUN ba4 -1 END +STRING F_TITOLO 2 +BEGIN + PROMPT 2 17 "Titolo onorifico " + FIELD TITOLO + USE %TIT + INPUT CODTAB F_TITOLO + DISPLAY "Codice titolo " CODTAB + DISPLAY "Descrizione@30" S0 + OUTPUT F_TITOLO CODTAB + HELP "Codice del titolo onorifico" +END + +GROUPBOX DLG_NULL 76 4 +BEGIN + PROMPT 1 19 "@bSoggetto Emittente/Intemediario" + FLAGS "R" +END +LIST F_TIPOEMITT 1 10 +BEGIN + PROMPT 2 20 "Tipo persona " + ITEM "F|Fisica" + ITEM "G|Giuridica" + FIELD TIPOEMITT +END + +NUMBER F_EMITT 6 +BEGIN + PROMPT 35 20 "Codice " + USE LF_ANAG + INPUT TIPOA F_TIPOEMITT SELECT + INPUT CODANAGR F_EMITT + DISPLAY "Tipo" TIPOA + DISPLAY "Codice" CODANAGR + DISPLAY "Denominazione@50" RAGSOC + OUTPUT F_EMITT CODANAGR + OUTPUT F_DESEMITT RAGSOC + FIELD EMITT + CHECKTYPE NORMAL + ADD RUN ba4 -1 +END + +STRING F_DESEMITT 50 +BEGIN + PROMPT 2 21 "Denominazione " + USE LF_ANAG KEY 2 + INPUT TIPOA F_TIPOEMITT SELECT + INPUT RAGSOC F_DESEMITT + DISPLAY "Denominazione@50" RAGSOC + DISPLAY "Tipo" TIPOA + DISPLAY "Codice" CODANAGR + COPY OUTPUT F_EMITT + CHECKTYPE NORMAL + ADD RUN ba4 -1 +END + ENDPAGE ENDMASK diff --git a/src/ba/bamenu.men b/src/ba/bamenu.men index 9f9f9e51f..00154a0f4 100755 --- a/src/ba/bamenu.men +++ b/src/ba/bamenu.men @@ -8,9 +8,10 @@ Item_02 = "Amministrazione", , "", 10212 Item_03 = "Acquisti e vendite", , "", 10211 Item_04 = "Magazzino e Produzione", , "", 10215 Item_05 = "Fatturazione Elettronica", , "", 10239 -Item_06 = "Gestione Lavanderie", , "", 10220 -Item_07 = "Manutenzione", [MENU_015], "", 10210 -Item_08 = "Preferiti", [MENU_PREFERITI], "", 10216 +Item_06 = "Fatturazione Elettronica (FePa)", , "", 10239 +Item_07 = "Gestione Lavanderie", , "", 10220 +Item_08 = "Manutenzione", [MENU_015], "", 10210 +Item_09 = "Preferiti", [MENU_PREFERITI], "", 10216 [MENU_001] Caption = "Gestione Anagrafiche"