| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | SIGAFAT - Faturamento |
| Função: | MATN410.PRW |
| Abrangências: | Microsiga Protheus 12 |
| Versões: | Microsiga Protheus 12 |
| Compatível Países: | Todos |
| Sistemas Operacionais | Todos |
| Compatível com as Bases de Dados: | Todos |
| Nível de Acesso: | Nível 1 (Acesso Clientes) |
| Idiomas: | Todos |
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).
Este Ponto de Entrada funcionará juntamente com o Ponto de Entrada M410PSDC, do qual receberá as informações com as quais irá trabalhar. |
M410RLIB (<aSaldo>) --> aNovSal
Nome | Tipo | Descrição |
|---|---|---|
| aSaldo | Array | Array com o saldo do arquivo SDC (gerado pelo ponto de entrada M410PSDC) |
05. RETORNO
Nome | Tipo | Descrição | Obrigatório |
|---|---|---|---|
| aNovSal | Array | Array com o novo saldo do arquivo SDC. | X |
#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 |