411 lines
7.1 KiB
Plaintext
Executable File
411 lines
7.1 KiB
Plaintext
Executable File
#include "771200.h"
|
|
TOOLBAR "" 0 20 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "1" -1 -1 78 21
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 1 "@bDipendente"
|
|
END
|
|
|
|
NUMBER QAF_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 80 80 ""
|
|
FLAGS "D"
|
|
FIELD LF_QUAA2->CODDITTA
|
|
KEY 1
|
|
END
|
|
|
|
NUMBER F_CODIP 6
|
|
BEGIN
|
|
PROMPT 17 1 ""
|
|
USE LF_DIPEND KEY 1
|
|
FIELD LF_QUAA2->CODDIP
|
|
INPUT CODDITTA QAF_CODDITTA
|
|
INPUT CODDIP F_CODIP
|
|
DISPLAY "Cognome@24" COGNOME
|
|
DISPLAY "Nome@20" NOME
|
|
OUTPUT QAF_COGNOME COGNOME
|
|
OUTPUT QAF_NOME NOME
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "DG"
|
|
MESSAGE COPY,2@
|
|
KEY 1
|
|
END
|
|
|
|
STRING QAF_COGNOME 24
|
|
BEGIN
|
|
PROMPT 25 1 ""
|
|
FLAGS "DG"
|
|
MESSAGE COPY,3@
|
|
END
|
|
|
|
STRING QAF_NOME 20
|
|
BEGIN
|
|
PROMPT 49 1 ""
|
|
FLAGS "DG"
|
|
MESSAGE COPY,4@
|
|
END
|
|
|
|
NUMBER QAF_NPROG 4
|
|
BEGIN
|
|
PROMPT 72 1 ""
|
|
FIELD LF_QUAA2->NPROG
|
|
FLAGS "DG"
|
|
KEY 1
|
|
MESSAGE COPY,5@
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 3 "@bASSISTENZA 1995 "
|
|
END
|
|
|
|
STRING QA2F_CNEFF 1
|
|
BEGIN
|
|
PROMPT 2 4 "8 Conguagli non effettuati "
|
|
FIELD LF_QUAA2->CONEFF
|
|
FLAGS "U"
|
|
HELP "Conguagli non effettuati relativi all'assistenza 1995"
|
|
SHEET "Codice|Descrizione@60"
|
|
INPUT QA2F_CNEFF
|
|
ITEM " |Niente"
|
|
ITEM "A|Cessazione del rapporto di lavoro"
|
|
ITEM "B|Decesso"
|
|
ITEM "C|Richiesta di minore secondo acconto"
|
|
ITEM "D|Retribuzione insufficiente"
|
|
ITEM "E|Situaz. per le quali dovrebbero essere indicati piu' codici"
|
|
ITEM "F|Rimborso non effettuato o rimborso effettuato parzialmente"
|
|
OUTPUT QA2F_CNEFF
|
|
GROUP G_ALL
|
|
END
|
|
|
|
STRING QA2F_RETCON 1
|
|
BEGIN
|
|
PROMPT 38 4 "9 Rettifica conguaglio "
|
|
FIELD LF_QUAA2->RETCON
|
|
SHEET "Codice|Descrizione@60"
|
|
INPUT QA2F_RETCON
|
|
ITEM " | "
|
|
ITEM "A|Rettifica importi da conguagliare... (I num. d'ordine)"
|
|
ITEM "B|Rettifica importi da conguagliare... (II num. d'ordine)"
|
|
ITEM "C|Conguaglio tardivamente effettuato nel mese di luglio"
|
|
OUTPUT QA2F_RETCON
|
|
FLAGS "U"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 6 "@bSALDO IRPEF PER IL 1994 "
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 7 "10 Imp.ver/tr.IRPEF"
|
|
GROUP G_730
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 7 "10 Imposta rimbor. "
|
|
GROUP G_770
|
|
END
|
|
|
|
NUMBER F_IIRPEFVER8 15
|
|
BEGIN
|
|
PROMPT 21 7 ""
|
|
FIELD LF_QUAA2->SIRPEFRIMB
|
|
PICTURE "."
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 41 7 "11 Imp.da rim.IRPEF"
|
|
GROUP G_730
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 41 7 "11 Imposta versata "
|
|
GROUP G_770
|
|
END
|
|
|
|
NUMBER F_IIRPEFRI9 15
|
|
BEGIN
|
|
PROMPT 61 7 ""
|
|
FIELD LF_QUAA2->VIRPEF
|
|
PICTURE "."
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 8 "12 Interessi "
|
|
GROUP G_770
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 8 "12 1rata ac.IRPEF95"
|
|
GROUP G_730
|
|
END
|
|
|
|
NUMBER F_INTER11 15
|
|
BEGIN
|
|
PROMPT 21 8 ""
|
|
FIELD LF_QUAA2->INTIRPEF
|
|
PICTURE "."
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 10 "@bPRIMA RATA ACCONTO IRPEF PER IL 1995 "
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 11 "13 Imposta versata "
|
|
GROUP G_770
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 11 "13 2rata ac.IRPEF95"
|
|
GROUP G_730
|
|
END
|
|
|
|
NUMBER F_PRIRPEF10 15
|
|
BEGIN
|
|
// PROMPT 2 11 "Imposta versata "
|
|
PROMPT 21 11 ""
|
|
FIELD LF_QUAA2->AIRPEFIV
|
|
PICTURE "."
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 41 11 "14 Interessi "
|
|
GROUP G_770
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 41 11 "14 I.v.trat.CSSN "
|
|
GROUP G_730
|
|
END
|
|
|
|
NUMBER F_AIRPEFINT 15
|
|
BEGIN
|
|
PROMPT 61 11 ""
|
|
FIELD LF_QUAA2->AIRPEFINT
|
|
PICTURE "."
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 13 "15 Soprattasse IRPEF saldo 94 e prima rata acc.95 "
|
|
GROUP G_770
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 13 "15 Importo da rimborsare CSSN "
|
|
GROUP G_730
|
|
END
|
|
|
|
NUMBER F_STASSA12 15
|
|
BEGIN
|
|
PROMPT 61 13 ""
|
|
FIELD LF_QUAA2->STASSA15
|
|
PICTURE "."
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "2" -1 -1 78 21
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 1 "@bDipendente"
|
|
END
|
|
|
|
NUMBER DLG_NULL 6
|
|
BEGIN
|
|
PROMPT 17 1 ""
|
|
FLAGS "DG"
|
|
GROUP 2
|
|
END
|
|
|
|
STRING DLG_NULL 24
|
|
BEGIN
|
|
PROMPT 25 1 ""
|
|
FLAGS "DG"
|
|
GROUP 3
|
|
END
|
|
|
|
STRING DLG_NULL 20
|
|
BEGIN
|
|
PROMPT 49 1 ""
|
|
FLAGS "DG"
|
|
GROUP 4
|
|
END
|
|
|
|
NUMBER DLG_NULL 4
|
|
BEGIN
|
|
PROMPT 72 1 ""
|
|
FLAGS "DG"
|
|
GROUP 5
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 4 "@bSALDO C.S.S.N. PER IL 1994 "
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 5 "16 Cont.a rimborso "
|
|
GROUP G_770
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 5 "16 1r.acc.CSSN 95 "
|
|
GROUP G_730
|
|
END
|
|
|
|
NUMBER QA2F_CSSNCRIMB 15
|
|
BEGIN
|
|
PROMPT 21 5 ""
|
|
FIELD LF_QUAA2->CONTR16
|
|
PICTURE "."
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 41 5 "17 Cont. versato "
|
|
GROUP G_770
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 41 5 "17 2r.acc.CSSN 95 "
|
|
GROUP G_730
|
|
END
|
|
|
|
NUMBER QA2F_CSSNCVER 15
|
|
BEGIN
|
|
// PROMPT 41 5 "Contr. versato "
|
|
PROMPT 61 5 ""
|
|
FIELD LF_QUAA2->CONTRVER
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER QA2F_CSSNINT 15
|
|
BEGIN
|
|
PROMPT 2 6 "18 Interessi "
|
|
FIELD LF_QUAA2->INTER18
|
|
PICTURE "."
|
|
GROUP G_ALL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 8 "@bPRIMA RATA ACCONTO C.S.S.N. PER IL 1995 "
|
|
END
|
|
|
|
NUMBER QA2F_CSSNAIV 15
|
|
BEGIN
|
|
PROMPT 2 9 "19 Contrib.versato "
|
|
FIELD LF_QUAA2->CONTV19
|
|
PICTURE "."
|
|
GROUP G_ALL
|
|
END
|
|
|
|
NUMBER QA2F_CSSNAINT 15
|
|
BEGIN
|
|
PROMPT 41 9 "20 Interessi "
|
|
FIELD LF_QUAA2->INTE20
|
|
PICTURE "."
|
|
GROUP G_ALL
|
|
END
|
|
|
|
NUMBER QA2F_STCSSN 15
|
|
BEGIN
|
|
PROMPT 2 11 "21 Soprattasse su C.S.S.N. saldo 94 e prima rata acc.95 "
|
|
FIELD LF_QUAA2->SOPRAT21
|
|
PICTURE "."
|
|
GROUP G_ALL
|
|
END
|
|
|
|
STRING QA2F_730NLIQ 2
|
|
BEGIN
|
|
PROMPT 2 12 "22 Mod.730/95 non liquidabile "
|
|
SHEET "Codice|Descrizione@60"
|
|
INPUT QA2F_730NLIQ
|
|
ITEM "|"
|
|
ITEM "01|Errata o incomp. compilaz. dati anagr. e di res. del dich."
|
|
ITEM "02|Errata o incomp. compilaz. dati del coniuge e fam. a carico"
|
|
ITEM "03|Errata o incomp. compilaz. dati anagr. e di res. del coniuge"
|
|
ITEM "04|Errata o incomp. dichiaraz. q. A Mod.730/95 del dich."
|
|
ITEM "05|Errata o incomp. dichiaraz. q. A Mod.730/95 del coniuge"
|
|
ITEM "06|Errata o incomp. dichiaraz. q. B Mod.730/95 del dich."
|
|
ITEM "07|Errata o incomp. dichiaraz. q. B Mod.730/95 del coniuge"
|
|
ITEM "08|Errata o incomp. dichiaraz. q. C Mod.730/95 del dich."
|
|
ITEM "09|Errata o incomp. dichiaraz. q. D Mod.730/95 del dich."
|
|
ITEM "10|Errata o incomp. dichiaraz. q. E Mod.730/95 del dich."
|
|
ITEM "11|Errata o incomp. dichiaraz. q. E Mod.730/95 del coniuge"
|
|
ITEM "12|Errata o incomp. dichiaraz. q. F Mod.730/95 del dich."
|
|
ITEM "13|Errata o incomp. dichiaraz. q. F Mod.730/95 del coniuge"
|
|
FIELD LF_QUAA2->M730NLIQ
|
|
FLAGS "Z"
|
|
OUTPUT QA2F_730NLIQ
|
|
GROUP G_ALL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 14 "@bDati identificativi del C.A.A.F che ha prestato assistenza "
|
|
END
|
|
|
|
NUMBER F_CODCAAF 5
|
|
BEGIN
|
|
PROMPT 2 15 "Codice "
|
|
FIELD LF_QUAA2->CODCAAF
|
|
USE %CAF
|
|
CHECKTYPE NORMAL
|
|
INPUT CODTAB F_CODCAAF
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Denominazione@50" S0
|
|
DISPLAY "N.ro iscrizione" I1
|
|
DISPLAY "Codice fiscale@16" S1
|
|
OUTPUT F_CODCAAF CODTAB
|
|
OUTPUT F_DENCAAF S0
|
|
OUTPUT F_NISCRA I1
|
|
OUTPUT F_CODFISCAAF S1
|
|
GROUP G_ALL
|
|
FLAGS "Z"
|
|
END
|
|
|
|
STRING F_DENCAAF 50
|
|
BEGIN
|
|
PROMPT 26 15 ""
|
|
FLAGS "DU"
|
|
END
|
|
|
|
STRING F_CODFISCAAF 16
|
|
BEGIN
|
|
PROMPT 2 16 "23 Cod.fiscale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NISCRA 5
|
|
BEGIN
|
|
PROMPT 50 16 "25 N.iscrizione albo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |