| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Backoffice |
| Módulo: | Estoque/Custos |
| Função: | MATA261 - Transferência Múltipla |
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.
| 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) |
| Nome | Tipo | Obrigatório | Default | Observação |
|---|---|---|---|---|
| lRet | L | Não | .T. | Não há |
/*/{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
|