Nuova mashcera con pagine riorganizzate (con giacenze,storico )
git-svn-id: svn://10.65.10.50/trunk@4391 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto
parent
5778abdb6f
commit
e0daca9165
140
ve/ve2400.uml
140
ve/ve2400.uml
@ -5,7 +5,7 @@ TOOLBAR "" 0 20 60 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Pagina 1" 0 0 70 20
|
||||
PAGE "Pag. 1" 0 0 70 20
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
@ -26,8 +26,99 @@ BEGIN
|
||||
OUTPUT F_CODART CODART
|
||||
OUTPUT F_DESCR DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
MESSAGE DISABLE,F_GCA
|
||||
MESSAGE EMPTY ENABLE,F_GCA
|
||||
END
|
||||
|
||||
STRING F_LIVART1 20
|
||||
BEGIN
|
||||
FLAGS "HG"
|
||||
PROMPT 2 1 "Codice art. "
|
||||
USE GCA
|
||||
JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "1"
|
||||
INPUT CODTAB[2,11] F_LIVART1
|
||||
DISPLAY "Livello@20" 500@->S0
|
||||
DISPLAY "Gruppo@10" CODTAB[2,20]
|
||||
DISPLAY "Descr.@30" S0
|
||||
OUTPUT F_LIVART1 CODTAB[2,20]
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN MG0 -0 GCA
|
||||
END
|
||||
|
||||
STRING F_LIVART2 20
|
||||
BEGIN
|
||||
FLAGS "HG"
|
||||
PROMPT 20 1 ""
|
||||
USE GCA
|
||||
JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "2"
|
||||
INPUT CODTAB[2,11] F_LIVART2
|
||||
DISPLAY "Livello@20" 500@->S0
|
||||
DISPLAY "Gruppo@10" CODTAB[2,20]
|
||||
DISPLAY "Descr.@30" S0
|
||||
OUTPUT F_LIVART2 CODTAB[2,20]
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN MG0 -0 GCA
|
||||
END
|
||||
|
||||
STRING F_LIVART3 20
|
||||
BEGIN
|
||||
FLAGS "HG"
|
||||
PROMPT 30 1 ""
|
||||
USE GCA
|
||||
JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "3"
|
||||
INPUT CODTAB[2,11] F_LIVART3
|
||||
DISPLAY "Livello@20" 500@->S0
|
||||
DISPLAY "Gruppo@10" CODTAB[2,20]
|
||||
DISPLAY "Descr.@30" S0
|
||||
OUTPUT F_LIVART3 CODTAB[2,20]
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN MG0 -0 GCA
|
||||
END
|
||||
|
||||
STRING F_LIVART4 20
|
||||
BEGIN
|
||||
FLAGS "HG"
|
||||
PROMPT 15 1 ""
|
||||
END
|
||||
|
||||
STRING F_LIVART5 20
|
||||
BEGIN
|
||||
FLAGS "HG"
|
||||
PROMPT 15 1 ""
|
||||
END
|
||||
|
||||
STRING F_LIVART6 20
|
||||
BEGIN
|
||||
FLAGS "HG"
|
||||
PROMPT 15 1 ""
|
||||
END
|
||||
|
||||
STRING F_LIVART7 20
|
||||
BEGIN
|
||||
FLAGS "HG"
|
||||
PROMPT 15 1 ""
|
||||
END
|
||||
|
||||
STRING F_LIVART8 20
|
||||
BEGIN
|
||||
FLAGS "HG"
|
||||
PROMPT 15 1 ""
|
||||
END
|
||||
|
||||
STRING F_LIVART9 20
|
||||
BEGIN
|
||||
FLAGS "HG"
|
||||
PROMPT 15 1 ""
|
||||
END
|
||||
|
||||
BUTTON F_GCA 20 1
|
||||
BEGIN
|
||||
PROMPT 45 1 "Gestione gruppi"
|
||||
MESSAGE RUN,MG0,-0, GCA
|
||||
END
|
||||
|
||||
STRING F_DESCR 50
|
||||
BEGIN
|
||||
@ -123,7 +214,7 @@ ENDPAGE
|
||||
|
||||
|
||||
|
||||
PAGE "Pagina 2" 0 0 70 20
|
||||
PAGE "Pag. 2" 0 0 70 20
|
||||
|
||||
STRING F_GRMERC 3
|
||||
BEGIN
|
||||
@ -533,7 +624,7 @@ ENDPAGE
|
||||
|
||||
|
||||
|
||||
PAGE "Pagina 3" 0 0 70 20
|
||||
PAGE "Pag. 3" 0 0 70 20
|
||||
|
||||
STRING F_UMP 3
|
||||
BEGIN
|
||||
@ -664,7 +755,7 @@ ENDPAGE
|
||||
|
||||
|
||||
|
||||
PAGE "Pagina 4" 0 0 70 20
|
||||
PAGE "Pag. 4" 0 0 70 20
|
||||
|
||||
// Anno relativo alle giacenze
|
||||
NUMBER H_ANNO 4
|
||||
@ -683,25 +774,30 @@ END
|
||||
|
||||
NUMBER F_ANNORIF 4 // anno usato per il write dell'annata precedente
|
||||
BEGIN
|
||||
PROMPT 2 2 "Anno considerato "
|
||||
PROMPT 2 2 "Giacenze dell'anno "
|
||||
FLAGS "AD"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 3 4 "Giacenze"
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEETGIAC 77 10
|
||||
BEGIN
|
||||
PROMPT 2 5 "Giacenze"
|
||||
ITEM "Mag."
|
||||
ITEM "Dep."
|
||||
PROMPT 2 4 "Giacenze"
|
||||
FLAGS "A"
|
||||
USE LF_MAG KEY NRIGA
|
||||
INPUT ANNOES F_ANNO
|
||||
INPUT CODART F_CODART
|
||||
// la sequenza delle colonne livelliX, mag e dep è usata per ottenere
|
||||
// un ordinamento delle righe dello sheet: NON cambiarla
|
||||
ITEM "Liv1@10"
|
||||
ITEM "Liv2@6"
|
||||
ITEM "Liv3@6"
|
||||
ITEM "Liv4@6"
|
||||
ITEM "Mag."
|
||||
ITEM "Dep."
|
||||
ITEM "Ubicazione"
|
||||
ITEM "Scorta min.@10"
|
||||
ITEM "Livello rior.@10"
|
||||
ITEM "Lotto rior.@10"
|
||||
ITEM "Giorni rior.@10"
|
||||
ITEM "Giacenza @10"
|
||||
ITEM "Rim.Iniz.@10"
|
||||
ITEM "V.Rim.Iniz.@12"
|
||||
@ -724,15 +820,10 @@ BEGIN
|
||||
ITEM "A conto L.@10"
|
||||
ITEM "In conto L.@10"
|
||||
ITEM "Etichette@10"
|
||||
ITEM "Scorta min.@10"
|
||||
ITEM "Livello rior.@10"
|
||||
ITEM "Lotto rior.@10"
|
||||
// !?!?!Troppe colonne!!!!!
|
||||
// ITEM "Giorni rior.@10"
|
||||
// ITEM "N.dist."
|
||||
ITEM "N.dist."
|
||||
END
|
||||
ENDPAGE
|
||||
PAGE "Pagina 5" 0 0 70 20
|
||||
PAGE "Pag. 5" 0 0 70 20
|
||||
|
||||
NUMBER F_STOANNO 4
|
||||
BEGIN
|
||||
@ -744,18 +835,13 @@ END
|
||||
|
||||
NUMBER F_STOANNORIF 4 // anno usato per il write dell'annata precedente
|
||||
BEGIN
|
||||
PROMPT 2 2 "Anno considerato "
|
||||
PROMPT 2 2 "Storico Giacenze dell'anno "
|
||||
FLAGS "AD"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 3 4 "Storico Giacenze"
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEETSTOMAG 77 10
|
||||
BEGIN
|
||||
PROMPT 2 5 "Storico Giacenze"
|
||||
PROMPT 2 4 "Storico Giacenze"
|
||||
FLAGS "A"
|
||||
USE LF_STOMAG KEY NRIGA
|
||||
INPUT ANNOESRIF F_STOANNO
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user