diff --git a/src/ba/ba4300.h b/src/ba/ba4300.h index bc5b78652..6154fbda5 100755 --- a/src/ba/ba4300.h +++ b/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 diff --git a/src/ba/ba4300a.uml b/src/ba/ba4300a.uml index 75a7f7ac3..029fdc61d 100755 --- a/src/ba/ba4300a.uml +++ b/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