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 aParam[1] + ENTER

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

   cMsg += " Variável nOpc:......" + Alltrim(Str(nOpcaParam[3])) + ENTER

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

   cMSg += " variável aEEQAuto:.." + alltrim(str( len(aParam[4]) )) + ENTER



   For x:= 1 to len(aEEQAuto)

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

   Next

   Msgalert( cMsg , "EECAF900" )

 Return lXRet