Objetivo 

Permitir asociar Formulas a los Asientos Estándarestándar.

Definición

...

de la regla de negocio 

Consulta CWKESP
Crear la consulta especifica CWKESP, que llamara a la rutina CTB93CWK la cual realizara la visualización de las pantallas del prototipo 01 y del prototipo 03 al 05. Dependiendo del campo que solicito la consulta, será el tipo de pantalla desplegado:
Si los campo son de las cuentas contable (CT5_DEBITO, CT5_CREDIT), al seleccionar F3 mostrara la pantalla del Prototipo 01. Si selecciona Cuenta contable, mostrara la consulta estándar de las cuentas contable que ya actualmente lo hace.
Si los campo son de los centros de costo (CT5_CCD, CT5_CCC), al seleccionar F3 mostrara la pantalla del Prototipo 03. Si selecciona Centro de Costo, mostrara la consulta estándar de Centro de Costo que ya actualmente lo hace.
Si los campo son de las cuentas contable (CT5_ITEMD, CT5_ITEMC), al seleccionar F3 mostrara la pantalla del Prototipo 04. Si selecciona Ítems Contables, mostrara la consulta estándar de Ítems Contables que ya actualmente lo hace.
Si los campo son de las cuentas contable (CT5_CLVLDB, CT5_CLVLCR), al seleccionar F3 mostrara la pantalla del Prototipo 05. Si selecciona Clase Valor, mostrara la consulta estándar de Clase Valor que ya actualmente lo hace.
Si selecciono la consulta de Formulas Visualizara la consulta especifica CTB931, explicada en la siguiente sección.
A la pestaña de Valores se agregar la consulta CTB931 a los campos de valores (ct5_vlr01.. ct5_vlr05).

Consulta especifica CtB931CTB931.
Se creara la consulta específica CTB931 que llamara a la rutina CTBA080FOR que generara la pantalla como el prototipo 06.
El retorno de la consulta deberá ser el campo CWK_FOREJE.

Validaciones de los campos CT5_DEBITO, CT5_CREDIT, CT5_CCD, CT5_CCT, CT5_ITEMD, CT5_ITEMC, CT5_CLVLDB, CT5_CLVLCR, ct5_vlr01.. ct5_vlr05

Se creara creará la rutina CTB93VCA que se ejecutara ejecutará solo si el campo tiene la instrucción EjeFor , y validara validará que:

• La fórmula digitada como parámetro dentro de la función EjeFor, debe existir en el catálogo de formula la fórmula (CWK).
• Obtener las tablas o alias asociados a la formula (tablas cwq) y que estas existan en el Asiento estándar que se está configurando (tabla CWO), si al menos una no existe, no será una formula validaválida.

De no cumplir las validaciones, se enviará al usuario el aviso correspondiente y no se permitirá dejar ese este valor en el campo.

Al guardar el Asiento
Colocar la condición, si está en el rpo la función CTBA093, al guardar eliminara se eliminarán todos los registros contenidos para ese este asiento y secuencia en la tabla de relación de los asientos vs formulas ó(CWM) y después guardara se guardará la nueva relación, solo debe haber un código de formula fórmula relacionado a cada Asiento y secuencia.

Preparación de las tablas y formulas fórmulas al ejecutar el Asiento Estándar estándar (Cambios a la función DetProva)

Se entenderá primero la funcionalidad de la rutina DetProva ubicada en el fuente MATXFUNA.prx, ya que ahí hay que agregar el código para las siguientes acciones:

1. Preparar las tablas de usuario que serán usadas por el Asiento Estándarestándar:

Dentro de Matxfuna, crear la rutina POSTABCTB , la cual deberá seleccionar los registros de la tabla CWO que sean del código de asiento estándar en cuestión (cwo_codpto=ct5_lanpad), y que sean de del usuario (cwo _tipo='U'). Por cada registro, inicializar la tabla (cwo _tabla) con el índice (cwo _indice) y posicionándose (cwo _llave, solo si esta no está vacío el campo), para así dejar preparada la tabla que usara usará el asiento estándar.
Verificar en que qué parte de la rutina DetProva contenida en el fuente matxfuna.prx , es posible llamar a la rutina POSTABCT, y al llamarla meter una condición de si existe la función CTBA093 (formulasfórmulas) ejecutarla de otra forma no.

...

Crear la rutina EjeFor (en el fuente Matxfuna), la cual recibirá como dato de entrada el código de la fórmula del Asiento estándar y regresará como resultado el código ADVPL (cwk_advpl).

Function EjeFor(cFormula)
Local cForm := " "
Local cAliCWK := "CWK"
Local xRegreso:=Nil
DbSelectArea(cAliCWK)
(cAliCWK )->(dbSetOrder(1))
/*/
ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
³La fórmula debe existir en el catálogo de formula (CWK).³
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ/*/
If (cAliCWK )->(dbSeek(xFilial(cAliCWK )+cFormula))
cForm := AllTrim((cAliCWK )->CWK_ADVPL )
xRegreso:=&cForm
Else
Aviso( OemToAnsi(STR0037),OemToAnsi(STR0054) + cFormula + OemToAnsi(STR0055) + CT5->CT5_LANPAD , {OemToAnsi(STR0056)} ) //"Error. No se encontró la Formula Fórmula " // " del asiento " // "Ok"
EndIf
Return xRegreso
Verificar en que qué línea de la rutina DetProva contenida en el fuente MatxFuna.prx es pertinente llamar a la función EjecFor y debe ser ejecutada solo si existe la función CTBA093 (catálogo de fórmulas).

Tablas Utilizadasutilizadas

• CT5.-Asientos estándar
• CWK.-Formulas.
• CWQ.-Tablas vs. formulas
• CWO.- Tablas vs. Puntos de Asientoasiento
• CWM.-Formulas usadas por asientos estándar

Prototipo de

...

pantallas 

Release Notes 

Flujo de

...

proceso 

Diagrama de Entidad y Relación



Diccionario de Datos

...

...

Agregar los índices a las Tablastablas

...

CWKESP.- Consulta específica para crear la pantalla donde se permitirá al usuario seleccionar entre dos tipos de consulta.

...