Histórico da Página
...
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
Não se aplica.
Nome | Tipo | Obrigatório | Default | Observação |
---|---|---|---|---|
lRet | L | Não | .T. | Não há |
05. EXEMPLO DE UTILIZAÇÃO
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#include 'Protheus.ch' /*/{Protheus.doc} User Function A280SBJA261INI PEPermite A280SBKvalidar -o Chamadocódigo nado gravação da SBK - Saldos iniciais por endereço - após a gravaçãoproduto informado @type Function @author Totvs @since 09/11/2021TOTVS /*/ User Function A280SBKA261INI() Local aArea := GetArea() Local aAreaSBKaAreaSB1 := SBKSB1->(GetArea()) Local aAreas := {aAreaSB1, aArea} Local cProduto := SB1->(GetArea())ParamIXB[1] Local nTipo aAreas := {aAreaSBK, aAreaSB1, aArea} ParamIXB[2] Local lRet := .T. SB1->(DbSetOrder(1)) //B1_FILIAL+B1_COD If nTipo == 1 //Produto de origem If SB1->(DbSeek(FWXFilial('SB1')+SBK->BK_CODcProduto)) If //Condições customizadas SB1->B1_TIPO == 'GG' lRet := //..F. Help(,, "Erro",, "Transferência não If RecLock('SBK', .F.) permitida", 1, 0) EndIf //Gravação de campo customizado da SBKEndIf ElseIf nTipo == 2 //Produto de destino SBK->(MsUnlock()) lRet := EndIf.T. EndIf AEval(aAreas, {|x| RestArea(x)}) Return lRet |
Templatedocumentos |
---|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas