448 lines
9.5 KiB
Plaintext
Executable File
448 lines
9.5 KiB
Plaintext
Executable File
#include "mg3300.h"
|
|
USE LF_ANAMAG
|
|
SORT LF_RMOVMAG BY LF_MOVMAG->DATAREG NUMREG
|
|
USING LF_MOVMAG INTO NUMREG==NUMREG
|
|
JOIN TO LF_ANAMAG KEY 2 INTO CODART==CODART
|
|
JOIN LF_MAG TO LF_RMOVMAG KEY 2 INTO ANNOES==1996 CODMAG==CODMAG CODART==CODART LIVELLO==LIVGIAC
|
|
JOIN LF_MOVMAG TO LF_RMOVMAG INTO NUMREG==NUMREG
|
|
JOIN CAU TO LF_MOVMAG INTO CODTAB==CODCAUS
|
|
|
|
JOIN MAG TO LF_RMOVMAG ALIAS 500 INTO CODTAB==CODMAG[1,3]
|
|
JOIN MAG TO LF_RMOVMAG ALIAS 501 INTO CODTAB==CODMAG
|
|
JOIN GMC TO LF_ANAMAG ALIAS ALIAS_CATMER INTO CODTAB==GRMERC[1,3]
|
|
JOIN GMC TO LF_ANAMAG ALIAS ALIAS_SOTTOCATMER INTO CODTAB==GRMERC[1,5]
|
|
|
|
JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART
|
|
JOIN LF_UMART TO LF_RMOVMAG KEY 2 ALIAS 349 INTO CODART==CODART UM==UM
|
|
END
|
|
|
|
DESCRIPTION
|
|
BEGIN
|
|
47->* "Anagrafica articoli"
|
|
109->* "Archivio Giacenze"
|
|
MAG->* "Tabella magazzini"
|
|
110->* "Movimenti di magazzino"
|
|
111->* "Righe Movimenti di magazzino"
|
|
49->* "Unità di misura articoli"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Courier New"
|
|
SIZE 12
|
|
CARATTERE "X"
|
|
INIZIALE 5 2
|
|
FINALE 133
|
|
END
|
|
|
|
SECTION HEADER ODD 5
|
|
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
|
|
|
|
STRINGA 4 45
|
|
BEGIN
|
|
KEY "Intestazione stampa"
|
|
PROMPT 45 2 "Stampa schede di magazzino :"
|
|
MESSAGE _USER,TIPOSCHEDA
|
|
END
|
|
|
|
STRINGA 5 146
|
|
BEGIN
|
|
KEY "Separatore (iniziale)"
|
|
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
|
|
END
|
|
STRINGA 6 12
|
|
BEGIN
|
|
PROMPT 27 4 "UM"
|
|
END
|
|
NUMBER 7 12
|
|
BEGIN
|
|
PROMPT 31 4 "Quantità"
|
|
END
|
|
NUMBER 8 12
|
|
BEGIN
|
|
PROMPT 42 4 "Prezzo"
|
|
END
|
|
NUMBER 9 12
|
|
BEGIN
|
|
PROMPT 54 4 "Valore"
|
|
END
|
|
STRINGA 5 146
|
|
BEGIN
|
|
KEY "Separatore (iniziale)"
|
|
PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
|
|
END
|
|
END
|
|
|
|
SECTION BODY ODD 2
|
|
|
|
NUMBER 100 1
|
|
BEGIN
|
|
FLAGS "H"
|
|
MESSAGE RESET,FF_SALDO_GART|RESET,FF_VALORE_GART
|
|
END
|
|
|
|
SECTION HEADER_ARTICOLO 1 2 2 GROUP
|
|
FLAGS "N"
|
|
SECTION HEADER_CATMER 1 2 1 GROUP
|
|
STRINGA 10 20 1
|
|
BEGIN
|
|
KEY "CODICE CATMER"
|
|
PROMPT 1 1 "Gruppo merceologico "
|
|
MESSAGE _USER,CODCATMER|RESET,FF_STAMPASALDOPREC
|
|
END
|
|
STRINGA 12 50 1
|
|
BEGIN
|
|
KEY "DESCR."
|
|
PROMPT 30 1 ""
|
|
MESSAGE _USER,CATMER
|
|
END
|
|
END //HEADER catmer
|
|
STRINGA 10 20 1
|
|
BEGIN
|
|
KEY "CODICE articolo"
|
|
PROMPT 1 1 "Articolo "
|
|
MESSAGE _USER,CODGRUPPOART|RESET,FF_STAMPASALDOPREC
|
|
END
|
|
|
|
STRINGA 11 50 1
|
|
BEGIN
|
|
KEY "DESCR.articolo"
|
|
PROMPT 30 1 ""
|
|
MESSAGE _USER,GRUPPOART
|
|
END
|
|
STRINGA 24 50 1
|
|
BEGIN
|
|
KEY "dep"
|
|
PROMPT 1 2 "------------------------------------------------------------------------------------------------------------------------------------------------------"
|
|
END
|
|
END //HEADER articolo
|
|
|
|
SECTION GRUPPI_ARTICOLO 1 0 0 FILE LF_ANAMAG BY CODART
|
|
SECTION FILE_RMOVMAG 1 1 0 FILE LF_RMOVMAG
|
|
SECTION HEADER_LIVGIAC 1 3 3 GROUP
|
|
FLAGS "N"
|
|
SECTION HEADER_LIVGIACCATMER 1 1 1 GROUP
|
|
STRINGA 10 20 1
|
|
BEGIN
|
|
KEY "CODICE CATMER"
|
|
PROMPT 1 1 "Gruppo merceologico "
|
|
MESSAGE _USER,CODCATMER|RESET,FF_STAMPASALDOPREC
|
|
END
|
|
STRINGA 12 50 1
|
|
BEGIN
|
|
KEY "DESCR."
|
|
PROMPT 30 1 ""
|
|
MESSAGE _USER,CATMER
|
|
END
|
|
END //HEADER catmer
|
|
STRINGA 10 20 1
|
|
BEGIN
|
|
KEY "CODICE articolo"
|
|
PROMPT 1 1 "Articolo "
|
|
MESSAGE _USER,CODGRUPPOART|RESET,FF_STAMPASALDOPREC
|
|
END
|
|
STRINGA 11 50 1
|
|
BEGIN
|
|
KEY "DESCR.articolo"
|
|
PROMPT 30 1 ""
|
|
MESSAGE _USER,GRUPPOART
|
|
END
|
|
|
|
STRINGA 20 20 1
|
|
BEGIN
|
|
KEY "CODICE livello"
|
|
PROMPT 1 2 ""
|
|
MESSAGE _USER,CODGRUPPOGIAC
|
|
END
|
|
STRINGA 21 50 1
|
|
BEGIN
|
|
KEY "Livello giac"
|
|
PROMPT 23 2 ""
|
|
MESSAGE _USER,GRUPPOGIAC
|
|
END
|
|
SECTION HEADER_MAG 3 1 1 GROUP
|
|
STRINGA 22 50 1
|
|
BEGIN
|
|
KEY "mag"
|
|
PROMPT 5 1 "Magazzino "
|
|
FIELD 500@->S0
|
|
END
|
|
SECTION HEADER_DEP 1 1 1 GROUP
|
|
STRINGA 23 50 1
|
|
BEGIN
|
|
KEY "dep"
|
|
PROMPT 7 1 "Deposito "
|
|
FIELD 501@->S0
|
|
END
|
|
END // HEADER deposito
|
|
END // HEADER magazzino
|
|
STRINGA 24 50 1
|
|
BEGIN
|
|
KEY "dep"
|
|
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
|
|
END
|
|
END // HEADER livgiac
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
FLAGS "H"
|
|
MESSAGE RESET,FF_SALDO_GRMOV|RESET,FF_VALORE_GRMOV
|
|
END
|
|
|
|
SECTION GRUPPI_RMOVMAG 1 0 0 FILE LF_RMOVMAG GROUP CODART
|
|
NUMERO 10
|
|
BEGIN
|
|
FLAGS "H"
|
|
FIELD LF_RMOVMAG->NUMREG
|
|
MESSAGE COPY,FF_NUM_MOV|RESET,FF_SALDO_MOV|RESET,FF_VALORE_MOV
|
|
END
|
|
NUMERO 11
|
|
BEGIN
|
|
FLAGS "H"
|
|
FIELD LF_MOVMAG->DATAREG
|
|
MESSAGE COPY,FF_DATA_MOV
|
|
END
|
|
NUMERO 12
|
|
BEGIN
|
|
FLAGS "H"
|
|
FIELD LF_MOVMAG->CODCAUS
|
|
MESSAGE _USER,SETCAUSALE
|
|
END
|
|
|
|
SECTION MOVIMENTO 1 0 0 FILE LF_RMOVMAG GROUP NUMREG
|
|
|
|
NUMBER FF_QUANTRIGA 12
|
|
BEGIN
|
|
FLAGS "H"
|
|
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*349@->FC|_USER,*SEGNOCAUS
|
|
END
|
|
|
|
NUMBER FF_STAMPASALDOPREC 30
|
|
BEGIN
|
|
FLAGS "H"
|
|
END
|
|
|
|
SECTION MOVS_PRECEDENTI 1 0 0 STREXPR LF_MOVMAG->DATAREG<""
|
|
NUMBER 103 30
|
|
BEGIN
|
|
PROMPT 31 1 "Quantita' a saldo prec:"
|
|
PICTURE "###.###,@##"
|
|
MESSAGE _NUMEXPR,#FF_QUANTRIGA|ADD,FF_SALDOPREC
|
|
END
|
|
END
|
|
|
|
SECTION MOVS_INTERESSATI 1 0 0 STREXPR LF_MOVMAG->DATAREG>=""
|
|
SECTION STAMPASALDOPREC 1 1 1 NUMEXPR (#FF_STAMPASALDOPREC==0)&&(#FF_QUANTRIGA!=0)
|
|
NUMBER 100 18
|
|
BEGIN
|
|
PROMPT 8 1 "Saldo precedente :"
|
|
END
|
|
NUMBER FF_SALDOPREC 12
|
|
BEGIN
|
|
PROMPT 31 1 ""
|
|
PICTURE "###.###,@##"
|
|
END
|
|
NUMBER 101 12
|
|
BEGIN
|
|
FLAGS "H"
|
|
MESSAGE RESET,FF_SALDOPREC |INC,FF_STAMPASALDOPREC
|
|
END
|
|
STRINGA 102 12
|
|
BEGIN
|
|
PROMPT 27 1 ""
|
|
FIELD LF_UMART->UM
|
|
END
|
|
END // stampa saldo precedente
|
|
|
|
STRINGA 100 30
|
|
BEGIN
|
|
PROMPT 1 1 ">>>"
|
|
MESSAGE _STREXPR,LF_RMOVMAG->CODART+"/"+LF_RMOVMAG->LIVGIAC+":"+LF_RMOVMAG->CODMAG
|
|
END
|
|
|
|
STRINGA 101 12
|
|
BEGIN
|
|
PROMPT 27 1 ""
|
|
FIELD LF_RMOVMAG->UM
|
|
END
|
|
|
|
NUMBER 104 12
|
|
BEGIN
|
|
PROMPT 42 1 ""
|
|
PICTURE "###.###.###"
|
|
FIELD LF_RMOVMAG->PREZZO
|
|
END
|
|
NUMBER 103 12
|
|
BEGIN
|
|
PROMPT 31 1 ""
|
|
PICTURE "###.###,@##"
|
|
MESSAGE _NUMEXPR,#FF_QUANTRIGA|ADD,FF_SALDO_MOV
|
|
END
|
|
NUMBER 105 12
|
|
BEGIN
|
|
PROMPT 54 1 ""
|
|
PICTURE "###.###.###"
|
|
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*LF_RMOVMAG->PREZZO|_USER,*SEGNOCAUS|ADD,FF_VALORE_MOV
|
|
END
|
|
END // sezione movimento di competenza
|
|
END // loop movimento
|
|
|
|
SECTION TOTALI_MOV 1 2 1 NUMEXPR #FF_SALDO_MOV!=0
|
|
NUMBER FF_NUM_MOV 32
|
|
BEGIN
|
|
PROMPT 2 1 "Mov. "
|
|
END
|
|
STRINGA FF_DATA_MOV 10
|
|
BEGIN
|
|
PROMPT 12 1 "del "
|
|
END
|
|
STRINGA 100 2
|
|
BEGIN
|
|
PROMPT 27 1 ""
|
|
FIELD LF_UMART->UM
|
|
END
|
|
NUMBER FF_SALDO_MOV 12
|
|
BEGIN
|
|
PROMPT 31 1 ""
|
|
PICTURE "###.###,@##"
|
|
MESSAGE ADD,FF_SALDO_GRMOV
|
|
END
|
|
NUMBER 100 12
|
|
BEGIN
|
|
PROMPT 42 1 ""
|
|
PICTURE "###.###.###"
|
|
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
|
|
END
|
|
NUMBER FF_VALORE_MOV 12
|
|
BEGIN
|
|
PROMPT 54 1 ""
|
|
PICTURE "###.###.###"
|
|
MESSAGE ADD,FF_VALORE_GRMOV
|
|
END
|
|
END // totali mov
|
|
END // loop scheda
|
|
|
|
SECTION TOTALI_GRMOV 1 1 3 GROUP
|
|
|
|
STRINGA 100 15
|
|
BEGIN
|
|
PROMPT 1 1 "Totale scheda"
|
|
END
|
|
STRINGA 100 2
|
|
BEGIN
|
|
PROMPT 27 1 ""
|
|
FIELD LF_UMART->UM
|
|
MESSAGE COPY,FF_UM_GART
|
|
END
|
|
NUMBER FF_SALDO_GRMOV 12
|
|
BEGIN
|
|
PROMPT 31 1 ""
|
|
PICTURE "###.###,@##"
|
|
MESSAGE ADD,FF_SALDO_GART
|
|
END
|
|
NUMBER FF_VALORE_GRMOV 12
|
|
BEGIN
|
|
PROMPT 54 1 ""
|
|
PICTURE "###.###.###"
|
|
MESSAGE ADD,FF_VALORE_GART
|
|
END
|
|
END // TOTALI scheda per articolo
|
|
END // loop RMOVMAG
|
|
|
|
SECTION TOTALI_MOV_ARTICOLO 1 0 0 NUMEXPR #FF_SALDO_MOV!=0
|
|
NUMBER FF_NUM_MOVART 32
|
|
BEGIN
|
|
PROMPT 2 1 "Mov. "
|
|
END
|
|
STRINGA FF_DATA_MOVART 10
|
|
BEGIN
|
|
PROMPT 12 1 "del "
|
|
END
|
|
STRINGA 100 2
|
|
BEGIN
|
|
PROMPT 27 1 ""
|
|
FIELD LF_UMART->UM
|
|
END
|
|
NUMBER FF_SALDO_MOVART 12
|
|
BEGIN
|
|
PROMPT 31 1 ""
|
|
PICTURE "###.###,@##"
|
|
MESSAGE ADD,FF_SALDO_GRMOV
|
|
END
|
|
NUMBER 100 12
|
|
BEGIN
|
|
PROMPT 42 1 ""
|
|
PICTURE "###.###.###"
|
|
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
|
|
END
|
|
NUMBER FF_VALORE_MOVART 12
|
|
BEGIN
|
|
PROMPT 54 1 ""
|
|
PICTURE "###.###.###"
|
|
MESSAGE ADD,FF_VALORE_GRMOV
|
|
END
|
|
END // totali mov
|
|
|
|
END // ragg articolo (codice o catmer)
|
|
SECTION TOTALI_GRUPPIART 1 1 3 GROUP
|
|
STRINGA 100 15
|
|
BEGIN
|
|
PROMPT 1 1 "Totale scheda"
|
|
END
|
|
STRINGA FF_UM_GART 2
|
|
BEGIN
|
|
PROMPT 27 1 ""
|
|
FIELD LF_UMART->UM
|
|
END
|
|
NUMBER FF_SALDO_GART 12
|
|
BEGIN
|
|
PROMPT 31 1 ""
|
|
PICTURE "###.###,@##"
|
|
END
|
|
NUMBER FF_VALORE_GART 12
|
|
BEGIN
|
|
PROMPT 54 1 ""
|
|
PICTURE "###.###.###"
|
|
END
|
|
END // TOTALI scheda per articolo
|
|
|
|
END // *****
|
|
|
|
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
|
|
|