Patch level : nopatch

Files correlati     :
Commento        :

Aggiunto codice EORI

src/ba/ba4300.h

@@ -142,7 +142,7 @@
 #define CHK_IN_NONOBBSTAT 									202
 #define FLD_IN_UFFDOG                       203
 #define FLD_GD1_OGGETTI											204
-
+#define FLD_CODEORI													205
 
 #define F_INTCAF														303
 #define F_DICHP 														304

src/ba/ba4300a.uml

@@ -98,7 +98,7 @@ BEGIN
   FLAGS "HG"
 END
 
-GROUPBOX DLG_NULL 76 4
+GROUPBOX DLG_NULL 76 5
 BEGIN
   PROMPT 0 4 "@bAnagrafica"
 END
@@ -150,14 +150,21 @@ BEGIN
   ADD RUN ba4 -1 #FLD_GD1_TIPOA
 END
 
+STRING FLD_CODEORI 50
+BEGIN
+	PROMPT 1 7 "Cod. EORI       "
+	FIELD LF_NDITTE->CODEORI
+	HELP "Codice EORI della ditta"
+END
+
 GROUPBOX DLG_NULL 76 4
 BEGIN
-  PROMPT 0 8 "@bAttività prevalente"
+  PROMPT 0 9 "@bAttività prevalente"
 END
 
 STRING FLD_GD1_CODATTPREV 5
 BEGIN
-  PROMPT 1 9 "Codice          "
+  PROMPT 1 10 "Codice          "
   FIELD LF_NDITTE->CODATTPREV
   FLAGS "URZ"
   USE %AIS
@@ -173,7 +180,7 @@ END
 
 STRING FLD_GD1_CODATTPREV_TABATT_DESCR 50
 BEGIN
-  PROMPT 1 10 "Descrizione     "
+  PROMPT 1 11 "Descrizione     "
   USE %AIS KEY 2
   INPUT S0 FLD_GD1_CODATTPREV_TABATT_DESCR
   DISPLAY "Attivita'@50" S0
@@ -186,54 +193,54 @@ END
 
 GROUPBOX DLG_NULL 76 5
 BEGIN
-  PROMPT 0 12 "@bRecapiti telefonici e telematici"
+  PROMPT 0 13 "@bRecapiti telefonici e telematici"
 END
 
 STRING FLD_GD1_PTEL 10
 BEGIN
-  PROMPT 1 13 "Telefono : Prefisso "
+  PROMPT 1 14 "Telefono : Prefisso "
   FIELD LF_NDITTE->PTEL
   HELP "Prefisso telefonico della ditta"
 END
 
 STRING FLD_GD1_TEL 30
 BEGIN
-  PROMPT 34 13 "Numero "
+  PROMPT 34 14 "Numero "
   FIELD LF_NDITTE->TEL
   HELP "Numero telefonico della ditta"
 END
 
 STRING FLD_GD1_PFAX 10
 BEGIN
-  PROMPT 1 14 "FAX      : Prefisso "
+  PROMPT 1 15 "FAX      : Prefisso "
   FIELD LF_NDITTE->PFAX
   HELP "Prefisso telefonico del fax della ditta"
 END
 
 STRING FLD_GD1_FAX 30
 BEGIN
-  PROMPT 34 14 "Numero "
+  PROMPT 34 15 "Numero "
   FIELD LF_NDITTE->FAX
   HELP "Numero telefonico del fax della ditta"
 END
 
 STRING FLD_GD1_MAIL 50
 BEGIN
-  PROMPT 1 15 "E-Mail   :          "
+  PROMPT 1 16 "E-Mail   :          "
   FIELD LF_NDITTE->MAIL
   HELP "Indirizzo e-mail della ditta"
 END
 
 GOLEM FLD_GD1_OGGETTI 10 2
 BEGIN
-  PROMPT 64 17 ""
+  PROMPT 64 18 ""
   FIELD OGGETTI  
   FLAGS "M"
 END
 
 STRING FLD_GD1_VALUTA 3
 BEGIN
-  PROMPT 1 17 "Codice valuta di riferimento "
+  PROMPT 1 18 "Codice valuta di riferimento "
   FIELD VALUTA
   USE %VAL
   INPUT CODTAB FLD_GD1_VALUTA