Patch level : 10.0 396

Files correlati     :
Ricompilazione Demo : [ ]
Commento

Bug : 0001420

Aggiungere nella tabella vettori n.iscrizione albo, numero di telefono e partiva iva


git-svn-id: svn://10.65.10.50/trunk@19163 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2009-07-29 14:41:12 +00:00
parent 0b2049ccb5
commit 85f383244a
2 changed files with 35 additions and 11 deletions

View File

@ -17,6 +17,9 @@
#define F_NUM 115
#define F_PFAX 116
#define F_PTELEX 117
#define F_STATOPAIV 118
#define F_PAIV 119
#define F_ALBO 120

View File

@ -6,9 +6,9 @@ ENDPAGE
PAGE "Vettori" 0 2 0 0
GROUPBOX DLG_NULL 75 7
GROUPBOX DLG_NULL 75 5
BEGIN
PROMPT 1 0 ""
PROMPT 1 1 ""
FLAGS "R"
END
@ -43,7 +43,22 @@ OUTPUT F_RAGSO S0
KEY 2
END
GROUPBOX DLG_NULL 75 6
STRING F_STATOPAIV 2
BEGIN
PROMPT 50 50 "Partita IVA "
FLAGS "H"
END
STRING F_PAIV 12
BEGIN
PROMPT 2 6 "Partita IVA "
FIELD S3[21,32]
HELP "Partita IVA del cliente/fornitore"
VALIDATE PI_FUNC F_STATOPAIV
CHECKTYPE NORMAL
END
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 7 "Recapito"
FLAGS "R"
@ -144,15 +159,21 @@ HELP "Nome dello stato del vettore"
COPY OUTPUT F_CODNAZ
END
STRING F_ALBO 15
BEGIN
PROMPT 2 12 "N.ro iscr.all'albo"
FIELD S3[33,48]
END
GROUPBOX DLG_NULL 75 5
BEGIN
PROMPT 1 13 "Numeri telefonici"
PROMPT 1 14 "Numeri telefonici"
FLAGS "R"
END
STRING F_PTEL 10
BEGIN
PROMPT 2 14 "Telefono "
PROMPT 2 15 "Telefono "
HELP "Prefisso telefonico del vettore"
FIELD S5[1,10]
FLAGS "U"
@ -160,15 +181,15 @@ END
STRING F_TEL 20
BEGIN
PROMPT 30 14 ""
PROMPT 30 15 ""
HELP "Numero telefonico del vettore"
FIELD S3
FIELD S3[1,20]
FLAGS "U"
END
STRING F_PFAX 10
BEGIN
PROMPT 2 15 "Fax "
PROMPT 2 16 "Fax "
HELP "Numero di Fax del vettore"
FIELD S5[11,20]
FLAGS "U"
@ -176,7 +197,7 @@ END
STRING F_FAX 20
BEGIN
PROMPT 30 15 ""
PROMPT 30 16 ""
HELP "Numero di Fax del vettore"
FIELD S4
FLAGS "U"
@ -184,7 +205,7 @@ END
STRING F_PTELEX 10
BEGIN
PROMPT 2 16 "Telex "
PROMPT 2 17 "Telex "
HELP "Numero di Telex del vettore"
FIELD S2[1,10]
FLAGS "U"
@ -192,7 +213,7 @@ END
STRING F_TELEX 20
BEGIN
PROMPT 30 16 ""
PROMPT 30 17 ""
HELP "Numero di Telex del vettore"
FIELD S2[11,30]
FLAGS "U"