| 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 |
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:
PARÂMETROS
| Nome | Tipo | Descrição |
| PARAMIXB[1] | Caractere | Retorna o código do Produto (D1_COD) |
| PARAMIXB[2] | Caractere | Retorna o Local (D1_LOCAL) |
| PARAMIXB[3] | Numérico | Retorna se a movimentação soma ou subtrai : 1 = Operação de Entrada ; -1 = Operação de Saída |
RETORNO
EXEMPLO DE UTILIZAÇÃO 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 |