CREATE  PROCEDURE [dbo].[sp_StmovResumo]
	@iTDOC int, 
	@iANO int, 	
	@iARM int, 
	@iDOC int 
--WITH ENCRYPTION
AS
    declare @xTDOC smallint, 
    	    @xANO smallint, 	
    	    @xARM smallint
    select  @xTDOC =convert(smallint,@iTDOC), 
    	    @xANO =convert(smallint,@iANO), 	
    	    @xARM =convert(smallint,@iARM) 
    SELECT SUM(ILIQUIDO) AS ILIQUIDO, SUM(DESCONTOS) AS DESCONTOS,
    SUM(LIQUIDO) AS LIQUIDO, SUM(IVA) AS IVA, SUM(VL_COMIS) AS COMISSAO,
    SUM(PRC_ORI*QTFORN) AS CUSTO,
    SUM(STMES.LARGURA*STMES.ALTURA*STMOV.QTFORN) AS TOT_AREA,
    SUM(STMES.VOLUME*STMOV.QTFORN) AS TOT_VOLUME,
    SUM(STMES.PESO*STMOV.QTFORN) AS TOT_PESO,
    COUNT(*) AS TOT_LINHAS,
    SUM(VL_RET_FONTE) AS VL_RET_FONTE
    FROM STMOV INNER JOIN STMES ON STMOV.ARTIGO=STMES.ARTIGO
    WHERE TDOC = @xTDOC AND ANO = @xANO AND ARM = @xARM AND DOC = @iDOC
    AND COMPOSTO_LIN=0
    SELECT COD_IVA, TAB01_TX_IVA.DESIG1, TX_IVA, SUM(LIQUIDO) AS SUJEITO, SUM(IVA) AS IVA,SUM(LIQ_CIVA) AS LIQ_CIVA
    FROM STMOV LEFT OUTER JOIN TAB01_TX_IVA ON STMOV.COD_IVA = TAB01_TX_IVA.COD
    WHERE TDOC = @xTDOC AND ANO = @xANO AND ARM = @xARM AND DOC = @iDOC
    AND COMPOSTO_LIN=0
    GROUP BY TDOC, ANO, ARM, DOC, COD_IVA, TX_IVA, TAB01_TX_IVA.DESIG1
    ORDER BY COD_IVA ASC