campo-sirio/ps/pg0001500a.uml
alex baa1e34d5c Patch level : 10.0 163
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :

Riportata la versione 3.2 patch 1262


git-svn-id: svn://10.65.10.50/trunk@17631 c028cbd2-c16b-5b4b-a496-9718f37d4682
2008-11-14 00:40:30 +00:00

77 lines
1.2 KiB
Plaintext
Executable File

#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à 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