c02fbdf979
Aggiunta tabella aspetto dei beni. Aggiunta tabella causale di trasporto. git-svn-id: svn://10.65.10.50/trunk@1724 c028cbd2-c16b-5b4b-a496-9718f37d4682
166 lines
2.7 KiB
Plaintext
Executable File
166 lines
2.7 KiB
Plaintext
Executable File
#include "batbvet.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Vettori" -1 -1 78 15
|
|
|
|
NUMBER F_CODVETT 5
|
|
BEGIN
|
|
PROMPT 4 1 "Codice vettore "
|
|
FIELD LF_TABCOM->CODTAB
|
|
HELP "Codice del vettore"
|
|
FLAGS "RZU"
|
|
USE %VET
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODTAB F_CODVETT
|
|
DISPLAY "Codice vettore" CODTAB
|
|
DISPLAY "Ragione sociale@50" S0
|
|
OUTPUT F_CODVETT CODTAB
|
|
OUTPUT F_RAGSO S0
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_RAGSO 50
|
|
BEGIN
|
|
PROMPT 4 3 "Ragione sociale "
|
|
HELP "Ragione sociale del vettore"
|
|
FIELD LF_TABCOM->S0
|
|
FLAGS "U"
|
|
USE %VET KEY 2
|
|
CHECKTYPE REQUIRED
|
|
INPUT S0 F_RAGSO
|
|
DISPLAY "Codice vettore" CODTAB
|
|
DISPLAY "Ragione sociale@50" S0
|
|
OUTPUT F_CODVETT CODTAB
|
|
OUTPUT F_RAGSO S0
|
|
KEY 2
|
|
END
|
|
|
|
STRING F_IND 50
|
|
BEGIN
|
|
PROMPT 4 5 "Indirizzo "
|
|
HELP "Indirizzo di residenza del vettore"
|
|
FIELD LF_TABCOM->S1
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_CAP 5
|
|
BEGIN
|
|
PROMPT 4 6 "C.A.P. "
|
|
HELP "C.A.P. di residenza del vettore"
|
|
FIELD LF_TABCOM->S7
|
|
END
|
|
|
|
STRING F_LOCALITA 20
|
|
BEGIN
|
|
PROMPT 32 6 "Localita' "
|
|
HELP "Localita' di residenza del vettore"
|
|
FIELD LF_TABCOM->S5
|
|
END
|
|
|
|
STRING F_PROV 2
|
|
BEGIN
|
|
PROMPT 64 6 "Provincia "
|
|
FLAGS "D"
|
|
HELP "Provincia di residenza del vettore"
|
|
END
|
|
|
|
NUMBER F_CODNAZ 3
|
|
BEGIN
|
|
PROMPT 4 7 "Stato "
|
|
HELP "Codice nazione di residenza del vettore"
|
|
FIELD LF_TABCOM->S8
|
|
FLAGS "RZ"
|
|
USE %STA
|
|
INPUT CODTAB F_CODNAZ
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Denominazione@50" S0
|
|
OUTPUT F_CODNAZ CODTAB
|
|
OUTPUT F_DENNAZ S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Stato assente"
|
|
END
|
|
|
|
STRING F_DENNAZ 50 30
|
|
BEGIN
|
|
PROMPT 32 7 ""
|
|
USE %STA KEY 2
|
|
INPUT S0 F_DENNAZ
|
|
DISPLAY "Stato@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
HELP "Nome dello stato del vettore"
|
|
COPY OUTPUT F_CODNAZ
|
|
END
|
|
|
|
STRING F_CODCOM 4
|
|
BEGIN
|
|
PROMPT 4 8 "Comune "
|
|
HELP "Codice comune di residenza del vettore"
|
|
FIELD LF_TABCOM->S9
|
|
USE LF_COMUNI
|
|
INPUT STATO F_CODNAZ
|
|
INPUT COM F_CODCOM
|
|
DISPLAY "Stato" STATO
|
|
DISPLAY "Cod. comune" COM
|
|
DISPLAY "Den. comune@50" DENCOM
|
|
OUTPUT F_CODNAZ STATO
|
|
OUTPUT F_CODCOM COM
|
|
OUTPUT F_DENCOM DENCOM
|
|
OUTPUT F_CAP CAPCOM
|
|
OUTPUT F_PROV PROVCOM
|
|
MESSAGE K_TAB,F_CODNAZ
|
|
CHECKTYPE NORMAL
|
|
WARNING "Comune assente"
|
|
END
|
|
|
|
STRING F_DENCOM 50 30
|
|
BEGIN
|
|
PROMPT 32 8 ""
|
|
USE LF_COMUNI KEY 2
|
|
INPUT DENCOM F_DENCOM
|
|
DISPLAY "Comune@50" DENCOM
|
|
DISPLAY "Stato" STATO
|
|
DISPLAY "Codice" COM
|
|
COPY OUTPUT F_CODCOM
|
|
HELP "Nome del comune del vettore"
|
|
END
|
|
|
|
STRING F_PTEL 5
|
|
BEGIN
|
|
PROMPT 4 10 "Telefono "
|
|
HELP "Prefisso telefonico del vettore"
|
|
FIELD LF_TABCOM->S6
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_TEL 15
|
|
BEGIN
|
|
PROMPT 31 10 ""
|
|
HELP "Numero telefonico del vettore"
|
|
FIELD LF_TABCOM->S2
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_FAX 15
|
|
BEGIN
|
|
PROMPT 4 11 "Fax "
|
|
HELP "Numero di Fax del vettore"
|
|
FIELD LF_TABCOM->S3
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_TELEX 15
|
|
BEGIN
|
|
PROMPT 4 12 "Telex "
|
|
HELP "Numero di Telex del vettore"
|
|
FIELD LF_TABCOM->S4
|
|
FLAGS "U"
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|