campo-sirio/ps/pg0001500a.uml

77 lines
1.2 KiB
Plaintext
Raw Normal View History

#include "pg0001500a.h"
PAGE "Copia movimenti di magazzino" -1 -1 76 18
NUMBER F_DANUM 7
BEGIN
PROMPT 1 2 "Dal numero "
USE LF_MOVMAG
INPUT NUMREG F_DANUM
DISPLAY "N.reg.@7" NUMREG
DISPLAY "Anno" ANNOES
DISPLAY "Data reg. @10" DATAREG
DISPLAY "Data comp.@10" DATACOMP
DISPLAY "Descrizione@30" DESCR
DISPLAY "Causale" CODCAUS
OUTPUT F_DANUM NUMREG
CHECKTYPE REQUIRED
END
NUMBER F_ANUM 7
BEGIN
PROMPT 1 4 " Al numero "
GROUP 15
USE LF_MOVMAG
INPUT NUMREG F_ANUM
DISPLAY "N.reg.@7" NUMREG
DISPLAY "Anno" ANNOES
DISPLAY "Data reg. @10" DATAREG
DISPLAY "Data comp.@10" DATACOMP
DISPLAY "Descrizione@30" DESCR
DISPLAY "Causale" CODCAUS
OUTPUT F_ANUM NUMREG
CHECKTYPE REQUIRED
END
DATE F_DATAMOV
BEGIN
PROMPT 1 6 "Data movimenti "
CHECKTYPE REQUIRED
END
CURRENCY F_VALTOT
BEGIN
PROMPT 1 8 "Valore totale "
END
NUMBER F_QMAX 5
BEGIN
PROMPT 1 10 "Quantit<69> massima "
END
CURRENCY F_VMIN 12
BEGIN
PROMPT 1 12 "Valore unitario minimo "
FLAGS "U"
END
NUMBER F_CMAX 2
BEGIN
PROMPT 1 14 "Articoli da saltare "
CHECKTYPE REQUIRED
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK