PARAMIXB[1]ArrayContexto de ejecución
Títulos seleccionados para reverso/eliminación. (Ref. 1)
PUNTO DE ENTRADAEn revisión
F330EXCOMP
User Function F330EXCOMP()Valida la eliminación o el reverso de compensación por cobrar.
Descripción general
El TDN documenta PARAMIXB[1] como títulos, [2] como registros SE5 y [3] como operación: 5 para reverso y 4 para eliminación. .T. permite la operación y .F. la cancela. Lista 12 posiciones por título, incluyendo documento, E5_SEQ, importe neto, importe compensado y sucursal; no es la estructura de cinco valores de F330ESE5. (Ref. 1) La llamada comunitaria confirma tres argumentos. (Ref. 2)
Sintaxis
User Function F330EXCOMP()Parámetros
PARAMIXB[2]ArrayContexto de ejecución
Registros con RecNo de SE5 vinculados a la compensación. (Ref. 1)
PARAMIXB[3]NumericContexto de ejecución
Operación: 5 reverso; 4 eliminación. (Ref. 1)
Retorno
Lógico: .T. permite eliminación/reverso; .F. cancela la operación y mantiene los registros íntegros, según la ficha.
Ejemplo editorial basado en la documentación
#Include "Protheus.ch"
User Function F330EXCOMP()
// Adaptado del ejemplo TOTVS (ref. 1); confirmación solo interactiva.
Local nOperacion := PARAMIXB[3]
Local lPermitir := .F.
If Len(PARAMIXB[1]) > 0 .And. Len(PARAMIXB[2]) > 0
If nOperacion == 5
lPermitir := MsgYesNo("Confirmar reverso de la compensacion?")
ElseIf nOperacion == 4
lPermitir := MsgYesNo("Confirmar eliminacion de la compensacion?")
EndIf
EndIf
Return lPermitirResultado esperado
Propuesta didáctica con el comportamiento descrito en los comentarios. Comprobar el contexto antes de compilar en pruebas. En revisión: ejemplo no compilado ni ejecutado en Protheus. Comprobar aliases, bloqueos, posición transaccional y compatibilidad en el release y patch utilizados.
Llamada observada y contexto
// Fragmento del llamador P12.2210 (EURAI, ref. 2); no es una implementación del PE.
// FINA330.PRX - FA330DESC() -> LF330EXCLUI := (EXECBLOCK( "F330EXCOMP", .F., .F.,{ATITULOS,AREGISTROS,NOPC}))Resultado esperado
El registro muestra argumentos y uso inmediato del retorno cuando existen. Omite el cuerpo completo del llamador y no demuestra el momento del commit.
- El diálogo es ilustrativo y requiere ejecución interactiva. Probar operaciones 4 y 5 por separado y comprobar títulos, movimientos y contabilidad tras una respuesta negativa.
- Una llamada sin cuarto argumento no documenta una estructura de PARAMIXB. Conservar identificadores del llamador y no inventar campos ni posiciones.
- Plan de pruebas: comparar el flujo estándar y personalizado, probar éxito, rechazo y repetición y comprobar saldos, movimientos y contabilidad según el proceso.
- En revisión: ejemplo no compilado ni ejecutado en Protheus. Comprobar aliases, bloqueos, posición transaccional y compatibilidad en el release y patch utilizados.
Comentarios
Todavía no hay comentarios aprobados.
Inicia sesión con Google o Microsoft para comentar.