d0ab8cc457
Files correlati : Ricompilazione Demo : [ ] Commento : riportata la versione 98.01.05 patch 34 git-svn-id: svn://10.65.10.50/trunk@7409 c028cbd2-c16b-5b4b-a496-9718f37d4682
136 lines
2.4 KiB
Plaintext
Executable File
136 lines
2.4 KiB
Plaintext
Executable File
#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" D1
|
|
OUTPUT F_ANNOES CODTAB
|
|
ADD NONE
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODREG 3
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 42 1 "Codice giornale "
|
|
USE REG SELECT I0=9
|
|
INPUT CODTAB[1,4] F_ANNOES
|
|
INPUT CODTAB[5,7] F_CODREG
|
|
COPY DISPLAY F_ANNOES
|
|
OUTPUT F_ANNOES CODTAB[1,4]
|
|
OUTPUT F_CODREG CODTAB[5,7]
|
|
CHECKTYPE REQUIRED
|
|
ADD NONE
|
|
END
|
|
|
|
|
|
LISTBOX F_DEFINITIVA 10
|
|
BEGIN
|
|
PROMPT 2 3 "Si desidera la stampa "
|
|
ITEM "P|di prova"
|
|
ITEM "D|definitiva"
|
|
END
|
|
|
|
DATE F_DATAIN
|
|
BEGIN
|
|
PROMPT 2 5 "Dalla data "
|
|
END
|
|
|
|
DATE F_DATAFIN
|
|
BEGIN
|
|
PROMPT 42 5 "Alla data "
|
|
END
|
|
|
|
NUMBER F_FREQ 2
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 7 "Frequenza di stampa "
|
|
NUM_EXPR #F_FREQ<=31
|
|
WARNING "La frequenza di stampa può essere fino a 31 giorni"
|
|
END
|
|
|
|
BOOLEAN F_RAGG
|
|
BEGIN
|
|
PROMPT 2 9 "Raggruppo"
|
|
MESSAGE TRUE ENABLE,F_RAGGMAG|ENABLE,F_CLASSEFISART|ENABLE,F_RAGGARTICOLI|ENABLE,F_RAGGCAUS
|
|
MESSAGE FALSE CLEAR,F_RAGGMAG|CLEAR,F_CLASSEFISART|CLEAR,F_RAGGARTICOLI|CLEAR,F_RAGGCAUS
|
|
GROUP G_OPZ
|
|
END
|
|
|
|
BOOLEAN F_RAGGMAG
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 11 "Raggruppo i magazzini"
|
|
GROUP G_OPZ
|
|
END
|
|
|
|
BOOLEAN F_RAGGARTICOLI
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 12 "Raggruppo le giacenze dello stesso articolo"
|
|
MESSAGE TRUE CLEAR,F_CLASSEFISART|K_SPACE,F_CLASSEFISART
|
|
MESSAGE FALSE ENABLE,F_CLASSEFISART
|
|
GROUP G_OPZ
|
|
END
|
|
|
|
BOOLEAN F_CLASSEFISART
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 13 "Raggruppo gli articoli della stessa classe fiscale"
|
|
MESSAGE FALSE CLEAR,F_RAGGFISART|K_SPACE,F_RAGGFISART|ENABLE,F_RAGGARTICOLI
|
|
MESSAGE TRUE ENABLE,F_RAGGFISART|CLEAR,F_RAGGARTICOLI
|
|
GROUP G_OPZ
|
|
END
|
|
|
|
BOOLEAN F_RAGGFISART
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 14 "Raggruppo gli articoli dello stesso ragg. fiscale"
|
|
GROUP G_OPZ
|
|
END
|
|
|
|
BOOLEAN F_RAGGCAUS
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 15 "Raggruppo le causali"
|
|
GROUP G_OPZ
|
|
END
|
|
|
|
NUMBER F_TOLIVELLOGIAC 1
|
|
BEGIN
|
|
PROMPT 30 9 "Dettaglia le giacenze fino al livello "
|
|
FLAGS "D"
|
|
USE FCG
|
|
INPUT CODTAB F_TOLIVELLOGIAC
|
|
DISPLAY "Num." CODTAB
|
|
DISPLAY "Descr@50" S0
|
|
OUTPUT F_TOLIVELLOGIAC CODTAB
|
|
CHECKTYPE NORMAL
|
|
WARNING "Livello finale non ammissibile"
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|