Producto: | TOTVS Backoffice |
---|---|
Línea de producto: | Línea Protheus |
Segmento: | Servicios |
Módulo: | TOTVS Backoffice (Línea Protheus) - Contabilidad de gestión (SIGACTB) |
Función: | CTBA270 |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46829 |
El punto de entrada CT101VLENT permite la validación de los entes contables en el momento de la grabación de asientos contables manuales, específicamente en la rutina CTBA101. De esta manera, puede garantizarse que se apliquen reglas contables personalizadas antes de la finalización del registro permitiendo o no la grabación.
lRet := ExecBlock("CT101VLENT",.F.,.F.,{cTipo,cDebito,cCredito, cCustoDeb,cCustoCrd, cItemDeb,cItemCrd, cCLVLDeb,cCLVLCrd})
User Function CT101VLENT() Local lRet := .T. Local cTipo := Paramixb[1] // Tipo de asiento contable 1-> Débito, 2-> Crédito, 3-> Partida doble Local cDebito := Paramixb[2] // Cuenta Débito Local cCredito := Paramixb[3] // Cuenta Crédito Local cCustoDeb := Paramixb[4] // C.Costo Débito Local cCustoCrd := Paramixb[5] // C.Costo Crédito Local cItemDeb := Paramixb[6] // Ítem Contable Débito Local cItemCrd := Paramixb[7] // Ítem Contable Crédito Local cCLVLDeb := Paramixb[8] // Cl Valor Débito Local cCLVLCrd := Paramixb[9] // Cl Valor Crédito If cDebito == cCredito // ejemplo de condición que puede realizarse para validación de los entes lRet := .F. Endif Return lRet // se lRet = .F. el sistema emite el mensaje informando que los // entes no pueden ser iguales y anula la operación
Importante