#include "mg4200.h"

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

TEXT DLG_NULL
BEGIN
  PROMPT 16 4 "@bDall'articolo"
END

TEXT DLG_NULL
BEGIN
  PROMPT 50 4 "@bAll'articolo"
END

STRING F_DAART 20
BEGIN
  PROMPT 2 5 "Codice        "
  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 28
BEGIN
  PROMPT 2 6 "Descrizione   "
  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_DAUSR 40 30
BEGIN
  PROMPT 2 7 "Personalizz.  "
  FLAGS "UH"
  GROUP G_USER
END

STRING F_AART 20
BEGIN
  PROMPT 50 5 ""
  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 28
BEGIN
  PROMPT 50 6 ""
  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_AUSR 40 30
BEGIN
  PROMPT 50 7 ""
  FLAGS "UH"
  GROUP G_USER
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