e9611c895d
Files correlati : mg4.exe mg4300.frm mg4300.msk Ricompilazione Demo : [ ] Commento : Corretto salvataggio numero stampato sul libro giornale di magazzino git-svn-id: svn://10.65.10.50/branches/R_10_00@21413 c028cbd2-c16b-5b4b-a496-9718f37d4682
126 lines
2.3 KiB
Plaintext
Executable File
126 lines
2.3 KiB
Plaintext
Executable File
#include "mg4300.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
#include <printbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Stampa giornale" 0 2 0 0
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
FLAGS "AH"
|
|
END
|
|
|
|
NUMBER F_ANNOES 4
|
|
BEGIN
|
|
PROMPT 2 1 "Anno "
|
|
FLAGS "AZ"
|
|
CHECKTYPE REQUIRED
|
|
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
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice" CODTAB[5,8]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_ANNOES CODTAB[1,4]
|
|
OUTPUT F_CODREG CODTAB[5,7]
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
LISTBOX F_DEFINITIVA 10
|
|
BEGIN
|
|
PROMPT 2 3 "Modalità di 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|ENABLE,F_TOLIVELLOGIAC
|
|
MESSAGE FALSE ENABLE,F_CLASSEFISART|DISABLE,F_TOLIVELLOGIAC
|
|
GROUP G_OPZ
|
|
END
|
|
|
|
NUMBER F_TOLIVELLOGIAC 1
|
|
BEGIN
|
|
PROMPT 52 12 "Livello dettaglio "
|
|
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
|
|
|
|
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
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|