Histórico da Página

lRet := ExecBlock("CT101VLENT",.F.,.F.,{cTipo,cDebito,cCredito, cCustoDeb,cCustoCrd, cItemDeb,cItemCrd, cCLVLDeb,cCLVLCrd})

User Function  CT101VLENT()

	Local lRet		:= .T.
	Local cTipo		:= Paramixb[1] // TipoAccounting deentry lanc.type contabil1 1-> DebitoDebit, 2 -> CreditoCredit, 3 -> Partida DobradaDouble-entry
	Local cDebito	:= Paramixb[2] // ContaDebit DebitoAccount
	Local cCredito	:= Paramixb[3] // ContaCredit CreditoAccount
	Local cCustoDeb	:= Paramixb[4] // Debit C.CustoCost DebitoCenter
	Local cCustoCrd	:= Paramixb[5] // C.Custo CreditoCredit Cost Center
	Local cItemDeb	:= Paramixb[6] // ItemDebit ContabilAccounting DebitoItem
	Local cItemCrd	:= Paramixb[7] // ItemCredit ContabilAccounting CreditoItem
	Local cCLVLDeb	:= Paramixb[8] // ClDebit ValorValue DebitoClass
	Local cCLVLCrd	:= Paramixb[9] // ClCredit ValorValue CreditoClass

	If cDebito == cCredito // exemploExample deof condicaoa quecondition podethat sercan feitabe paracreated validacaofor dasentity entidadesvalidation	
		lRet := .F.
	Endif

Return lRet // seIf lRet = .F., the osystem sistema emitedisplays a message mensagemstating informandothat quethe as            // entidadesentities nãocannot podembe serthe iguaissame eand cancelacancels athe operacaooperation 

• Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
• Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.

• It should be noted that the use of the Entry Point (PE) and its impacts on the system are the customer's responsibility.
• The examples used in this documentation are for demonstration purposes only; each customer must determine the behavior they wish to implement according to the scope of the entry point.