b7a699ccfe
Files correlati : mg3.exe Ricompilazione Demo : [ ] Commento : Aggiunto un flag sulla stampa schede di Magazzino che pèermette di stampare il numero di movimento stampato sul giornale al posto del numer0 di registrazione git-svn-id: svn://10.65.10.50/branches/R_10_00@21347 c028cbd2-c16b-5b4b-a496-9718f37d4682
321 lines
6.5 KiB
Plaintext
Executable File
321 lines
6.5 KiB
Plaintext
Executable File
#include "mg3300.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <printbar.h>
|
|
ENDPAGE
|
|
|
|
|
|
PAGE "Stampa Schede di magazzino" 0 0 0 0
|
|
|
|
LISTBOX F_SCHEDA 30
|
|
BEGIN
|
|
PROMPT 2 1 "Tipo scheda "
|
|
ITEM "G|Giacenza"
|
|
ITEM "OF|Ordinato fornitori"
|
|
ITEM "OC|Ordinato clienti"
|
|
ITEM "ACL|A conto lavoro"
|
|
ITEM "INCL|In conto lavoro"
|
|
ITEM "PC|Componenti in produzione "
|
|
ITEM "PF|Finiti in produzione "
|
|
END
|
|
|
|
LISTBOX F_ORDINE 12
|
|
BEGIN
|
|
PROMPT 2 2 "Ordinamento "
|
|
ITEM "A|Articoli"
|
|
MESSAGE SHOW,F_SUBORDINE
|
|
MESSAGE HIDE,F_DETTAGLIOMAG|"X",F_DETTAGLIODEP
|
|
MESSAGE SHOW,F_SUDDIV_MAGAZZINI|SHOW,F_SUDDIV_DEPOSITI
|
|
ITEM "M|Magazzini"
|
|
MESSAGE HIDE,F_SUBORDINE|SHOW,G_CODART@|
|
|
MESSAGE SHOW,F_DETTAGLIOMAG|"X",F_DETTAGLIODEP
|
|
MESSAGE HIDE,F_SUDDIV_MAGAZZINI|HIDE,F_SUDDIV_DEPOSITI
|
|
END
|
|
|
|
LISTBOX F_SUBORDINE 20
|
|
BEGIN
|
|
FLAGS "G"
|
|
PROMPT 32 2 "sotto-ordinamento "
|
|
ITEM "C|Codice"
|
|
MESSAGE HIDE,G_CATMER@|ENABLE,G_CODART@|ENABLE,G_LIVELLI@|HIDE,G_USER@|ENABLE,G_DESART@
|
|
ITEM "D|Descrizione"
|
|
MESSAGE HIDE,G_CATMER@|DISABLE,G_CODART@|"AC",F_ENABLER|"0",F_TOLIVELLOART|DISABLE,G_LIVELLI@|HIDE,G_USER@|ENABLE,G_DESART@
|
|
ITEM "M|Gruppo merc."
|
|
MESSAGE SHOW,G_CATMER@|ENABLE,G_CODART@|ENABLE,G_LIVELLI@|HIDE,G_USER@|ENABLE,G_DESART@
|
|
ITEM "P|Personalizzato"
|
|
MESSAGE HIDE,G_CATMER@|CLEAR,G_CODART@|ENABLE,G_LIVELLI@|SHOW,G_USER@|CLEAR,G_DESART@
|
|
END
|
|
|
|
NUMBER F_ANNOES 4
|
|
BEGIN
|
|
FLAGS "AZ"
|
|
PROMPT 2 3 "Codice es. "
|
|
USE ESC
|
|
INPUT CODTAB F_ANNOES
|
|
DISPLAY "Esercizio" CODTAB
|
|
DISPLAY "Dal@12" D0
|
|
DISPLAY "Al@12" D1
|
|
OUTPUT F_ANNOES CODTAB
|
|
CHECKTYPE REQUIRED
|
|
ADD NONE
|
|
END
|
|
|
|
LISTBOX F_FILTRO 10
|
|
BEGIN
|
|
FLAGS "G"
|
|
PROMPT 34 3 "Filtro "
|
|
ITEM "T|Tutti"
|
|
ITEM "N|Negativi"
|
|
END
|
|
|
|
DATE F_DADATA
|
|
BEGIN
|
|
PROMPT 2 4 "Dalla data "
|
|
END
|
|
|
|
DATE F_ADATA
|
|
BEGIN
|
|
PROMPT 34 4 "alla data "
|
|
STR_EXPR ANSI(#F_ADATA)>=ANSI(#F_DADATA)||(#F_ADATA=="")
|
|
WARNING "Il secondo estremo deve essere superiore al primo"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 16 5 "@bDall'articolo "
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 50 5 "@ball'articolo "
|
|
END
|
|
|
|
STRING F_DAART 20
|
|
BEGIN
|
|
PROMPT 2 6 "Codice "
|
|
FLAGS "U"
|
|
USE LF_ANAMAG
|
|
INPUT CODART F_DAART
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descr@50" DESCR
|
|
OUTPUT F_DAART CODART
|
|
OUTPUT F_DADES DESCR
|
|
OUTPUT F_AART CODART
|
|
OUTPUT F_ADES DESCR
|
|
GROUP G_CODART
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_DADES 50 28
|
|
BEGIN
|
|
PROMPT 2 7 "Descrizione "
|
|
USE LF_ANAMAG KEY 2
|
|
INPUT DESCR F_DADES
|
|
DISPLAY "Descr@50" DESCR
|
|
DISPLAY "Codice@20" CODART
|
|
COPY OUTPUT F_DAART
|
|
GROUP G_DESART
|
|
END
|
|
|
|
STRING F_DAUSR 40 30
|
|
BEGIN
|
|
PROMPT 2 8 "Personalizz. "
|
|
FLAGS "UH"
|
|
GROUP G_USER
|
|
END
|
|
|
|
STRING F_AART 20
|
|
BEGIN
|
|
PROMPT 50 6 ""
|
|
FLAGS "U"
|
|
COPY USE F_DAART
|
|
INPUT CODART F_AART
|
|
COPY DISPLAY F_DAART
|
|
OUTPUT F_AART CODART
|
|
OUTPUT F_ADES DESCR
|
|
FIELD ANTIOUTPUT
|
|
GROUP G_CODART
|
|
STR_EXPR (#F_AART>=#F_DAART)||(#F_AART=="")
|
|
WARNING "Il secondo estremo deve essere superiore al primo"
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_ADES 50 28
|
|
BEGIN
|
|
PROMPT 50 7 ""
|
|
COPY USE F_DADES
|
|
INPUT DESCR F_ADES
|
|
COPY DISPLAY F_DADES
|
|
COPY OUTPUT F_AART
|
|
GROUP G_DESART
|
|
END
|
|
|
|
STRING F_AUSR 40 30
|
|
BEGIN
|
|
PROMPT 50 8 ""
|
|
FLAGS "UH"
|
|
GROUP G_USER
|
|
END
|
|
|
|
STRING F_DAMAG 3
|
|
BEGIN
|
|
PROMPT 2 9 "Dal magazzino "
|
|
FLAGS "U"
|
|
USE MAG SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB F_DAMAG
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descr@50" S0
|
|
OUTPUT F_DAMAG CODTAB
|
|
END
|
|
|
|
STRING F_AMAG 3
|
|
BEGIN
|
|
PROMPT 2 10 " al magazzino "
|
|
FLAGS "U"
|
|
COPY USE F_DAMAG
|
|
INPUT CODTAB F_AMAG
|
|
COPY DISPLAY F_DAMAG
|
|
OUTPUT F_AMAG CODTAB
|
|
STR_EXPR (#F_AMAG>=#F_DAMAG)||(#F_AMAG=="")
|
|
WARNING "Il secondo estremo deve essere superiore al primo"
|
|
END
|
|
|
|
STRING F_DADEP 3
|
|
BEGIN
|
|
PROMPT 37 9 "Dal deposito "
|
|
FLAGS "U"
|
|
USE MAG SELECT CODTAB[4,5]!=""
|
|
INPUT CODTAB[1,3] F_DAMAG SELECT
|
|
INPUT CODTAB[4,5] F_DADEP
|
|
DISPLAY "Magazzino" CODTAB[1,3]
|
|
DISPLAY "Deposito" CODTAB[4,5]
|
|
DISPLAY "Descr@50" S0
|
|
OUTPUT F_DADEP CODTAB[4,5]
|
|
END
|
|
|
|
STRING F_ADEP 3
|
|
BEGIN
|
|
PROMPT 37 10 "Al deposito "
|
|
FLAGS "U"
|
|
COPY USE F_DADEP
|
|
INPUT CODTAB[1,3] F_AMAG SELECT
|
|
INPUT CODTAB[4,5] F_ADEP
|
|
COPY DISPLAY F_DADEP
|
|
OUTPUT F_ADEP CODTAB[4,5]
|
|
STR_EXPR (#F_ADEP>=#F_DADEP)||(#F_ADEP=="")
|
|
WARNING "Il secondo estremo deve essere superiore al primo"
|
|
END
|
|
|
|
STRING F_DACATMER 3
|
|
BEGIN
|
|
PROMPT 2 11 "Dal gruppo "
|
|
FLAGS "U"
|
|
USE GMC SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB F_DACATMER
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descr@50" S0
|
|
OUTPUT F_DACATMER CODTAB[1,3]
|
|
GROUP G_CATMER
|
|
END
|
|
|
|
STRING F_ACATMER 3
|
|
BEGIN
|
|
PROMPT 2 12 "Al gruppo "
|
|
FLAGS "U"
|
|
COPY USE F_DACATMER
|
|
INPUT CODTAB F_ACATMER
|
|
COPY DISPLAY F_DACATMER
|
|
OUTPUT F_ACATMER CODTAB[1,3]
|
|
GROUP G_CATMER
|
|
STR_EXPR (#F_ACATMER>=#F_DACATMER)||(#F_ACATMER=="")
|
|
WARNING "Il secondo estremo deve essere superiore al primo"
|
|
END
|
|
|
|
BOOL F_DETTAGLIOMAG
|
|
BEGIN
|
|
PROMPT 2 12 "Suddivido per depositi"
|
|
END
|
|
|
|
BOOL F_DETTAGLIODEP
|
|
BEGIN
|
|
FLAGS "DH"
|
|
PROMPT 42 12 "Dettaglio i depositi"
|
|
END
|
|
|
|
LIST F_ENABLER 2 30
|
|
BEGIN
|
|
PROMPT 2 14 "Livello di dettaglio "
|
|
ITEM "AC|fino ai singoli articoli"
|
|
MESSAGE RESET,F_TOLIVELLOGIAC|HIDE,F_TOLIVELLOGIAC|RESET,F_TOLIVELLOART|HIDE,F_TOLIVELLOART
|
|
ITEM "AL|fino al livello articolo"
|
|
MESSAGE RESET,F_TOLIVELLOGIAC|HIDE,F_TOLIVELLOGIAC|SHOW,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
|
|
ITEM "GC|fino al livello di giacenza"
|
|
MESSAGE RESET,F_TOLIVELLOART|HIDE,F_TOLIVELLOART|SHOW,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC
|
|
ITEM "GM|massimo livello di giacenza"
|
|
MESSAGE ENABLE,F_SUDDIV_MAGAZZINI|RESET,F_TOLIVELLOGIAC|RESET,F_TOLIVELLOART|HIDE,F_TOLIVELLOART|HIDE,F_TOLIVELLOGIAC
|
|
GROUP G_LIVELLI
|
|
END
|
|
|
|
NUMBER F_TOLIVELLOART 1
|
|
BEGIN
|
|
PROMPT 57 14 ""
|
|
USE FCA
|
|
INPUT CODTAB F_TOLIVELLOART
|
|
DISPLAY "Num." CODTAB
|
|
DISPLAY "Descr@50" S0
|
|
OUTPUT F_TOLIVELLOART CODTAB
|
|
CHECKTYPE NORMAL
|
|
GROUP G_LIVELLI
|
|
WARNING "Livello finale non ammissibile"
|
|
END
|
|
|
|
NUMBER F_TOLIVELLOGIAC 1
|
|
BEGIN
|
|
PROMPT 57 14 ""
|
|
USE FCG
|
|
INPUT CODTAB F_TOLIVELLOGIAC
|
|
DISPLAY "Num." CODTAB
|
|
DISPLAY "Descr@50" S0
|
|
OUTPUT F_TOLIVELLOGIAC CODTAB
|
|
CHECKTYPE NORMAL
|
|
GROUP G_LIVELLI
|
|
WARNING "Livello finale non ammissibile"
|
|
END
|
|
|
|
|
|
BOOL F_SUDDIV_MAGAZZINI
|
|
BEGIN
|
|
PROMPT 2 16 "Suddivido per magazzini"
|
|
MESSAGE TRUE ENABLE,F_SUDDIV_DEPOSITI
|
|
MESSAGE FALSE CLEAR,F_SUDDIV_DEPOSITI|K_SPACE,F_SUDDIV_DEPOSITI
|
|
END
|
|
|
|
BOOL F_SUDDIV_DEPOSITI
|
|
BEGIN
|
|
PROMPT 2 17 "Suddivido per depositi"
|
|
END
|
|
|
|
BOOL F_NO_VALORI
|
|
BEGIN
|
|
PROMPT 2 18 "Non stampare i valori"
|
|
END
|
|
|
|
BOOL F_NO_FF
|
|
BEGIN
|
|
PROMPT 42 16 "Senza salto pagina"
|
|
END
|
|
|
|
BOOL F_SINTETICA
|
|
BEGIN
|
|
PROMPT 42 17 "Stampa sintetica"
|
|
END
|
|
|
|
BOOL F_PRINTREG
|
|
BEGIN
|
|
PROMPT 42 18 "Stampa numero giornale"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|