Histórico da Página

Local cParam   :=

 ""
Local nRec
Local lRet  := .T.

   if Type("ParamIXB") == "C

"
      cParam := PARAMIXB
   else
      if valtype( PARAMIXB[1] ) == "O"
         cParam := PARAMIXB[2]
      elseif valtype( PARAMIXB[1] ) == "C"
         cParam := PARAMIXB[1]
      endif
   endif

   Do Case
      Case cParam == "GEREKS"
         msginfo("Entrou no ponto de entrada 'GEREKS'")

      Case cParam == "OK_DUE"
         msginfo("Entrou no ponto de entrada 'OK_DUE'")
      
      Case cParam == "ALTERA_ITEM" .And. nOp == 1
         nRec:=EK2->(RecNo())

         EK2->(DBSEEK(xFilial("EK2") + cProc + cSeque ))

         Do While EK2->(!Eof()) .And. EK2->EK2_PROCES = cProc .And. EK2->EK2_NUMSEQ =

 cSeque
            EK2->EK2_PSLQUN := EK2->EK2_PSLQUN +

 10
            EK2->(DbSkip())

         EndDo
         EK2->(DBGOTO(nRec))

   EndCase

return lRet