Histórico da Página

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

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 cResponse