#include "batblcp.h"

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

PAGE "Località postali" -1 -1 78 7

STRING F_TABLCP_CODTAB 4
BEGIN
        PROMPT 2 1 "Codice   "
        FIELD CODTAB
	HELP "Inserire il codice della località"
	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 "URZ"
END

STRING F_TABLCP_LOCALITA 30
BEGIN
        PROMPT 2 3 "Località "
        FIELD S0
	HELP "Inserire la denominazione della località"
	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à"
	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