Histórico da Página

#INCLUDE 'totvs.ch'

/*/{Protheus.doc} User Function MA330AL
 Ponto de Entrada utilizado para validar se deverá filtrar o armazém na rotina 
 de recálculo do custo médio.
@type User Function
@author TOTVS
/*/
User Function MA330AL()
    Local aArea := GetArea()
    Local cArmazem := "20" // Armazém que NÃO deseja recalcular custo médio
    Local lRet := .T.

    If SB2->B2_LOCAL == cArmazem
        lRet := .F.
    Endif

    RestArea(aArea)
Return lRet // Retorno Lógico, sendo .T. para recalcular armazém e .F. para não recalcular 

USE [P12127MNTDBEXP]
GO

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- Procedure creation 
ALTER PROCEDURE [dbo].[MA330AL_T1] (
    @IN_FILIALCOR Char( 8) , 
    @IN_COD Char( 30) , 
    @IN_LOCAL Char( 2) , 
    @IN_RECNOSB2 Integer , 
    @OUT_RESULTADO Char( 01 )  output ) AS

-- Declaration of variables
BEGIN
   SET @OUT_RESULTADO  = '0' 
   IF @IN_LOCAL = '20' -- Armazém que NÃO deseja recalcular custo médio
   BEGIN
      SET @OUT_RESULTADO  = '1' -- Retorno em caractere, sendo '0' para recalcular armazém e '1' para não recalcular    
   END
END