Patch level :
Files correlati : Ricompilazione Demo : [ ] Commento : Tabella punti di prelievo: aggiunto teleofno, orario, note git-svn-id: svn://10.65.10.50/trunk@7267 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris
parent
beb152a392
commit
2614b30542
@ -7,4 +7,7 @@
|
||||
#define F_TABLDN_DENLOC 106
|
||||
#define F_TABLDN_PROVCOM 107
|
||||
#define F_TABLDN_CAPCOM 108
|
||||
#define DLG_DEL 110
|
||||
#define F_TABLDN_TELEFONO 109
|
||||
#define F_TABLDN_ORARIO 110
|
||||
#define F_TABLDN_NOTE 111
|
||||
#define DLG_DEL 112
|
||||
|
||||
159
at/batbldn.uml
159
at/batbldn.uml
@ -8,108 +8,127 @@ PAGE "Punti di prelievo" -1 -1 78 7
|
||||
|
||||
STRING F_TABLDN_CODTAB 4
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice "
|
||||
FIELD CODTAB
|
||||
HELP "Inserire il codice del punto di prelievo"
|
||||
USE LDN
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODTAB F_TABLDN_CODTAB
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_TABLDN_CODTAB CODTAB
|
||||
OUTPUT F_TABLDN_DESCR S0
|
||||
KEY 1
|
||||
FLAGS "U"
|
||||
PROMPT 2 1 "Codice "
|
||||
FIELD CODTAB
|
||||
KEY 1
|
||||
FLAGS "U"
|
||||
USE LDN
|
||||
INPUT CODTAB F_TABLDN_CODTAB
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_TABLDN_CODTAB CODTAB
|
||||
OUTPUT F_TABLDN_DESCR S0
|
||||
CHECKTYPE REQUIRED
|
||||
HELP "Codice del punto di prelievo"
|
||||
END
|
||||
|
||||
STRING F_TABLDN_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Punto "
|
||||
FIELD S0
|
||||
HELP "Inserire la descrizione del punto"
|
||||
USE LDN KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT S0 F_TABLDN_DESCR
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_TABLDN_CODTAB
|
||||
KEY 2
|
||||
PROMPT 2 2 "Punto "
|
||||
FIELD S0
|
||||
KEY 2
|
||||
USE LDN KEY 2
|
||||
INPUT S0 F_TABLDN_DESCR
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_TABLDN_CODTAB
|
||||
CHECKTYPE REQUIRED
|
||||
HELP "Denominazione del punto di prelievo"
|
||||
END
|
||||
|
||||
STRING F_TABLDN_INDIR 50
|
||||
BEGIN
|
||||
PROMPT 2 5 "Indirizzo "
|
||||
FIELD S1
|
||||
PROMPT 2 4 "Indirizzo "
|
||||
FIELD S1
|
||||
END
|
||||
|
||||
STRING F_TABLDN_COM 4
|
||||
BEGIN
|
||||
PROMPT 2 6 "Comune "
|
||||
FIELD S6
|
||||
FLAGS "U"
|
||||
USE LF_COMUNI
|
||||
INPUT STATO ""
|
||||
INPUT COM F_TABLDN_COM
|
||||
#include <comdcod.h>
|
||||
OUTPUT F_TABLDN_COM COM
|
||||
OUTPUT F_TABLDN_DENCOM DENCOM
|
||||
OUTPUT F_TABLDN_PROVCOM PROVCOM
|
||||
OUTPUT F_TABLDN_CAPCOM CAPCOM
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Comune assente"
|
||||
PROMPT 2 5 "Comune "
|
||||
FIELD S6
|
||||
FLAGS "U"
|
||||
USE LF_COMUNI
|
||||
INPUT STATO ""
|
||||
INPUT COM F_TABLDN_COM
|
||||
#include <comdcod.h>
|
||||
OUTPUT F_TABLDN_COM COM
|
||||
OUTPUT F_TABLDN_DENCOM DENCOM
|
||||
OUTPUT F_TABLDN_PROVCOM PROVCOM
|
||||
OUTPUT F_TABLDN_CAPCOM CAPCOM
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Comune assente"
|
||||
END
|
||||
|
||||
STRING F_TABLDN_DENCOM 48
|
||||
BEGIN
|
||||
PROMPT 21 6 ""
|
||||
USE LF_COMUNI KEY 2
|
||||
INPUT DENCOM F_TABLDN_DENCOM
|
||||
#include <comdden.h>
|
||||
COPY OUTPUT F_TABLDN_COM
|
||||
CHECKTYPE NORMAL
|
||||
PROMPT 21 5 ""
|
||||
USE LF_COMUNI KEY 2
|
||||
INPUT DENCOM F_TABLDN_DENCOM
|
||||
#include <comdden.h>
|
||||
COPY OUTPUT F_TABLDN_COM
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_TABLDN_LOC 4
|
||||
BEGIN
|
||||
PROMPT 2 7 "Localita' "
|
||||
FIELD S7
|
||||
FLAGS "U"
|
||||
USE LCP SELECT S7=#F_TABLDN_COM
|
||||
INPUT CODTAB F_TABLDN_LOC
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Localita'@30" S0
|
||||
DISPLAY "CAP@5" S6
|
||||
OUTPUT F_TABLDN_LOC CODTAB
|
||||
OUTPUT F_TABLDN_DENLOC S0
|
||||
OUTPUT F_TABLDN_CAPCOM S6
|
||||
OUTPUT F_TABLDN_COM S7
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Codice localit… postale se diversa dal comune"
|
||||
PROMPT 2 6 "Localita' "
|
||||
FIELD S7
|
||||
FLAGS "U"
|
||||
USE LCP SELECT S7=#F_TABLDN_COM
|
||||
INPUT CODTAB F_TABLDN_LOC
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Localita'@30" S0
|
||||
DISPLAY "CAP@5" S6
|
||||
OUTPUT F_TABLDN_LOC CODTAB
|
||||
OUTPUT F_TABLDN_DENLOC S0
|
||||
OUTPUT F_TABLDN_CAPCOM S6
|
||||
OUTPUT F_TABLDN_COM S7
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Codice localita' postale se diversa dal comune"
|
||||
END
|
||||
|
||||
STRING F_TABLDN_DENLOC 30
|
||||
BEGIN
|
||||
PROMPT 21 7 ""
|
||||
USE LCP KEY 2 SELECT S7=#F_TABLDN_COM
|
||||
INPUT S0 F_TABLDN_DENLOC
|
||||
DISPLAY "Località@30" S0
|
||||
DISPLAY "CAP@5" S6
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_TABLDN_LOC
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Localit… postale se diversa dal comune"
|
||||
PROMPT 21 6 ""
|
||||
USE LCP KEY 2 SELECT S7=#F_TABLDN_COM
|
||||
INPUT S0 F_TABLDN_DENLOC
|
||||
DISPLAY "Localita'@30" S0
|
||||
DISPLAY "CAP@5" S6
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_TABLDN_LOC
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Localita' postale se diversa dal comune"
|
||||
END
|
||||
|
||||
STRING F_TABLDN_PROVCOM 5
|
||||
BEGIN
|
||||
PROMPT 73 6 ""
|
||||
FLAGS "D"
|
||||
PROMPT 73 5 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_TABLDN_CAPCOM 5
|
||||
BEGIN
|
||||
PROMPT 69 7 "CAP "
|
||||
FLAGS "D"
|
||||
PROMPT 69 6 "CAP "
|
||||
FIELD S8
|
||||
//FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_TABLDN_TELEFONO 20
|
||||
BEGIN
|
||||
PROMPT 2 8 "Telefono "
|
||||
FIELD S4
|
||||
END
|
||||
|
||||
STRING F_TABLDN_ORARIO 50
|
||||
BEGIN
|
||||
PROMPT 2 9 "Orario "
|
||||
FIELD S2
|
||||
END
|
||||
|
||||
STRING F_TABLDN_NOTE 70 50
|
||||
BEGIN
|
||||
PROMPT 2 10 "Note "
|
||||
FIELD S3
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user