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

User Function eicor100()
Local cParam

If ValType(ParamIXB) == "A" // sempre deve ter este código no rdmake para identifcar o nome do ponto de entrada
cParam:= ParamIXB[1]
Else
cParam:= ParamIXB
EndIf

Do Case
Case cParam == "DESC_IT_NVE"
cTexto := "NVEA TESTE DA DESCRICAO DO ITEM NA NVE PRODUTO"
EndCase

Return

==========================