A261INI - Permite validação no campo de código de produto

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus®
Segmento:	Backoffice
Módulo:	Estoque/Custos
Função:	MATA261 - Transferência Múltipla

02. DESCRIÇÃO

O ponto de entrada é chamado dentro da função de validação do campo de código de produto, tanto origem como destino, e permite a criação de customizações diversas na validação do produto digitado.

03. PARÂMETROS

Nome	Tipo	Descrição
cVar	C	Código do produto digitado
nOrigDest	N	Indica se o produto digitado é o produto de origem (nOrigDest = 1) ou destino (nOrigDest = 2)

04. RETORNO

Nome	Tipo	Obrigatório	Default	Observação
lRet	L	Não	.T.	Não há

05. EXEMPLO DE UTILIZAÇÃO

A261INI

/*/{Protheus.doc} User Function A261INI
    Permite validar o código do produto informado
    @type  Function
    @author TOTVS
    /*/
User Function A261INI()
    Local aArea    := GetArea()
    Local aAreaSB1 := SB1->(GetArea())
    Local aAreas   := {aAreaSB1, aArea}
    Local cProduto := ParamIXB[1]
    Local nTipo    := ParamIXB[2]
    Local lRet     := .T.

    SB1->(DbSetOrder(1)) //B1_FILIAL+B1_COD
    If nTipo == 1 //Produto de origem
        If SB1->(DbSeek(FWXFilial('SB1')+cProduto))
            If SB1->B1_TIPO == 'GG'
                lRet := .F.
                Help(,, "Erro",, "Transferência não permitida", 1, 0)
            EndIf
        EndIf
    ElseIf nTipo == 2 //Produto de destino
        lRet := .T.
    EndIf

    AEval(aAreas, {|x| RestArea(x)})
Return lRet

Árvore de páginas