campo-sirio/at/batbldn.uml

#include "batbldn.h"

TOOLBAR "" 0 20 0 2 
#include <toolbar.h>
ENDPAGE

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"
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
END

STRING F_TABLDN_INDIR 50
BEGIN                                                                            			
        PROMPT 2 5 "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"
END

STRING F_TABLDN_DENCOM 48
BEGIN
         PROMPT 19 6 ""
         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<69> postale se diversa dal comune"
END

STRING F_TABLDN_DENLOC 30
BEGIN
  PROMPT 19 7 ""
  USE LCP KEY 2 SELECT S7=#F_TABLDN_COM
  INPUT S0 F_TABLDN_DENLOC
  DISPLAY "Localit<69>@30" S0
  DISPLAY "CAP@5" S6
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TABLDN_LOC
  CHECKTYPE NORMAL
  HELP "Localit<69> postale se diversa dal comune"
END

STRING F_TABLDN_PROVCOM 5
BEGIN
  PROMPT 71 6 ""
  FLAGS "D"
END

STRING F_TABLDN_CAPCOM 5
BEGIN
  PROMPT 67 7 "CAP "
  FLAGS "D"
END

ENDPAGE
ENDMASK