campo-sirio/cg/cg2200a.uml
guy 5f655ece6d Leggere modifiche al programma clienti (eliminazione di variabili static)
Correzione errori cancellazione movimenti provvisori (che pero' non funzionano
ancora)
Aggiunta classe TBill da cui deriva TConto


git-svn-id: svn://10.65.10.50/trunk@278 c028cbd2-c16b-5b4b-a496-9718f37d4682
1994-09-22 16:46:40 +00:00

66 lines
1.1 KiB
Plaintext
Executable File

#include "cg2200.h"
PAGE "Eliminazione Movimenti Provvisori" -1 -1 42 9
GROUPBOX DLG_NULL 40 3
BEGIN
PROMPT 1 1 "Dal movimento"
END
DATE F_FROMDATE
BEGIN
PROMPT 2 2 "Data "
USE LF_MOV KEY 2 SELECT PROVVIS="P"
INPUT DATAREG F_FROMDATE
INPUT NUMREG F_FROMREG
DISPLAY "Data@10" DATAREG
DISPLAY "Numero@6" NUMREG
DISPLAY "Causale" CODCAUS
DISPLAY "Documento" NUMDOC
DISPLAY "Descrizione@50" DESCR
OUTPUT F_FROMDATE DATAREG
OUTPUT F_FROMREG NUMREG
CHECKTYPE NORMAL
END
NUMBER F_FROMREG 5
BEGIN
PROMPT 22 2 "Operazione "
FLAGS "DR"
END
GROUPBOX DLG_NULL 40 3
BEGIN
PROMPT 1 4 "Al movimento"
END
DATE F_TODATE
BEGIN
PROMPT 2 5 "Data "
COPY USE F_FROMDATE
INPUT DATAREG F_TODATE
INPUT NUMREG F_TOREG
COPY DISPLAY F_FROMDATE
OUTPUT F_TODATE DATAREG
OUTPUT F_TOREG NUMREG
CHECKTYPE NORMAL
END
NUMBER F_TOREG 5
BEGIN
PROMPT 22 5 "Operazione "
FLAGS "DR"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE