CT101VLENT - Entes contables -- 23482

Punto de entrada: CT101VLENT - Entes contables

Descripción:

El punto de entrada CT101VLENT permite la validación de los entes contables en el momento de la grabación del asiento contable de la rutina CTBA101 (asientos contables manuales), este punto de entrada puede sustituir la validación actual que verifica si los entes de débito y crédito son iguales.

Programa fuente

CTBA101.PRW

Sintaxis

CT101VLENT - Entes contables ( [ ], [ ] ) --> lRet

Parámetros:

Devolución
            lRet()

Ejemplos

User Function  CT101VLENT()Local lRet              := .T.Local cTipo                        := Paramixb[1] // Tipo de lanc. contabil 1-> Debito, 2-> Credito, 3-> Partida DobradaLocal cDebito := Paramixb[2] // Conta DebitoLocal cCredito := Paramixb[3] // Conta CreditoLocal cCustoDeb            := Paramixb[4] // C.Custo DebitoLocal cCustoCrd  := Paramixb[5] // C.Custo CreditoLocal cItemDeb      := Paramixb[6] // Item Contabil DebitoLocal cItemCrd           := Paramixb[7] // Item Contabil CreditoLocal cCLVLDeb   := Paramixb[8] // Cl Valor DebitoLocal cCLVLCrd        := Paramixb[9] // Cl Valor CreditoIf cDebito == cCredito // ejemplo de condición que puede realizarse para validación de los entes           lRet := .F.EndifReturn lRet // se lRet = .F.  el sistema emite el  mensaje informando que los            // entes no pueden ser iguales u anula la operación 

Variables