| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | CTBA105 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46829 |
O ponto de entrada CT105VLENT permite a validação das entidades contábeis no momento da gravação do lançamento contábil, aplicável às rotinas CTBA102 e CTBA105. Esse ponto de entrada oferece a possibilidade de substituir a validação padrão que verifica a igualdade entre as entidades de débito e crédito, permitindo implementar critérios específicos e personalizados para a conformidade das entidades envolvidas nos lançamentos contábeis. Dessa forma, CT105VLENT garante flexibilidade na validação contábil, possibilitando ajustes para atender requisitos de negócio exclusivos.
lRet := ExecBlock("CT105VLENT",.F.,.F.,{cDC,cDebito,cCredito, cContCCD,cContCCC, cItemD,cItemC, cCLVLD,cCLVLC,cEnt05Db,cEnt05Cr,cEnt07Db,cEnt07Cr,cEnt08Db,cEnt08Cr,cEnt09Db,cEnt09Cr}) |
User Function CT105VLENT() Local lRet := .T. Local cTipo := Paramixb[1] // Tipo de lanc. contabil 1-> Debito, 2-> Credito, 3-> Partida Dobrada Local cDebito := Paramixb[2] // Conta Debito Local cCredito := Paramixb[3] // Conta Credito Local cCustoDeb := Paramixb[4] // C.Custo Debito Local cCustoCrd := Paramixb[5] // C.Custo Credito Local cItemDeb := Paramixb[6] // Item Contabil Debito Local cItemCrd := Paramixb[7] // Item Contabil Credito Local cCLVLDeb := Paramixb[8] // Cl Valor Debito Local cCLVLCrd := Paramixb[9] // Cl Valor Credito If cDebito == cCredito // exemplo de condicao que pode ser feita para validacao das entidades lRet := .F. // se lRet = .F. o sistema emite a mensagem informando que as // entidades não podem ser iguais e cancela a operação EndIf Return lRet |
|