UI080238

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

/*
Funcao : UI080238
Parametros : Objeto de update PAI
Retorno : Nenhum
Objetivos : Criação do Parâmetro MV_AVG0186
Autor : Nilson César
Data/Hora : 05/01/2010 11:55 hrs
Revisao : 
Obs. : 
*/
*----------------------*
User Function UI080238(o)//M=Modulo(I=EIC,E=EEC,D=EDC,F=EFF,C=ECO)/xxxxxx=Chamado Average
*----------------------*
If FindFunction("AVUpdate01")
 oUpd := AVUpdate01():New()
 oUpd:aChamados := { {EIC,{|o|UI080238(o)}} }//MMM=(EIC,EEC,EDC,EFF,ECO)/M=Modulo(I=EIC,E=EEC,D=EDC,F=EFF,C=ECO)/xxxxxx=Chamado Average
 oUpd:Init(o)
Else
 MsgStop("Esse ambiente não está preparado para executar este update. Favor entrar em contato com o helpdesk Average.")
EndIf
Return .T. 
*-------------------------*
Static Function UI080238(o)//M=Modulo(I=EIC,E=EEC,D=EDC,F=EFF,C=ECO)/xxxxxx=Chamado Average
*-------------------------*
 //*******Instruções**********//
 //O AVUPDATE se encarregará de atualizar dicionario e base de dados.
 //Quando um campo não é preenchido, o AVUPDATE mantém o conteudo do dicionário atual.
 //Quando não forem preenchidos campos obrigatórios do dicionário, o update não fará inclusão, apenas alteração.
 //Utilizar os comentários abaixo como molde para preenchimento dos dados.
 //APAGAR OS COMENTÁRIOS APÓS O TÉRMINO DO UPDATE.
 //***************************//
 
 //////////////////////
 //Criação de Indices//
 //////////////////////
 
 // "INDICE" ,"ORDEM" ,"CHAVE" ,"DESCRICAO" ,"DESCSPA" ,"DESCENG" ,"PROPRI" ,"F3" ,"NICKNAME" ,"SHOWPESQ" 
 //Aadd(o:aSIX,{"EYG" ,"1" ,"EYG_FILIAL+EYG_CODCON" ,"Cod.cont" ,"Cod.cont" ,"Cod.cont" ,"U" ,"" ,"" ,"" })
 
 ////////////////////////
 //Criação dos Pergunte//
 ////////////////////////
 // "X1_GRUPO" ,"X1_ORDEM" ,"X1_PERGUNT","X1_PERSPA","X1_PERENG","X1_VARIAVL","X1_TIPO","X1_TAMANHO","X1_DECIMAL","X1_PRESEL","X1_GSC","X1_VALID","X1_VAR01","X1_DEF01","X1_DEFSPA1","X1_DEFENG1","X1_CNT01","X1_VAR02","X1_DEF02","X1_DEFSPA2","X1_DEFENG2","X1_CNT02","X1_VAR03","X1_DEF03","X1_DEFSPA3","X1_DEFENG3","X1_CNT03","X1_VAR04","X1_DEF04","X1_DEFSPA4","X1_DEFENG4","X1_CNT04","X1_VAR05","X1_DEF05","X1_DEFSPA5","X1_DEFENG5","X1_CNT05","X1_F3","X1_PYME","X1_GRPSXG","X1_HELP","X1_PICTURE","X1_IDFIL"
 //aAdd(o:aSX1,{"EIC154 ","01" , , , , , , , , , 	 , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , })
 ///////////////////////
 //Criação das tabelas//
 /////////////////////// 
 // "X2_CHAVE","X2_PATH","X2_ARQUIVO" ,"X2_NOME" ,"X2_NOMESPA" ,"X2_NOMEENG" ,"X2_ROTINA" ,"X2_MODO" ,"X2_DELET" ,"X2_TTS" ,"X2_UNICO" ,"X2_PYME" ,"X2_MODULO"
 //Aadd(o:aSX2,{"EYG" ,"\DATA\" ,"EYG"+SM0->M0_CODIGO+"0" ,"Tipo de Container" ,"Tipo de Container" ,"Tipo de Container" ,"" ,"E" ,0 ,"" ,"EYG_FILIAL+EYG_CODCON" ,"S" , 29 })
 
 //////////////////////
 //Criação dos Campos// 
 ////////////////////// 
 //***USADO***
 //Caso seja alterar USADO, seguir regra de no campo X3_USADO usar:
 //TODOS_MODULOS = Todos os modulos.
 //TODOS_AVG = Modulos EIC, EEC, EDC, EFF, ECO
 //BASICO_AVG = Modulos EIC, EEC, EDC 
 //EIC_USADO = EIC
 //EEC_USADO = EEC
 //EDC_USADO = EDC
 //NAO_USADO = Não usado 
 //***RESERVADO*** // inserir os nomes das defines que deseja colocar no reservado, por exemplo NOME+TIPO+TAM+DEC+OBRIGAT
 //NOME
 //TIPO
 //TAM 
 //DEC 
 //ORDEM
 //OBRIGAT
 //USO
 // "X3_ARQUIVO" ,"X3_ORDEM" ,"X3_CAMPO" ,"X3_TIPO" ,"X3_TAMANHO" ,"X3_DECIMAL" ,"X3_TITULO" ,"X3_TITSPA" ,"X3_TITENG" ,"X3_DESCRIC" ,"X3_DESCSPA" ,"X3_DESCENG" ,"X3_PICTURE" ,"X3_VALID" ,"X3_USADO" ,"X3_RELACAO" ,"X3_F3" ,"X3_NIVEL" ,"X3_RESERV" ,"X3_CHECK" ,"X3_TRIGGER" ,"X3_PROPRI" ,"X3_BROWSE" ,"X3_VISUAL" ,"X3_CONTEXT","X3_OBRIGAT" ,"X3_VLDUSER","X3_CBOX" ,"X3_CBOXSPA" ,"X3_CBOXENG" ,"X3_PICTVAR" ,"X3_WHEN" ,"X3_INIBRW" ,"X3_GRPSXG" ,"X3_FOLDER" ,"X3_PYME" ,"X3_CONDSQL","X3_CHKSQL","X3_IDXSRV","X3_ORTOGRA","X3_IDXFLD","X3_TELA"
 //Aadd(o:aSX3,{"EYG" ,"01" ,"EYG_FILIAL" ,"C" ,2 ,0 ,"Filial" ,"Filial" ,"Filial do Sistema" , "Filial" ,"Filial" ,"Filial" , "" ,"" ,NAO_USADO ,"" ,"" ,0 ,TAM+DEC+OBRIGAT ,"" ,"" ,"" ,"N" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"1" ,"" , , , , , , })
 ///////////////////////
 //Criação dos Folders//
 ///////////////////////
 // "XA_ALIAS" ,"XA_ORDEM" ,"XA_DESCRIC" ,"XA_DESCSPA" ,"XA_DESCENG" ,"XA_PROPRI" 
 //Aadd(o:aSXA,{"EYG" ,"1" ,"Tipo de Container" ,"Tipo de Container" ,"Tipo de Container" ,"S" }) 
 ////////////////////////////////
 //Criação de Tabelas Genéricas//
 ////////////////////////////////
 // "X5_FILIAL" ,"X5_TABELA" ,"X5_CHAVE" ,"X5_DESCRI" ,"X5_DESCSPA" , "X5_DESCENG"
 //Aadd(o:aSx5, {"" ,"00" ,"01" ,"SERIES DE N. FISCAIS" ,"SERIES DE FACTURAS","INVOICE SERIES"})
 
 /////////////////////////
 //Criação de Parâmetros//
 /////////////////////////
 // "X6_FILIAL" ,"X6_VAR" ,"X6_TIPO" ,"X6_DESCRIC" ,"X6_DSCSPA" ,"X6_DSCENG" ,"X6_DESC1" ,"X6_DSCSPA1" ,"X6_DSCENG1" ,"X6_DESC2" ,"X6_DSCSPA2" ,"X6_DSCENG2" ,"X6_CONTEUD" ,"X6_CONTSPA" ,"X6_CONTENG" ,"X6_PROPRI" ,"X6_PYME"
 Aadd(o:aSX6,{ " " ,"MV_AVG0186" ,"L" ,"Determina se as informações da proforma virão da","Determina se as informações da proforma virão da","Determina se as informações da proforma virão da" ,"tabela de proformas ou da capa do Purchase Order" ,"tabela de proformas ou da capa do Purchase Order" ,"tabela de proformas ou da capa do Purchase Order" ,"" ,"" ,"" ,".F." ,".F." ,".F." ,"S" ,"N" })
 
 /////////////////////// 
 //Criação de Gatilhos//
 ///////////////////////
 // "X7_CAMPO" ,"X7_SEQUENC" ,"X7_REGRA" ,"X7_CDOMIN" ,"X7_TIPO", "X7_SEEK", "X7_ALIAS", "X7_ORDEM", "X7_CHAVE" , "X7_CONDIC" ,"X7_PROPRI
 //Aadd(o:aSx7,{" A1_CDRDES" ,"001" ,"DUY->DUY_DESCRI" ,"A1_REGDES" ,"P" , "S" , "DUY" , "1" , "xFilial()+M->A1_CDRDES", " !Empty(M->A1_CDRDES)", "S"})
 
 ///////////////////////////////
 //Criação de Consultas Padrão//
 ///////////////////////////////
 // "XB_ALIAS" ,"XB_TIPO" ,"XB_SEQ" ,"XB_COLUNA" ,"XB_DESCRI" ,"XB_DESCSPA" ,"X5_DESCENG" ,"XB_CONTEM"
 /*
 Aadd(o:aSXB,{ "EE9" , "1" ,"01" ,"DB" ,"Itens do embarque" ,"Itens do embarque"
,"Itens do embarque" ,"EE9" })
 Aadd(o:aSXB,{ "EE9" , "2" ,"01" ,"03" ,"Prep.embarq. + Seq.e","Prep.embarq. + Seq.e","Prep.embarq. + Seq.e","" })
 Aadd(o:aSXB,{ "EE9" , "4" ,"01" ,"01" ,"Codigo Item" ,"Codigo Item" ,"Codigo Item" ,"EE9_COD_I" })
 Aadd(o:aSXB,{ "EE9" , "4" ,"01" ,"02" ,"Seq.Embarq." ,"Seq.Embarq." ,"Seq.Embarq." ,"EE9_SEQEMB" })
 Aadd(o:aSXB,{ "EE9" , "5" ,"01" ,"" ,"" ,"" ,"" ,"EE9->EE9_COD_I" })
 Aadd(o:aSXB,{ "EE9" , "5" ,"02" ,"" ,"" ,"" ,"" ,"EE9->EE9_SEQEMB" })
 Aadd(o:aSXB,{ "EE9" , "6" ,"01" ,"" ,"" ,"" ,"" ,"EE9->EE9_PREEMB == EEC->EEC_PREEMB"})
 */
 ///////////////////////////////////
 //Carregamento do Help de Campos //
 ///////////////////////////////////
 // **Em caso de Help de campo (F1) somente usar o aHelpProb com o Nome do campo**
 // Aadd(o:aHelpProb,{"AVG0005373",{"teste ","problema ..."}}) 
 // Aadd(o:aHelpSol ,{"AVG0005373",{"teste ","solucao ..."}})
 
 ///////////////////////////
 //Exclusões de dicionário//
 ///////////////////////////
 // Necessário preencher o dicionário e colocar um array com os campos chave para encontrar o registro nesse dicionário.
 // DICIONÁRIO CHAVE
 //aAdd(o:aDel,{"SXB" ,{ "EE9" , "1" ,"01" ,"DB" , , , , }})
 //aAdd(o:aDel,{"SX3" ,{ , ,"EYG_FILIAL" , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , }})
 //Return cTexto - Pode ser retornado texto para o log do update.
 
Return NIL