Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MTAB2D1 - Manipula os dados do SB2
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
LOCALIZAÇÃO : Localizado na função B2AtuComD1 - Atualiza os dados do SB2  baseado no SD1 (itens da Nota Fiscal de Entrada).

EM QUE PONTO: O ponto de entrada MTAB2D1 é executado ANTES da gravação do SB2, pois seu objetivo é que o usuário possa manipular os dados do SB2, antes da atualização feita pelo sistema.
Eventos


 

Programa Fonte 
SIGACUSA.PRX
Sintaxe

MTAB2D1 - Manipula os dados do SB2 ( [ PARAMIXB[1] ], [ PARAMIXB[2] ], [ PARAMIXB[3] ] ) --> Nil

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
PARAMIXB[1] Vetor Código do Produto (D1_COD)
PARAMIXB[2] Vetor Local (D1_LOCAL)
PARAMIXB[3] Vetor Expressão numérica indicando se a movimentação soma ou subtrai : 1 = Operação de Entrada ; -1 = Operação de Saída
Retorno
    Nil(nulo)
  • Nil
Observações


 

Exemplos 
User Function MTAB2D1()Local cCodPro      := ParamIXB[1]  //-- Código do ProdutoLocal cLocal       := ParamIXB[2]  //-- LocalLocal nMultiplic   := ParamIXB[3]  //--  1 = Operação de Entrada/   -1 = Operação de SaídadbSelectArea('SB2')dbSetOrder(1)//-- Se o produto nao existir no SB2, sera criado automaticamenteIf !MsSeek(xFilial('SB2')+cCodPro+cLocal, .F.)   CriaSB2(cCodPro,cLocal)EndIfRecLock('SB2',.F.)//--//--Atualização dos campos do SB2 conforme necessidade do usuário. Exemplo:REPLACE B2_QATU WITH B2_QATU + (SD1->D1_QUANT*nMultiplic)//--MsUnLock()Return Nil