#include#Include 'protheus.ch'"Totvs.Ch"
#include 'parmtype.ch'
#include "tbiconn.ch"
User Function myMATA242CriaEmb()
Local aAutoCabaCab := {}
Local aItens := {}
Local aAutoItens aAux := {}
Private lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA '99' FILIAL '01' USER 'Administrador' PASSWORD '' "T1" FILIAL "D MG 01" Modulo "EST" tables "SB1", "SD3"
aAutoCab := { {"cProduto" , Pad("02 ", Len(SD3->D3_COD)) , Nil},;
{"cLocOrig" , "01" , Nil},;
{"nQtdOrig" , 100 , Nil},;
{"nQtdOrigSe" , CriaVar("D3_QTSEGUM") , Nil},;
{"cDocumento" , Pad("000000002", Len(SD3->D3_DOC)) , Nil},;
{"cNumLote" , CriaVar("D3_NUMLOTE") , Nil},;
{"cLoteDigi" , CriaVar("D3_LOTECTL") , Nil},;
{"dDtValid" , CriaVar("D3_DTVALID") , Nil},;
{"nPotencia" , CriaVar("D3_POTENCI") , Nil},;
{"cLocaliza" , CriaVar("D3_LOCALIZ") , Nil},;
{"cNumSerie" , CriaVar("D3_NUMSERI") , Nil}}
aAutoItens := {{ {"D3_COD" , Pad("03 ", Len(SD3->D3_COD)) , Nil}, ;
{"D3_LOCAL" , "01" , Nil}, ;
{"D3_QUANT" , 1 , Nil}, ;
{"D3_QTSEGUM", , Nil}, ;
{"D3_RATEIO" , 20 , Nil}},;
{ {"D3_COD" , Pad("04 ", Len(SD3->D3_COD)) , Nil}, ;
{"D3_LOCAL" , "01" , Nil}, ;
{"D3_QUANT" , 24 , Nil}, ;
{"D3_QTSEGUM", , Nil}, ;
{"D3_RATEIO" , 80 , Nil}}}
//inclusão
MSExecAuto({|v,x,y,z| Mata242(v,x,y,z)},aAutoCab,aAutoItens,3,.T.)
If lMsErroAuto
Mostraerro()
EndIf
Alert("Inclusao Ok. Verifique arquivos e continue para estorno")
ReturnTABLES '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 |