Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

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

Função:backoffice.apportionment.controller - Cadastro de Rateio
País:Brasil
Ticket:Interno
Requisito/Story/IssueDSERCTR1-50086

02. DESCRIÇÃO

O ponto de entrada CTBAPRTVLD possibilita a inclusão de validações após as padrões do sistema, contanto que esteja tudo correto com as validações padrão e com isso retornando um cResponse vazio ou não das entidades e se poderá prosseguir.

Caso no ambiente esteja utilizando entidades adicionais, a partir da 5ª posição será enviado o conteúdo das mesmas conforme exemplos

03. DEMAIS INFORMAÇÕES


Manipulação de PE no sistema
If lRet .And. lCTBAPRTVLD
    cResponse := ExecBlock("CTBAPRTVLD",.F.,.F.,{cEntCT1,cEntCTT,cEntCTD,cEntCTH,If(lEnt05,cEnt05,Nil),If(lEnt06,cEnt06,Nil),If(lEnt07,cEnt07,Nil),If(lEnt08,cEnt08,Nil),If(lEnt09,cEnt09,Nil)})
    lRet := Empty(cResponse)    
    If !lRet
        cResponse := cPrefMsg + " - " + cResponse
    EndIf
EndIf
Exemplo de PE
User Function CTBAPRTVLD()

	Local cEntidCT1 :=  ParamIXB[1]
 	Local cEntidCTT :=  ParamIXB[2]
 	Local cEntidCTD :=  ParamIXB[3]
 	Local cEntidCTH :=  ParamIXB[4]
    //Caso Utilize entidades adicionais
  	Local cEntid05 :=  ParamIXB[5] 
   	Local cEntid06 :=  ParamIXB[6]  
   	Local cEntid07 :=  ParamIXB[7]  
   	Local cEntid08 :=  ParamIXB[8]  
   	Local cEntid09 :=  ParamIXB[9]  

    Local cResponse := " "
	
	If cEntidCT1 <> 'XPTO123'
		cResponse := "Ok"
	
	Else
		cResponse :=  space(1)
	EndIf
	
   Return cResponse


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.