175 lines
3.3 KiB
Plaintext
Executable File
175 lines
3.3 KiB
Plaintext
Executable File
#define LF_UMART2 349
|
|
#define LF_TAB_MAG 500
|
|
USE LF_ANAMAG KEY 1
|
|
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_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
|
|
|
|
DESCRIPTION
|
|
BEGIN
|
|
47->* "Anagrafica articoli"
|
|
109->* "Archivio Giacenze"
|
|
MAG->* "Tabella magazzini"
|
|
49->* "Unità di misura articoli"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Courier New"
|
|
SIZE 8
|
|
CARATTERE "X"
|
|
INIZIALE 5 2
|
|
FINALE 133
|
|
END
|
|
|
|
SECTION HEADER ODD 4
|
|
|
|
STRINGA 1 40 1
|
|
BEGIN
|
|
KEY "nome ditta"
|
|
PROMPT 1 1 "Ditta "
|
|
MESSAGE _DITTA, !RAGSOC
|
|
END
|
|
|
|
STRINGA 2 10
|
|
BEGIN
|
|
KEY "Data"
|
|
PROMPT 120 1 "Data "
|
|
MESSAGE _TODAY
|
|
END
|
|
|
|
NUMERO 3 7
|
|
BEGIN
|
|
KEY "Nr. pagina"
|
|
PROMPT 137 1 "Pagina "
|
|
MESSAGE _PAGENO
|
|
END
|
|
|
|
NUMERO 4 32
|
|
BEGIN
|
|
KEY "Intestazione stampa"
|
|
PROMPT 45 2 "Stampa storico rimanenze"
|
|
END
|
|
|
|
STRINGA 5 146
|
|
BEGIN
|
|
KEY "Separatore (iniziale)"
|
|
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
|
|
END
|
|
|
|
END
|
|
|
|
|
|
SECTION BODY ODD 1
|
|
|
|
SECTION H_ARTICOLO 1 3 1 GROUP
|
|
STRINGA 11 20
|
|
BEGIN
|
|
KEY "CODART"
|
|
PROMPT 2 1 "Articolo "
|
|
FIELD LF_ANAMAG->CODART
|
|
END
|
|
STRINGA 12 50
|
|
BEGIN
|
|
KEY "DESCR"
|
|
PROMPT 33 1 ""
|
|
FIELD LF_ANAMAG->DESCR
|
|
END
|
|
END
|
|
|
|
SECTION GRUPPI_ARTICOLO 1 0 0 COLUMNWISE FILE LF_STOMAG
|
|
|
|
SECTION BODY_MAG 1 1 1 COLUMNWISE FILE LF_STOMAG GROUP CODART
|
|
SECTION HD_MAG 1 2 1 NORMAL GROUP
|
|
STRINGA 11 20
|
|
BEGIN
|
|
KEY "CODART"
|
|
PROMPT 2 1 "Magazzino "
|
|
FIELD LF_TAB_MAG@->CODTAB
|
|
END
|
|
STRINGA 12 50
|
|
BEGIN
|
|
KEY "DESCR"
|
|
PROMPT 33 1 ""
|
|
FIELD LF_TAB_MAG@->S0
|
|
END
|
|
END // HD MAG
|
|
|
|
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 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 // gruppi anni dello stesso articolo
|
|
|
|
END // section body, loop anamag
|
|
|
|
SECTION FOOTER ODD 2
|
|
STRINGA 100
|
|
BEGIN
|
|
KEY "NUMP"
|
|
PROMPT 50 1 "--------------"
|
|
END
|
|
|
|
NUMERO 101
|
|
BEGIN
|
|
KEY "NUMPAGE"
|
|
PROMPT 50 2 ""
|
|
MESSAGE _PAGENO
|
|
PICTURE "-###-"
|
|
END
|
|
|
|
END // fine footer
|
|
|
|
END // fine form
|