Histórico da Página

#INCLUDE "protheus.ch"

user function EECDU100()

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