Punto de entrada para validar o modificar los datos de retenciones en la rutina de cobros diversos.
Punto de entrada para VALIDAR los valores de las retenciones.
Punto de entrada para MÓDIFICAR los valores de las retenciones.
Parámetros recibidos: | Nombre | Tipo | Descripción |
---|
PARAMIXB[1] | O | Objeto del formulario o del modelo, conforme el caso | PARAMIXB[2] | C | ID del local de ejecución del punto de entrada. | PARAMIXB[3] | C | ID del Model. |
|
Respuesta: | N/A |
Bloco de código |
---|
language | java |
---|
firstline | 1 |
---|
title | Ejemplo |
---|
linenumbers | true |
---|
collapse | true |
---|
|
#include "Protheus.ch"
#include "FWMVCDEF.CH"
User Function FINA887()
Local aParam := PARAMIXB
Local oModel := aParam[1]
Local oModelSEL := oModel:GetModel("SEL_DETAIL") //Datos correspondientes a los registros de la tabla SEL
Local cIdPonto := ""
Local cIdModel := ""
Local lRet := .T.
Local nSEL := 1
If aParam <> NIL
oModel := aParam[1]
cIdPonto := aParam[2]
cIdModel := aParam[3]
If cIdPonto == 'MODELCOMMITNTTS'
CONOUT('MODELCOMMITNTTS')
IF cIdModel == 'FINA887'
For nSEL:= 1 To oModelSEL:Length()
If oModelSEL:GetValue("EL_TIPODOC",nSEL) $ 'RI|RB|RG|RM|RS|RR'
SEL->(DbSetOrder(8))
SEL->(DbGotop())
SEL->(MsSeek(xFilial("SEL")+oModelSEL:GetValue("EL_SERIE",nSEL)+oModelSEL:GetValue("EL_RECIBO",nSEL)))
RecLock("SEL",.F.)
If SEL->(ColumnPos('EL_EJEMPLO')) > 0
SEL->EL_EJEMPLO := "MODIFI"
ENDIF
MsUnlock()
nSEL := oModelSEL:Length()
ENDIF
NEXT
ENDIF
CONOUT('BUTTONBAR')
EndIf
EndIf
Return lRet
|