EECAE100 - MsExecAuto Rotina Automática de Embarque de Exportação

Descrição:

Possibilita a realização das manutenções do Embarque de Exportação, tais como Inclusão, Alteração e Exclusão, através do mecanismo de rotina automática.

Produto:

Microsiga Protheus

Segmento:

Comércio Exterior

Módulo:

SIGAEEC - Easy Export Control

Rotina:

Rotina	Nome Técnico
EECAE100.PRW	Manutenção de Embarques de processos de exportação
EECAE102.PRW	Manutenção de Embarques de Exportação
EECAP106.PRW	Manutenção de Embarques de Exportação
AVGERAL.PRW	Função genérica para os módulos de Comércio Exterior
UPDEEC.PRW	Funções de atualização de dicionários do módulo de Exportação - SIGAEEC

País(es):

Todos

Banco(s) de Dados:

Todos Homologados pela TOTVS

Tabelas Utilizadas:

EEC - Capa do Embarque de Exportação

EE9 - Itens do Embarque de Exportação

EXL - Dados Complementares do Embarque

EEN - Notify

EXB - Agenda de Atividades/Documentos

EEB - Agentes de um Pedido

Parâmetros:

Nome	Tipo	Descrição	Obrigatório
nOpc	Numérico	Opção: 3=Incluir; 4=Alterar; 5=Excluir;	X
aDados	Array of Record	Array com os dados para integração automática	X

Observações:

Alguns campos das tabelas EEC, EE9, EXL, EEN, EXB e EEB podem receber o tratamento via dicionario de dados (SX3), o qual permite ser utilizado somente por alguns módulos (X3_USADO).
Para esses casos é necessário executar a preparação do ambiente passando a opção do módulo ativo.

Exemplo: PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" Modulo "EEC" TABLES "EEC", "EE9"

Exemplo - Inclusão de Embarque automático com Auxiliares (Notify (EEN), Agenda de Documentos (EXB) e Agente de Comissão (EEB) )

#Include "Totvs.Ch"
#include "tbiconn.ch"
User Function CriaEmb()

Local aCab := {}
Local aItens := {}
Local aDados := {}

Private lMsErroAuto := .F.

PREPARE ENVIRONMENT EMPRESA '99' FILIAL '01' USER 'Administrador' PASSWORD '' TABLES 'EEC,EE9' MODULO 'EEC'

//Dados da Capa do Embarque
aCab :={{'EEC_PREEMB' , "EMB-AUT001" ,NIL},;
{'EEC_IMPORT' ,'001' ,NIL},;
{'EEC_IMLOJA' ,'01' ,NIL},;
{'EEC_IMPODE' ,"CLIENTE 001" ,NIL},;
{'EEC_FORN' ,'001' ,NIL},;
{'EEC_FOLOJA' ,'01' ,NIL},;
{'EEC_IDIOMA' ,"PORT. -PORTUGUES" ,NIL},;
{'EEC_CONDPA' ,"001" ,NIL},;
{'EEC_DIASPA' , 0 ,NIL},;
{'EEC_MPGEXP' ,'001' ,NIL},;
{'EEC_INCOTE' ,'FOB' ,NIL},;
{'EEC_MOEDA' ,'US$' ,NIL},;
{'EEC_FRPPCC' ,'PP' ,NIL},;
{'EEC_UNIDAD' ,'KG' ,NIL},;
{'EEC_EMBAFI' ,' ' ,NIL},;
{'EEC_CALCEM' ,'1' ,NIL},;
{'EEC_VIA' ,'02' ,NIL},;
{'EEC_ORIGEM' ,'SSZ' ,NIL},;
{'EEC_DEST' ,'HST' ,NIL},;
{'EEC_PAISET' ,'249' ,NIL},;
{'EEC_VIA_DE' ,"NOME DA VIA" ,NIL},;
{'EEC_TIPTRA' ,'1' ,NIL}}

aAdd(aDados, {"EEC", aCab})

//Dados dos Itens do Embarque
aItens := {}

aAdd(aItens, {{'EE9_PEDIDO' ,"EMB-AUT001" , NIL},;
{'EE9_SEQUEN' ,"1" , NIL},;
{'EE9_COD_I' ,'001' , NIL},;
{'EE9_FORN' ,'001' , NIL},;
{'EE9_FOLOJA' ,'01' , NIL},;
{'EE9_SLDINI' , 3737.95 , NIL},;
{'EE9_QE' ,197 , NIL},;
{'EE9_QTDEM1' ,19 , NIL},;
{'EE9_EMBAL1' ,'01' , NIL},;
{'EE9_PSLQUN' ,200 , NIL},;
{'EE9_PRECO' ,2100 , NIL},;
{'EE9_PLSQUN' ,200 , NIL},;
{'EE9_TES' ,"501" , NIL},;
{'EE9_CF' ,"999" , NIL},;
{'EE9_POSIPI' ,"01011010" , NIL}})

aAdd(aItens, {{'EE9_PEDIDO' ,"EMB-AUT001" , NIL},;
{'EE9_SEQUEN' ,"2 " , NIL},;
{'EE9_COD_I' ,'002' , NIL},;
{'EE9_FORN' ,'001' , NIL},;
{'EE9_FOLOJA' ,'01' , NIL},;
{'EE9_SLDINI' , 40 , NIL},;
{'EE9_QE' , 20 , NIL},;
{'EE9_QTDEM1' , 2 , NIL},;
{'EE9_EMBAL1' , '01' , NIL},;
{'EE9_PSLQUN' ,200 , NIL},;
{'EE9_PRECO' ,2100 , NIL},;
{'EE9_PLSQUN' ,200 , NIL},;
{'EE9_TES' ,"501" , NIL},;
{'EE9_CF' ,"999" , NIL},;
{'EE9_POSIPI' ,"01011010" , NIL}})

aAdd(aDados, {"EE9", aItens})

//-------Inclusão de Auxiliares
//Notify
aNotifys := {}
aNotify := {}
aAdd(aNotify, {"EEN_IMPORT", "001" , Nil})
aAdd(aNotify, {"EEN_IMLOJA", "01" , Nil})

aAdd(aNotifys, aNotify)
aAdd(aDados, {"EEN", aNotifys})

//Agenda de Documentos
aDocs := {}
aDoc := {}
aAdd(aDoc, {"EXB_CODATV", "05" , Nil})
aAdd(aDoc, {"EXB_TIPO" , "1" , Nil})

aAdd(aDocs, aDoc)
aAdd(aDados, {"EXB", aDocs})

//Agentes
aAgentes := {}
aAgente := {}
aAdd(aAgente, {"EEB_CODAGE", "002" , Nil})
aAdd(aAgente, {"EEB_TIPCOM", "1" , Nil})
aAdd(aAgente, {"EEB_TIPCVL", "1" , Nil})
aAdd(aAgente, {"EEB_VALCOM", 10, Nil})
aAdd(aAgente, {"EEB_REFAGE", "TESTE", Nil})

aAdd(aAgentes, aAgente)
aAdd(aDados, {"EEB", aAgentes})

MsAguarde({|| MSExecAuto( {|aAux, nOpc| EECAE100(,nOpc,aAux) },aDados, 3) }, "Integrando Embarque Automático")

If lMsErroAuto
MostraErro()
Else
MsgInfo("Executado com sucesso!", "Aviso")
EndIf

RESET ENVIRONMENT

Return !lMsErroAuto