Punto de entrada: CT101VLENT - Entes contables
Versiones: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatible países: | Todos |
Sistemas operativos: | Todos |
Compatible con las bases de datos: | Todas |
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:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
Array of Record | |||||||||||||||||
Array of Record |
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
Nombre | Tipo | Alcance | Puede modificar | Descripción | ||||||||||
Array of Record | Global | No |