F330AE5E
User Function F330AE5E()Modifica el histórico de SE5 en el reverso de compensación por cobrar de FINA330.
Descripción general
La documentación específica identifica FINA330 y la modificación de SE5->E5_HISTOR en el reverso de compensación por cobrar. Parámetros y retorno figuran como no aplicables. Su ejemplo bloquea SE5, modifica el histórico y libera el registro. (TOTVS, ref. 1) La lista P12.2210 sitúa la llamada en FA330DESC. No es un PE del retorno SISPAG de FINA300, aunque índices antiguos lo clasifiquen incorrectamente. (Ref. 2)
Sintaxis
User Function F330AE5E()Retorno
No se aplica, según la sección oficial. El ejemplo TOTVS termina con Return NIL; no se documenta un retorno lógico de autorización del reverso. (Ref. 1)
Conservar el histórico y añadir un marcador de pruebas
#Include "Protheus.ch"
User Function F330AE5E()
// Adaptación editorial del ejemplo TOTVS (ref. 1); solo para pruebas.
Local aArea := GetArea()
Local aAreaSE5 := {}
// El llamador debe posicionar el registro correcto; esta guarda no lo identifica.
If Select("SE5") > 0
aAreaSE5 := SE5->(GetArea())
If !SE5->(Eof())
If RecLock("SE5", .F.)
// Conserva el texto existente dentro del tamaño del campo.
SE5->E5_HISTOR := Left(AllTrim(SE5->E5_HISTOR) + ;
" | Reverso de compensacion", Len(SE5->E5_HISTOR))
SE5->(MsUnlock())
EndIf
EndIf
RestArea(aAreaSE5)
EndIf
RestArea(aArea)
Return NilPropone añadir un marcador dentro del tamaño del campo. Si está lleno, el marcador puede truncarse. Realiza una escritura real en SE5 si obtiene el bloqueo. Usar solo tras comprobar la identidad del registro en pruebas. Ejemplo no compilado ni ejecutado en Protheus.
- El reverso de compensación por cobrar y el retorno bancario por pagar son procesos diferentes.
- Comprobar alias y EOF no identifica el movimiento correcto. Verificar el posicionamiento del llamador y la regla del histórico antes de usar.
- Comprobar RecLock y dejar el control de transacción a la rutina estándar; no añadir un commit propio al ejemplo.
- El ejemplo oficial reemplaza todo el histórico con texto fijo. Esta adaptación conserva el contenido dentro del límite del campo; definir cómo tratar falta de espacio y reversos repetidos.
- Plan editorial de pruebas: comparar el flujo estándar y la personalización en las operaciones descritas, comprobar los registros resultantes y registrar release y patch.
- En revisión: fuentes y ejemplo comprobados documentalmente; código no compilado ni ejecutado en Protheus. Posición exacta en la transacción y comportamiento en el release utilizado sin confirmar.
Comentarios
Todavía no hay comentarios aprobados.
Inicia sesión con Google o Microsoft para comentar.