Punto de Entrada FIN846DEL

Características del Requisito

Descripción 

Se crea el punto de entrada FIN846DEL en la rutina FINA846 - Recibos Diversos II, con el objetivo de que el usuario pueda incluir validaciones para la opción "Anular/Borrar" de la rutina.

Procedimiento de Utilización 

Ejemplo:

Punto de entrada con retorno falso

1. Crear la función de usuario FIN846DEL para no permitir la anulación; definir mensaje al usuario y retornar un valor .F. (falso).
   
   
2. Dentro del módulo Financiero ejecutar la rutina Cobros Diversos II (Actualizaciones|Proceso Mod II).
   
   
3. Se selecciona el recibo de cobro que se desea anular, el cual debe tener estatus activo (Verde).
   
   
4. Se selecciona la opción Otras Acciones | Anular/Borrar.
   
   
5. Al confirmar la anulación se ejecuta el punto de entrada FIN846DEL.
   
   
6. La función de usuario efectúa las validaciones personalizadas y retorna un arreglo en donde se indica si procede o no la anulación.
   
   
7. En este caso el primer parámetro del retorno del punto de entrada es .F. (Falso) lo cual no permite la anulación del recibo de cobro, muestra una ventana con los textos informados en los parámetros 2 a 4.
   
   
   

 Punto de entrada con retorno verdadero

1. Crear la función de usuario FIN846DEL para permitir la anulación; retornar un valor .T. (verdadero).
   
   
2. Dentro del módulo Financiero ejecutar la rutina Cobros Diversos II (Actualizaciones|Proceso Mod II).
   
   
3. Se selecciona el recibo de cobro que se desea anular, el cual debe tener estatus activo (Verde).
   
   
4. Se selecciona la opción Otras Acciones | Anular/Borrar.
   
   
5. Al confirmar la anulación se ejecuta el punto de entrada FIN846DEL.
   
   
6. La función de usuario efectúa las validaciones personalizadas y retorna un arreglo en donde se indica si procede o no la anulación.
   
   
7. En este caso el primer parámetro del retorno del punto de entrada es .T. (Verdadero) lo que permite la anulación del recibo de cobro.
   
   

Se sigue el mismo procedimiento para borrar un Cobro Diverso, el cual debe haber sido anulado previamente (Estatus rojo).

Punto de Entrada

Ejemplo:

#Include 'Protheus.ch'

User Function FIN846DEL()
Local cRecibo := Paramixb[1]
Local cSerie := Paramixb[2]
Local cCanc := Paramixb[3]
Local aReturn := {.F.,"","",""}

If cCanc <> '1'
     aReturn[1] := .T. 
     aReturn[2] := "Anulación de recibo"
     aReturn[3] := "El usuario no tiene derechos para anulación"
     aReturn[4] := "Informe al administrador del sistema"
Else
     aReturn[1] := .T.
     aReturn[2] := "Borrado de recibo"
     aReturn[3] := "El usuario no tiene derechos para borrado"
     aReturn[4] := "Informe al administrador del sistema"
EndIf

Return aReturn