Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Lucas Raminelli

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Wilsimar Fabricio Silva

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


...

EICOR100 - Integração com despachante

Ponto de Entrada

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

:= ""IF Type("ParamIXB"


Local aTexto

If ValType(ParamIXB) == "

C

A"

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

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->(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

Return

Return Nil

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

 "

ALTERA_PROCESSO

"

Caracter

Possibilita customizar

do

o campo processo do arquivo TXT da integração com despachante.


ANTES_CRIA_ARQCaracter

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_NVECaracterPermite a manipulação da tag NVEA do arquivo texto enviado ao despachante.
ITEACaracterExecutado 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.  
ITEBCaracterExecutado 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.  
ITECCaracterExecutado 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_FINALCaracterExecutado 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ódigoPrivateSimVariável onde é preenchida para alterar o campo Referencia do cliente no processo CAPI - Capa da PO/PI
Gip_LiteTabela TemporáriaPrivateSimTabela 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.
cTextoCaracterPrivateSim

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