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 B2AtuComD2, Atualiza os dados do SB2 baseado no SD2 (itens da Nota Fiscal de saída),

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 (D2_COD)
PARAMIXB[2]Caractereretorna o Local (D2_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

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

User Function MTAB2D2R()

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 + (SD2->D2_QUANT*nMultiplic)
	SB2->(MsUnLock())
 Endif 

Return Nil


04. ASSUNTOS RELACIONADOS

  • Não se aplica