root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : nopatch

Browse Source 
Files correlati     :
Commento        :

Aggiunto codice EORI
This commit is contained in:
smen 2021-12-01 17:54:44 +01:00
parent 485208538d
commit 12d1f0c891
2 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ba/ba4300.h
View File

@ -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

31
src/ba/ba4300a.uml
View File

@ -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