80 lines
1.3 KiB
Plaintext
80 lines
1.3 KiB
Plaintext
|
#include "mg4300.h"
|
||
|
|
PAGE "Stampa giornale" -1 -1 78 20
|
||
|
|
|
||
|
|
|
||
|
|
NUMBER F_ANNO 4
|
||
|
|
BEGIN
|
||
|
|
FLAGS "AH"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_ANNOES 4
|
||
|
|
BEGIN
|
||
|
|
FLAGS "A"
|
||
|
|
PROMPT 2 1 "Codice es. "
|
||
|
|
USE ESC
|
||
|
|
INPUT CODTAB F_ANNOES
|
||
|
|
DISPLAY "Esercizio" CODTAB
|
||
|
|
DISPLAY "Dal@12" D0
|
||
|
|
DISPLAY "Al@12" D0
|
||
|
|
OUTPUT F_ANNOES CODTAB
|
||
|
|
ADD NONE
|
||
|
|
END
|
||
|
|
|
||
|
|
LISTBOX F_DEFINITIVA 10
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 3 "Si desidera la stampa "
|
||
|
|
ITEM "P|di prova"
|
||
|
|
ITEM "D|definitiva"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_FREQ 2
|
||
|
|
BEGIN
|
||
|
|
FLAGS "U"
|
||
|
|
PROMPT 2 5 "Frequenza di stampa "
|
||
|
|
NUM_EXPR #F_FREQ<=31
|
||
|
|
WARNING "La frequenza deve essere compresa tra 0 e 31"
|
||
|
|
END
|
||
|
|
|
||
|
|
BOOLEAN F_RAGGARTICOLI
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 7 "Raggruppo gli articoli"
|
||
|
|
MESSAGE FALSE CLEAR,F_CLASSEFISART|K_SPACE,F_CLASSEFISART
|
||
|
|
MESSAGE TRUE ENABLE,F_CLASSEFISART
|
||
|
|
GROUP G_OPZ
|
||
|
|
END
|
||
|
|
|
||
|
|
BOOLEAN F_CLASSEFISART
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 9 "Raggruppo le classi fiscali articoli"
|
||
|
|
MESSAGE FALSE CLEAR,F_RAGGFISART|K_SPACE,F_RAGGFISART
|
||
|
|
MESSAGE TRUE ENABLE,F_RAGGFISART
|
||
|
|
GROUP G_OPZ
|
||
|
|
END
|
||
|
|
|
||
|
|
BOOLEAN F_RAGGFISART
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 11 "Raggruppo i raggruppamenti fiscali articoli"
|
||
|
|
MESSAGE FALSE CLEAR,F_RAGGCAUS
|
||
|
|
MESSAGE TRUE ENABLE,F_RAGGCAUS
|
||
|
|
GROUP G_OPZ
|
||
|
|
END
|
||
|
|
|
||
|
|
BOOLEAN F_RAGGCAUS
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 13 "Raggruppo le causali"
|
||
|
|
GROUP G_OPZ
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_OK 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -12 -1 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_QUIT 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -22 -1 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
ENDMASK
|