#include "mg4300.h"
USE LF_RMOVMAG BY CRONO_FIELD FISC_FIELD
JOIN LF_MOVMAG INTO NUMREG==NUMREG
JOIN CAU TO LF_MOVMAG ALIAS ALIAS_CAUSALI INTO CODTAB==CODCAUS
JOIN LF_ANAMAG TO LF_RMOVMAG INTO CODART==CODART
JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART
JOIN LF_UMART TO LF_RMOVMAG KEY 2 ALIAS ALIAS_UMRMOV 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
    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 _USER, INTEST_DITTA
	END
	
	STRINGA 2 10
	BEGIN
	 KEY "Data"
	 PROMPT  66 1 "Data "
	 MESSAGE _TODAY
	END
	
	STRINGA 4 45
	BEGIN
		KEY "Intestazione stampa"
		PROMPT  25 2 ""
		MESSAGE _USER,INTEST_REG
	END
	
	STRINGA 5 80
	BEGIN
	  KEY "Separatore (iniziale)"
	  PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
	END
	STRINGA 6 12
	BEGIN
		PROMPT 42 4 "UM"
	END
	NUMBER 7 12
	BEGIN
		PROMPT 46 4 "Quantità"
	END
	NUMBER 8 12
	BEGIN
		PROMPT 57 4 "Prezzo"
	END
	NUMBER 9 12
	BEGIN
		PROMPT 69 4 "Valore"
	END
	STRINGA 5 80
	BEGIN
	  KEY "Separatore (iniziale)"
	  PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
	END
END

SECTION BODY ODD 2
	NUMBER 100
	BEGIN
		FLAGS "H"
		MESSAGE RESET,3@
	END

	STRINGA 101 48
	BEGIN
		FLAGS "H"
		PROMPT 1 1 ""
		MESSAGE _USER,INFO_CRONO|RESET,FF_NUMLINEE|COPY,FF_INFORAGGCRO
	END

	SECTION RAGG_CRONOLOGICO 1 0 0 FILE LF_RMOVMAG GROUP CRONO_FIELD
	
		NUMBER 100
		BEGIN
			FLAGS "H"
			MESSAGE RESET,2@
		END

		SECTION HEADER_RAGG_FISC 1 2 0 GROUP
			STRINGA 100 78
			BEGIN
				PROMPT 1 1 "++"
				MESSAGE _USER,INFO_FISC|COPY,FF_CODTOT
			END
			STRINGA 102 12
				BEGIN
				PROMPT 37 1 ""
				FIELD LF_UMART->UM
				MESSAGE COPY,FF_UMTOT
			END
		END

		SECTION RAGG_FISCALE 1 0 0 FILE LF_RMOVMAG GROUP FISC_FIELD
			STRINGA 100 30
			BEGIN
				PROMPT 1 1 ">>>"
				MESSAGE _STREXPR,LF_RMOVMAG->NUMREG+LF_RMOVMAG->CODART+"/"+LF_RMOVMAG->LIVGIAC+":"+LF_RMOVMAG->CODMAG
				MESSAGE _USER,REGISTRASTAMPA
			END
			STRINGA 100 10
			BEGIN
				PROMPT 31 1 ">>>"
				FIELD LF_MOVMAG->DATAREG 
			END
			STRINGA 101 12
			BEGIN
				PROMPT 67 1 ""
				FIELD LF_RMOVMAG->UM
			END
			NUMBER 103 12
				BEGIN
				PROMPT 71 1 ""
				PICTURE "###.###,@##"
				MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*ALIAS_UMRMOV@->FC|_USER,*SEGNOCAUS|ADD,FF_QTARAGGFIS
			END
			NUMBER 105 12
			BEGIN
				PROMPT 94 1 ""
				PICTURE "###.###.###"
				MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*LF_RMOVMAG->PREZZO|_USER,*SEGNOCAUS|ADD,FF_VALTOT
			END
			NUMBER 104 12
			BEGIN
				PROMPT 82 1 ""
				PICTURE "###.###.###"
				MESSAGE _NUMEXPR,#105/#103
			END
		END // RAGG FISCALE
		NUMBER FF_NUMLINEE 12
		BEGIN
			FLAGS "H"
		END

		SECTION TOTALI_RAGG_FISC 1 1 1 NUMEXPR #FF_QTARAGGFIS!=0
			SECTION HEADER_RAGG_CRONO 1 2 1 NUMEXPR #FF_NUMLINEE=0
				STRINGA FF_INFORAGGCRO 48
				BEGIN
					PROMPT 1 1 ""
					MESSAGE _USER,INCNUMREGST
				END
				SECTION HEADER_MOV 2 2 1 GROUP
					STRINGA 101 30
					BEGIN
						PROMPT 10 1 "Causale: "
						FIELD ALIAS_CAUSALI@->CODTAB
					END
					STRINGA 101 30
					BEGIN
						PROMPT 31 1 ""
						FIELD ALIAS_CAUSALI@->S0
					END
					SECTION HEADER_DOC 2 1 1 NUMEXPR LF_MOVMAG->NUMDOC!=0
						STRINGA 101 25
						BEGIN
							PROMPT 10 1 "Documento "
							FIELD LF_MOVMAG->NUMDOC
						END
						STRINGA 101 10
						BEGIN
							PROMPT 30 1 "del "
							FIELD LF_MOVMAG->ANNODOC
						END
					END
				END
			END // header_ragg_crono

			STRINGA FF_CODTOT 40
			BEGIN
				PROMPT 1 1 ""
				MESSAGE INC,FF_NUMLINEE
			END
			STRINGA FF_UMTOT 2
				BEGIN
				PROMPT 42 1 ""
				GROUP 2
			END
			NUMBER FF_QTARAGGFIS 12
				BEGIN
				PROMPT 45 1 ""
				PICTURE "###.###,@##"
				GROUP 2
			END
			NUMBER FF_VALTOT 12
			BEGIN
				PROMPT 71 1 ""
				PICTURE "###.###.###"
				GROUP 2
			END
			NUMBER 204 12
			BEGIN
				PROMPT 58 1 ""
				PICTURE "###.###.###"
				MESSAGE _NUMEXPR,#FF_VALTOT/#FF_QTARAGGFIS 
				GROUP 2
			END
		END // totali ragg_
	END // RAGG CRONOLOGICO			
END // BODY: CICLO MOV

SECTION FOOTER ODD 2
	STRINGA 100
	BEGIN
		KEY "NUMP"
		PROMPT 50 1 "-----"
	END

	NUMERO 101
	BEGIN
		KEY "NUMPAGE"
		PROMPT 50 2 ""
		MESSAGE _USER,PAGENO
		PICTURE "-###-"
	END

END