87 lines
1.2 KiB
Plaintext
87 lines
1.2 KiB
Plaintext
|
#include "intbird.h"
|
||
|
|
|
||
|
|
TOOLBAR "relapbar" 0 0 0 2
|
||
|
|
#include <relapbar.h>
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
PAGE "Dati riassuntivi" 0 2 0 0
|
||
|
|
|
||
|
|
GROUPBOX DLG_NULL 78 3
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 1 "@bDati Riassuntivi"
|
||
|
|
END
|
||
|
|
|
||
|
|
LIST F_TIPO 1 8
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 2 "Tipo "
|
||
|
|
ITEM "A|Acquisti"
|
||
|
|
ITEM "C|Cessioni"
|
||
|
|
FIELD CODTAB[1,1]
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_ANNO 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 35 2 "Anno "
|
||
|
|
FLAGS "AZ"
|
||
|
|
USE IRD
|
||
|
|
INPUT CODTAB[1,1] F_TIPO SELECT
|
||
|
|
INPUT CODTAB[2,5] F_ANNO
|
||
|
|
INPUT CODTAB[6,7] F_MESE
|
||
|
|
DISPLAY "Tipo" CODTAB[1,1]
|
||
|
|
DISPLAY "Anno@15" CODTAB[2,5]
|
||
|
|
DISPLAY "Periodo@10" CODTAB[6,7]
|
||
|
|
DISPLAY "N.dischetto@10" I0
|
||
|
|
DISPLAY "Riepiloghi@10" I2
|
||
|
|
DISPLAY "Rettifiche@10" I3
|
||
|
|
OUTPUT F_ANNO CODTAB[2,5]
|
||
|
|
OUTPUT F_MESE CODTAB[6,7]
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
FIELD CODTAB[2,5]
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_MESE 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT 56 2 "Periodo "
|
||
|
|
FLAGS "Z"
|
||
|
|
COPY ALL F_ANNO
|
||
|
|
FIELD CODTAB[6,7]
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_NDKT 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 4 "Numero Dischetto "
|
||
|
|
FIELD I0
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_RIGHE 7
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 6 "Righe riepilogo "
|
||
|
|
FIELD I2
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_RETT 7
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 7 "Righe rettifica "
|
||
|
|
FIELD I3
|
||
|
|
END
|
||
|
|
|
||
|
|
|
||
|
|
CURRENCY F_AMM_COMP 18
|
||
|
|
BEGIN
|
||
|
|
PROMPT 36 6 "Ammontare Riepiloghi "
|
||
|
|
FIELD R0
|
||
|
|
END
|
||
|
|
|
||
|
|
CURRENCY F_AMM_RETT 18
|
||
|
|
BEGIN
|
||
|
|
PROMPT 36 7 "Ammontare Rettifiche "
|
||
|
|
FIELD R1
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|