Histórico da Página

User Function AF900VLD()

Local aParam   := ParamIXB

Local lXRet    := .F.

Local cMsg     := ""

Local x

   cMsg := "Passando pelo ponto de entrada de validação AF900VLD "

   cMsg += " Variável cAction:..." + cAction + ENTER

   cMsg += " Variável lBloqueia:." + iif( lBloqueia , ".T." , ".F." ) + ENTER

   cMsg += " Variável nOpc:......" + Alltrim(Str(nOpc)) + ENTER

   cMsg += " Variável lRet:......" + iif( lRet , ".T." , ".F." ) + ENTER

   cMSg += " variável aEEQAuto:.." + ENTER



   For x:= 1 to len(aEEQAuto)

     cMSg += " aEEQAuto["+alltrim(str(x))+"]:........" + aEEQAuto[x] + ENTER

   Next

   Msgalert( cMsg , "EECAF900" )

 Return lXRet