Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (tamyris.g), última alteração por Usuário desconhecido (rafael.voltz) em 17 mar, 2020


Ponto de Entrada para Integração com EEC - Instrução de Embarque x Processo de Exportação

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Agroindústria

Módulo:

SIGAAGR

Rotina:

Rotina

Nome Técnico

OGA710

Instrução de Embarque

País(es):

Todos

Versões/Release:

12.1.20

Descrição

Ponto de Entrada que permite alterar as informações enviadas na geração do Processo de Exportação, a partir da Instrução de Embarque.


Ponto de Entrada


Descrição:

Alteração das informações do Processo de Exportação

Localização:

Integração da IE com o Processo de Exportação da EEC (EECAP100)

Programa Fonte:

OGA710 - Instrução de Embarque

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

PARAMIXB[1]Array

Array com os dados a serem enviados pela MsExecAuto() para gravação automática do cabeçalho do processo


Exemplo:


{ {'EE7_FILIAL' ,'01' ,NIL},; 
{'EE7_IMPORT' ,'001' ,NIL},; 
{'EE7_IMLOJA' ,'01' ,NIL},; 
{'EE7_IMPODE' ,"IMPORTADOR" ,NIL},; 
{'EE7_FORN' ,'001' ,NIL},; 
{'EE7_FOLOJA' ,'01' ,NIL},; 
{'EE7_FORNDE' ,"FORNECEDOR" ,NIL};
{'EE7_IDIOMA' ,"INGLES-INGLES" ,NIL};
{'EE7_CONDPA' ,'001' ,NIL};
{'EE7_DIASPA' ,'30' ,NIL};
{'EE7_DESCPA' ,"COND.PAGAMENTO" ,NIL};
{'EE7_MPGEXP' ,'003' ,NIL};
{'EE7_DSCMPE' ,"COBRANCA" ,NIL};
{'EE7_INCOTE' ,'FOB' ,NIL};
{'EE7_MOEDA' ,'US$' ,NIL};
{'EE7_FRPPCC' ,'PP' ,NIL};
{'EE7_VIA' ,'02' ,NIL};
{'EE7_VIA_DE' ,"VIA TRANSP." ,NIL};
{'EE7_ORIGEM' ,'AGA' ,NIL};
{'EE7_DSCORI' ,"ACEGUA-RS" ,NIL};
{'EE7_DEST' ,'VYX' ,NIL};
{'EE7_DSCDES' ,"VITORIA-ES" ,NIL};
{'EE7_PAISET' ,'105' ,NIL};
{'EE7_TIPTRA' ,'1' ,NIL}}


Sim
PARAMIXB[2]Array

Array com os dados a serem enviados pela MsExecAuto() para gravação automática do cabeçalho dos itens do processo

Exemplo:

{{'EE8_COD_1' ,'0001' , NIL},;
{'EE8_VMDES' ,"CARRO" , NIL},; 
{'EE8_FORN' ,'001' , NIL},; 
{'EE8_FOLOJA' ,'01' , NIL},; 
{'EE8_SLDINI' , 10 , NIL},; 
{'EE8_EMBAL1' , '001' , NIL},; 
{'EE8_QE' , 1 , NIL},; 
{'EE8_QTDM1' , 10 , NIL},; 
{'EE8_PSLQUN' , 2 , NIL},; 
{'EE8_POSIPI' , 01011010 , NIL},; 
{'EE8_PRECO' , 10 , NIL}})

Sim
PARAMIXB[3]Num

Ação:

3- Inclusão
4- Alteração é necessário o uso do campo
5- Exclusão é necessário o uso do campo

Sim

Retorno:

Nome

Tipo

Descrição

Obrigatório

aCab

Array

Cabeçalho do Processo de Exportação

Sim

aItens 

Array

Cabeçahlo dos Itens

Sim



Exemplo: OG710001 - Exemplo para alteração da TES

1
2
3
4
5

#include 'protheus.ch'
#include 'parmtype.ch'

user function OG710001()
Local aCab := PARAMIXB[1]
Local aItens := PARAMIXB[2]
Local nOpcao := PARAMIXB[3]
Local aRet := {}
Local nX := 0

//Procura posição do array que contém o campo 'TES'
nScan := AScan( aItens[1], {|x| AllTrim(x[1]) == "EE8_TES" } )

//Atualiza o campo com o novo valor
For nX := 1 To Len(aItens)
aItens[nX][nScan][2] := '599' //TES Alterada
Next nX

aADD(aRet,aCab)
aADD(aRet,aItens)

return aRet






  • Sem rótulos