d3d86c6cc4
Files correlati : mg4.exe Ricompilazione Demo : [ ] Commento : Aggiunto filtro su codice articolo in stampa inventario raggruppata per gruppo merceologico (Dassi) Stampa inventario filtrata per fornitore e stagione Dalla versione 3.2 git-svn-id: svn://10.65.10.50/trunk@20591 c028cbd2-c16b-5b4b-a496-9718f37d4682
530 lines
11 KiB
Plaintext
Executable File
530 lines
11 KiB
Plaintext
Executable File
#include "mg4200.h"
|
|
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|
|
|
#include <printbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Stampa inventario" 0 2 0 0
|
|
|
|
LISTBOX F_ORDINE 10
|
|
BEGIN
|
|
PROMPT 2 1 "Ordinamento "
|
|
ITEM "A|Articoli"
|
|
MESSAGE " ",F_FILTRO|"X",F_DETTAGLIODEP|SHOW,F_TOTALIMAGAZZINI|SHOW,F_DETTAGLIOMAG|HIDE,F_TOTALIDEPOSITI
|
|
ITEM "M|Magazzini"
|
|
MESSAGE " ",F_FILTRO|SHOW,F_TOTALIDEPOSITI|HIDE,F_TOTALIMAGAZZINI|HIDE,F_DETTAGLIOMAG
|
|
END
|
|
|
|
LISTBOX F_SUBORDINE 20
|
|
BEGIN
|
|
FLAGS "G"
|
|
PROMPT 32 1 "sotto-ordinamento "
|
|
ITEM "C|Codice"
|
|
MESSAGE HIDE,G_RAGFIS@|HIDE,G_SCATMER@|HIDE,G_CATMER@|ENABLE,G_CODART@|ENABLE,F_RAGGCODICE|HIDE,G_USER@|ENABLE,G_DESART@
|
|
ITEM "D|Descrizione"
|
|
MESSAGE HIDE,G_RAGFIS@|HIDE,G_SCATMER@|HIDE,G_CATMER@|DISABLE,G_CODART@|CLEAR,F_RAGGCODICE|K_SPACE,F_RAGGCODICE|HIDE,G_USER@|ENABLE,G_DESART@
|
|
ITEM "M|Gruppo merc./codice"
|
|
MESSAGE HIDE,G_RAGFIS@|HIDE,G_SCATMER@|SHOW,G_CATMER@|ENABLE,G_CODART@|ENABLE,F_RAGGCODICE|HIDE,G_USER@|ENABLE,G_DESART@
|
|
ITEM "S|Sottogr. merc/codice"
|
|
MESSAGE HIDE,G_RAGFIS@|SHOW,G_SCATMER@|SHOW,G_CATMER@|ENABLE,G_CODART@|ENABLE,F_RAGGCODICE|HIDE,G_USER@|ENABLE,G_DESART@
|
|
ITEM "R|Raggr. fisc./codice"
|
|
MESSAGE SHOW,G_RAGFIS@|HIDE,G_SCATMER@|HIDE,G_CATMER@|CLEAR,G_CODART@|ENABLE,F_RAGGCODICE|HIDE,G_USER@|CLEAR,G_DESART@
|
|
ITEM "P|Personalizzato"
|
|
MESSAGE HIDE,G_RAGFIS@|HIDE,G_SCATMER@|HIDE,G_CATMER@|CLEAR,G_CODART@|ENABLE,F_RAGGCODICE|SHOW,G_USER@|CLEAR,G_DESART@
|
|
END
|
|
|
|
LIST F_REALE_GIAC 12
|
|
BEGIN
|
|
PROMPT 2 2 "Inventario "
|
|
ITEM "G|di giacenza"
|
|
ITEM "R|reale"
|
|
HELP "reale =(giac+ACL-INCL)"
|
|
END
|
|
|
|
NUMBER F_ANNOES 4
|
|
BEGIN
|
|
FLAGS "AZ"
|
|
PROMPT 33 2 "Codice esercizio "
|
|
USE ESC
|
|
INPUT CODTAB F_ANNOES
|
|
DISPLAY "Esercizio" CODTAB
|
|
DISPLAY "Dal@12" D0
|
|
DISPLAY "Al@12" D1
|
|
OUTPUT F_ANNOES CODTAB
|
|
ADD NONE
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
|
|
LIST F_FIN_COMP 22
|
|
BEGIN
|
|
PROMPT 2 3 "Valorizza solo"
|
|
ITEM "C|i componenti impegnati"
|
|
ITEM "F|i finiti in produzione"
|
|
HELP "finiti =(giac+INPRODF-INPRODC)"
|
|
END
|
|
|
|
|
|
LIST F_FILTRO 23
|
|
BEGIN
|
|
PROMPT 43 3 "Stampa "
|
|
ITEM "0|solo giacenze non nulle"
|
|
ITEM "N|solo giacenze negative"
|
|
ITEM "+|solo giacenze positive"
|
|
ITEM "T|tutti gli articoli"
|
|
END
|
|
|
|
STRING F_DAART 20
|
|
BEGIN
|
|
PROMPT 2 4 "@bDall'articolo "
|
|
FLAGS "U"
|
|
USE LF_ANAMAG
|
|
INPUT CODART F_DAART
|
|
DISPLAY "Codice@25" CODART
|
|
DISPLAY "Descr@50" DESCR
|
|
OUTPUT F_DAART CODART
|
|
OUTPUT F_DADES DESCR
|
|
CHECKTYPE NORMAL
|
|
GROUP G_CODART
|
|
ADD RUN ve2 -3
|
|
END
|
|
|
|
STRING F_DADES 50 34
|
|
BEGIN
|
|
PROMPT 44 4 ""
|
|
FLAGS "U"
|
|
USE LF_ANAMAG KEY 2
|
|
INPUT DESCR F_DADES
|
|
DISPLAY "Descr@50" DESCR
|
|
DISPLAY "Codice@20" CODART
|
|
COPY OUTPUT F_DAART
|
|
GROUP G_DESART
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_AART 20
|
|
BEGIN
|
|
PROMPT 2 5 "@bAll'articolo "
|
|
FLAGS "U"
|
|
COPY USE F_DAART
|
|
INPUT CODART F_AART
|
|
COPY DISPLAY F_DAART
|
|
OUTPUT F_AART CODART
|
|
OUTPUT F_ADES DESCR
|
|
CHECKTYPE NORMAL
|
|
GROUP G_CODART
|
|
ADD RUN ve2 -3
|
|
END
|
|
|
|
STRING F_ADES 50 34
|
|
BEGIN
|
|
PROMPT 44 5 ""
|
|
FLAGS "U"
|
|
COPY USE F_DADES
|
|
INPUT DESCR F_ADES
|
|
COPY DISPLAY F_DADES
|
|
COPY OUTPUT F_AART
|
|
GROUP G_DESART
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DAUSR 50 30
|
|
BEGIN
|
|
PROMPT 2 6 "Da pers. "
|
|
FLAGS "UH"
|
|
GROUP G_USER
|
|
END
|
|
|
|
|
|
STRING F_AUSR 50 30
|
|
BEGIN
|
|
PROMPT 48 6 "a pers. "
|
|
FLAGS "UH"
|
|
GROUP G_USER
|
|
END
|
|
|
|
NUMBER F_FORNITORE 6
|
|
BEGIN
|
|
PROMPT 2 7 "Fornitore "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF F_FORNITORE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT F_FORNITORE CODCF
|
|
CHECKTYPE NORMAL
|
|
ADD RUN,cg0 -1 F
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_DASTAGIONE 4
|
|
BEGIN
|
|
PROMPT 38 7 "Da stagione "
|
|
FLAGS "UZ"
|
|
USE %STG
|
|
INPUT CODTAB F_DASTAGIONE
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@70" S0
|
|
OUTPUT F_DASTAGIONE CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_ASTAGIONE 4
|
|
BEGIN
|
|
PROMPT 63 7 "A stagione "
|
|
FLAGS "UZ"
|
|
USE %STG
|
|
INPUT CODTAB F_ASTAGIONE
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@70" S0
|
|
OUTPUT F_ASTAGIONE CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DAMAG 3
|
|
BEGIN
|
|
PROMPT 2 8 "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
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_AMAG 3
|
|
BEGIN
|
|
PROMPT 37 8 "Al magazzino "
|
|
FLAGS "U"
|
|
COPY USE F_DAMAG
|
|
INPUT CODTAB F_AMAG
|
|
COPY DISPLAY F_DAMAG
|
|
OUTPUT F_AMAG CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DACATMER 3
|
|
BEGIN
|
|
PROMPT 2 9 "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]
|
|
CHECKTYPE NORMAL
|
|
GROUP G_CATMER
|
|
END
|
|
|
|
STRING F_DASCATMER 2
|
|
BEGIN
|
|
PROMPT 25 9 ""
|
|
FLAGS "U"
|
|
USE GMC SELECT CODTAB[4,5]!=""
|
|
INPUT CODTAB[1,3] F_DACATMER
|
|
INPUT CODTAB[4,5] F_DASCATMER
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_DACATMER CODTAB[1,3]
|
|
OUTPUT F_DASCATMER CODTAB[4,5]
|
|
CHECKTYPE NORMAL
|
|
GROUP G_SCATMER
|
|
END
|
|
|
|
STRING F_ACATMER 3
|
|
BEGIN
|
|
PROMPT 40 9 "Al gruppo "
|
|
FLAGS "U"
|
|
COPY USE F_DACATMER
|
|
INPUT CODTAB F_ACATMER
|
|
COPY DISPLAY F_DACATMER
|
|
OUTPUT F_ACATMER CODTAB[1,3]
|
|
CHECKTYPE NORMAL
|
|
GROUP G_CATMER
|
|
END
|
|
|
|
STRING F_ASCATMER 2
|
|
BEGIN
|
|
PROMPT 58 9 ""
|
|
FLAGS "U"
|
|
USE GMC
|
|
INPUT CODTAB[1,3] F_ACATMER
|
|
INPUT CODTAB[4,5] F_ASCATMER
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_ACATMER CODTAB[1,3]
|
|
OUTPUT F_ASCATMER CODTAB[4,5]
|
|
CHECKTYPE NORMAL
|
|
GROUP G_SCATMER
|
|
END
|
|
|
|
STRING F_DARAGFIS 5
|
|
BEGIN
|
|
PROMPT 2 10 "Dal raggrupp. "
|
|
FLAGS "U"
|
|
USE RFA
|
|
INPUT CODTAB F_DARAGFIS
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@40" S0
|
|
OUTPUT F_DARAGFIS CODTAB
|
|
CHECKTYPE NORMAL
|
|
GROUP G_RAGFIS
|
|
END
|
|
|
|
STRING F_ARAGFIS 5
|
|
BEGIN
|
|
PROMPT 36 10 "Al raggrupp. "
|
|
FLAGS "U"
|
|
USE RFA
|
|
INPUT CODTAB F_ARAGFIS
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@40" S0
|
|
OUTPUT F_ARAGFIS CODTAB
|
|
CHECKTYPE NORMAL
|
|
GROUP G_RAGFIS
|
|
END
|
|
|
|
BOOL F_TOTALIDEPOSITI
|
|
BEGIN
|
|
PROMPT 2 11 "Suddivido per depositi"
|
|
END
|
|
|
|
BOOL F_DETTAGLIODEP
|
|
BEGIN
|
|
FLAGS "DH"
|
|
PROMPT 42 11 "Dettaglia i depositi"
|
|
MESSAGE TRUE ENABLE,F_RAGGCODICE|ENABLE,F_RAGGLIVGIAC
|
|
MESSAGE FALSE CLEAR,F_RAGGCODICE|K_SPACE,F_RAGGCODICE|CLEAR,F_RAGGLIVGIAC|K_SPACE,F_RAGGLIVGIAC
|
|
END
|
|
|
|
BOOLEAN F_RAGGCODICE
|
|
BEGIN
|
|
PROMPT 2 12 "Stampa totali livelli di codice"
|
|
MESSAGE FALSE CLEAR,F_FROMLIVELLOART|CLEAR,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
|
|
MESSAGE TRUE ENABLE,F_FROMLIVELLOART|ENABLE,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
|
|
END
|
|
|
|
NUMBER F_FROMLIVELLOART 1
|
|
BEGIN
|
|
FLAGS "G"
|
|
PROMPT 42 12 "da "
|
|
USE FCA
|
|
INPUT CODTAB F_FROMLIVELLOART
|
|
DISPLAY "Num." CODTAB
|
|
DISPLAY "Descr@50" S0
|
|
OUTPUT F_FROMLIVELLOART CODTAB
|
|
NUM_EXPR ((#F_FROMLIVELLOART<=#F_TOLIVELLOART)||(#F_TOLIVELLOART=0))&&((#F_FROMLIVELLOGIAC*#F_FROMLIVELLOART)=0)
|
|
CHECKTYPE NORMAL
|
|
WARNING "Livello iniziale non ammissibile"
|
|
END
|
|
|
|
NUMBER F_TOLIVELLOART 1
|
|
BEGIN
|
|
PROMPT 52 12 "a "
|
|
USE FCA
|
|
INPUT CODTAB F_TOLIVELLOART
|
|
DISPLAY "Num." CODTAB
|
|
DISPLAY "Descr@50" S0
|
|
OUTPUT F_TOLIVELLOART CODTAB
|
|
CHECKTYPE NORMAL
|
|
NUM_EXPR ((#F_FROMLIVELLOART<=#F_TOLIVELLOART)||(#F_TOLIVELLOART=0))&&(((#F_TOLIVELLOGIAC+#F_FROMLIVELLOGIAC)*#F_TOLIVELLOART)=0)
|
|
WARNING "Livello finale non ammissibile"
|
|
END
|
|
|
|
BOOL F_RAGGLIVGIAC
|
|
BEGIN
|
|
PROMPT 2 13 "Stampa totali livelli di giacenza"
|
|
MESSAGE FALSE CLEAR,F_FROMLIVELLOGIAC|CLEAR,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC
|
|
MESSAGE TRUE ENABLE,F_FROMLIVELLOGIAC|ENABLE,F_TOLIVELLOGIAC
|
|
END
|
|
|
|
NUMBER F_FROMLIVELLOGIAC 1
|
|
BEGIN
|
|
FLAG "D"
|
|
PROMPT 42 13 "da "
|
|
USE FCG
|
|
INPUT CODTAB F_FROMLIVELLOGIAC
|
|
DISPLAY "Num." CODTAB
|
|
DISPLAY "Descr@50" S0
|
|
OUTPUT F_FROMLIVELLOGIAC CODTAB
|
|
CHECKTYPE NORMAL
|
|
NUM_EXPR ((#F_FROMLIVELLOGIAC*(#F_FROMLIVELLOART+#F_TOLIVELLOART))=0)&&((#F_FROMLIVELLOGIAC<=#F_TOLIVELLOGIAC)||(#F_TOLIVELLOGIAC=0))
|
|
|
|
WARNING "Livello iniziale non ammissibile"
|
|
END
|
|
|
|
NUMBER F_TOLIVELLOGIAC 1
|
|
BEGIN
|
|
FLAG "D"
|
|
PROMPT 50 13 "a "
|
|
USE FCG
|
|
INPUT CODTAB F_TOLIVELLOGIAC
|
|
DISPLAY "Num." CODTAB
|
|
DISPLAY "Descr@50" S0
|
|
OUTPUT F_TOLIVELLOGIAC CODTAB
|
|
NUM_EXPR ((#F_FROMLIVELLOGIAC*#F_FROMLIVELLOART)=0)&&((#F_FROMLIVELLOGIAC<=#F_TOLIVELLOGIAC)||(#F_TOLIVELLOGIAC=0))&&((#F_TOLIVELLOGIAC*#F_TOLIVELLOART)=0)
|
|
WARNING "Livello finale non ammissibile"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
BOOL F_ALLADATA
|
|
BEGIN
|
|
PROMPT 2 14 "Calcola inventario alla data"
|
|
MESSAGE TRUE ENABLE,F_DATALIM
|
|
MESSAGE CLEAR, F_DATALIM
|
|
END
|
|
|
|
DATE F_DATALIM
|
|
BEGIN
|
|
PROMPT 33 14 "Data inventario "
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOL F_TOTALIMAGAZZINI
|
|
BEGIN
|
|
PROMPT 2 15 "Stampa i totali di magazzino"
|
|
MESSAGE TRUE ENABLE,F_DETTAGLIOMAG
|
|
MESSAGE FALSE CLEAR,F_DETTAGLIOMAG
|
|
END
|
|
|
|
BOOL F_DETTAGLIOMAG
|
|
BEGIN
|
|
PROMPT 42 15 "Stampa i totali di deposito"
|
|
END
|
|
|
|
LIST F_VAL1 20
|
|
BEGIN
|
|
PROMPT 2 16 "Valorizz.1 "
|
|
ITEM "6|Costo medio ponder."
|
|
ITEM "1|Ultimo costo"
|
|
ITEM "2|Media ultimi costi"
|
|
ITEM "3|Prezzo di listino"
|
|
ITEM "4|Costo standard"
|
|
ITEM "5|Costo medio"
|
|
ITEM "7|FIFO annuale"
|
|
ITEM "8|LIFO annuale"
|
|
ITEM "9|FIFO"
|
|
ITEM "10|LIFO"
|
|
END
|
|
|
|
LIST F_VAL2 20
|
|
BEGIN
|
|
PROMPT 2 17 "Valorizz.2 "
|
|
ITEM "|"
|
|
ITEM "6|Costo medio ponder."
|
|
ITEM "1|Ultimo costo"
|
|
ITEM "2|Media ultimi costi"
|
|
ITEM "3|Prezzo di listino"
|
|
ITEM "4|Costo standard"
|
|
ITEM "5|Costo medio"
|
|
ITEM "7|FIFO annuale"
|
|
ITEM "8|LIFO annuale"
|
|
ITEM "9|FIFO"
|
|
ITEM "10|LIFO"
|
|
END
|
|
|
|
LIST F_VAL3 20
|
|
BEGIN
|
|
PROMPT 2 18 "Valorizz.3 "
|
|
ITEM "|"
|
|
ITEM "6|Costo medio ponder."
|
|
ITEM "1|Ultimo costo"
|
|
ITEM "2|Media ultimi costi"
|
|
ITEM "3|Prezzo di listino"
|
|
ITEM "4|Costo standard"
|
|
ITEM "5|Costo medio"
|
|
ITEM "7|FIFO annuale"
|
|
ITEM "8|LIFO annuale"
|
|
ITEM "9|FIFO"
|
|
ITEM "10|LIFO"
|
|
END
|
|
|
|
LIST F_VAL4 20
|
|
BEGIN
|
|
PROMPT 38 16 "Valorizz.4 "
|
|
ITEM "|"
|
|
ITEM "6|Costo medio ponder."
|
|
ITEM "1|Ultimo costo"
|
|
ITEM "2|Media ultimi costi"
|
|
ITEM "3|Prezzo di listino"
|
|
ITEM "4|Costo standard"
|
|
ITEM "5|Costo medio"
|
|
ITEM "7|FIFO annuale"
|
|
ITEM "8|LIFO annuale"
|
|
ITEM "9|FIFO"
|
|
ITEM "10|LIFO"
|
|
END
|
|
|
|
LIST F_VAL5 20
|
|
BEGIN
|
|
PROMPT 38 17 "Valorizz.5 "
|
|
ITEM "|"
|
|
ITEM "6|Costo medio ponder."
|
|
ITEM "1|Ultimo costo"
|
|
ITEM "2|Media ultimi costi"
|
|
ITEM "3|Prezzo di listino"
|
|
ITEM "4|Costo standard"
|
|
ITEM "5|Costo medio"
|
|
ITEM "7|FIFO annuale"
|
|
ITEM "8|LIFO annuale"
|
|
ITEM "9|FIFO"
|
|
ITEM "10|LIFO"
|
|
END
|
|
|
|
LIST F_VAL6 20
|
|
BEGIN
|
|
PROMPT 38 18 "Valorizz.6 "
|
|
ITEM "|"
|
|
ITEM "6|Costo medio ponder."
|
|
ITEM "1|Ultimo costo"
|
|
ITEM "2|Media ultimi costi"
|
|
ITEM "3|Prezzo di listino"
|
|
ITEM "4|Costo standard"
|
|
ITEM "5|Costo medio"
|
|
ITEM "7|FIFO annuale"
|
|
ITEM "8|LIFO annuale"
|
|
ITEM "9|FIFO"
|
|
ITEM "10|LIFO"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 3
|
|
BEGIN
|
|
PROMPT 1 19 "Valorizzazioni al prezzo di listino"
|
|
END
|
|
|
|
STRING F_CATVENLISTINO 2
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 20 "Listino: cat. ven. "
|
|
USE CVE
|
|
INPUT CODTAB F_CATVENLISTINO
|
|
DISPLAY "Cat." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CATVENLISTINO CODTAB
|
|
CHECKTYPE NORMAL
|
|
GROUP G_LISTINO
|
|
END
|
|
|
|
|
|
STRING F_CODLISTINO 3
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 42 20 "Codice "
|
|
USE LF_CONDV
|
|
INPUT TIPO "L"
|
|
INPUT COD F_CODLISTINO
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Descrizione@30" DESCR
|
|
OUTPUT F_CODLISTINO COD
|
|
CHECKTYPE NORMAL
|
|
GROUP G_LISTINO
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|