#include "ef0100.h"

PAGE "Obbligati principali"  -1 -1 76 12

STRING F_RAGSOC 50
BEGIN
	PROMPT 2 2 "Rag. sociale  "
	HELP "Inserire la ragione sociale dell'obbligato"
END

STRING F_LOCALITA 35
BEGIN
	PROMPT 2 4 "Localita      "
	HELP "Inserire la localita dell'obbligato"
END

NUMBER F_STATO 3
BEGIN
	PROMPT 60 4 "Stato   "
	FLAGS "RZ"
	USE %STA
	INPUT CODTAB F_STATO
	DISPLAY "Codice" CODTAB
	DISPLAY "Stato@50" S0
	OUTPUT F_STATO CODTAB
	CHECKTYPE NORMAL
	WARNING "Stato assente"
	HELP "Inserire lo stato in cui risiede l'obbligato"
END

STRING F_COM 4
BEGIN
	PROMPT 2 6 "Comune        "
	FLAGS "U"
	USE LF_COMUNI
	INPUT STATO F_STATO
	INPUT COM F_COM
	DISPLAY "Stato" STATO
	DISPLAY "Codice" COM
	DISPLAY "Comune@50" DENCOM
	OUTPUT F_STATO STATO
	OUTPUT F_COM COM
	OUTPUT F_DENCOM DENCOM
	CHECKTYPE NORMAL
	WARNING "Comune assente"
	HELP "Inserire il comune in cui risiede l'obbligato"
	ADD MASK ba4100a
END

STRING F_DENCOM 50
BEGIN
	PROMPT 24 6 ""
	USE LF_COMUNI KEY 2
	INPUT DENCOM F_DENCOM
	DISPLAY "Comune @50" DENCOM
	DISPLAY "Stato" STATO
	DISPLAY "Codice" COM
	COPY OUTPUT F_COM
	CHECKTYPE NORMAL
	ADD MASK ba4100a
END

BUTTON DLG_OK 9 2
BEGIN
	PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
	PROMPT -23 -1 ""
END

BUTTON DLG_DELREC 9 2
BEGIN
	PROMPT -33 -1 "Elimina"
	MESSAGE EXIT, K_DEL
END

ENDPAGE

ENDMASK