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.

Localização:

Miscelânea/Int. despachante

Veja também:

Envio de dados do Purchase Order e Embarque/Desembaraço ao Despachante

Exemplos:

User Function EICOR100()
Local cParam
Local aTexto

If ValType(ParamIXB:= ""IF Type("ParamIXB") == "CA"

cParam:=

PARAMIXB

ParamIXB[1]

Else

cParam:=

PARAMIXB[1]
Endif

ParamIXB

EndIf

Do Case

Case

IF

cParam == "ALTERA_PROCESSO"

msginfo

MsgInfot("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 ==

Case cParam == "ANTES_CRIA_ARQ"

nRecno := Gip_Lite->(Recno())
nTamWkGip := Gip_Lite->(reccount())

Gip_Lite->(Dbgotop())

//exemplo de manipulação da tabela temporária Gip_Lite
Do While Gip_Lite->(!Eof())

aAdd( aTexto, Alltrim(Gip_Lite->GIPTEXTO) )
Gip_Lite->(DbSkip())

EndDo
Gip_Lite->(

Dbgotop

DbGoTo(nRecno))

Case cParam == "DESC_IT_NVE"

//exemplo de manipulação da variável cTexto
cTexto:= "NVEA TESTE DA DESCRICAO DO ITEM NA NVE PRODUTO"

Case cParam == "ITEA"

//exemplo de manipulação da variável cTexto
cTexto += "texto adicional"

Case cParam == "ITEB"

//exemplo de manipulação da variável cTexto
cTexto += "texto adicional"

Case cParam == "ITEC"

//exemplo de manipulação da variável cTexto
cTexto += "texto adicional"

Case cParam == "ITED_FINAL"

//exemplo de manipulação da variável cTexto
cTexto += "texto adicional"

EndCase

ReturnEndIfReturn lRet
==========================

Parâmetros:

Nome	Tipo	Descrição	Obrigatório
"ALTERA_PROCESSO"	Caracter	Possibilita customizar o campo processo do arquivo TXT da integração com despachante.
"ANTES_CRIA_ARQ"	Caracter	Permite a renomeação do arquivo .TXT que será destinado ao despachante com o numero da PO escolhida. Permite a manipulação do arquivo de trabalho(tabela temporária) "Gip_Lite" onde cada linha do arquivo possui no campo "GIPTEXTO" a descrição já carregada pelo sistema conforme o processo posicionado x layout de envio de dados da DI ao despachante.
DESC_IT_NVE	Caracter	Permite a manipulação da tag NVEA do arquivo texto enviado ao despachante.
ITEA	Caracter	Executado ao final do processamento dos itens do Purchase Order iniciados com o identificador ITEA, permite a manipulação dos dados que serão usados na geração do arquivo de integração com o despachante. Neste momento estará disponível para alteração a variável cTexto.
ITEB	Caracter	Executado ao final do processamento dos itens do Purchase Order iniciados com o identificador ITEB, permite a manipulação dos dados que serão usados na geração do arquivo de integração com o despachante. Neste momento estará disponível para alteração a variável cTexto.
ITEC	Caracter	Executado ao final do processamento dos itens do Purchase Order iniciados com o identificador ITEC, permite a manipulação dos dados que serão usados na geração do arquivo de integração com o despachante. Neste momento estará disponível para alteração a variável cTexto.
ITED_FINAL	Caracter	Executado ao final do processamento dos itens do Purchase Order iniciados com o identificador ITED, permite a manipulação dos dados que serão usados na geração do arquivo de integração com o despachante. Neste momento estará disponível para alteração a variável cTexto.

Variáveis:

Nome

Tipo

Escopo

Pode Alterar

Descrição

bProcPE

Bloco código

Private

Sim

Variável onde é preenchida para alterar o campo Referencia do cliente no processo CAPI - Capa da PO/PI

Gip_Lite

Tabela Temporária

Private

Sim

Tabela temporária onde cada linha do arquivo possui no campo "GIPTEXTO" a descrição já carregada pelo sistema conforme o processo posicionado x layout de envio de dados da DI ao despachante. Cada linha inicia-se com o identificador de linha conforme o layout de envio onde via ponto de entrada pode-se navegar pelo arquivo e manipular uma ou mais linhas do arquivo alterando o texto não ultrapassando o limite máximo do campo e conforme o posicionamento de cada informação no arquivo para o sistema de destino.

cTexto

Caracter

Private

Sim

Esta variável, quando executado o ponto de entrada com o parâmetro DESC_IT_NVE, conterá os dados da NVE de cada item, podendo ser alterado pelo ponto de entrada, porém para a geração correta do arquivo deve sempre começar com o idendificador NVEA.

Quando executado o ponto de entrada com o parâmetro ITEA conterá os dados do item do Purchase Order iniciados com o identificador ITEA.

Quando executado o ponto de entrada com o parâmetro ITEB conterá os dados do item do Purchase Order iniciados com o identificador ITEB.

Quando executado o ponto de entrada com o parâmetro ITEC conterá os dados do item do Purchase Order iniciados com o identificador ITEC.

Quando executado o ponto de entrada com o parâmetro ITED_FINAL conterá os dados do item do Purchase Order iniciados com o identificador ITED.

Programa Fonte:

EICOR100.PRW

Árvore de páginas

Versões comparadas

Versão antiga 5

Nova versão Atual

Chave