7c77333860
Files correlati : mg3.exe mg3300a.frm mg3300b.frm mg3500.frm xvaga.dll Ricompilazione Demo : [ ] Commento : GF20022 Se cerco di cambiare l'impostazione delle colonne da messaggio d'errore: "FUNCTION AL LINE 1335 NO IMPLEMENTED" GF20023 Il collegamento al movimento di magazzino non c'è. GF20024 Se si clicca sul tasto di ricerca de movimenti di magazzino l'ultimo record non viene mostrato. GF20025 Se si clicca sul tasto di ricerca dei vari criteri di valorizzazione l'ultimo record (Lifo) non viene visualizzato scorrendo la barra verticale. GF20026 La stampa dello storico non coincide sempre con la stampa dell'inventario di magazzino esempio provare ad inserire per esercizio x due acquisti 1 pezzo x 200 euro e 2 pezzi x 100 euro quindi facendo l'apertura chiusura al lifo storico la composizione della stampa dello storico per l'anno in questione presenta 3 pezzi a un vaore unitario di 133,33 che fa quindi 399,99 e non 400 euro come dovrebbe. git-svn-id: svn://10.65.10.50/trunk@11193 c028cbd2-c16b-5b4b-a496-9718f37d4682
400 lines
9.0 KiB
Plaintext
Executable File
400 lines
9.0 KiB
Plaintext
Executable File
// form stampa schede per magazzino
|
|
#include "mg3300.h"
|
|
USE LF_RMOVMAG KEY 2 BY CODMAG CODART LIVGIAC LF_MOVMAG->DATAREG NUMREG
|
|
JOIN LF_MAG TO LF_RMOVMAG KEY 2 INTO ANNOES==1996 CODMAG==CODMAG CODART==CODART LIVELLO==LIVGIAC
|
|
JOIN LF_ANAMAG TO LF_RMOVMAG INTO CODART==CODART
|
|
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 1
|
|
// FONT "Courier New"
|
|
// SIZE 12
|
|
END
|
|
|
|
SECTION GRAPHIC
|
|
BEGIN
|
|
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 65 1 "Data "
|
|
MESSAGE _TODAY
|
|
END
|
|
|
|
NUMERO 3 7
|
|
BEGIN
|
|
KEY "Nr. pagina"
|
|
PROMPT 81 1 "Pagina "
|
|
MESSAGE _PAGENO
|
|
END
|
|
|
|
DATA 20
|
|
BEGIN
|
|
KEY "Data inizio"
|
|
PROMPT 1 2 "Dal "
|
|
MESSAGE _USER,DADATA
|
|
END
|
|
|
|
DATA 21
|
|
BEGIN
|
|
KEY "Data fine"
|
|
PROMPT 17 2 "Al "
|
|
MESSAGE _USER,ADATA
|
|
END
|
|
|
|
STRINGA 4 45
|
|
BEGIN
|
|
KEY "Intestazione stampa"
|
|
PROMPT 45 2 "Stampa schede di magazzino :"
|
|
MESSAGE _USER,TIPOSCHEDA
|
|
END
|
|
|
|
STRINGA 5 95
|
|
BEGIN
|
|
KEY "Separatore (iniziale)"
|
|
PROMPT 1 3 "-----------------------------------------------------------------------------------------------"
|
|
END
|
|
STRINGA 6 12
|
|
BEGIN
|
|
PROMPT 42 4 "UM"
|
|
END
|
|
NUMBER 7 12
|
|
BEGIN
|
|
PROMPT 50 4 "Quantità"
|
|
END
|
|
VALUTA 8 12
|
|
BEGIN
|
|
PROMPT 66 4 "Prezzo"
|
|
FLAGS "U"
|
|
END
|
|
NUMBER 9 15
|
|
BEGIN
|
|
PROMPT 81 4 "Valore"
|
|
END
|
|
STRINGA 5 95
|
|
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_MAG 1 2 2 GROUP
|
|
FLAGS "N"
|
|
STRINGA 22 20 1
|
|
BEGIN
|
|
KEY "mag"
|
|
PROMPT 1 1 "Magazzino "
|
|
FIELD 500@->CODTAB[1,3]
|
|
END
|
|
STRINGA 22 50 1
|
|
BEGIN
|
|
KEY "mag"
|
|
PROMPT 15 1 ""
|
|
FIELD 500@->S0
|
|
END
|
|
SECTION HEADER_DEP 2 0 0 GROUP
|
|
SECTION HEADER_DEP_VERO 1 1 1 STR_EXPR 500@->B0=="X"
|
|
STRINGA 23 20 1
|
|
BEGIN
|
|
KEY "dep"
|
|
PROMPT 3 1 "Deposito "
|
|
FIELD 501@->CODTAB[4,5]
|
|
END
|
|
STRINGA 23 50 1
|
|
BEGIN
|
|
KEY "dep"
|
|
PROMPT 15 1 ""
|
|
FIELD 501@->S0
|
|
END
|
|
END
|
|
END // HEADER deposito
|
|
SECTION HEADER_CATMER 1 2 1 GROUP
|
|
FLAGS "H"
|
|
STRINGA 10 20 1
|
|
BEGIN
|
|
KEY "CODICE CATMER"
|
|
PROMPT 1 1 "Gruppo merceologico "
|
|
MESSAGE _USER,CODCATMER
|
|
END
|
|
STRINGA 12 50 1
|
|
BEGIN
|
|
KEY "DESCR."
|
|
PROMPT 30 1 ""
|
|
MESSAGE _USER,CATMER
|
|
END
|
|
END //HEADER catmer
|
|
|
|
SECTION HEADER_ARTICOLO 2 1 1 GROUP
|
|
STRINGA 10 20 1
|
|
BEGIN
|
|
KEY "CODICE articolo"
|
|
PROMPT 5 1 "Articolo $[b,w]"
|
|
MESSAGE _USER,CODGRUPPOART
|
|
END
|
|
|
|
STRINGA 11 50 1
|
|
BEGIN
|
|
KEY "DESCR.articolo"
|
|
PROMPT 30 1 "$[n,w]"
|
|
MESSAGE _USER,GRUPPOART
|
|
END
|
|
SECTION HEADER_LIVGIAC 2 1 1 GROUP
|
|
STRINGA 20 20 1
|
|
BEGIN
|
|
KEY "CODICE livello"
|
|
PROMPT 5 1 ""
|
|
MESSAGE _USER,CODGRUPPOGIAC
|
|
END
|
|
STRINGA 21 50 1
|
|
BEGIN
|
|
KEY "Livello giac"
|
|
PROMPT 23 1 ""
|
|
MESSAGE _USER,GRUPPOGIAC
|
|
END
|
|
END // HEADER livgiac
|
|
END //HEADER articolo
|
|
STRINGA 24 95
|
|
BEGIN
|
|
KEY "dep"
|
|
PROMPT 1 2 "-----------------------------------------------------------------------------------------------"
|
|
END
|
|
END // HEADER magazzino
|
|
|
|
SECTION FILE_RMOVMAG 1 0 0 FILE LF_ANAMAG
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
FLAGS "H"
|
|
MESSAGE RESET,FF_SALDO_GART|RESET,FF_VALORE_GART|RESET,FF_STAMPASALDOPREC
|
|
END
|
|
|
|
SECTION GRUPPI_RMOVMAG 1 0 0 FILE LF_RMOVMAG GROUP CODMAG+CODART
|
|
SECTION H_MOVS_INTERESSATI 1 0 0 STREXPR LF_MOVMAG->DATAREG>""
|
|
|
|
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->DESCR
|
|
MESSAGE COPY,FF_DESCR_MOV
|
|
END
|
|
NUMERO 13
|
|
BEGIN
|
|
FLAGS "H"
|
|
MESSAGE _USER,CAUSALERIGA|COPY,FF_CAUSALE_RIGA
|
|
END
|
|
NUMERO 14
|
|
BEGIN
|
|
FLAGS "H"
|
|
MESSAGE _USER,DESCRCAUSALE|COPY,FF_DESCRCAUSALE
|
|
END
|
|
END // header mov
|
|
|
|
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,Q
|
|
END
|
|
|
|
NUMBER FF_STAMPASALDOPREC 30
|
|
BEGIN
|
|
FLAGS "H"
|
|
END
|
|
|
|
NUMBER FF_CANPRINTSALDOPREC 6
|
|
BEGIN
|
|
FLAGS "H"
|
|
MESSAGE _USER,CANPRINTSALDOPREC
|
|
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>=""
|
|
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
|
|
VALUTA 104 12
|
|
BEGIN
|
|
PROMPT 42 1 ""
|
|
FLAGS "U"
|
|
FIELD LF_RMOVMAG->PREZZO
|
|
END
|
|
NUMBER 103 12
|
|
BEGIN
|
|
PROMPT 31 1 ""
|
|
PICTURE "###.##@,@##"
|
|
MESSAGE _NUMEXPR,#FF_QUANTRIGA|ADD,FF_SALDO_MOV
|
|
END
|
|
VALUTA 105 12
|
|
BEGIN
|
|
PROMPT 57 1 ""
|
|
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*LF_RMOVMAG->PREZZO|_USER,*SEGNOCAUS,V|ADD,FF_VALORE_MOV
|
|
END
|
|
END // sezione movimento di competenza
|
|
END // loop movimento
|
|
|
|
SECTION STAMPASALDOPREC 1 1 1 NUMEXPR (#FF_STAMPASALDOPREC==0)&&(#FF_CANPRINTSALDOPREC!=0)
|
|
NUMBER 100 18
|
|
BEGIN
|
|
PROMPT 8 1 "Saldo precedente :"
|
|
END
|
|
NUMBER FF_SALDOPREC 15
|
|
BEGIN
|
|
PROMPT 46 1 ""
|
|
PICTURE "##.###.##@,@##"
|
|
MESSAGE _USER,SALDOPREC|ADD,FF_SALDO_GART
|
|
END
|
|
NUMBER 101 12
|
|
BEGIN
|
|
FLAGS "H"
|
|
MESSAGE RESET,FF_SALDOPREC |INC,FF_STAMPASALDOPREC
|
|
END
|
|
STRINGA 102 12
|
|
BEGIN
|
|
PROMPT 42 1 ""
|
|
FIELD LF_UMART->UM
|
|
END
|
|
END // stampa saldo precedente
|
|
|
|
SECTION TOTALI_MOV 1 2 2 NUMEXPR #FF_SALDO_MOV!=0
|
|
NUMBER FF_NUM_MOV
|
|
BEGIN
|
|
PROMPT 1 1 "Mov.$[v,w] "
|
|
END
|
|
STRINGA FF_DATA_MOV 10
|
|
BEGIN
|
|
PROMPT 12 1 "$[n,w]del "
|
|
END
|
|
STRINGA FF_DESCR_MOV 50
|
|
BEGIN
|
|
PROMPT 27 1 ""
|
|
END
|
|
STRINGA FF_CAUSALE_RIGA 5
|
|
BEGIN
|
|
PROMPT 6 2 ""
|
|
END
|
|
STRINGA FF_DESCRCAUSALE 25
|
|
BEGIN
|
|
PROMPT 11 2 " "
|
|
END
|
|
STRINGA 100 2
|
|
BEGIN
|
|
PROMPT 42 2 ""
|
|
FIELD LF_UMART->UM
|
|
END
|
|
NUMBER FF_SALDO_MOV 15
|
|
BEGIN
|
|
PROMPT 46 2 ""
|
|
PICTURE "##.###.##@,@##"
|
|
MESSAGE _USER,ADDQTA,FF_SALDO_GART
|
|
END
|
|
VALUTA FF_VALORE_MOV 15
|
|
BEGIN
|
|
PROMPT 72 2 ""
|
|
MESSAGE _USER,ADDVAL,FF_VALORE_GART
|
|
END
|
|
VALUTA 190 12
|
|
BEGIN
|
|
PROMPT 60 2 ""
|
|
FLAGS "U"
|
|
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
|
|
END
|
|
END // totali mov
|
|
END // loop scheda
|
|
|
|
SECTION TOTALI_GART 1 1 3 GROUP
|
|
|
|
STRINGA 100 15
|
|
BEGIN
|
|
PROMPT 1 1 "Totale scheda"
|
|
END
|
|
STRINGA 100 2
|
|
BEGIN
|
|
PROMPT 42 1 ""
|
|
FIELD LF_UMART->UM
|
|
END
|
|
NUMBER FF_SALDO_GART 15
|
|
BEGIN
|
|
PROMPT 46 1 ""
|
|
PICTURE "##.###.##@,@##"
|
|
END
|
|
VALUTA FF_VALORE_GART 15
|
|
BEGIN
|
|
PROMPT 72 1 ""
|
|
END
|
|
END // TOTALI scheda per articolo
|
|
END // loop RMOVMAG raggruppate
|
|
END // *****
|
|
|
|
SECTION FOOTER ODD 2
|
|
|
|
END
|
|
|