5b35dc21d2
Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@20268 c028cbd2-c16b-5b4b-a496-9718f37d4682
142 lines
2.6 KiB
Plaintext
Executable File
142 lines
2.6 KiB
Plaintext
Executable File
#include "attbldn.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Punti di prelievo" -1 -1 78 7
|
|
|
|
STRING F_TABLDN_CODTAB 4
|
|
BEGIN
|
|
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 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 4 "Indirizzo "
|
|
FIELD S1
|
|
END
|
|
|
|
STRING F_TABLDN_COM 4
|
|
BEGIN
|
|
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 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 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 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 5 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TABLDN_CAPCOM 5
|
|
BEGIN
|
|
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_NOTE1 35
|
|
BEGIN
|
|
PROMPT 2 10 "Note "
|
|
FIELD S3[1,35]
|
|
END
|
|
|
|
STRING F_TABLDN_NOTE2 35
|
|
BEGIN
|
|
PROMPT 2 11 " "
|
|
FIELD S3[36,70]
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|