Histórico da Página

Descrição:

Disponibilizado o ponto de entrada EICOR100 com diversos parâmetros que possibilitam alterações na rotina de integração com despachante.

Exemplos:

User Function EICOR100()

Local cParam:= ""

IF Type("ParamIXB") == "C"
cParam:= PARAMIXB
Else
cParam:= PARAMIXB[1]
Endif

IF cParam == "ALTERA_PROCESSO"
msginfo("Entrou no ponto de entrada 'ALTERA_PROCESSO'")
//bProcPE :={ ||"TESTE" }
//bProcPE :={ ||SW2->W2_PO_NUM }
ENDIF

Return Nil

//-----Exemplo de utilização para manipulação da Work Gip_Lite

User Function EICOR100()
Local lRet := .T.
Local aTexto := {}

If PARAMIXB == "ANTES_CRIA_ARQ"
nRecno := Gip_Lite->(Recno())
nTamWkGip := Gip_Lite->(reccount()) 
Gip_Lite->(Dbgotop())
Do While Gip_Lite->(!Eof())
aAdd( aTexto, Alltrim(Gip_Lite->GIPTEXTO) )
Gip_Lite->(DbSkip())
EndDo
Gip_Lite->(Dbgotop())
EndIf

Return lRet
==========================