CT101VLENT - Entidades contábeis -- 23482

O ponto de entrada CT101VLENT permite a validação das entidades contábeis no momento da gravação do lançamento contábil da rotina CTBA101 (lançamentos contábeis manuais), esse ponto de entrada pode substituir a validação atual que verifica se as entidades de débito e crédito são  iguais.

CTBA101.PRW

CT101VLENT - Entidades contábeis ( [ ], [ ] ) --> lRet

lRet()

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 // 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 operacao