82 lines
1.3 KiB
Plaintext
82 lines
1.3 KiB
Plaintext
|
#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
|