Patch level : 01.00 0282

Files correlati     : f23.dir f23.trr f9.dir f9.trr

Bug                 :
Aggiornamento FePA

src/ba/ba4300.h

@@ -1,6 +1,10 @@
 #ifndef __BA4300_H
 #define __BA4300_H
 
+#ifndef __NDITTE_H
+#include <nditte.h>
+#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

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

src/ba/bamenu.men

@@ -8,9 +8,10 @@ Item_02 = "Amministrazione", <cgarea.men>, "", 10212
 Item_03 = "Acquisti e vendite", <vearea.men>, "", 10211
 Item_04 = "Magazzino e Produzione", <mgarea.men>, "", 10215
 Item_05 = "Fatturazione Elettronica", <fpmenu.men>, "", 10239
-Item_06 = "Gestione Lavanderie", <lvmenu.men>, "", 10220
+Item_06 = "Fatturazione Elettronica (FePa)", <fpmenuf.men>, "", 10239
-Item_07 = "Manutenzione", [MENU_015], "", 10210
+Item_07 = "Gestione Lavanderie", <lvmenu.men>, "", 10220
-Item_08 = "Preferiti", [MENU_PREFERITI], "", 10216
+Item_08 = "Manutenzione", [MENU_015], "", 10210
+Item_09 = "Preferiti", [MENU_PREFERITI], "", 10216
 
 [MENU_001]
 Caption = "Gestione Anagrafiche"