Histórico da Página

Incluir Página

	EECAE100 -

...

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

...

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

...

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

...

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"

...

Bloco de código

language	actionscript3
linenumbers	true

#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

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

...

Bloco de código

language	actionscript3
linenumbers	true

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

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},;
        {"AUTDELETA"    ,"S"                        , 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},;
                {"AUTDELETA"    ,"S"            , 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},;
                {"AUTDELETA"    ,"S"            , 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(aNotify, {"AUTDELETA" ,"S"             , 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(aDoc, {"AUTDELETA" ,"S"                , 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(aAgente, {"AUTDELETA" ,"S"             , Nil})

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

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

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

RESET ENVIRONMENT

Return !lMsErroAuto

#Include "Totvs.Ch"

#include "tbiconn.ch"

User Function CriaEmba()

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},;

{"AUTDELETA" ,"S" , 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},;

{"AUTDELETA" ,"S" , 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},;

{"AUTDELETA" ,"S" , 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(aNotify, {"AUTDELETA" ,"S" , 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(aDoc, {"AUTDELETA" ,"S" , 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(aAgente, {"AUTDELETA" ,"S" , Nil})

aAdd(aAgentes, aAgente)

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

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

If lMsErroAuto

MostraErro()

Else

MsgInfo("Executado com sucesso!", "Aviso")

EndIf

RESET ENVIRONMENT

...

Árvore de páginas

Versões comparadas

Versão antiga 12

Nova versão Atual

Chave