173 lines
2.7 KiB
Plaintext
Executable File
173 lines
2.7 KiB
Plaintext
Executable File
// Quadro Q
|
|
#include "77qq.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Quadro Q" -1 -1 78 18
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
END
|
|
|
|
NUMBER QQF_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 3 1 "Ditta "
|
|
FLAGS "GRDP"
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA QQF_CODDITTA
|
|
OUTPUT QQF_RAGDITTA RAGSOC
|
|
FIELD LF_QUAQ->CODDITTA
|
|
CHECKTYPE REQUIRED
|
|
KEY 1
|
|
END
|
|
|
|
STRING QQF_RAGDITTA 50
|
|
BEGIN
|
|
PROMPT 17 1 "Ragione "
|
|
FLAGS "DP"
|
|
END
|
|
|
|
NUMBER QQF_ANNODIC 4
|
|
BEGIN
|
|
PROMPT 52 3 "Anno dichiarazione "
|
|
FLAGS "DRP"
|
|
END
|
|
|
|
NUMBER QQF_NPROG 4
|
|
BEGIN
|
|
PROMPT 1 5 "Numero "
|
|
FIELD LF_QUAQ->NPROG
|
|
USE LF_QUAQ SELECT (CODDITTA=#QQF_CODDITTA)
|
|
INPUT CODDITTA QQF_CODDITTA SELECT
|
|
INPUT NPROG QQF_NPROG
|
|
DISPLAY "Num." NPROG
|
|
DISPLAY "Mese" MESEPAG
|
|
DISPLAY "Anno" ANNOPAG
|
|
DISPLAY "Contributo versato" CONTVERS
|
|
DISPLAY "Contributo rimborsato" CONTRIMB
|
|
DISPLAY "Interessi o soprattasse" INTERESSI
|
|
DISPLAY "Cod.reg." CODREG
|
|
OUTPUT QQF_NPROG NPROG
|
|
OUTPUT QQF_CONTRIMB CONTRIMB
|
|
OUTPUT QQF_CONTVERS CONTVERS
|
|
CHECKTYPE REQUIRED
|
|
KEY 1
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 7 "Periodo di paga"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 26 4
|
|
BEGIN
|
|
PROMPT 1 7 ""
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 8 "Mese"
|
|
END
|
|
|
|
LIST QQF_MESERIF 1 12
|
|
BEGIN
|
|
PROMPT 2 9 ""
|
|
FIELD LF_QUAQ->MESEPAG
|
|
ITEM " | "
|
|
FLAGS "M"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 17 8 "Anno"
|
|
END
|
|
|
|
NUMBER QQF_ANNORIF 4
|
|
BEGIN
|
|
PROMPT 17 9 ""
|
|
WARNING "Anno non valido"
|
|
CHECKTYPE REQUIRED
|
|
FIELD LF_QUAQ->ANNOPAG
|
|
VALIDATE FIXLEN_FUNC 4
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 29 8 "Contributo versato "
|
|
END
|
|
|
|
NUMBER QQF_CONTVERS 15
|
|
BEGIN
|
|
PROMPT 29 9 ""
|
|
FIELD LF_QUAQ->CONTVERS
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 50 8 "Contributo rimborsato "
|
|
END
|
|
|
|
NUMBER QQF_CONTRIMB 15
|
|
BEGIN
|
|
PROMPT 50 9 ""
|
|
FIELD LF_QUAQ->CONTRIMB
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 12 "Interessi e/o soprattasse "
|
|
END
|
|
|
|
NUMBER QQF_INTERESSI 15
|
|
BEGIN
|
|
PROMPT 2 13 ""
|
|
FIELD LF_QUAQ->INTERESSI
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 40 12 "Codice regione "
|
|
END
|
|
|
|
LIST QQF_CODREG 21
|
|
BEGIN
|
|
PROMPT 40 13 ""
|
|
ITEM "|"
|
|
ITEM "A|Abruzzo"
|
|
ITEM "B|Basilicata"
|
|
ITEM "C|Bolzano"
|
|
ITEM "D|Calabria"
|
|
ITEM "E|Campania"
|
|
ITEM "F|Emilia Romagna"
|
|
ITEM "G|Friuli Venezia Giulia"
|
|
ITEM "H|Lazio"
|
|
ITEM "K|Liguria"
|
|
ITEM "L|Lombardia"
|
|
ITEM "M|Marche"
|
|
ITEM "N|Molise"
|
|
ITEM "P|Piemonte"
|
|
ITEM "Q|Puglia"
|
|
ITEM "R|Sardegna"
|
|
ITEM "S|Sicilia"
|
|
ITEM "T|Toscana"
|
|
ITEM "U|Trento"
|
|
ITEM "V|Umbria"
|
|
ITEM "W|Valle d'Aosta"
|
|
ITEM "Z|Veneto "
|
|
FIELD LF_QUAQ->CODREG
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|