Histórico da Página

...

02. EXEMPLO DE UTILIZAÇÃO

03. TELA XXXXX

Outras Ações / Ações relacionadas

...

04. TELA XXXXX

Principais Campos e Parâmetros

...

User Function EECAP100()
Local cParamIXB
Local lRet:= .T.
Local nPos

Begin Sequence

If ValType(ParamIXB) == "A"

   cParamIXB:= ParamIXB[1]

Else

   cParamIXB:= ParamIXB

EndIf

Do Case

Case cParamIXB == "PE_COPYPED"

/*
Exemplo quando acessada a ação de cópia do processo

If ParamIXB[3] //se foi selecionada a cópia dos itens

   WorkIt->(DBgoTop())
While WorkIt->(!Eof())

   WorkIt->EE8_ZZZZZ:= ""
   WorkIt->(DBSkip())

EndDo

WorkIt->(DBgoTop())

EndIf

*/

Case cParamIXB == "GRV_WORK"

   MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'GRV_WORK'")

EndCase

End Sequence

Return lRet

03. PARÂMETROS

04. VARIÁVEIS

...

05. TABELAS UTILIZADAS

• Não há.
  
  

  
  

  
  

...