Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS BackOffice

Linha de Produto:

Linha Protheus

Segmento:

BackOffice

Módulo:

TOTVS BackOffice (Linha Protheus) - Estoque e Custos (SIGAEST)

Função:SIGACUS
País:Brasil


02. DESCRIÇÃO

LOCALIZAÇÃO : Function - da Rotina SIGACUS() 

EM QUE PONTO : O Ponto de entrada é executado dentro da função B2AtuComD3, Atualiza os dados do SB2 baseado no SD3(Movimentação),

OBSERVAÇÃO:

  • O ponto de entrada MTAB2D2R é executado APÓS todas as gravações e pode ser utilizado para complementar a gravação no arq. de Saldos (SB2) ou outras atualizações de arquivos e campos do usuário

03. DEMAIS INFORMAÇÕES


PARÂMETROS


NomeTipoDescrição
PARAMIXB[1]CaractereRetorna o código do Produto (D3_COD)
PARAMIXB[2]CaractereRetorna o Local (D3_LOCAL)
PARAMIXB[3]NuméricoIndica se a movimentação soma ou subtrai : 1 = Operação de Entrada ; -1 = Operação de Saída


RETORNO

  • Não se aplica. 


EXEMPLO DE UTILIZAÇÃO ADVPL

MTAB2D3R(ADVPL)
#INCLUDE "PROTHEUS.CH"
#INCLUDE "PRTOPDEF.CH"          

User Function MTAB2D3R()

Local cCodPro      := ParamIXB[1]  //-- Código do Produto
Local cLocal       := ParamIXB[2]  //-- Local
Local nMultiplic   := ParamIXB[3]  //--  1 = Operação de Entrada/   -1 = Operação de Saída

dbSelectArea('SB2')
SB2->(dbSetOrder(1))

//-- Se o produto nao existir no SB2, sera criado automaticamente
If !MsSeek(xFilial('SB2')+cCodPro+cLocal, .F.)   
   CriaSB2(cCodPro,cLocal)
EndIf

 //Atualização dos campos do SB2 conforme necessidade do usuário.  

 If RecLock('SB2',.F.)
	SB2->B2_QATU := SB2->B2_QATU + (SD3->D3_CUSTO1*nMultiplic)
	SB2->(MsUnLock())
 Endif 

Return Nil


04. ASSUNTOS RELACIONADOS

  • Não se aplica