| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | CTBA270 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46829 |
O ponto de entrada CT101VLENT permite a validação das entidades contábeis no momento da gravação de lançamentos contábeis manuais, especificamente na rotina CTBA101. Dessa forma, pode-se garantir que regras contábeis personalizadas sejam aplicadas antes da finalização do lançamento permitindo ou não a gravação.
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 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. Endif Return lRet // se lRet = .F. o sistema emite a mensagem informando que as // entidades não podem ser iguais e cancela a operacao |
|