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 B2AtuComD1, Atualiza os dados do SB2 baseado no SD1 (itens da Nota Fiscal de Entrada),

OBSERVAÇÃO:

  • 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.

03. DEMAIS INFORMAÇÕES


PARÂMETROS


NomeTipoDescrição
PARAMIXB[1]CaractereRetorna o código do Produto (D1_COD)
PARAMIXB[2]CaractereRetorna o Local (D1_LOCAL)
PARAMIXB[3]NuméricoRetorna 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

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

User Function MTAB2D1()

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

Return Nil


04. ASSUNTOS RELACIONADOS

  • Não se aplica