root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Aggiunto filtro positivo/Negativo/non nullo

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@5447 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-10-24 14:41:56 +00:00
parent fae346b549
commit 36dd1bd32c
2 changed files with 205 additions and 194 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
mg/mg4200.h
View File

@ -42,6 +42,7 @@
#define F_VAL5 155 #define F_VAL5 155
#define F_VAL6 156 #define F_VAL6 156
#define F_FIN_COMP 157 #define F_FIN_COMP 157
#define F_FILTRO 160
#define G_CATMER 1 #define G_CATMER 1
#define G_CODART 2 #define G_CODART 2

398
mg/mg4200.uml
View File

@ -5,236 +5,246 @@ PAGE "Stampa inventario" -1 -1 78 20
LISTBOX F_ORDINE 10 LISTBOX F_ORDINE 10
BEGIN BEGIN
PROMPT 2 1 "Ordinamento " PROMPT 2 1 "Ordinamento "
ITEM "A|articoli" ITEM "A|articoli"
MESSAGE ENABLE,F_ORDINEART MESSAGE ENABLE,F_ORDINEART
MESSAGE SHOW,F_TOTALIMAGAZZINI|SHOW,F_TOTALIDEPOSITI|"X",F_DETTAGLIOMAG|"X",F_DETTAGLIODEP|HIDE,F_DETTAGLIODEP|HIDE,F_DETTAGLIOMAG MESSAGE SHOW,F_TOTALIMAGAZZINI|SHOW,F_TOTALIDEPOSITI|"X",F_DETTAGLIOMAG|"X",F_DETTAGLIODEP|HIDE,F_DETTAGLIODEP|HIDE,F_DETTAGLIOMAG
ITEM "M|magazzini" ITEM "M|magazzini"
MESSAGE "C",F_ORDINEART|K_SPACE,F_ORDINEART|DISABLE,F_ORDINEART|SHOW,G_CODART@|HIDE,G_DESART@ MESSAGE "C",F_ORDINEART|K_SPACE,F_ORDINEART|DISABLE,F_ORDINEART|SHOW,G_CODART@|HIDE,G_DESART@
MESSAGE SHOW,F_DETTAGLIOMAG|HIDE,F_TOTALIMAGAZZINI|SHOW,F_DETTAGLIODEP|HIDE,F_TOTALIDEPOSITI MESSAGE SHOW,F_DETTAGLIOMAG|HIDE,F_TOTALIMAGAZZINI|SHOW,F_DETTAGLIODEP|HIDE,F_TOTALIDEPOSITI
END END
LISTBOX F_ORDINEART 20 LISTBOX F_ORDINEART 20
BEGIN BEGIN
FLAGS "G" FLAGS "G"
PROMPT 34 1 "sotto-ordinamento " PROMPT 36 1 "sotto-ordinamento "
ITEM "C|codice" ITEM "C|codice"
MESSAGE HIDE,G_CATMER@|ENABLE,G_CODART@|HIDE,G_DESART@ MESSAGE HIDE,G_CATMER@|ENABLE,G_CODART@|HIDE,G_DESART@
ITEM "D|descrizione" ITEM "D|descrizione"
MESSAGE HIDE,G_CATMER@|DISABLE,G_CODART@|SHOW,G_DESART@ MESSAGE HIDE,G_CATMER@|DISABLE,G_CODART@|SHOW,G_DESART@
ITEM "M|gruppo merc./codice" ITEM "M|gruppo merc./codice"
MESSAGE SHOW,G_CATMER@|ENABLE,G_CODART@|HIDE,G_DESART@ MESSAGE SHOW,G_CATMER@|ENABLE,G_CODART@|HIDE,G_DESART@
END END
LIST F_REALE_GIAC 12 LIST F_REALE_GIAC 12
BEGIN BEGIN
PROMPT 2 2 "Inventario " PROMPT 2 2 "Inventario "
ITEM "G|di giacenza" ITEM "G|di giacenza"
ITEM "R|reale" ITEM "R|reale"
HELP "reale =(giac+ACL-INCL)" HELP "reale =(giac+ACL-INCL)"
END END
LIST F_FIN_COMP 26 LIST F_FIN_COMP 22
BEGIN BEGIN
PROMPT 2 3 "Valorizzo solo " PROMPT 2 3 "Valorizzo solo "
ITEM "C|i componenti impegnati" ITEM "C|i componenti impegnati"
ITEM "F|i finiti in produzione" ITEM "F|i finiti in produzione"
HELP "finiti =(giac+INPRODF-INPRODC)" HELP "finiti =(giac+INPRODF-INPRODC)"
END END
NUMBER F_ANNOES 4 NUMBER F_ANNOES 4
BEGIN BEGIN
FLAGS "A" FLAGS "A"
PROMPT 42 2 "Codice es. " PROMPT 59 2 "Codice es. "
USE ESC USE ESC
INPUT CODTAB F_ANNOES INPUT CODTAB F_ANNOES
DISPLAY "Esercizio" CODTAB DISPLAY "Esercizio" CODTAB
DISPLAY "Dal@12" D0 DISPLAY "Dal@12" D0
DISPLAY "Al@12" D0 DISPLAY "Al@12" D0
OUTPUT F_ANNOES CODTAB OUTPUT F_ANNOES CODTAB
ADD NONE ADD NONE
END END
LIST F_FILTRO 23
BEGIN
PROMPT 43 3 " Stampo "
ITEM "N|solo giacenze non nulle"
ITEM "+|solo giacenze positive"
ITEM " |tutti gli articoli"
END
STRING F_DAART 20 STRING F_DAART 20
BEGIN BEGIN
PROMPT 2 4 "Dall'articolo " PROMPT 2 4 "Dall'articolo "
FLAGS "U" FLAGS "U"
USE LF_ANAMAG USE LF_ANAMAG
INPUT CODART F_DAART INPUT CODART F_DAART
DISPLAY "Codice" CODART DISPLAY "Codice" CODART
DISPLAY "Descr@50" DESCR DISPLAY "Descr@50" DESCR
OUTPUT F_DAART CODART OUTPUT F_DAART CODART
GROUP G_CODART GROUP G_CODART
END END
STRING F_AART 20 STRING F_AART 20
BEGIN BEGIN
PROMPT 42 4 " a " PROMPT 42 4 " a "
FLAGS "U" FLAGS "U"
COPY USE F_DAART COPY USE F_DAART
INPUT CODART F_AART INPUT CODART F_AART
COPY DISPLAY F_DAART COPY DISPLAY F_DAART
OUTPUT F_AART CODART OUTPUT F_AART CODART
GROUP G_CODART GROUP G_CODART
END END
STRING F_DADES 50 20 STRING F_DADES 50 20
BEGIN BEGIN
PROMPT 2 4 "Dall'articolo " PROMPT 2 4 "Dall'articolo "
FLAGS "U" FLAGS "U"
USE LF_ANAMAG KEY 2 USE LF_ANAMAG KEY 2
INPUT DESCR F_DADES INPUT DESCR F_DADES
DISPLAY "Descr@50" DESCR DISPLAY "Descr@50" DESCR
DISPLAY "Codice" CODART DISPLAY "Codice" CODART
OUTPUT F_DADES DESCR OUTPUT F_DADES DESCR
GROUP G_DESART GROUP G_DESART
END END
STRING F_ADES 50 20 STRING F_ADES 50 20
BEGIN BEGIN
PROMPT 42 4 " a " PROMPT 42 4 " a "
FLAGS "U" FLAGS "U"
COPY USE F_DADES COPY USE F_DADES
INPUT DESCR F_ADES INPUT DESCR F_ADES
COPY DISPLAY F_DADES COPY DISPLAY F_DADES
OUTPUT F_ADES DESCR OUTPUT F_ADES DESCR
GROUP G_DESART GROUP G_DESART
END END
STRING F_DAMAG 3 STRING F_DAMAG 3
BEGIN BEGIN
PROMPT 2 5 "Dal magazzino " PROMPT 2 5 "Dal magazzino "
FLAGS "U" FLAGS "U"
USE MAG SELECT CODTAB[4,5]=="" && CODTAB[1,3]!="" USE MAG SELECT CODTAB[4,5]=="" && CODTAB[1,3]!=""
INPUT CODTAB F_DAMAG INPUT CODTAB F_DAMAG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descr@50" S0 DISPLAY "Descr@50" S0
OUTPUT F_DAMAG CODTAB OUTPUT F_DAMAG CODTAB
END END
STRING F_AMAG 3 STRING F_AMAG 3
BEGIN BEGIN
PROMPT 42 5 " a " PROMPT 42 5 " a "
FLAGS "U" FLAGS "U"
COPY USE F_DAMAG COPY USE F_DAMAG
INPUT CODTAB F_AMAG INPUT CODTAB F_AMAG
COPY DISPLAY F_DAMAG COPY DISPLAY F_DAMAG
OUTPUT F_AMAG CODTAB OUTPUT F_AMAG CODTAB
END END
STRING F_DACATMER 3 STRING F_DACATMER 3
BEGIN BEGIN
PROMPT 2 6 "Dal gruppo " PROMPT 2 6 "Dal gruppo "
FLAGS "U" FLAGS "U"
USE GMC SELECT CODTAB[4,5]=="" USE GMC SELECT CODTAB[4,5]==""
INPUT CODTAB F_DACATMER INPUT CODTAB F_DACATMER
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descr@50" S0 DISPLAY "Descr@50" S0
OUTPUT F_DACATMER CODTAB[1,3] OUTPUT F_DACATMER CODTAB[1,3]
GROUP G_CATMER GROUP G_CATMER
END END
STRING F_ACATMER 3 STRING F_ACATMER 3
BEGIN BEGIN
PROMPT 42 6 " a " PROMPT 42 6 " a "
FLAGS "U" FLAGS "U"
COPY USE F_DACATMER COPY USE F_DACATMER
INPUT CODTAB F_ACATMER INPUT CODTAB F_ACATMER
COPY DISPLAY F_DACATMER COPY DISPLAY F_DACATMER
OUTPUT F_ACATMER CODTAB[1,3] OUTPUT F_ACATMER CODTAB[1,3]
GROUP G_CATMER GROUP G_CATMER
END END
BOOL F_DETTAGLIOMAG BOOL F_DETTAGLIOMAG
BEGIN BEGIN
PROMPT 2 7 "Stampa i depositi" PROMPT 2 7 "Stampa i depositi"
MESSAGE TRUE ENABLE,F_DETTAGLIODEP MESSAGE TRUE ENABLE,F_DETTAGLIODEP
MESSAGE FALSE CLEAR,F_DETTAGLIODEP|K_SPACE,F_DETTAGLIODEP MESSAGE FALSE CLEAR,F_DETTAGLIODEP|K_SPACE,F_DETTAGLIODEP
END END
BOOL F_DETTAGLIODEP BOOL F_DETTAGLIODEP
BEGIN BEGIN
PROMPT 42 7 "Stampa il dettaglio depositi" PROMPT 42 7 "Stampa il dettaglio depositi"
MESSAGE TRUE ENABLE,F_RAGGCODICE|ENABLE,F_RAGGLIVGIAC MESSAGE TRUE ENABLE,F_RAGGCODICE|ENABLE,F_RAGGLIVGIAC
MESSAGE FALSE CLEAR,F_RAGGCODICE|K_SPACE,F_RAGGCODICE|CLEAR,F_RAGGLIVGIAC|K_SPACE,F_RAGGLIVGIAC MESSAGE FALSE CLEAR,F_RAGGCODICE|K_SPACE,F_RAGGCODICE|CLEAR,F_RAGGLIVGIAC|K_SPACE,F_RAGGLIVGIAC
END END
BOOLEAN F_RAGGCODICE BOOLEAN F_RAGGCODICE
BEGIN BEGIN
PROMPT 2 8 "Raggruppo gli articoli" PROMPT 2 8 "Raggruppo gli articoli"
MESSAGE FALSE CLEAR,F_FROMLIVELLOART|CLEAR,F_TOLIVELLOART|CHECK,F_TOLIVELLOART MESSAGE FALSE CLEAR,F_FROMLIVELLOART|CLEAR,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
MESSAGE TRUE ENABLE,F_FROMLIVELLOART|ENABLE,F_TOLIVELLOART|CHECK,F_TOLIVELLOART MESSAGE TRUE ENABLE,F_FROMLIVELLOART|ENABLE,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
END END
NUMBER F_FROMLIVELLOART 1 NUMBER F_FROMLIVELLOART 1
BEGIN BEGIN
FLAGS "G" FLAGS "G"
PROMPT 42 8 "da " PROMPT 42 8 "da "
USE FCA USE FCA
INPUT CODTAB F_FROMLIVELLOART INPUT CODTAB F_FROMLIVELLOART
DISPLAY "Num." CODTAB DISPLAY "Num." CODTAB
DISPLAY "Descr@50" S0 DISPLAY "Descr@50" S0
OUTPUT F_FROMLIVELLOART CODTAB OUTPUT F_FROMLIVELLOART CODTAB
NUM_EXPR ((#F_FROMLIVELLOART<=#F_TOLIVELLOART)||(#F_TOLIVELLOART=0))&&((#F_FROMLIVELLOGIAC*#F_FROMLIVELLOART)=0) NUM_EXPR ((#F_FROMLIVELLOART<=#F_TOLIVELLOART)||(#F_TOLIVELLOART=0))&&((#F_FROMLIVELLOGIAC*#F_FROMLIVELLOART)=0)
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Livello iniziale non ammissibile" WARNING "Livello iniziale non ammissibile"
END END
NUMBER F_TOLIVELLOART 1 NUMBER F_TOLIVELLOART 1
BEGIN BEGIN
PROMPT 52 8 "a " PROMPT 52 8 "a "
USE FCA USE FCA
INPUT CODTAB F_TOLIVELLOART INPUT CODTAB F_TOLIVELLOART
DISPLAY "Num." CODTAB DISPLAY "Num." CODTAB
DISPLAY "Descr@50" S0 DISPLAY "Descr@50" S0
OUTPUT F_TOLIVELLOART CODTAB OUTPUT F_TOLIVELLOART CODTAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
NUM_EXPR ((#F_FROMLIVELLOART<=#F_TOLIVELLOART)||(#F_TOLIVELLOART=0))&&(((#F_TOLIVELLOGIAC+#F_FROMLIVELLOGIAC)*#F_TOLIVELLOART)=0) NUM_EXPR ((#F_FROMLIVELLOART<=#F_TOLIVELLOART)||(#F_TOLIVELLOART=0))&&(((#F_TOLIVELLOGIAC+#F_FROMLIVELLOGIAC)*#F_TOLIVELLOART)=0)
WARNING "Livello finale non ammissibile" WARNING "Livello finale non ammissibile"
END END
BOOL F_RAGGLIVGIAC BOOL F_RAGGLIVGIAC
BEGIN BEGIN
PROMPT 2 9 "Raggruppo le giacenze" PROMPT 2 9 "Raggruppo le giacenze"
MESSAGE FALSE CLEAR,F_FROMLIVELLOGIAC|CLEAR,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC MESSAGE FALSE CLEAR,F_FROMLIVELLOGIAC|CLEAR,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC
MESSAGE TRUE ENABLE,F_FROMLIVELLOGIAC|ENABLE,F_TOLIVELLOGIAC MESSAGE TRUE ENABLE,F_FROMLIVELLOGIAC|ENABLE,F_TOLIVELLOGIAC
END END
NUMBER F_FROMLIVELLOGIAC 1 NUMBER F_FROMLIVELLOGIAC 1
BEGIN BEGIN
FLAG "D" FLAG "D"
PROMPT 42 9 "da " PROMPT 42 9 "da "
USE FCG USE FCG
INPUT CODTAB F_FROMLIVELLOGIAC INPUT CODTAB F_FROMLIVELLOGIAC
DISPLAY "Num." CODTAB DISPLAY "Num." CODTAB
DISPLAY "Descr@50" S0 DISPLAY "Descr@50" S0
OUTPUT F_FROMLIVELLOGIAC CODTAB OUTPUT F_FROMLIVELLOGIAC CODTAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
NUM_EXPR ((#F_FROMLIVELLOGIAC*(#F_FROMLIVELLOART+#F_TOLIVELLOART))=0)&&((#F_FROMLIVELLOGIAC<=#F_TOLIVELLOGIAC)||(#F_TOLIVELLOGIAC=0)) NUM_EXPR ((#F_FROMLIVELLOGIAC*(#F_FROMLIVELLOART+#F_TOLIVELLOART))=0)&&((#F_FROMLIVELLOGIAC<=#F_TOLIVELLOGIAC)||(#F_TOLIVELLOGIAC=0))
WARNING "Livello iniziale non ammissibile" WARNING "Livello iniziale non ammissibile"
END END
NUMBER F_TOLIVELLOGIAC 1 NUMBER F_TOLIVELLOGIAC 1
BEGIN BEGIN
FLAG "D" FLAG "D"
PROMPT 52 9 "a " PROMPT 52 9 "a "
USE FCG USE FCG
INPUT CODTAB F_TOLIVELLOGIAC INPUT CODTAB F_TOLIVELLOGIAC
DISPLAY "Num." CODTAB DISPLAY "Num." CODTAB
DISPLAY "Descr@50" S0 DISPLAY "Descr@50" S0
OUTPUT F_TOLIVELLOGIAC CODTAB OUTPUT F_TOLIVELLOGIAC CODTAB
NUM_EXPR ((#F_FROMLIVELLOGIAC*#F_FROMLIVELLOART)=0)&&((#F_FROMLIVELLOGIAC<=#F_TOLIVELLOGIAC)||(#F_TOLIVELLOGIAC=0))&&((#F_TOLIVELLOGIAC*#F_TOLIVELLOART)=0) NUM_EXPR ((#F_FROMLIVELLOGIAC*#F_FROMLIVELLOART)=0)&&((#F_FROMLIVELLOGIAC<=#F_TOLIVELLOGIAC)||(#F_TOLIVELLOGIAC=0))&&((#F_TOLIVELLOGIAC*#F_TOLIVELLOART)=0)
WARNING "Livello finale non ammissibile" WARNING "Livello finale non ammissibile"
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
BOOL F_TOTALIMAGAZZINI BOOL F_TOTALIMAGAZZINI
BEGIN BEGIN
PROMPT 2 10 "Stampo i totali di magazzino" PROMPT 2 10 "Stampo i totali di magazzino"
MESSAGE TRUE ENABLE,F_TOTALIDEPOSITI MESSAGE TRUE ENABLE,F_TOTALIDEPOSITI
MESSAGE FALSE CLEAR,F_TOTALIDEPOSITI MESSAGE FALSE CLEAR,F_TOTALIDEPOSITI
END END
BOOL F_TOTALIDEPOSITI BOOL F_TOTALIDEPOSITI
@ -245,111 +255,111 @@ END
LIST F_VAL1 20 LIST F_VAL1 20
BEGIN BEGIN
PROMPT 2 12 "Valorizz. 1 " PROMPT 2 12 "Valorizz. 1 "
ITEM "1|Ultimo costo" ITEM "1|Ultimo costo"
ITEM "2|Media ultimi costi" ITEM "2|Media ultimi costi"
ITEM "3|Prezzo di listino" ITEM "3|Prezzo di listino"
ITEM "4|Costo standard" ITEM "4|Costo standard"
ITEM "5|Costo medio" ITEM "5|Costo medio"
ITEM "6|FIFO annuale" ITEM "6|FIFO annuale"
ITEM "7|LIFO annuale" ITEM "7|LIFO annuale"
ITEM "8|FIFO" ITEM "8|FIFO"
ITEM "9|LIFO" ITEM "9|LIFO"
END END
LIST F_VAL2 20 LIST F_VAL2 20
BEGIN BEGIN
PROMPT 42 12 "Valorizz. 2 " PROMPT 42 12 "Valorizz. 2 "
ITEM "|" ITEM "|"
ITEM "1|Ultimo costo" ITEM "1|Ultimo costo"
ITEM "2|Media ultimi costi" ITEM "2|Media ultimi costi"
ITEM "3|Prezzo di listino" ITEM "3|Prezzo di listino"
ITEM "4|Costo standard" ITEM "4|Costo standard"
ITEM "5|Costo medio" ITEM "5|Costo medio"
ITEM "6|FIFO annuale" ITEM "6|FIFO annuale"
ITEM "7|LIFO annuale" ITEM "7|LIFO annuale"
ITEM "8|FIFO" ITEM "8|FIFO"
ITEM "9|LIFO" ITEM "9|LIFO"
END END
LIST F_VAL3 20 LIST F_VAL3 20
BEGIN BEGIN
PROMPT 2 13 "Valorizz. 3 " PROMPT 2 13 "Valorizz. 3 "
ITEM "|" ITEM "|"
ITEM "1|Ultimo costo" ITEM "1|Ultimo costo"
ITEM "2|Media ultimi costi" ITEM "2|Media ultimi costi"
ITEM "3|Prezzo di listino" ITEM "3|Prezzo di listino"
ITEM "4|Costo standard" ITEM "4|Costo standard"
ITEM "5|Costo medio" ITEM "5|Costo medio"
ITEM "6|FIFO annuale" ITEM "6|FIFO annuale"
ITEM "7|LIFO annuale" ITEM "7|LIFO annuale"
ITEM "8|FIFO" ITEM "8|FIFO"
ITEM "9|LIFO" ITEM "9|LIFO"
END END
LIST F_VAL4 20 LIST F_VAL4 20
BEGIN BEGIN
PROMPT 42 13 "Valorizz. 4 " PROMPT 42 13 "Valorizz. 4 "
ITEM "|" ITEM "|"
ITEM "1|Ultimo costo" ITEM "1|Ultimo costo"
ITEM "2|Media ultimi costi" ITEM "2|Media ultimi costi"
ITEM "3|Prezzo di listino" ITEM "3|Prezzo di listino"
ITEM "4|Costo standard" ITEM "4|Costo standard"
ITEM "5|Costo medio" ITEM "5|Costo medio"
ITEM "6|FIFO annuale" ITEM "6|FIFO annuale"
ITEM "7|LIFO annuale" ITEM "7|LIFO annuale"
ITEM "8|FIFO" ITEM "8|FIFO"
ITEM "9|LIFO" ITEM "9|LIFO"
END END
LIST F_VAL5 20 LIST F_VAL5 20
BEGIN BEGIN
PROMPT 2 14 "Valorizz. 5 " PROMPT 2 14 "Valorizz. 5 "
ITEM "|" ITEM "|"
ITEM "1|Ultimo costo" ITEM "1|Ultimo costo"
ITEM "2|Media ultimi costi" ITEM "2|Media ultimi costi"
ITEM "3|Prezzo di listino" ITEM "3|Prezzo di listino"
ITEM "4|Costo standard" ITEM "4|Costo standard"
ITEM "5|Costo medio" ITEM "5|Costo medio"
ITEM "6|FIFO annuale" ITEM "6|FIFO annuale"
ITEM "7|LIFO annuale" ITEM "7|LIFO annuale"
ITEM "8|FIFO" ITEM "8|FIFO"
ITEM "9|LIFO" ITEM "9|LIFO"
END END
LIST F_VAL6 20 LIST F_VAL6 20
BEGIN BEGIN
PROMPT 42 14 "Valorizz. 6 " PROMPT 42 14 "Valorizz. 6 "
ITEM "|" ITEM "|"
ITEM "1|Ultimo costo" ITEM "1|Ultimo costo"
ITEM "2|Media ultimi costi" ITEM "2|Media ultimi costi"
ITEM "3|Prezzo di listino" ITEM "3|Prezzo di listino"
ITEM "4|Costo standard" ITEM "4|Costo standard"
ITEM "5|Costo medio" ITEM "5|Costo medio"
ITEM "6|FIFO annuale" ITEM "6|FIFO annuale"
ITEM "7|LIFO annuale" ITEM "7|LIFO annuale"
ITEM "8|FIFO" ITEM "8|FIFO"
ITEM "9|LIFO" ITEM "9|LIFO"
END END
STRING F_CATVENLISTINO 2 STRING F_CATVENLISTINO 2
BEGIN BEGIN
FLAGS "U" FLAGS "U"
PROMPT 2 17 "Listino: cat. ven. " PROMPT 2 17 "Listino: cat. ven. "
USE CVE USE CVE
INPUT CODTAB F_CATVENLISTINO INPUT CODTAB F_CATVENLISTINO
DISPLAY "Cat." CODTAB DISPLAY "Cat." CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CATVENLISTINO CODTAB OUTPUT F_CATVENLISTINO CODTAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
GROUP G_LISTINO GROUP G_LISTINO
END END
STRING F_CODLISTINO 3 STRING F_CODLISTINO 3
BEGIN BEGIN
FLAGS "U" FLAGS "U"
PROMPT 42 17 "codice " PROMPT 42 17 "codice "
USE LF_CONDV USE LF_CONDV
INPUT TIPO "L" INPUT TIPO "L"
INPUT COD F_CODLISTINO INPUT COD F_CODLISTINO
DISPLAY "Codice" COD DISPLAY "Codice" COD
DISPLAY "Descrizione@30" DESCR DISPLAY "Descrizione@30" DESCR
OUTPUT F_CODLISTINO COD OUTPUT F_CODLISTINO COD
CHECKTYPE NORMAL CHECKTYPE NORMAL
GROUP G_LISTINO GROUP G_LISTINO
END END