Histórico da Página
...
Exemplo - Inclusão de Embarque automático com Auxiliares (Notify (EEN), Agenda de Documentos (EXB) e Agente de Comissão (EEB) ) | ||||||
---|---|---|---|---|---|---|
Bloco de código |
#Include "Totvs.Ch"
Function CriaEmb() Local aCab := {} Local aItens := {} Local aAux 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(aAuxaDados, {"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(aAuxaDados, {"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(aAuxaDados, {"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(aAuxaDados, {"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(aAuxaDados, {"EEB", aAgentes}) MsAguarde({|| MSExecAuto( {|aAux, nOpc| EECAE100(,nOpc,aAux) },aAuxaDados, 3) }, "Integrando Embarque Automático") If lMsErroAuto lMsErroAuto MostraErro() Else Else MsgInfo("Executado com sucesso!", "Aviso") EndIf Return EndIf RESET ENVIRONMENT Return !lMsErroAuto |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas