Storico suddiviso per magazzini

git-svn-id: svn://10.65.10.50/trunk@4716 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-06-19 07:09:46 +00:00
parent d3df6811a3
commit c7e5b4eb5f

View File

@ -1,55 +1,57 @@
#define LF_UMART2 349 #define LF_UMART2 349
#define LF_TAB_MAG 500
USE LF_ANAMAG KEY 1 USE LF_ANAMAG KEY 1
JOIN LF_STOMAG TO LF_ANAMAG INTO ANNOESRIF==1996 CODART==CODART JOIN LF_STOMAG TO LF_ANAMAG INTO ANNOESRIF==1996 CODART==CODART
JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART
JOIN LF_UMART TO LF_STOMAG KEY 2 ALIAS LF_UMART2 INTO CODART==CODART UM==UM JOIN LF_UMART TO LF_STOMAG KEY 2 ALIAS LF_UMART2 INTO CODART==CODART UM==UM
JOIN MAG TO LF_STOMAG ALIAS LF_TAB_MAG INTO CODTAB==CODMAG[1,3]
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
47->* "Anagrafica articoli" 47->* "Anagrafica articoli"
109->* "Archivio Giacenze" 109->* "Archivio Giacenze"
MAG->* "Tabella magazzini" MAG->* "Tabella magazzini"
49->* "Unità di misura articoli" 49->* "Unità di misura articoli"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
FONT "Courier New" FONT "Courier New"
SIZE 8 SIZE 8
CARATTERE "X" CARATTERE "X"
INIZIALE 5 2 INIZIALE 5 2
FINALE 133 FINALE 133
END END
SECTION HEADER ODD 4 SECTION HEADER ODD 4
STRINGA 1 40 1 STRINGA 1 40 1
BEGIN BEGIN
KEY "nome ditta" KEY "nome ditta"
PROMPT 1 1 "Ditta " PROMPT 1 1 "Ditta "
MESSAGE _DITTA, !RAGSOC MESSAGE _DITTA, !RAGSOC
END END
STRINGA 2 10 STRINGA 2 10
BEGIN BEGIN
KEY "Data" KEY "Data"
PROMPT 120 1 "Data " PROMPT 120 1 "Data "
MESSAGE _TODAY MESSAGE _TODAY
END END
NUMERO 3 7 NUMERO 3 7
BEGIN BEGIN
KEY "Nr. pagina" KEY "Nr. pagina"
PROMPT 137 1 "Pagina " PROMPT 137 1 "Pagina "
MESSAGE _PAGENO MESSAGE _PAGENO
END END
NUMERO 4 32 NUMERO 4 32
BEGIN BEGIN
KEY "Intestazione stampa" KEY "Intestazione stampa"
PROMPT 45 2 "Stampa storico rimanenze" PROMPT 45 2 "Stampa storico rimanenze"
END END
STRINGA 5 146 STRINGA 5 146
@ -79,57 +81,74 @@ SECTION BODY ODD 1
END END
SECTION GRUPPI_ARTICOLO 1 0 0 COLUMNWISE FILE LF_STOMAG SECTION GRUPPI_ARTICOLO 1 0 0 COLUMNWISE FILE LF_STOMAG
SECTION HD_ANNI 1 2 1 COLUMNWISE GROUP
NUMERO 13 15
BEGIN
KEY "offset"
PROMPT 1 1 ""
END
NUMERO 13 6
BEGIN
KEY "ANNO"
PROMPT 2 1 "Anno"
END
STRINGA 15 12
BEGIN
KEY "QUANT"
PROMPT 4 1 "Quantità( "
FIELD LF_UMART->UM
END
NUMERO 16 12
BEGIN
KEY "VALORE"
PROMPT 5 1 ") Valore"
END
END // HD ANNI
SECTION BODY_ANNI 1 1 1 COLUMNWISE FILE LF_STOMAG GROUP CODART SECTION BODY_MAG 1 1 1 COLUMNWISE FILE LF_STOMAG GROUP CODART
NUMERO 13 15 SECTION HD_MAG 1 2 1 NORMAL GROUP
BEGIN STRINGA 11 20
KEY "offset" BEGIN
PROMPT 1 1 "" KEY "CODART"
END PROMPT 2 1 "Magazzino "
NUMERO 14 6 FIELD LF_TAB_MAG@->CODTAB
BEGIN END
KEY "ANNO" STRINGA 12 50
PROMPT 2 1 "" BEGIN
FIELD LF_STOMAG->ANNOES KEY "DESCR"
END PROMPT 33 1 ""
NUMERO 15 12 FIELD LF_TAB_MAG@->S0
BEGIN END
KEY "QUANT" END // HD MAG
PROMPT 4 1 ""
PICTURE "###.###,@@@" SECTION HD_ANNI 1 2 1 COLUMNWISE GROUP
MESSAGE _NUMEXPR,LF_STOMAG->QUANT*LF_UMART2@->FC NUMERO 13 15
END BEGIN
NUMERO 16 12 KEY "offset"
BEGIN PROMPT 1 1 ""
KEY "VALORE" END
PROMPT 5 1 "" NUMERO 13 6
PICTURE "###.###.###" BEGIN
MESSAGE _NUMEXPR,LF_STOMAG->VALORE*LF_UMART2@->FC KEY "ANNO"
END PROMPT 2 1 "Anno"
END
STRINGA 15 12
BEGIN
KEY "QUANT"
PROMPT 4 1 "Quantità( "
FIELD LF_UMART->UM
END
NUMERO 16 12
BEGIN
KEY "VALORE"
PROMPT 5 1 ") Valore"
END
END // HD ANNI
SECTION BODY_ANNI 1 1 1 COLUMNWISE FILE LF_STOMAG GROUP CODMAG
NUMERO 13 15
BEGIN
KEY "offset"
PROMPT 1 1 ""
END
NUMERO 14 6
BEGIN
KEY "ANNO"
PROMPT 2 1 ""
FIELD LF_STOMAG->ANNOES
END
NUMERO 15 12
BEGIN
KEY "QUANT"
PROMPT 4 1 ""
PICTURE "###.###,@@@"
MESSAGE _NUMEXPR,LF_STOMAG->QUANT*LF_UMART2@->FC
END
NUMERO 16 12
BEGIN
KEY "VALORE"
PROMPT 5 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,LF_STOMAG->VALORE*LF_UMART2@->FC
END
END // body anni
END // body anni END // body anni
END // gruppi anni dello stesso articolo END // gruppi anni dello stesso articolo