...
...
Producto |
...
: |
| ||||
Línea de | Produtoproducto: |
Linha | Linha Línea Protheus | ||
Segmento: |
| ||||
Módulo: | SIGAFAT - FaturamentoFacturación | ||||
Función: | MATN410.PRW | ||||
Alcances: | Microsiga Protheus 12 | ||||
Versiones: | Microsiga Protheus 12 | ||||
Países compatibles: | Todos | ||||
Sistemas | Operacionaisoperativos | Todos | |||
Compatible con las bases de datos: | Todos | ||||
Nivel de | Acessoacceso: | Nível Nivel 1 ( | AcessoAcceso Clientes) | ||
Idiomas: | Todos |
...
Este ponto punto de entrada pertence à rotina pertenece a la rutina de pedidos de venda e está localizado na função de gravação do pedido de venda de venta y se encuentra en la función de grabación de pedidos de venta 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 empenhoSe ejecuta después de la inclusión, modificación o liberación del pedido de venta para rehacer la información de liberación de stock considerando los registros del archivo SDC (Composición de Reserva).
| Informações | ||
|---|---|---|
| ||
Este Ponto punto de Entrada funcionará juntamente com o Ponto de Entrada M410PSDC, do qual receberá as informações com as quais irá trabalharentrada funcionará junto con el punto de entrada M410PSDC, del cual recibirá la información la que trabajará. |
...
M410RLIB (<aSaldo>) --> aNovSal
...
Nombre | Tipo | DescriçãoDescripción | |
aSaldo | Array | Array | com o saldo do arquivo SDC (gerado pelo ponto con el saldo del archivo SDC (generado por el punto de entrada M410PSDC) |
05. RESPUESTA RETORNO
Nombre | Tipo | DescriçãoDescripción | Obrigatório Obligatorio | |
aNovSal | Array | Array | com o novo saldo do arquivo con el nuevo saldo del archivo SDC. | X |
...
| Bloco de código | ||
|---|---|---|
| ||
#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 |
...