Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Tecnologia

Módulo:

TOTVS Backoffice (Linha Protheus) - Contabilidade Gerencial (SIGACTB)

Função:CTBA105
País:Brasil
Ticket:Interno
Requisito/Story/IssueDSERCTR1-46829

02. DESCRIÇÃO


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.

03. DEMAIS INFORMAÇÕES


Manipulação de PE no sistema
lRet := ExecBlock("CT105VLENT",.F.,.F.,{cDC,cDebito,cCredito, cContCCD,cContCCC, cItemD,cItemC, cCLVLD,cCLVLC,cEnt05Db,cEnt05Cr,cEnt07Db,cEnt07Cr,cEnt08Db,cEnt08Cr,cEnt09Db,cEnt09Cr})
Exemplo de PE
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


Importante !!

  • 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.

04. ASSUNTOS RELACIONADOS

  • Não se aplica.