UI081100

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

/*
Funcao : UE081100
Parametros : Objeto de update PAI
Retorno : Nenhum
Objetivos : Atualização de dicionários e helps
Autor : Allan Oliveira Monteiro	
Data/Hora : 22/03/2010
Revisao : 
Obs. : 
*/
*----------------------*
User Function UI081100(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|UI081100(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 UI081100(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,{"SYK" ,"2" ,"YK_FILIAL+YK_VIA" ,"Via de Transporte" ,"" ,"" ,"S" ,"" ,"" ,"S" })
 
 ////////////////////////
 //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_AVG0146" ,"L" ,"Habilita a nova rotina de estufagem no Sigaeec","Habilita a nova rotina de estufagem no Sigaeec","Habilita a nova rotina de estufagem no Sigaeec" ,"" ,"" ,"" ,"" ,"" ,"" ,".F." ,".T." ,".T." ,".T." ,".T." })
 
 /////////////////////// 
 //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