Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (fernando.gabriel), última alteração em 23 dez, 2021

CONTEÚDO

  1. Dados Gerais
  2. Descrição
  3. Sintaxe
  4. Parâmetros
  5. Retorno
  6. Exemplo

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:SIGAFAT - Faturamento
Função:MATN410.PRW
Abrangências:Microsiga Protheus 12
Versões:Microsiga Protheus 12
Compatível Países:Todos
Sistemas OperacionaisTodos
Compatível com as Bases de Dados:Todos
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Todos

02. DESCRIÇÃO

Este ponto de entrada pertence à rotina de pedidos de venda e está localizado na função de gravação do pedido de venda A410GRAVA(). É executado após inclusão, alteração ou liberação do pedido de venda para refazer as informações das liberações de estoque considerando os registros do arquivo SDC (composição de empenho).

Importante

Este Ponto de Entrada funcionará juntamente com o Ponto de Entrada M410PSDC, do qual receberá as informações com as quais irá trabalhar. 

03. SINTAXE

M410RLIB (<aSaldo>) --> aNovSal

04. PARAMÊTROS

Nome

Tipo

Descrição

aSaldoArrayArray com o saldo do arquivo SDC (gerado pelo ponto de entrada M410PSDC)


05. RETORNO 

Nome

Tipo

Descrição

Obrigatório 
aNovSalArrayArray com o novo saldo do arquivo SDC.X

06. EXEMPLO

#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'FWMVCDEF.CH'

User function M410RLIB()

Local aArea	  := GetArea()
Local aNovSal := IIF(Empty(PARAMIXB),{},PARAMIXB[1])

	If !Empty(aNovSal)
		DbSelectArea("SDC")
		DbSetOrder(1)
		If DbSeek(xFilial("SDC")+aNovSal[1]+aNovSal[2]+aNovSal[3]+aNovSal[4]+aNovSal[5])
			RecLock("SDC",.F.)
			SDC->DC_QUANT := aNovSal[6]
			MsUnlock()
		EndIf 
	EndIf

RestArea(aArea)

Return aNovSal