CT105VLENT - Entidade contábil -- 23493

O ponto de e CT105VLENT permite a validação das entidades contábeis no momento da gravação do lançamento contábil das rotinas CTBA102 e CTBA105 , esse ponto de entrada pode substituir a validação atual que verifica se as entidades de débito e crédito são iguais.

CTBA105.PRW

CT105VLENT - Entidade contábil ( [ Paramixb ], [ ] ) --> lRet

lRet()

User Function  CT105VLENT()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 // exemplo de condicao que pode ser feita para validacao das entidades	lRet := .F.EndifReturn lRet // se lRet = .F.  o sistema emite a  mensagem informando que as            // entidades não podem ser iguais e cancela a operação