Histórico da Página

...

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

Bloco de código

language	cpp
theme	RDark
title	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

Bloco de código

language	cpp
theme	RDark
title	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 cEntidcEntidCT1 <> 'XPTO123'
		cResponse := "Ok"
	
	Else
		cResponse :=  space(1)
	EndIf
	
   Return  cRetorno  cResponse

Aviso

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

...

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão Atual

Chave

03. DEMAIS INFORMAÇÕES