72d5e5fb6f
e stampa con filtro sulle causali git-svn-id: svn://10.65.10.50/trunk@4717 c028cbd2-c16b-5b4b-a496-9718f37d4682
156 lines
2.8 KiB
Plaintext
Executable File
156 lines
2.8 KiB
Plaintext
Executable File
#include "mg4100.h"
|
|
PAGE "Stampa lista movimenti" -1 -1 78 18
|
|
|
|
NUMBER F_ANNOES 4
|
|
BEGIN
|
|
FLAGS "A"
|
|
PROMPT 2 1 "Codice esercizio "
|
|
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_ORDINE 30
|
|
BEGIN
|
|
PROMPT 2 3 "Stampa ordinata per "
|
|
ITEM "D|data di competenza"
|
|
MESSAGE SHOW,1@|HIDE,2@
|
|
ITEM "N|numero di registrazione"
|
|
MESSAGE SHOW,2@|HIDE,1@
|
|
END
|
|
|
|
DATA F_DADATA
|
|
BEGIN
|
|
PROMPT 2 5 "Dalla data "
|
|
USE LF_MOVMAG KEY 4 SELECT ANNOES==#F_ANNOES// KEY 3 for DATAREG
|
|
INPUT DATAREG F_DADATA
|
|
DISPLAY "Esercizio" ANNOES
|
|
DISPLAY "N.@10" NUMREG
|
|
DISPLAY "Data@10" DATAREG
|
|
DISPLAY "Descrizione@30" DESCR
|
|
OUTPUT F_DADATA DATAREG
|
|
GROUP 1
|
|
END
|
|
|
|
DATA F_ADATA
|
|
BEGIN
|
|
PROMPT 2 7 "Alla data "
|
|
COPY USE F_DADATA
|
|
INPUT DATAREG F_ADATA
|
|
COPY DISPLAY F_DADATA
|
|
OUTPUT F_ADATA DATAREG
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_DANUM 7
|
|
BEGIN
|
|
PROMPT 2 5 "dal numero "
|
|
USE LF_MOVMAG KEY 1 SELECT ANNOES=#F_ANNOES
|
|
INPUT NUMREG F_DANUM
|
|
DISPLAY "Esercizio" ANNOES
|
|
DISPLAY "N.@10" NUMREG
|
|
DISPLAY "Data@10" DATAREG
|
|
DISPLAY "Descrizione@30" DESCR
|
|
OUTPUT F_DANUM NUMREG
|
|
GROUP 2
|
|
END
|
|
|
|
STRING F_ANUM 7
|
|
BEGIN
|
|
PROMPT 2 7 "Al numero "
|
|
COPY USE F_DANUM
|
|
INPUT NUMREG F_ANUM
|
|
COPY DISPLAY F_DANUM
|
|
OUTPUT F_ANUM NUMREG
|
|
GROUP 2
|
|
END
|
|
|
|
STRING F_CAU1 4
|
|
BEGIN
|
|
PROMPT 2 9 "Causale "
|
|
FLAGS "U"
|
|
USE %CAU
|
|
INPUT CODTAB F_CAU1
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descr@30" S0
|
|
OUTPUT F_CAU1 CODTAB
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR,F_CAU2 |CHECK,F_CAU2
|
|
MESSAGE ENABLE,F_CAU2
|
|
END
|
|
STRING F_CAU2 4
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 10 "Causale "
|
|
INPUT CODTAB F_CAU2
|
|
COPY USE F_CAU1
|
|
COPY DISPLAY F_CAU1
|
|
OUTPUT F_CAU2 CODTAB
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR,F_CAU3 |CHECK,F_CAU3
|
|
MESSAGE ENABLE,F_CAU3
|
|
END
|
|
STRING F_CAU3 4
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 11 "Causale "
|
|
COPY USE F_CAU1
|
|
INPUT CODTAB F_CAU3
|
|
COPY DISPLAY F_CAU1
|
|
OUTPUT F_CAU3 CODTAB
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR,F_CAU4 |CHECK,F_CAU4
|
|
MESSAGE ENABLE,F_CAU4
|
|
END
|
|
STRING F_CAU4 4
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 12 "Causale "
|
|
COPY USE F_CAU1
|
|
INPUT CODTAB F_CAU4
|
|
COPY DISPLAY F_CAU1
|
|
OUTPUT F_CAU4 CODTAB
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR,F_CAU5 |CHECK,F_CAU5
|
|
MESSAGE ENABLE,F_CAU5
|
|
END
|
|
STRING F_CAU5 4
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 13 "Causale "
|
|
COPY USE F_CAU1
|
|
INPUT CODTAB F_CAU5
|
|
COPY DISPLAY F_CAU1
|
|
OUTPUT F_CAU5 CODTAB
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR,F_CAU6 |CHECK,F_CAU6
|
|
MESSAGE ENABLE,F_CAU6
|
|
END
|
|
STRING F_CAU6 4
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 14 "Causale "
|
|
COPY USE F_CAU1
|
|
INPUT CODTAB F_CAU6
|
|
COPY DISPLAY F_CAU1
|
|
OUTPUT F_CAU6 CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|