Producto:
Línea de producto:
Línea Protheus
Segmento:
Módulo:
Función:
Alcances:
Versiones:
Países compatibles:
Sistemas operativos
Compatible con las bases de datos:
Nivel de acceso:
Idiomas:
Producto: | |
Línea de producto: | Línea Protheus |
Segmento: | |
Módulo: | SIGAFAT - Facturación |
Función: | MATN410.PRW |
Alcances: | Microsiga Protheus 12 |
Versiones: | Microsiga Protheus 12 |
Países compatibles: | Todos |
Sistemas operativos | Todos |
Compatible con las bases de datos: | Todos |
Nivel de acceso: | Nivel 1 (Acceso Clientes) |
Idiomas: | Todos |
Este punto de entrada pertenece a la rutina de pedidos de venta y se encuentra en la función de grabación de pedidos de venta A410GRAVA(). Se 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).
Este punto de entrada funcionará junto con el punto de entrada M410PSDC, del cual recibirá la información la que trabajará. |
M410RLIB (<aSaldo>) --> aNovSal
Nombre | Tipo | Descripción |
aSaldo | Array | Array con el saldo del archivo SDC (generado por el punto de entrada M410PSDC) |
05. RESPUESTA
Nombre | Tipo | Descripción | Obligatorio |
aNovSal | Array | Array con el nuevo saldo del archivo 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 |