226 lines
3.2 KiB
Plaintext
Executable File
226 lines
3.2 KiB
Plaintext
Executable File
#include "771200.h"
|
|
TOOLBAR "" 0 19 0 3
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Quadro A3" -1 -1 78 18
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 1 "@bDipendente"
|
|
END
|
|
|
|
NUMBER QAF_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 80 80 ""
|
|
FLAGS "D"
|
|
FIELD LF_QUAA3->CODDITTA
|
|
KEY 1
|
|
END
|
|
|
|
NUMBER F_CODIP 6
|
|
BEGIN
|
|
PROMPT 17 1 ""
|
|
FIELD LF_QUAA3->CODDIP
|
|
MESSAGE COPY,F_CODIP2
|
|
FLAGS "DG"
|
|
KEY 1
|
|
MESSAGE COPY,1@
|
|
END
|
|
|
|
NUMBER F_CODIP2 5
|
|
BEGIN
|
|
USE LF_DIPEND KEY 1
|
|
INPUT CODDITTA QAF_CODDITTA
|
|
INPUT CODDIP F_CODIP
|
|
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
|
|
OUTPUT QAF_COGNOME COGNOME
|
|
OUTPUT QAF_NOME NOME
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "HG"
|
|
END
|
|
|
|
STRING QAF_COGNOME 24
|
|
BEGIN
|
|
PROMPT 25 1 ""
|
|
FLAGS "DG"
|
|
MESSAGE COPY,2@
|
|
END
|
|
|
|
STRING QAF_NOME 20
|
|
BEGIN
|
|
PROMPT 49 1 ""
|
|
FLAGS "DG"
|
|
MESSAGE COPY,3@
|
|
END
|
|
|
|
NUMBER QAF_NPROG 1
|
|
BEGIN
|
|
PROMPT 80 80 ""
|
|
FLAGS "DG"
|
|
FIELD LF_QUAA3->NPROG
|
|
END
|
|
|
|
DATE F_DIRAPTI
|
|
BEGIN
|
|
PROMPT 1 5 "8 Data inizio rapporto a tempo indeterminato "
|
|
FIELD LF_QUAA3->DIRAPTI
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 7 "@bDATI DAL 1/1/95 A FINE PERIODO D'IMPOSTA"
|
|
END
|
|
|
|
NUMBER F_NGINC15 3
|
|
BEGIN
|
|
PROMPT 1 8 "9 Num. giorni in incremento "
|
|
FIELD LF_QUAA3->NGINC15
|
|
END
|
|
|
|
NUMBER F_REDCOR16 15
|
|
BEGIN
|
|
PROMPT 1 9 "10 Reddito corrisposto "
|
|
FIELD LF_QUAA3->REDCOR16
|
|
PICTURE "."
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 11 "@bDATI DA INIZIO SUCCESSIVO PERIODO D'IMPOSTA FINO AL 31/12/95"
|
|
END
|
|
|
|
NUMBER F_NGINC17 3
|
|
BEGIN
|
|
PROMPT 1 12 "11 Num. giorni in incremento"
|
|
FIELD LF_QUAA3->NGINC17
|
|
END
|
|
|
|
NUMBER F_REDCOR18 15
|
|
BEGIN
|
|
PROMPT 1 13 "12 Reddito corrisposto "
|
|
FIELD LF_QUAA3->REDCOR18
|
|
PICTURE "."
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Societa' trasformata" -1 -1 78 21
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 1 "@bDipendente"
|
|
END
|
|
|
|
NUMBER F_CODDITTA_2 5
|
|
BEGIN
|
|
PROMPT 80 80 ""
|
|
FLAGS "D"
|
|
KEY 1
|
|
END
|
|
|
|
NUMBER F_CODIP_2 6
|
|
BEGIN
|
|
PROMPT 17 1 ""
|
|
MESSAGE COPY,F_CODIP2
|
|
FLAGS "DG"
|
|
KEY 1
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_CODIP2_2 5
|
|
BEGIN
|
|
USE LF_DIPEND KEY 1
|
|
INPUT CODDITTA QAF_CODDITTA
|
|
INPUT CODDIP F_CODIP
|
|
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
|
|
OUTPUT QAF_COGNOME COGNOME
|
|
OUTPUT QAF_NOME NOME
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "HG"
|
|
END
|
|
|
|
STRING F_COGNOME_2 24
|
|
BEGIN
|
|
PROMPT 25 1 ""
|
|
FLAGS "DG"
|
|
GROUP 2
|
|
END
|
|
|
|
STRING F_NOME_2 20
|
|
BEGIN
|
|
PROMPT 49 1 ""
|
|
FLAGS "DG"
|
|
GROUP 3
|
|
END
|
|
|
|
NUMBER F_NPROG_2 1
|
|
BEGIN
|
|
PROMPT 80 80 ""
|
|
FLAGS "DG"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 3 "@bSocieta' trasformata "
|
|
END
|
|
|
|
STRING F_DENTRASF 40
|
|
BEGIN
|
|
PROMPT 25 3 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_COGNTRASF 30
|
|
BEGIN
|
|
PROMPT 25 3 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_NOMETRASF 20
|
|
BEGIN
|
|
PROMPT 56 3 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DIRAPTI_2
|
|
BEGIN
|
|
PROMPT 1 5 "8 Data inizio rapporto a tempo indeterminato "
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 7 "@bDATI DAL 1/1/95 A FINE PERIODO D'IMPOSTA"
|
|
END
|
|
|
|
NUMBER F_NGINC15_2 3
|
|
BEGIN
|
|
PROMPT 1 8 "9 Num. giorni in incremento "
|
|
END
|
|
|
|
NUMBER F_REDCOR16_2 15
|
|
BEGIN
|
|
PROMPT 1 9 "10 Reddito corrisposto "
|
|
PICTURE "."
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 11 "@bDATI DA INIZIO SUCCESSIVO PERIODO D'IMPOSTA FINO AL 31/12/95"
|
|
END
|
|
|
|
NUMBER F_NGINC17_2 3
|
|
BEGIN
|
|
PROMPT 1 12 "11 Num. giorni in incremento"
|
|
END
|
|
|
|
NUMBER F_REDCOR18_2 15
|
|
BEGIN
|
|
PROMPT 1 13 "12 Reddito corrisposto "
|
|
PICTURE "."
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|