157 lines
2.7 KiB
Plaintext
157 lines
2.7 KiB
Plaintext
|
#include "771295.h"
|
||
|
|
|
||
|
|
TOOLBAR "" 0 20 0 2
|
||
|
|
|
||
|
|
#include <toolbar.h>
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
PAGE "Gestione dettaglio quadro H" -1 -1 78 18
|
||
|
|
|
||
|
|
GROUPBOX DLG_NULL 78 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 0 0 ""
|
||
|
|
FLAGS "R"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_CODDITTA 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 1 "Ditta "
|
||
|
|
FLAGS "FRD"
|
||
|
|
USE LF_NDITTE KEY 1
|
||
|
|
FIELD LF_DETH->CODDITTA
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
INPUT CODDITTA F_CODDITTA
|
||
|
|
DISPLAY "Codice" CODDITTA
|
||
|
|
DISPLAY "Ragione sociale @50" RAGSOC
|
||
|
|
OUTPUT F_RAGSOC RAGSOC
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_RAGSOC 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 2 "Ragione sociale "
|
||
|
|
FLAGS "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_ANNO 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 4 "Anno dichiarazione "
|
||
|
|
FIELD LF_DETH->ANNO
|
||
|
|
KEY 1
|
||
|
|
USE LF_DETH KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (ANNO=#F_ANNO) && (ENTE=#F_ENTE))
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
INPUT CODDITTA F_CODDITTA
|
||
|
|
INPUT ANNO F_ANNO
|
||
|
|
DISPLAY "Ditta" CODDITTA
|
||
|
|
DISPLAY "Anno" ANNO
|
||
|
|
DISPLAY "Ente@33" ENTE
|
||
|
|
DISPLAY "Data versamento" DATAVERS
|
||
|
|
DISPLAY "Numero versamento" NUMVERS
|
||
|
|
OUTPUT F_ANNO ANNO
|
||
|
|
OUTPUT F_ENTE ENTE
|
||
|
|
OUTPUT F_DATAVERS DATAVERS
|
||
|
|
OUTPUT F_NUMVERS NUMVERS
|
||
|
|
FLAGS "R"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_ENTE 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 5 "Ente "
|
||
|
|
COPY USE F_ANNO
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
INPUT CODDITTA F_CODDITTA
|
||
|
|
INPUT ANNO F_ANNO
|
||
|
|
INPUT ENTE F_ENTE
|
||
|
|
COPY DISPLAY F_ANNO
|
||
|
|
COPY OUTPUT F_ANNO
|
||
|
|
FIELD LF_DETH->ENTE
|
||
|
|
VALIDATE NOT_EMPTY_FUNC
|
||
|
|
FLAGS "G"
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DESCRENTE 60
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 6 "Descrizione "
|
||
|
|
FLAGS "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
DATE F_DATAVERS
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 7 "Data versamento "
|
||
|
|
COPY USE F_ANNO
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
INPUT CODDITTA F_CODDITTA
|
||
|
|
INPUT ANNO F_ANNO
|
||
|
|
INPUT ENTE F_ENTE
|
||
|
|
INPUT DATAVERS F_DATAVERS
|
||
|
|
COPY DISPLAY F_ANNO
|
||
|
|
COPY OUTPUT F_ANNO
|
||
|
|
FIELD LF_DETH->DATAVERS
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_NUMVERS 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 8 "Numero versamento "
|
||
|
|
COPY USE F_ANNO
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
INPUT CODDITTA F_CODDITTA
|
||
|
|
INPUT ANNO F_ANNO
|
||
|
|
INPUT ENTE F_ENTE
|
||
|
|
INPUT DATAVERS F_DATAVERS
|
||
|
|
INPUT NUMVERS F_NUMVERS
|
||
|
|
COPY DISPLAY F_ANNO
|
||
|
|
COPY OUTPUT F_ANNO
|
||
|
|
FIELD LF_DETH->NUMVERS
|
||
|
|
FLAGS "R"
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_NREGINOTA 7
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 10 "N.ro registr. I nota "
|
||
|
|
FLAGS "R"
|
||
|
|
FIELD LF_DETH->NREGINOTA
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_IMPVERS 15
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 11 "Importo versato "
|
||
|
|
PICTURE "."
|
||
|
|
FLAGS "R"
|
||
|
|
FIELD LF_DETH->IMPVERS
|
||
|
|
END
|
||
|
|
|
||
|
|
TEXT DLG_NULL
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 12 "Contributi obbligatori"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_CONTRDAT 15
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 13 "a carico del datore di lavoro "
|
||
|
|
FIELD LF_DETH->CONTRDAT
|
||
|
|
PICTURE "."
|
||
|
|
FLAGS "R"
|
||
|
|
END
|
||
|
|
|
||
|
|
TEXT DLG_NULL
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 14 "Contributi obbligatori a"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_CONTRLAV 15
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 15 "carico del lavoratore dipendente "
|
||
|
|
FIELD LF_DETH->CONTRLAV
|
||
|
|
PICTURE "."
|
||
|
|
FLAGS "R"
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|
||
|
|
|