#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