campo-sirio/db/db1200a.uml
luca c754dc7617 Patch level :10.0 300
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
modernizzate maschere db1


git-svn-id: svn://10.65.10.50/trunk@18855 c028cbd2-c16b-5b4b-a496-9718f37d4682
2009-05-12 08:39:07 +00:00

113 lines
2.1 KiB
Plaintext
Executable File

#include "db1200a.h"
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
PAGE "Stampa anagrafica distinte" -1 -1 80 20
GROUPBOX DLG_NULL 68 5
BEGIN
PROMPT 1 1 "Gruppo selezione stampa"
END
STRING F_DISTDA 20
BEGIN
FLAGS "U"
PROMPT 2 2 "Dal codice "
USE LF_DIST
JOIN LF_ANAMAG INTO CODART==CODDIST
INPUT CODDIST F_DISTDA
DISPLAY "Codice@20" CODDIST
DISPLAY "Virtuale" VIRTUALE
DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
OUTPUT F_DISTDA CODDIST
CHECKTYPE NORMAL
END
STRING F_DISTA 20
BEGIN
FLAGS "U"
PROMPT 2 4 "Al codice "
USE LF_DIST
JOIN LF_ANAMAG INTO CODART==CODDIST
INPUT CODDIST F_DISTA
DISPLAY "Codice@20" CODDIST
DISPLAY "Virtuale" VIRTUALE
DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
OUTPUT F_DISTA CODDIST
CHECKTYPE NORMAL
END
BOOLEAN F_DIST_ARTICOLI
BEGIN
PROMPT 2 6 "Escludi le distinte articolo"
END
BOOLEAN F_DIST_LAVORAZIONI
BEGIN
PROMPT 2 7 "Escludi le distinte lavorazione"
END
BOOLEAN F_DIST_VIRTUALI
BEGIN
PROMPT 2 8 "Escludi le distinte virtuali"
END
BOOLEAN F_DETT_RIGHE
BEGIN
PROMPT 2 10 "Stampa il dettaglio delle righe"
MESSAGE TRUE ENABLE,1@
MESSAGE FALSE DISABLE,1@
END
NUMBER F_SORT 1
BEGIN
PROMPT 2 11 "Ordina "
USE ORD
INPUT CODTAB F_SORT
DISPLAY "Codice ordinamento" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_SORT CODTAB
OUTPUT F_SORTDESC S0
CHECKTYPE NORMAL
FLAGS "U"
MESSAGE EMPTY "Immissione",F_SORTDESC
GROUP 1
END
STRING F_SORTDESC 50
BEGIN
PROMPT 14 11 ""
FLAGS "D"
END
BOOLEAN F_RIGHE_ARTICOLI
BEGIN
PROMPT 2 12 "Escludi le righe articolo"
GROUP 1,2
END
BOOLEAN F_RIGHE_LAVORAZIONI
BEGIN
PROMPT 2 13 "Escludi le righe lavorazione"
GROUP 1,2
END
BOOLEAN F_RIGHE_VIRTUALI
BEGIN
PROMPT 2 14 "Escludi le righe virtuali"
GROUP 1,2
END
BOOLEAN F_RIGHE_VARIABILI
BEGIN
PROMPT 2 15 "Escludi le righe variabili"
GROUP 1,2
END
ENDMASK
ENDPAGE