Histórico da Página

#include "tbiconn.ch"

User Function CriaEmb()

Local aCab      := {}

Local aItens    := {}

Local aAux      := {}

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(

aAux, {"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(

aAux, {"EE9", aItens})

//-------Inclusão de Auxiliares

//Notify

    aNotifys := {}

    aNotify := {}

    aAdd(aNotify, {"EEN_IMPORT", AvKey("001", "EEN_IMPORT"), Nil})

    aAdd(aNotify, {"EEN_IMLOJA", AvKey("01",  "EEN_IMLOJA"), Nil})

    aAdd(aNotifys, aNotify)

    aAdd(

aAux, {"EEN", aNotifys})

//Agenda de Documentos

    aDocs := {}

    aDoc := {}

    aAdd(aDoc, {"EXB_CODATV", AvKey("05", "EXB_CODATV") , Nil})

    aAdd(aDoc, {"EXB_TIPO"  , AvKey("1", "EXB_TIPO")    , Nil})

    aAdd(aDocs, aDoc)

    aAdd(

aAux, {"EXB", aDocs})

//Agentes

    aAgentes := {}

    aAgente := {}

    aAdd(aAgente, {"EEB_CODAGE", AvKey("002", "EEB_CODAGE"), Nil})

    aAdd(aAgente, {"EEB_TIPCOM", AvKey("1", "EEB_TIPCOM"), Nil})

    aAdd(aAgente, {"EEB_TIPCVL", AvKey("1", "EEB_TIPCVL"), Nil})

    aAdd(aAgente, {"EEB_VALCOM", 10, Nil})

    aAdd(aAgente, {"EEB_REFAGE", "TESTE", Nil})

    aAdd(aAgentes, aAgente)

    aAdd(

aAux, {"EEB", aAgentes})

MsAguarde({|| MSExecAuto( {|aAux, nOpc| EECAE100(,nOpc,aAux) },

aAux, 3) }, "Integrando Embarque Automático")

If

 lMsErroAuto
    MostraErro()

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

EndIf

Return !lMsErroAuto