58 lines
817 B
Plaintext
58 lines
817 B
Plaintext
|
#include "in0100a.h"
|
||
|
|
|
||
|
|
PAGE "Stampa Riepiloghi" -1 -1 32 6
|
||
|
|
|
||
|
|
LIST R_TIPO 1 10
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 1 "Tipo riepilogo "
|
||
|
|
ITEM "C|Cessioni"
|
||
|
|
ITEM "A|Acquisti"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER R_ANNO 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 2 "Anno "
|
||
|
|
FLAGS "AU"
|
||
|
|
END
|
||
|
|
|
||
|
|
LIST R_PERIODO_M 2 17
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 3 "Periodo "
|
||
|
|
FLAGS "AM"
|
||
|
|
FIELD PERIODO
|
||
|
|
END
|
||
|
|
|
||
|
|
LIST R_PERIODO_T 2 17
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 3 "Periodo "
|
||
|
|
ITEM "01|Gennaio-Marzo"
|
||
|
|
MESSAGE COPY,R_PERIODO_M
|
||
|
|
ITEM "02|Aprile-Giugno"
|
||
|
|
MESSAGE COPY,R_PERIODO_M
|
||
|
|
ITEM "03|Luglio-Settembre"
|
||
|
|
MESSAGE COPY,R_PERIODO_M
|
||
|
|
ITEM "04|Ottobre-Dicembre"
|
||
|
|
MESSAGE COPY,R_PERIODO_M
|
||
|
|
END
|
||
|
|
|
||
|
|
LIST R_PERIODO_A 2 17
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 3 "Periodo "
|
||
|
|
ITEM "01|Annuale"
|
||
|
|
MESSAGE COPY,R_PERIODO_M
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_PRINT 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -12 -1 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_QUIT 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -22 -1 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|