campo-sirio/at/batblcp.uml

#include "batblcp.h"

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

PAGE "Localita' postali" -1 -1 78 7

STRING F_TABLCP_CODTAB 4
BEGIN
        PROMPT 2 1 "Codice    "
        FIELD CODTAB
        HELP "Inserire il codice della localita'"
	USE LCP
	CHECKTYPE REQUIRED
	INPUT CODTAB F_TABLCP_CODTAB
	DISPLAY "Codice" CODTAB
	DISPLAY "Denominazione@30" S0
	DISPLAY "CAP@5" S6
	OUTPUT F_TABLCP_CODTAB CODTAB
	OUTPUT F_TABLCP_LOCALITA S0
	KEY 1
        FLAGS "U"
END

STRING F_TABLCP_LOCALITA 30
BEGIN
        PROMPT 2 3 "Localita' "
        FIELD S0
        HELP "Inserire la denominazione della localita'"
	USE LCP KEY 2
	CHECKTYPE REQUIRED
	INPUT S0 F_TABLCP_LOCALITA
	DISPLAY "Denominazione@30" S0
	DISPLAY "CAP@5" S6
	DISPLAY "Codice" CODTAB
	COPY OUTPUT F_TABLCP_CODTAB
	KEY 2
END

STRING F_TABLCP_CAP 5
BEGIN
        PROMPT 2 5 "CAP       "
        FIELD S6
	HELP "Inserire il CAP della localit<69>"
	CHECKTYPE REQUIRED
	FLAGS "U"
END
    
STRING F_TABLCP_COM 4
BEGIN
        PROMPT 2 7 "Comune    "
        FIELD S7
	FLAGS "U"
        USE LF_COMUNI
	INPUT STATO ""
	INPUT COM F_TABLCP_COM
#include <comdcod.h>
	OUTPUT F_TABLCP_COM COM
	OUTPUT F_DENCOM DENCOM
	OUTPUT F_PROVCOM PROVCOM
	CHECKTYPE NORMAL
	WARNING "Comune assente"
END

STRING F_DENCOM 50
BEGIN
  PROMPT 19 7 ""
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_DENCOM
#include <comdden.h>
  COPY OUTPUT F_TABLCP_COM
  CHECKTYPE NORMAL
END

STRING F_PROVCOM 5
BEGIN
  PROMPT 73 7 ""
  FLAGS "D"
END

ENDPAGE
ENDMASK