campo-sirio/at/attbldn.uml

#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