Punto de entrada: CT105VLENT - Ente contable
Alcances: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
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 CT105VLENT permite la validación de los entes contables en el momento de la grabación del asiento contable de las rutinas CTBA102 y CTBA105, 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
CTBA105.PRW
Sintaxis
CT105VLENT - Ente contable ( [ Paramixb ], [ ] ) --> lRet
Parámetros:
Nombre | Tipo | Descripción | Estándar | Obligatorio | Referencia | ||||||||||||
Paramixb | Array of Record | ||||||||||||||||
Array of Record |
Devolución
lRet()
Ejemplos
User Function CT105VLENT()Local lRet := .T.Local cTipo := Paramixb[1] // Tipo de Asto. Contable 1-> Débito, 2-> Crédito, 3-> Partida dobleLocal cDebito := Paramixb[2] // Cuenta DébitoLocal cCredito := Paramixb[3] // Cuenta CréditoLocal cCustoDeb := Paramixb[4] // C.Costo DébitoLocal cCustoCrd := Paramixb[5] // C.Costo CréditoLocal cItemDeb := Paramixb[6] // Ítem contable DébitoLocal cItemCrd := Paramixb[7] // Ítem contable CréditoLocal cCLVLDeb := Paramixb[8] // Cl Valor DébitoLocal cCLVLCrd := Paramixb[9] // Cl Valor CréditoIf 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 loss // entidades não podem ser iguais e cancela a operação
Variables
Nombre | Tipo | Alcance | Puede modificar | descripción | ||||||||||
Array of Record | Global | No |