Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MTAB2D2 - Manipula 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 : Este Ponto de Entrada está localizado na função B2AtuComD2 (Atualiza os dados do SB2  baseado no SD2);

EM QUE PONTO : É executado ANTES da gravação do SB2, pois,  seu objetivo é que o usuario possa manipular os dados do SB2, antes da atualização feita pelo sistema.
Eventos


 

Programa Fonte 
SIGACUS.PRX
Sintaxe

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

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
PARAMIXB[1] Caracter Codigo do Produto (D2_COD)
PARAMIXB[2] Caracter Local (D2_LOCAL)
PARAMIXB[3] Caracter Expressao numerica indicando se a movimentação soma ou subtrai : 1 = Operacao de Entrada ; -1 = Operacao de Saida
Retorno
    Nil(nulo)
  • Nil
Observações


 

Exemplos 
User Function MTAB2D2()                      Local cCodPro    := ParamIXB[1]  //-- Codigo do ProdutoLocal cLocal        := ParamIXB[2]  //-- LocalLocal nMultiplic   := ParamIXB[3]  //-- 1 - Operacao de Entrada/ -1 Operacao de SaidadbSelectArea('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.)//--//--Atualizacao dos campos do SB2 conforme necessidade do usuario. Exemplo:REPLACE B2_QATU WITH B2_QATU + (SD2->D2_QUANT*nMultiplic)//--MsUnLock()Return .T.