#include "Totvs.Ch"
#include "tbiconn.ch"
User Function MyEECAE100()
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_FRPPCC' ,'PP' ,NIL},;
{'EEC_UNIDAD' ,'KG' ,NIL},;
{'EEC_EMBAFI' ,' ' ,NIL},;
{'EEC_CALCEM' ,'1' ,NIL},;
{'EEC_VIA' ,'02' ,NIL},;
{'EEC_IMPORTORIGEM' ,'001SSZ' ,NIL},;
{'EEC_IMLOJADEST' ,'01HST' ,NIL},;
{'EEC_IMPODEPAISET' ,"CLIENTE 001"'249' ,NIL},;
{'EEC_VIA_FORNDE' ,'001'"NOME DA VIA" ,NIL},;
{'EEC_FOLOJATIPTRA' ,'011' ,NIL},;
{'EEC_IDIOMA'"AUTDELETA" ,"PORT. -PORTUGUES""S" ,NIL},;
Nil}}
aAdd(aDados, {"EEC", aCab})
//Dados dos Itens do Embarque
aItens := {}
aAdd(aItens, {{'EECEE9_CONDPAPEDIDO' ,"001EMB-AUT001" , NIL},;
,NIL},;
{'EECEE9_DIASPASEQUEN' ,"1" 0 , NIL},;
,NIL},;
{'EECEE9_COD_MPGEXPI' ,'001' ,, NIL},;
{'EEC_INCOTE' ,'FOB' {'EE9_FORN' ,'001' , ,NIL},;
{'EECEE9_MOEDAFOLOJA' ,'US$01' , NIL},;
,NIL},;
{'EECEE9_FRPPCCSLDINI' ,'PP' 3737.95 , NIL},;
,NIL},;
{'EECEE9_UNIDADQE' ,'KG' ,197 , NIL},;
,NIL},;
{'EECEE9_EMBAFIQTDEM1' ,'19 ' , NIL},;
,NIL},;
{'EECEE9_CALCEMEMBAL1' ,'101' , NIL},;
,NIL},;
{'EECEE9_VIAPSLQUN' ,'02',200 ,, NIL},;
{'EEC_ORIGEM' ,'SSZ' {'EE9_PRECO' ,2100 , NIL},;
{'EEC_DEST' ,'HST' {'EE9_PLSQUN' ,200 , ,NIL},;
{'EEC_PAISET' ,'249' {'EE9_TES' ,"501" , NIL},;
{'EECEE9_VIA_DECF' ,"NOME DA VIA" ,"999" , NIL},;
{'EEC_TIPTRA' ,'1' {'EE9_POSIPI' ,"01011010" , NIL},;
,NIL},;
{"AUTDELETA" ,"S" , Nil}}
aAdd(aDados, {"EEC", aCab})
//Dados dos Itens do Embarque
aItens := {}})
aAdd(aItens, {{'EE9_PEDIDO' ,"EMB-AUT001" , NIL},;
{'EE9_SEQUEN' ,"12 " , NIL},;
{'EE9_COD_I' ,'001002' , NIL},;
{'EE9_FORN' ,'001' , NIL},;
{'EE9_FOLOJA' ,'01' , NIL},;
{'EE9_SLDINI' , 3737.95 40 , NIL},;
{'EE9_QE' ,197 20 , NIL},;
{'EE9_QTDEM1' ,19 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(aItens, {{'EE9_PEDIDO' ,"EMB-AUT001" , NIL},;
aDados, {"EE9", aItens})
//-------Inclusão de Auxiliares
//Notify
aNotifys := {}
aNotify := {}
aAdd(aNotify, {"EEN_IMPORT", "001" , Nil})
aAdd(aNotify, {'EE9_SEQUEN' ,"2 "EEN_IMLOJA", "01" , NILNil},;)
aAdd(aNotify, {"AUTDELETA" ,"S" {'EE9_COD_I' ,'002', Nil})
aAdd(aNotifys, aNotify)
aAdd(aDados, {"EEN", NILaNotifys},;
)
//Agenda de Documentos
aDocs := {}
aDoc := {'EE9_FORN' ,'001'{}
aAdd(aDoc, {"EXB_CODATV", "05" , NIL},;
, Nil})
aAdd(aDoc, {'EE9_FOLOJA'"EXB_TIPO" ,'01' "1" , NIL},;
, Nil})
aAdd(aDoc, {"AUTDELETA" ,"S" {'EE9_SLDINI' , 40 , Nil})
aAdd(aDocs, NIL},;aDoc)
aAdd(aDados, {"EXB", aDocs})
//Agentes
aAgentes := {}
{'EE9_QE' aAgente := {}
aAdd(aAgente, 20 {"EEB_CODAGE", "002" , NILNil},;)
aAdd(aAgente, {"EEB_TIPCOM", "1" {'EE9_QTDEM1' , 2Nil})
aAdd(aAgente, {"EEB_TIPCVL", "1" , NIL},;
, Nil})
{'EE9_EMBAL1' , '01'aAdd(aAgente, {"EEB_VALCOM", 10 , NILNil},;)
aAdd(aAgente, {"EEB_REFAGE", "TESTE" , Nil})
{'EE9_PSLQUN' aAdd(aAgente, ,200{"AUTDELETA" ,"S" , NILNil},;)
aAdd(aAgentes, aAgente)
aAdd(aDados, {"EEB", aAgentes})
MsAguarde({|| MSExecAuto( {|aAux, nOpc| {'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
EECAE100(,nOpc,aAux) },aDados, 5) }, "Integrando Embarque Automático")
If lMsErroAuto
MostraErro()
Else
MsgInfo("Executado com sucesso!", "Aviso")
EndIf
RESET ENVIRONMENT
Return !lMsErroAuto
|