Árvore de páginas

Ponto-de-Entrada: CT101VLENT - Entidades contábeis
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição:
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.
Programa Fonte
CTBA101.PRW
Sintaxe

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

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Array of Record
Retorno
    lRet()
Exemplos
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 
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não