a029d2e238
Files correlati : Ricompilazione Demo : [ ] Commento : eliminati riferimenti alla toolbar.h in tutte le (inutilissime) maschere del 770 git-svn-id: svn://10.65.10.50/trunk@18517 c028cbd2-c16b-5b4b-a496-9718f37d4682
175 lines
2.8 KiB
Plaintext
Executable File
175 lines
2.8 KiB
Plaintext
Executable File
// Quadro T
|
|
#include "77qt.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Quadro T" -1 -1 78 18
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
END
|
|
|
|
NUMBER QTF_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 3 1 "Ditta "
|
|
FLAGS "GRDP"
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA QTF_CODDITTA
|
|
OUTPUT QTF_RAGDITTA RAGSOC
|
|
FIELD LF_QUAT->CODDITTA
|
|
CHECKTYPE REQUIRED
|
|
KEY 1
|
|
END
|
|
|
|
STRING QTF_RAGDITTA 50
|
|
BEGIN
|
|
PROMPT 17 1 "Ragione "
|
|
FLAGS "DP"
|
|
END
|
|
|
|
NUMBER QTF_ANNODIC 4
|
|
BEGIN
|
|
PROMPT 52 3 "Anno dichiarazione "
|
|
FLAGS "DRP"
|
|
END
|
|
|
|
NUMBER QTF_NPROG 4
|
|
BEGIN
|
|
PROMPT 1 5 "Numero "
|
|
FIELD LF_QUAT->NPROG
|
|
USE LF_QUAT SELECT (CODDITTA=#QTF_CODDITTA)
|
|
INPUT CODDITTA QTF_CODDITTA SELECT
|
|
INPUT NPROG QTF_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 QTF_NPROG NPROG
|
|
OUTPUT QTF_CONTRIMB CONTRIMB
|
|
OUTPUT QTF_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 QTF_MESERIF 1 12
|
|
BEGIN
|
|
PROMPT 2 9 ""
|
|
FIELD LF_QUAT->MESEPAG
|
|
WARNING "Manca il mese"
|
|
FLAGS "M"
|
|
ITEM "|"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 17 8 "Anno"
|
|
END
|
|
|
|
NUMBER QTF_ANNORIF 4
|
|
BEGIN
|
|
PROMPT 17 9 ""
|
|
WARNING "Anno non valido"
|
|
CHECKTYPE REQUIRED
|
|
FIELD LF_QUAT->ANNOPAG
|
|
VALIDATE FIXLEN_FUNC 4
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 29 8 "Contributo versato "
|
|
END
|
|
|
|
NUMBER QTF_CONTVERS 15
|
|
BEGIN
|
|
PROMPT 29 9 ""
|
|
FIELD LF_QUAT->CONTVERS
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 50 8 "Contributo rimborsato "
|
|
END
|
|
|
|
NUMBER QTF_CONTRIMB 15
|
|
BEGIN
|
|
PROMPT 50 9 ""
|
|
FIELD LF_QUAT->CONTRIMB
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 12 "Interessi e/o soprattasse "
|
|
END
|
|
|
|
NUMBER QTF_INTERESSI 15
|
|
BEGIN
|
|
PROMPT 2 13 ""
|
|
FIELD LF_QUAT->INTERESSI
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 40 12 "Codice regione "
|
|
END
|
|
|
|
LIST QTF_CODREG 21
|
|
BEGIN
|
|
// PROMPT 40 13 "Codice regione "
|
|
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_QUAT->CODREG
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|