$piece(^%CSW1ATUCONF(3,sistema),z,2)) { set $piece(^%CSW1ATUCONF(3,sistema),z,2)=revisao } ; set $piece(^%CSW1ATULOG(1,codAtualizacao),z,2)=$horolog ; kill ^mtempSrc2PatchImport(codTerm) ; lock -^Src2PatchImport ; quit 1 ; ; Importar Rotinas/Classes ; ImportarRotinasClasses(codTerm,codAtualizacao,sistema,flgExcluirCod,tipo,versaoLog,revisao,caminhoBackup) ; new Z,z,Y,y,V,v set Z="^",z="^",Y=";",y=";",V=",",v="," new sc,flag,namespace,namespaceOrigem ; set namespaceOrigem=$znspace ; set namespace="" for { set namespace=$order(^%CSW1ATUCONF(3,sistema,1,namespace)) if (namespace="") quit znspace namespace set sc=$$BackupRotinasClasses(codTerm,caminhoBackup,namespace) } ; set namespace="" for { set namespace=$order(^%CSW1ATUCONF(3,sistema,1,namespace)) if (namespace="") quit znspace namespace set sc=$$ExcluirRotinasClasses(codTerm,codAtualizacao,sistema,tipo,versaoLog,revisao,namespace) } ; set namespace="" for { set namespace=$order(^%CSW1ATUCONF(3,sistema,1,namespace)) if (namespace="") quit znspace namespace set sc=$$ImportarClasses(codTerm,codAtualizacao,sistema,tipo,versaoLog,revisao,namespace) } ; set namespace="" for { set namespace=$order(^%CSW1ATUCONF(3,sistema,1,namespace)) if (namespace="") quit znspace namespace set sc=$$ImportarRotinas(codTerm,codAtualizacao,sistema,tipo,versaoLog,revisao,namespace) } ; set namespace="" for { set namespace=$order(^%CSW1ATUCONF(3,sistema,1,namespace)) if (namespace="") quit znspace namespace set sc=$$GerarPaginasCSPRotinas(codTerm,codAtualizacao,namespace) } ; if (flgExcluirCod) { set namespace="" for { set namespace=$order(^%CSW1ATUCONF(3,sistema,1,namespace)) if (namespace="") quit znspace namespace set sc=$$ExcluirFontesRotinas(codTerm,codAtualizacao,namespace,flgExcluirCod) } } ; znspace namespaceOrigem ; quit 1 ; ; Gerar Paginas CSP Rotinas ; GerarPaginasCSPRotinas(codTerm,codAtualizacao,namespace) ; new Z,z,Y,y,V,v set Z="^",z="^",Y=";",y=";",V=",",v="," new sc,flgValidarRetErro,msgsc,rotina,tabErros ; set flgValidarRetErro=$$ValidarTesteErroCsp() ; set rotina="" for { set rotina=$order(^mtempSrc2PatchImport(codTerm,"rotinas",namespace,4,rotina)) if (rotina="") quit ; if ($data(^mtempSrc2PatchImport(codTerm,"rotinasBloquedas",rotina))) { continue } ; set msgsc=$$GerarPaginaCSP(rotina,.tabErros,,flgValidarRetErro) if (msgsc'=1) { set sc=$$GerarLogErro(codAtualizacao,1,"Geração da página csp da rotina "_rotina,.tabErros) continue } ; set sc=$$GerarLogOK(codAtualizacao,1,"Geração da página csp da rotina "_rotina) } ; quit 1 ; ; Gerar a Pagina CSP de uma Rotina ; GerarPaginaCSP(rotina,tabErrosCsp,displayLog,flgValidarRetErro) ; new Z,z,Y,y,V,v set Z="^",z="^",Y=";",y=";",V=",",v="," new sc,InternalName,flgErroCSP ; if $get(displayLog)="" set displayLog=0 if $get(flgValidarRetErro)="" set flgValidarRetErro=1 ; kill tabErrosCsp set flgErroCSP="" ; set InternalName=rotina_".mac" ; if (flgValidarRetErro) { set sc=$$GerarCSP^%CSW1(InternalName,displayLog,,.tabErrosCsp,,,,,.flgErroCSP) } else { set sc=$$GerarCSP^%CSW1(InternalName,displayLog,,.tabErrosCsp) } ; zkill ^%CSW1CSPGEN(InternalName) if (+sc) set ^%CSW1CSPGEN($piece(InternalName,".",1))="" ; if (flgErroCSP) quit "Erro ao gerar a página csp da rotina "_rotina ; quit 1 ; ; Gerar Log de OK ; GerarLogOK(codAtualizacao,origem,mensagem,tabDetalhes) ; set tabDetalhes=$get(tabDetalhes) quit $$GerarLog(codAtualizacao,origem,1,mensagem,.tabDetalhes) ; ; Gerar Log de Erro ; GerarLogErro(codAtualizacao,origem,mensagem,tabDetalhes) ; set tabDetalhes=$get(tabDetalhes) quit $$GerarLog(codAtualizacao,origem,2,mensagem,.tabDetalhes) ; ; Gerar Log de Aviso ; GerarLogAviso(codAtualizacao,origem,mensagem,tabDetalhes) ; set tabDetalhes=$get(tabDetalhes) quit $$GerarLog(codAtualizacao,origem,3,mensagem,.tabDetalhes) ; ; Gerar Log de Erro ; ; origem = 1 - Rotinas ; 2 - Classes ; 3 - Ajuda ; 4 - Relatórios ; 5 - Utilitários ; 6 - Procedimento ; 7 - Páginas/Objetos da Aplicação CSP GerarLog(codAtualizacao,origem,tipo,mensagem,tabDetalhes) ; new Z,z,Y,y,V,v set Z="^",z="^",Y=";",y=";",V=",",v="," new sc,codSeq ; set tabDetalhes=$get(tabDetalhes) ; set codSeq=$order(^%CSW1ATULOG(1,codAtualizacao,1,tipo,""),-1)+1 ; set ^%CSW1ATULOG(1,codAtualizacao,1,tipo,codSeq)=origem_z_$znspace set ^%CSW1ATULOG(1,codAtualizacao,1,tipo,codSeq,1)=mensagem ; if (tabDetalhes'=""),($order(tabDetalhes(""))="") { set tabDetalhes(1)=tabDetalhes } ; if ($order(tabDetalhes(""))'="") { zkill tabDetalhes merge ^%CSW1ATULOG(1,codAtualizacao,1,tipo,codSeq,2)=tabDetalhes } ; quit 1 ; ; Excluir Fontes das Rotinas ; ExcluirFontesRotinas(codTerm,codAtualizacao,namespace,flag) ; new Z,z,Y,y,V,v set Z="^",z="^",Y=";",y=";",V=",",v="," new sc,msgsc,rotina ; if $get(flag)="" set flag=0 ; set rotina="" for { set rotina=$order(^mtempSrc2PatchImport(codTerm,"rotinas",namespace,1,rotina)) if (rotina="") quit ; if ($data(^mtempSrc2PatchImport(codTerm,"rotinasBloquedas",rotina))) { continue } ; set msgsc=$$ExcluirRotina(rotina,,,flag) } ; quit 1 ; ; Exclui uma Rotina ; flag = 0 - Mata (MAC / INT / OBJ) - Opção Padrão ; 1 - Mata (MAC) ; 2 - Mata (MAC / INT) ExcluirRotina(rotina,tabErros,flgLog,flag) ; new Z,z,Y,y,V,v set Z="^",z="^",Y=";",y=";",V=",",v="," new sc ; if $get(flgLog)="" set flgLog=0 ; if $get(flag)="" set flag=0 ; kill tabErros ; set sc=##class(%Library.Routine).Delete(rotina_".MAC",flag) if (sc'=1) { quit "Erro ao excluir a rotina "_rotina } ; quit 1 ; ; Importa Rotinas do Patch ; ImportarRotinas(codTerm,codAtualizacao,sistema,tipo,versaoLog,revisao,namespace) ; new Z,z,Y,y,V,v set Z="^",z="^",Y=";",y=";",V=",",v="," new sc,arquivo,msgsc,rotina,tabErros,tabOK,tabTemp ; set rotina="" for { set rotina=$order(^mtempSrc2PatchImport(codTerm,"rotinas",namespace,1,rotina)) if (rotina="") quit set arquivo=$piece($get(^mtempSrc2PatchImport(codTerm,"rotinas",namespace,1,rotina)),z,1) ; set msgsc=$$GerarLogAtualizacaoItem(codAtualizacao,tipo,sistema,1,rotina,versaoLog,revisao) if (msgsc'=1) { set msgsc=$$GerarLogAviso(codAtualizacao,2,msgsc) set ^mtempSrc2PatchImport(codTerm,"rotinasBloquedas",rotina)="" continue } ; set msgsc=$$GerarRotinaArquivo(arquivo,rotina,,.tabErros,.tabOK) if (msgsc'=1)&('$data(tabErros)) { set sc=$$GerarLogErro(codAtualizacao,1,"Importação da rotina "_rotina,msgsc) continue } if ($data(tabErros(2))) { kill tabTemp merge tabTemp=tabErros(2) set sc=$$GerarLogErro(codAtualizacao,1,"Compilação da rotina "_rotina,.tabTemp) continue } ; set sc=$$GerarLogOK(codAtualizacao,1,"Importação da rotina "_rotina) } ; quit 1 ; ; Gerar Log de Atualizacao do Item ; GerarLogAtualizacaoItem(codAtualizacao,tipoPatch,sistema,tipoItem,item,versao,revisao) ; new Z,z,Y,y,V,v set Z="^",z="^",Y=";",y=";",V=",",v="," new sc ; set sc=$$ValidarAtualizacaoItem(codAtualizacao,tipoPatch,sistema,tipoItem,item,versao,revisao) if (sc'=1) quit sc ; kill ^%CSW1ATUCONF(6,sistema,tipoItem,item) ; if (tipoPatch=1)!(tipoPatch=2) quit 1 ; set ^%CSW1ATUCONF(6,sistema,tipoItem,item)=versao_z_revisao_z_codAtualizacao_z_tipoPatch_z_$horolog ; quit 1 ; ; Validar Atualização do Item ; ValidarAtualizacaoItem(codAtualizacao,tipoPatch,sistema,tipoItem,item,versao,revisao) ; new Z,z,Y,y,V,v set Z="^",z="^",Y=";",y=";",V=",",v="," new sc,dsTipo,identificador,identificadorLog,revisaoLog,var,versaoLog ; if (tipoPatch=2)!(tipoPatch=3) quit 1 ; if '$data(^%CSW1ATUCONF(6,sistema,tipoItem,item)) quit 1 ; set var=$get(^%CSW1ATUCONF(6,sistema,tipoItem,item)) ; set versaoLog=$piece(var,z,1) set revisaoLog=$piece(var,z,2) ; set sc=$$ObterVersao(versao,,,,,,.identificador) ; set sc=$$ObterVersao(versaoLog,,,,,,.identificadorLog) ; if (identificador>identificadorLog) quit 1 ; if (tipoItem=1) set dsTipo="Rotina" else set dsTipo="Classe" ; if (identificador") { continue } set sc=$$GerarLogErro(codAtualizacao,2,"Importação da classe "_classe,.tabTemp) continue } ; set sc=$$GerarLogOK(codAtualizacao,2,"Importação da classe "_classe) set tabClasses(classe_".cls")="" if ($extract(classe,1,7) = "Est.Esn") set flgEstEsn=1 } ; if ('$data(tabClasses)) quit 1 ; set flagCompClasses="cor1-dlf" ; do $system.OBJ.CompileList(.tabClasses,flagCompClasses,.errorLog) ; if ($order(errorLog(""))'="") { set lin="" for { set lin=$order(errorLog(lin)) if (lin="") quit set tabTemp(lin)=$piece($get(errorLog(lin)),$char(13)_$char(10)_$char(32),1) } set sc=$$GerarLogErro(codAtualizacao,2,"Compilação de classes",.tabTemp) } else { set sc=$$GerarLogOK(codAtualizacao,2,"Compilação de classes") } ; ; Implementação para tratar bug de compilação no caché 5 if (flgEstEsn) { do $SYSTEM.OBJ.CompilePackage("Est.Esn","bkf1") set sc=$$GerarLogOK(codAtualizacao,2,"Compilação de classes por package (Est.Esn)") } ; quit 1 ; ; Backup das Rotinas e Classes ; BackupRotinasClasses(codTerm,caminhoBackup,namespace) ; new Z,z,Y,y,V,v set Z="^",z="^",Y=";",y=";",V=",",v="," new sc,horolog,tabItens ; set sc=##class(%Library.File).CreateDirectoryChain(caminhoBackup) ; set horolog=$horolog ; merge tabItens=^mtempSrc2PatchImport(codTerm,"classes",namespace,3) ; set sc=$system.OBJ.Export(.tabItens,caminhoBackup_$translate($zdatetime(horolog,3),": ","--")_"-"_namespace_"-CLASSES.xml","-d") ; kill tabItens merge tabItens=^mtempSrc2PatchImport(codTerm,"rotinas",namespace,3) ; set sc=$system.OBJ.Export(.tabItens,caminhoBackup_$translate($zdatetime(horolog,3),": ","--")_"-"_namespace_"-ROTINAS.xml","-d") ; quit 1 ; ; Exclui Rotinas e Classes ; ExcluirRotinasClasses(codTerm,codAtualizacao,sistema,tipo,versaoLog,revisao,namespace) ; new Z,z,Y,y,V,v set Z="^",z="^",Y=";",y=";",V=",",v="," new sc,classe,msgsc,rotina ; set classe="" for { set classe=$order(^mtempSrc2PatchImport(codTerm,"classes",namespace,2,classe)) if (classe="") quit ; set msgsc=$$GerarLogAtualizacaoItem(codAtualizacao,tipo,sistema,2,classe,versaoLog,revisao) if (msgsc'=1) { set msgsc=$$GerarLogAviso(codAtualizacao,2,msgsc) continue } ; set msgsc=$$ExcluirClasse(classe) if (msgsc'=1) { set sc=$$GerarLogErro(codAtualizacao,2,"Exclusão da classe "_classe) } ; set sc=$$GerarLogOK(codAtualizacao,2,"Exclusão da classe "_classe) } ; set rotina="" for { set rotina=$order(^mtempSrc2PatchImport(codTerm,"rotinas",namespace,2,rotina)) if (rotina="") quit ; set msgsc=$$GerarLogAtualizacaoItem(codAtualizacao,tipo,sistema,1,rotina,versaoLog,revisao) if (msgsc'=1) { set msgsc=$$GerarLogAviso(codAtualizacao,2,msgsc) continue } ; set msgsc=$$ExcluirRotina(rotina) if (msgsc'=1) { set sc=$$GerarLogErro(codAtualizacao,1,"Exclusão da rotina "_rotina) } ; set sc=$$GerarLogOK(codAtualizacao,1,"Exclusão da rotina "_rotina) } ; quit 1 ; ; Exclui uma Classe ; ExcluirClasse(classe) ; ; do $SYSTEM.OBJ.Delete(classe,"-d") ; quit 1 ; ; Cria uma Classe a Partir de um Arquivo ; ; tabErros = Em fixas conforme lista abaixo ; 1 - Outros erros ; 2 - Erro de compilação da classe ; ; tabOK = 1 - Importou ; 2 - Compilou GerarClasseArquivo(arquivoClasse,classe,flagComp,tabErros,tabOK,flgLog) ; new Z,z,Y,y,V,v set Z="^",z="^",Y=";",y=";",V=",",v="," new sc,errorlog,lin ; set flagComp=$get(flagComp) ; if $get(flgLog)="" set flgLog=0 ; kill tabErros,tabOK ; if ('##class(%Library.File).Exists(arquivoClasse)) { quit "Arquivo '"_arquivoClasse_"' para importação da classe "_classe_" não encontrado" } ; if (flagComp="") { set flagComp="-d" } ; set tabOK(1)="" ; set sc=$System.OBJ.Load(arquivoClasse,flagComp,.errorlog) if (sc=1) { set tabOK(2)="" quit 1 } ; set lin="" for { set lin=$order(errorlog(lin)) if (lin="") quit set tabErros(1,lin)=$piece($get(errorlog(lin)),$char(13)_$char(10)_$char(32),1) } ; quit "Erro ao compilar a classe "_classe ; ; Gerar Rotina de Versao ; GerarRotinaVersao(sistema,rotina,versao,revisao,autor,data,urlRepositorio) ; new Z,z,Y,y,V,v set Z="^",z="^",Y=";",y=";",V=",",v="," new sc,namespace,namespaceOrigem ; set namespaceOrigem=$znspace ; if (rotina="") quit 1 ; set namespace="" for { set namespace=$order(^%CSW1ATUCONF(3,sistema,1,namespace)) if (namespace="") quit ; set sc=##class(Src2.PatchUtils).ValidarSelecaoNamespace(sistema,namespace,1,rotina) if (sc'=1) continue ; znspace namespace ; set sc=##class(Src2.Utilitarios).GerarRotinaZZZ(rotina,versao,revisao,autor,data,urlRepositorio) } ; znspace namespaceOrigem ; quit 1 ; ; csw:csp:naogerar ]]> 1 %RegisteredObject 62402,71835.577655 Obter Classes do Sistema set sc = ##class(Src2.Classe).ObterClassesSistema("csw", .tabItens) 1 %String Validar Classe set sc = ##class(Src2.Classe).ValidarClasse("nfe.v110.COF*.cls", .expressaoEdt, .qtdItens, .tabItens) 1 %String Obter Classes do Projeto set sc = ##class(Src2.Classe).ObterClassesProjeto("csw.classes", .expressaoEdt, .qtdItens, .tabItens) set sc = ##class(Src2.Classe).ObterClassesProjeto("cswutil.classes", .expressaoEdt, .qtdItens, .tabItens) 1 %Status Exporta uma classe para um arquivo texto com a extensão .cls 1 classe:%String,arquivoClasse:%String,flgSubversion:%Boolean=1,username:%String="",password:%String="",flgLog:%Boolean=0 %String "_arquivoClasse_" | Não foi possível abrir o arquivo") } quit "Não foi possível abrir o arquivo "_arquivoClasse_" para exportar a classe "_classe_"!" } set sc = $$$OK set lin = "" for { set lin = $order(tabClasse(lin)) if (lin = "") quit set sc = objFile.Write($get(tabClasse(lin))_$char(10)) if (sc '= 1) quit } do objFile.Close() set objFile = "" if (flgSubversion) { if (adicionar) { set sc = ##class(Src2.Utils).Subversion(caminhoSvn, "add "_arquivoClasse, username, password) if (permissao) { do $zf(-1,"chmod -R 777 "_pastaArquivo) } } if (permissao) { do $zf(-1,"chmod 777 "_arquivoClasse) } } if (sc '= $$$OK) { if (flgLog) { set sc = ##class(Src2.Utils).GeraLog(2, "Exportação de Classe | "_classe_" => "_arquivoClasse_" | Erro ao gravar o arquivo") } quit "Erro ao exportar a classe "_classe_" para o arquivo "_arquivoClasse_"!" } if (flgLog) { set sc = ##class(Src2.Utils).GeraLog(1, "Exportação de Classe | "_classe_" => "_arquivoClasse) } quit $$$OK ]]> Obtem uma Tabela com o Fonte de uma Classe a Partir de um Arquivo 1 %String " } if (linhaFile [ "") { set linhaFile = "61727,0.0" } if (linhaFile [ "") { set linhaFile = "61727,0" } if (linhaFile [ "") { set linhaFile = "0" } if (linhaFile [ "") ! (linhaFile [ "") { continue } set lin = lin + 1 set tabClasse(lin) = ##class(Src2.Utils).ConverterStringUTF8(linhaFile) } do file.Close() set file="" if ('$data(tabClasse)) quit "Arquivo '"_arquivoClasse_"' para importação da classe "_classe_" sem dados" quit $$$OK ]]> Cria uma Classe a Partir de um Arquivo tabErros = Em fixas conforme lista abaixo 1 - Outros erros 2 - Erro de compilação da classe tabOK = 1 - Importou 2 - Compilou set sc = ##class(Src2.Classe).GerarClasseArquivo("C:\workspacecsw\csw63\classes\Tcp\Engenharia.xml", "Tcp.Engenharia", , .tabErros, .tabOK) set sc = ##class(Src2.Classe).GerarClasseArquivo("C:\workspacecsw\csw63\classes\Tcp\Engenharia2.xml", "Tcp.Engenharia", , .tabErros, .tabOK) set sc = ##class(Src2.Classe).GerarClasseArquivo("C:\workspacecsw\csw63\classes\Tcp\Estampas.xml", "Tcp.Estampas", , .tabErros, .tabOK) 1 %String "_classe_" | Flags: "_flagComp_" | Arquivo '"_arquivoClasse_"' para importação da classe "_classe_" não encontrado") } quit "Arquivo '"_arquivoClasse_"' para importação da classe "_classe_" não encontrado" } if (flagComp = "") { set flagComp = ##class(Src2.Classe).ObterFlagsCompilacaoPadrao() } set tabOK(1) = "" set sc = $System.OBJ.Load(arquivoClasse, flagComp, .errorlog) if (sc = $$$OK) { if (flgLog) { set sc = ##class(Src2.Utils).GeraLog(1, "Importação de Classe | "_arquivoClasse_" => "_classe_" | Flags: "_flagComp) } set tabOK(2) = "" quit $$$OK } set lin = "" for { set lin = $order(errorlog(lin)) if (lin = "") quit set tabErros(1,lin) = $piece($get(errorlog(lin)),$char(13)_$char(10)_$char(32),1) } if (flgLog) { set sc = ##class(Src2.Utils).GeraLog(2, "Importação de Classe | "_arquivoClasse_" => "_classe_" | Flags: "_flagComp_" | "_$get(tabErros(1,1))) } // TODO - Implementar recurso de atualizar workspace - ver rotina quit "Erro ao compilar a classe "_classe ]]> Exclui uma Classe 1 %String Compara uma Classe com um Arquivo 1 %String Obter Dados Classe set sc = ##class(Src2.Classe).ObterDadosClasse("Tcp.Engenharia", .classePastaCopiaTrabalho, .classeCopiaTrabalho, .classePastaRepositorio, .classeRepositorio, .descricao, .extensao, .InternalName, .pasta, .projeto, .versaoRelacionada) set sc = ##class(Src2.Classe).ObterDadosClasse("nfe.v200.transporta", .classePastaCopiaTrabalho, .classeCopiaTrabalho, .classePastaRepositorio, .classeRepositorio, .descricao, .extensao, .InternalName, .pasta, .projeto, .versaoRelacionada) 1 %String Obtem Informações de uma Classe Entrada classe = "nfe.v200.transporta" Saidas classeId = "nfe_v200\transporta.xml" ou "nfe_v200/transporta.xml" pasta = "nfe_v200" InternalName = "nfe.v200.transporta.cls" set sc = ##class(Src2.Classe).ObterInfoClasse("nfe.v200.transporta", .classeId, .pasta, .InternalName, .descricao, .sigla, .situacao, .projeto, .extensao, .versaoRelacionada) set sc = ##class(Src2.Classe).ObterInfoClasse("Tcp.Engenharia", .classeId, .pasta, .InternalName, .descricao, .sigla, .situacao, .projeto, .extensao, .versaoRelacionada) set sc = ##class(Src2.Classe).ObterInfoClasse("Gcco.Tct.Forn.nfe.v200.Teste", .classeId, .pasta, .InternalName, .descricao, .sigla, .situacao, .projeto, .extensao, .versaoRelacionada) set sc = ##class(Src2.Classe).ObterInfoClasse("Reqe.Tct.Forn.nfe.v200.Teste", .classeId, .pasta, .InternalName, .descricao, .sigla, .situacao, .projeto, .extensao, .versaoRelacionada) 1 %String set sc = ##class(Src2.Classe).ObterPastaRefClasse("nfe.v200", .pastaRef) set sc = ##class(Src2.Classe).ObterPastaRefClasse("Gcco.Tct.Forn.nfe.v200", .pastaRef) set sc = ##class(Src2.Classe).ObterPastaRefClasse("Rqco.Tct.Forn.nfe.v200", .pastaRef) 1 %String Obtem Informações de um classeId Entrada classeId = "nfe_v200\transporta.xml" ou "nfe_v200/transporta.xml" Saidas classe = "nfe.v200.transporta" pasta = "nfe_v200" InternalName = "nfe.v200.transporta.cls" set sc = ##class(Src2.Classe).ObterInfoClasseId("nfe_v200\transporta.xml", .classe, .pasta, .InternalName, .package) set sc = ##class(Src2.Classe).ObterInfoClasseId("nfe_v200/transporta.xml", .classe, .pasta, .InternalName, .package) set sc = ##class(Src2.Classe).ObterInfoClasseId("transporta.xml", .classe, .pasta, .InternalName, .package) 1 %String Obtem Informações de um classeId 2 set sc = ##class(Src2.Classe).ObterInfoClasseId2("nfe_v200\transporta.xml", "http://192.168.15.10:18080/svn/cswutil/branches/6.2", "C:\workspacecsw\projetos\6.2\csw62", .classePastaCopiaTrabalho, .classeCopiaTrabalho, .classePastaRepositorio, .classeRepositorio) set sc = ##class(Src2.Classe).ObterInfoClasseId2("nfe_v200/transporta.xml", "http://192.168.15.10:18080/svn/cswutil/branches/6.2", "C:\workspacecsw\projetos\6.2\csw62", .classePastaCopiaTrabalho, .classeCopiaTrabalho, .classePastaRepositorio, .classeRepositorio) 1 %String Importa Classes a Partir de Arquivos 1 codTerm:%String,flagComp:%String="",flgLog:%Boolean=0 %String Compara/Acerta as Classes do Workspace para o Cache 1 codTerm:%String,flgAcertar:%Boolean=0,flagComp:%String="",flgLog:%Boolean=0,grupoItensSel:%String="" %String Verifica se Uma Classe Tem Controle de Fonte write ##class(Src2.Classe).ValidarClasseControleFonte2("nfe.v200.avulsa") write ##class(Src2.Classe).ValidarClasseControleFonte2("Tcp.Engenharia") 1 classe:%String %Boolean Obter Flags de Compilacao Padrao Do $system.OBJ.ShowFlags() tipo = 1 - Para Load (Sem compilação / Sem display) 2 - Para Load (Com compilação / Sem display) 3 - Para CompileAll/CompilePackage (Com compilação / Com Display) 4 - Para CompileAll/CompilePackage (Com compilação / Com Display / Sem Dependencias) write ##class(Src2.Classe).ObterFlagsCompilacaoPadrao() 1 tipo:%String=1 %String 1 %RegisteredObject 61727,0 Obtem a Versao do Controle de Fonte write ##class(Src2.Config).ObterVersaoSrc() 1 %Integer Obtem as Configurações de um Arquivo XML set sc=##class(Src2.Config).AtualizarConfiguracoes() set sc=##class(Src2.Config).AtualizarConfiguracoes(1,1) 1 force:%Boolean=0,flgUpdate:%Boolean=0,forceDicionario:%Boolean=0,username:%String="",password:%String="" %String Validar Conexao com o Subversion set sc=##class(Src2.Config).ValidarConexaoSubversion() 1 %String Obtem as Configurações de um Arquivo XML set sc=##class(Src2.Config).GerarConfiguracao() 1 %String Obtem as Configurações de um Arquivo XML set sc=##class(Src2.Config).GerarSourceCheck() 1 %String Obtem as Configurações de um Arquivo XML set sc=##class(Src2.Config).GerarDicionario() 1 %String Obtem as Configurações de um Arquivo XML set sc=##class(Src2.Config).GravarConfiguracao(dados) 1 dados:%String %String Obtem os Identificadores dos Arquivos set sc = ##class(Src2.Config).ObterIdArquivos(.idConfiguracao, .idSourceCheck, .idDicionario) 1 %String Obtem os Arquivos de Configuração set sc = ##class(Src2.Config).ObterArquivosConfig(.arquivoProjetos, .arquivoSistemas, .arquivoSourcecheck, .arquivoContas, .arquivoDicionario, .arquivoConfig, .arquivoParametros, .arquivoAtualizacao, .arquivoIntAux, .arquivoBases) 1 %String Obtem Outros os Arquivos de Configuração set sc = ##class(Src2.Config).ObterOutrosArquivosConfig(.arquivoConfigCert) 1 %String Grava um Projeto 1 idProjeto:%String,idSistema:%String,urlRepositorio:%String,porConta:%String,geraLog:%String,idVersaoGercon:%String,origem:%String,pasta:%String,menu:%String,versao:%String %String Grava um Grupo Rotina 1 grupoRotina:%String,idProjeto:%String,situacao:%String,sigla:%String="",descricao:%String,versaoRelacionada:%String="" %String Grava um Grupo Rotina Controlada 1 grupoRotina:%String %String Grava um Grupo Classe 1 grupoClasse:%String,idProjeto:%String,situacao:%String,sigla:%String="",descricao:%String,versaoRelacionada:%String="" %String Grava um Grupo Classe Sem Controle 1 grupoClasse:%String,flgItem:%String,flgSubItens:%String,flgSubPastas:%String %String Grava um Grupo Classe Controlada write ##class(Src2.Config).ValidarVersaoSrc() 1 %String Grava um Grupo Classe Controlada write ##class(Src2.Config).ValidarUpdateConfigWorkspace() 1 flgUpdate:%String %Boolean 3600) { set ^Src2Config("config","updateconfig") = $horolog quit 1 } quit 0 ]]> 1 %RegisteredObject 63432,61679.583765 ============================================== TODO - IMPLEMENTAR UM CADASTRO PARA REENVIO DE LOG TODO - IMPLEMENTAR UM CADASTRO DE PESQUISA TODO - IMPLEMENTAR CONSULTA PARA CONSULTAR OS RESULTADOS DA PESQUISA TODO - IMPLEMENTAR CONSULTAS PARA ANALISAR OS LOGS DE USO TODO - QUANDO DER ERRO AO PEGAR LICENCA ENVIAR EMAIL CONSISTEM TODO - NO TRATAMENTO DE ERRO DO SISTEMA GERAR LOG E TRATAR PARA ENVIO ============================================== Obter Informações do Consistem Log set sc = ##class(Src2.ConsistemLog).ObterInfo() 1 flgAtuAgend:%Boolean=1 %Status " { set sc = $get(%objlasterror) } else { set sc = $$$ERROR($$$CacheError,$zerror) } set sc2 = ##class(Src2.ConsistemLog).GerarLogErro(1, sc) } if (flgAtuAgend) { set sc2 = ##class(Src2.ConsistemLog).AtualizarAgendamento() } quit sc ]]> Transferir Log Consistem set sc = ##class(Src2.ConsistemLog).TransferirLog() 1 %Status Transferir Log Consistem - Envio Padrão 1 %Status ($horolog - 1)) set dataFim = $horolog - 1 set data = dataInicio - 1 for { set data = $order(^%CSWLOGUDT(data)) if (data = "") ! (data > dataFim) quit if ($data(^%CSW1LOGCFG(3,data))) continue set sc = ##class(Src2.Utils).IniciarCronometragem(.timestampInicio) set sc = ##class(Src2.ConsistemLog).TransfLogWebService(data) if $$$ISERR(sc) quit set sc = ##class(Src2.Utils).EncerrarCronometragem(timestampInicio, , .tempoTotal) set ^%CSW1LOGCFG(3,data) = 1_"^"_tempoTotal_"^"_$horolog write !,"Log Envio: ",$zdate(data,4) } quit $$$OK ]]> Transferir Log Consistem - Reenvio 1 %Status ($horolog - 1)) set dataFim = $horolog - 1 set flgErro = 0 set data = dataInicio - 1 for { set data = $order(^%CSWLOGUDT(data)) if (data = "") ! (data > dataFim) quit set sc = ##class(Src2.Utils).IniciarCronometragem(.timestampInicio) set sc = ##class(Src2.ConsistemLog).TransfLogWebService(data) if $$$ISERR(sc) set flgErro = 1 quit set sc = ##class(Src2.Utils).EncerrarCronometragem(timestampInicio, , .tempoTotal) set ^%CSW1LOGCFG(3,data) = 2_"^"_tempoTotal_"^"_$horolog write !,"Log Reenvio: ",$zdate(data,4) } if ('flgErro) { set $piece(^%CSW1LOGCFG(1),"^",6) = "" set $piece(^%CSW1LOGCFG(1),"^",7) = "" } quit $$$OK ]]> Transferir Log - WebService set sc = ##class(Src2.ConsistemLog).TransfLogWebService() 1 data:%Date %Status " { set sc = $get(%objlasterror) } else { set sc = $$$ERROR($$$CacheError,$zerror) } set sc2 = ##class(Src2.ConsistemLog).GerarLogErro(2, sc, data) } quit sc ]]> Obter Log Consistem 1 data:%Date Src2.Log.Dados Obter Log de Uso set sc = ##class(Src2.ConsistemLog).ObterLogUso($zdateh("06/05/2014",4)) 1 data:%Date %ListOfObjects Preparar Log para Envio set sc = ##class(Src2.ConsistemLog).PrepararLog($zdateh("06/05/2014",4)) 1 data:%Date %Status 0) continue // Tempo de Uso - Segundos set var = $get(^mtempSrc2ConsistemLog(proprama,tipoInterface,tipoMenu)) set $piece(var,"^",1) = $piece(var,"^",1) + segundos set $piece(var,"^",2) = $piece(var,"^",2) + acesso set $piece(var,"^",4) = $piece(var,"^",4) + nrChamadaGatInter set $piece(var,"^",5) = $piece(var,"^",5) + nrChamadaGatRegra set ^mtempSrc2ConsistemLog(proprama,tipoInterface,tipoMenu) = var } quit $$$OK ]]> Atualizar Agendamento set sc = ##class(Src2.ConsistemLog).AtualizarAgendamento() 1 %Status Agendar Log Consistem set sc = ##class(Src2.ConsistemLog).AgendarLogConsistem(.idTarefa) 1 %Status Transferir Pesquisas set sc = ##class(Src2.ConsistemLog).TransferirPesquisas() 1 %Status " { set sc = $get(%objlasterror) } else { set sc = $$$ERROR($$$CacheError,$zerror) } set sc2 = ##class(Src2.ConsistemLog).GerarLogErro(3, sc, +$horolog) } quit sc ]]> Executar Pesquisas 1 %Status Executar Pesquisa 1 %Status Gerar Log de Erro 1 origem:%Integer,sc:%Status,dataRef:%Date %Status Obter Namespace para Agendamento do Log set sc = ##class(Src2.ConsistemLog).ObterNamespaceAgendamentoLog(.namespace) 1 %Status Obter Conta Cliente set sc = ##class(Src2.ConsistemLog).ObterContaCliente(.codConta) 1 %Status persistent _SYSTEM 1 0 Src2DadosChAdapconStorage %Persistent 62948,53722.654435 Ederson E. Jantsch Utilitários Svn estatística Linhas alteradas por chamado da Adapcon 1 Chamado Adapcon %Integer 1 Número de linhas alteradas %Integer 1 1 1 chamado %CacheSQLStorage ^Src2.DadosChAdapconS 100000 data 0 ^Src2DadosChAdapcon {chamado} "^" 1 persistent _SYSTEM 1 0 Src2DadosChAdapconStorage %Persistent 62948,53698.804801 Ederson E. Jantsch Utilitários Svn estatística Revisão por chamado da Adapcon 1 Chamado da Adapcon %Integer 1 URL do repositório %String 1 Número da revisão %Integer 1 1 1 chamado,urlRepositorio,nrRevisao %CacheSQLStorage ^Src2.DadosChAdapconRevisaoS 100000 data 0 ^Src2DadosChAdapcon {urlRepositorio} {nrRevisao} {chamado} persistent _SYSTEM 1 0 SvnStatChamadoStorage %Persistent 62145,39299.652469 Ederson E. Jantsch Utilitários Svn estatística Linhas alteradas por chamado Gercon 1 Chamado Gercon %Integer 1 Número de linhas alteradas %Integer 1 1 1 chamado %CacheSQLStorage ^Src2.DadosChamadoS 100000 data 0 ^Src2DadosChamado {chamado} "^" 1 persistent _SYSTEM 1 0 SvnStatChamadoStorage %Persistent 62145,39299.654854 Ederson E. Jantsch Utilitários Svn estatística Revisão por chamado 1 Chamado %Integer 1 URL do repositório %String 1 Número da revisão %Integer 1 1 1 chamado,urlRepositorio,nrRevisao %CacheSQLStorage ^Src2.DadosChamadoRevisaoS 100000 data 0 ^Src2DadosChamado {chamado} {urlRepositorio} {nrRevisao} persistent _SYSTEM 1 1 SvnStatDataStorage %Persistent 62145,39299.657081 Ederson E. Jantsch Utilitários Svn estatística Linhas alteradas por data 1 Data %Date 1 Número de linhas alteradas %Integer 1 1 1 data %CacheSQLStorage ^Src2.DadosDataS 100000 data ^Src2DadosData {data} "^" 1 persistent _SYSTEM 1 1 SvnStatDataStorage %Persistent 62145,39299.659118 Ederson E. Jantsch Utilitários Svn estatística Revisão por data 1 Data %Date 1 URL do repositório %String 1 Número da revisão %Integer 1 1 1 data,urlRepositorio,nrRevisao %CacheSQLStorage ^Src2.DadosDataRevisaoS 100000 data 0 ^Src2DadosData {data} {urlRepositorio} {nrRevisao} persistent _SYSTEM 1 1 SvnStatProjetoStorage %Persistent 62145,39299.661356 Ederson E. Jantsch Utilitários Svn estatística Linhas alteradas do projeto 1 Projeto %Integer 1 Número de linhas alteradas %Integer 1 1 1 projeto %CacheSQLStorage ^Src2.DadosProjetoS 100000 data 0 ^Src2DadosProjeto {projeto} "^" 1 persistent _SYSTEM 1 1 SvnStatProjetoStorage %Persistent 62145,39299.664015 Ederson E. Jantsch Utilitários Svn estatística Revisão por projeto 1 Projeto %Integer 1 URL do repositório %String 1 Número da revisão %Integer 1 1 1 projeto,urlRepositorio,nrRevisao %CacheSQLStorage ^Src2.DadosProjetoRevisaoS 100000 data 0 ^Src2DadosProjeto {projeto} {urlRepositorio} {nrRevisao} persistent _SYSTEM 1 1 SvnStatRevisaoStorage %Persistent 62145,39299.667884 Ederson E. Jantsch Utilitários Svn estatística Revisão 1 URL do repositório %String 1 Número da revisão %Integer 1 Autor %String 1 Data do cálculo - Sistema %Date 1 Hora do cálculo - Sistema %Time 1 Número de linhas alteradas %Integer 1 1 1 urlRepositorio,nrRevisao %CacheSQLStorage ^Src2.DadosRevisaoS 100000 data 0 ^Src2DadosRevisao {urlRepositorio} {nrRevisao} 1 "^" 1 "^" 2 "^" 3 "^" 4 persistent _SYSTEM 1 0 Src2DadosRevisaoStorage %Persistent 62948,52852.970912 Ederson E. Jantsch Utilitários Svn estatística Chamado Adapcon da revisão 1 URL do repositório %String 1 Número da revisão %Integer 1 Chamado Adapcon %Integer 1 1 1 urlRepositorio,nrRevisao,chamado %CacheSQLStorage ^Src2.DadosRevisaoChamAdapS 100000 data 0 ^Src2DadosRevisao {urlRepositorio} {nrRevisao} 9 {chamado} persistent _SYSTEM 1 1 SvnStatRevisaoStorage %Persistent 62145,39299.670815 Ederson E. Jantsch Utilitários Svn estatística Chamado da revisão 1 URL do repositório %String 1 Número da revisão %Integer 1 Chamado %Integer 1 1 1 urlRepositorio,nrRevisao,chamado %CacheSQLStorage ^Src2.DadosRevisaoChamadoS 100000 data 0 ^Src2DadosRevisao {urlRepositorio} {nrRevisao} 3 {chamado} persistent _SYSTEM 0 1 Src2DadosRevisaoStorage %Persistent 62948,51830.895602 Ederson E. Jantsch Utilitários Svn estatística Linhas alteradas na revisão por classe 1 URL do repositório %String 1 Número da revisão %Integer 1 Classe %String 1 Número de linhas alteradas %Integer 1 1 1 urlRepositorio,nrRevisao,classe %CacheSQLStorage ^Src2.DadosRevisaoClasseS 100000 data 0 ^Src2DadosRevisao {urlRepositorio} {nrRevisao} 6 {classe} "^" 1 persistent _SYSTEM 1 1 SvnStatRevisaoStorage %Persistent 62145,39299.673603 Ederson E. Jantsch Utilitários Svn estatística Mensagem da revisão 1 URL do repositório %String 1 Número da revisão %Integer 1 Mensagem %String 1 1 urlRepositorio,nrRevisao %CacheSQLStorage ^Src2.DadosRevisaoMensagemS 100000 data 0 ^Src2DadosRevisao {urlRepositorio} {nrRevisao} 2 "^" 1 persistent _SYSTEM 1 1 SvnStatRevisaoStorage %Persistent 62145,39299.676248 Ederson E. Jantsch Utilitários Svn estatística Projeto da revisão 1 URL do repositório %String 1 Número da revisão %Integer 1 Projeto %Integer 1 1 1 urlRepositorio,nrRevisao,projeto %CacheSQLStorage ^Src2.DadosRevisaoProjetoS 100000 data 0 ^Src2DadosRevisao {urlRepositorio} {nrRevisao} 4 {projeto} persistent _SYSTEM 0 1 SvnStatRevisaoStorage %Persistent 62145,39299.679267 Ederson E. Jantsch Utilitários Svn estatística Linhas alteradas na revisão por rotina 1 URL do repositório %String 1 Número da revisão %Integer 1 Rotina %String 1 Número de linhas alteradas %Integer 1 1 1 urlRepositorio,nrRevisao,rotina %CacheSQLStorage ^Src2.DadosRevisaoRotinaS 100000 data 0 ^Src2DadosRevisao {urlRepositorio} {nrRevisao} 5 {rotina} "^" 1 persistent _SYSTEM 1 0 Src2DadosRevisaoStorage %Persistent 62948,52937.267677 Ederson E. Jantsch Utilitários Svn estatística Ticket Kayako 1 URL do repositório %String 1 Número da revisão %Integer 1 Ticket Kayako da revisão %Integer 1 1 1 urlRepositorio,nrRevisao,nrTicket %CacheSQLStorage ^Src2.DadosRevisaoTicketKayakoS 100000 data 0 ^Src2DadosRevisao {urlRepositorio} {nrRevisao} 7 {nrTicket} persistent _SYSTEM 1 0 Src2DadosRevisaoStorage %Persistent 62948,52939.85288 Ederson E. Jantsch Utilitários Svn estatística Ticket Redmine 1 URL do repositório %String 1 Número da revisão %Integer 1 Ticket Redmine da revisão %Integer 1 1 1 urlRepositorio,nrRevisao,nrTicket %CacheSQLStorage ^Src2.DadosRevisa8CDBS 100000 data 0 ^Src2DadosRevisao {urlRepositorio} {nrRevisao} 8 {nrTicket} persistent _SYSTEM 1 0 Src2DadosTkKayakoStorage %Persistent 62948,53613.491696 Ederson E. Jantsch Utilitários Svn estatística Linhas alteradas por ticket do Kayako 1 Ticket Kayako %Integer 1 Número de linhas alteradas %Integer 1 1 1 ticket %CacheSQLStorage ^Src2.DadosTkKayakoS 100000 data 0 ^Src2DadosTkKayako {ticket} "^" 1 persistent _SYSTEM 1 0 Src2DadosTkKayakoStorage %Persistent 62948,53610.890305 Ederson E. Jantsch Utilitários Svn estatística Revisão por ticket do Kayako 1 Ticket do Kayako %Integer 1 URL do repositório %String 1 Número da revisão %Integer 1 1 1 ticket,urlRepositorio,nrRevisao %CacheSQLStorage ^Src2.DadosTkKayakoRevisaoS 100000 data 0 ^Src2DadosTkKayako {urlRepositorio} {nrRevisao} {ticket} persistent _SYSTEM 1 0 Src2DadosTkRedmineStorage %Persistent 61727,0 Ederson E. Jantsch Utilitários Svn estatística Linhas alteradas por ticket do Redmine 1 Ticket Redmine %Integer 1 Número de linhas alteradas %Integer 1 1 1 ticket %CacheSQLStorage ^Src2.DadosTkRedmineS 100000 data 0 ^Src2DadosTkRedmine {ticket} "^" 1 persistent _SYSTEM 1 0 Src2DadosTkRedmineStorage %Persistent 62948,53644.540638 Ederson E. Jantsch Utilitários Svn estatística Revisão por ticket do Redmine 1 Ticket do Redmine %Integer 1 URL do repositório %String 1 Número da revisão %Integer 1 1 1 ticket,urlRepositorio,nrRevisao %CacheSQLStorage ^Src2.DadosTkRedmineRevisaoS 100000 data 0 ^Src2DadosTkRedmine {urlRepositorio} {nrRevisao} {ticket} 1 %RegisteredObject 62145,39299.649005 Atualizar Log de Dados do SVN no Gercon regerar = 0 - Importa as revisões não importadas de todos os repositórios 1 - Mata e gera a base de todos os repositórios 2 - Regera a base de todos os repositórios projetoInf = URL do repositório (regerar = 0) intervRev = Intervalo de revisão ou revisão (regerar = 0) "3720" ou "3720:3760" ou "3720:" ou ":3720" set sc = ##class(Src2.Dados).AtualizarLog(,,,,"admin","*****") set sc = ##class(Src2.Dados).AtualizarLog(1,,,,"admin","*****") set sc = ##class(Src2.Dados).AtualizarLog(2,,,,"admin","*****") set sc = ##class(Src2.Dados).AtualizarLog(,"csw63", ,"37:","admin","*****") set sc = ##class(Src2.Dados).AtualizarLog(,"csw63", ,"3720:3760","admin","*****") set sc = ##class(Src2.Dados).AtualizarLog(,"csw63", ,"4:6","admin","*****") set sc = ##class(Src2.Dados).AtualizarLog(,, "http://192.168.15.10:18080/svn/csw","11","admin","*****") OBS: Método utilizado pelo Gercon 1 regerar:%Status=0,projetoInf:%Status="",urlRepositorioInf:%Status="",intervRev:%Status="",username:%String="",password:%String="" %Status 1 caminhoSvn:%String,urlRepositorio:%String,projeto:%String,revisao:%String,author:%String,date:%String,message:%String,arquivoDiff:%String,autenticacao:%String %Status 1 projeto:%String,revisao:%String %Status set sc = ##class(Src2.Dados).ObterDataHora("2009-09-15T10:50:50.770115Z", .data, .hora) set sc = ##class(Src2.Dados).ObterDataHora("2009-10-02T00:38:56.729879Z", .data, .hora) set sc = ##class(Src2.Dados).ObterDataHora("2009-10-02T00:00:00.729879Z", .data, .hora) set sc = ##class(Src2.Dados).ObterDataHora("2009-10-02T23:59:59.729879Z", .data, .hora) 1 date:%String,data:%String,hora:%String %Status set sc = ##class(Src2.Dados).ObterInfMessage("[ CH167964] - Pro[TK33333]bl[#34]ema [CH - 123123]do #999999 para [ch45446] [ch = 987654] não [PJ23] teste.", .tabChamados, .tabProjetosDes, .tabTicketKayako, .tabTicketRedmine, .tabChamadosAdapcon, .flgMerge) set sc = ##class(Src2.Dados).ObterInfMessage("Teste #343 casa #fixes [MERGE] teste", .tabChamados, .tabProjetosDes, .tabTicketKayako, .tabTicketRedmine, .tabChamadosAdapcon, .flgMerge) set sc = ##class(Src2.Dados).ObterInfMessage("[ AS167964] - Pro[TK33333]bl[#34]ema [Merge] [AS - 123123]do #999999 para [as45446] [as = 987654] não [PJ23] teste.", .tabChamados, .tabProjetosDes, .tabTicketKayako, .tabTicketRedmine, .tabChamadosAdapcon, .flgMerge) 1 %Status set sc = ##class(Src2.Dados).LerDiff("C:\workspacecsw\temp\diff.txt", .tabItens) 1 %Status write ##class(Src2.Dados).GerarLinhas(item, .tabItens, .tabLinhas) 1 tipo:%String,item:%String,tabItens:%String,tabLinhas:%String %Status $get(tabLinhas("-"))) { set linhas = $get(tabLinhas("+")) } else { set linhas = $get(tabLinhas("-")) } set tabItens = $get(tabItens) + linhas set tabItens(tipo) = $get(tabItens(tipo)) + linhas set tabItens(tipo,item) = $get(tabItens(tipo,item)) + linhas kill tabLinhas quit $$$OK ]]> write ##class(Src2.Dados).LinhaComentada($get(^rMAC("CCTCP020",0,66))) write ##class(Src2.Dados).LinhaComentada($get(^rMAC("CCTCP020",0,66))) 1 linha:%String %Status persistent _SYSTEM 1 1 CSW1LOGCFGStorage %Persistent 63440,56728.644044 Ederson E. Jantsch Controle de Fontes Log Consistem - Client Configuração do Log Consistem 1 Situação %Integer 1 Data da última atualização da configuração - Sistema %Date 1 Hora da última atualização da configuração - Sistema %Time 1 Hora do agendada para envio dos dados %Time 1 Data início para envio dos dados %Date Data fim para envio dos dados %Date Data início para reenvio dos dados %Date Data fim para reenvio dos dados %Date Código da Task do Agendamento %Integer Namespace Configurado %String Fixa 1 %String 1 1 1 fixa1 %CacheSQLStorage ^Src2.DadosLog.ConfigS 100000 data 0 ^%CSW1LOGCFG {fixa1} "^" 8 "^","," 2,1 "^" 5 "^" 7 "^" 4 "^" 6 "^" 3 "^","," 2,2 "^" 9 "^" 1 persistent _SYSTEM 1 1 CSW1LOGCFGStorage %Persistent 63440,59789.60612 Ederson E. Jantsch Controle de Fontes Log Consistem - Client Logs de Erros 1 Código da sequencia do erro %Integer 1 Origem do Erro %Integer 1 Data de Referência %Date Data do erro - Sistema %Date 1 Hora do erro - Sistema %Time 1 1 1 codSeq %CacheSQLStorage ^Src2.DadosLog.LogErroS 100000 data 0 ^%CSW1LOGCFG 5 {codSeq} "^","," 3,1 "^" 2 "^","," 3,2 "^" 1 persistent _SYSTEM 1 1 CSW1LOGCFGStorage %Persistent 63440,59786.017885 Ederson E. Jantsch Controle de Fontes Log Consistem - Client Logs de Erros - Mensagem 1 Código da sequencia do erro %Integer 1 Mensagem de erro %String 1 1 1 codSeq %CacheSQLStorage ^Src2.DadosLog.LogErroMsgS 100000 data 0 ^%CSW1LOGCFG 5 {codSeq} 1 "^" 1 persistent _SYSTEM 1 1 CSW1LOGCFGStorage %Persistent 63460,46941.364342 Ederson E. Jantsch Controle de Fontes Log Consistem - Client Logs de Erros - Mensagem - Sem DecomposeStatus 1 Código da sequencia do erro %Integer 1 Mensagem de erro %String 1 1 1 codSeq %CacheSQLStorage ^Src2.DadosLog.LogErroMsg2S 100000 data 0 ^%CSW1LOGCFG 5 {codSeq} 2 "^" 1 persistent _SYSTEM 1 1 CSW1LOGCFGStorage %Persistent 63440,57031.827213 Ederson E. Jantsch Controle de Fontes Log Consistem - Client Logs Enviados por Data 1 Data do log enviado %Date Tipo do log %Integer 1 Tempo para envio do log %Float 1 Data do envio do log - Sistema %Date 1 Hora do envio do log - Sistema %Time 1 1 1 dataLog %CacheSQLStorage ^Src2.DadosLog.LogsEnviadosS 100000 data 0 ^%CSW1LOGCFG 3 {dataLog} "^","," 3,1 "^","," 3,2 "^" 2 "^" 1 persistent _SYSTEM 1 1 CSW1LOGCFGStorage %Persistent 63440,57034.747045 Ederson E. Jantsch Controle de Fontes Log Consistem - Client Pesquisas Enviadas 1 Código da pesquisa %Integer 1 1 1 codPesquisa %CacheSQLStorage ^Src2.DadosLog.PesquisaEnviadaS 100000 data 0 ^%CSW1LOGCFG 4 {codPesquisa} persistent _SYSTEM 1 1 CSW1LOGCFGStorage %Persistent 63440,57029.001183 Ederson E. Jantsch Controle de Fontes Log Consistem - Client Erro na Execução da Pesquisa 1 Código da pesquisa %Integer 1 Mensagem de erro na execução da regra %String 1 1 1 codPesquisa %CacheSQLStorage ^Src2.DadosLog.PesquisaErroS 100000 data 0 ^%CSW1LOGCFG 2 {codPesquisa} 1 "^" 1 persistent _SYSTEM 1 1 CSW1LOGCFGStorage %Persistent 63440,56864.365674 Ederson E. Jantsch Controle de Fontes Log Consistem - Client Pesquisa Pendente 1 Código da pesquisa %Integer 1 Regra a ser chamada %String 1 1 1 codPesquisa %CacheSQLStorage ^Src2.DadosLog.PesquisaPendB4DS 100000 data 0 ^%CSW1LOGCFG 2 {codPesquisa} "^" 1 1 %RegisteredObject 61727,0 Exporta Rotinas e Classes para um Arquivo xml 1 itens:%String="",arquivo:%String,flgCong:%Boolean %Status Importa Rotinas e Classes de um Arquivo xml ou rsa set sc = ##class(Src2.ImportExport).ImportarArquivo("aa", "C:\workspacecsw\temp\testeexport.xml", "admin", "admin") set sc = ##class(Src2.ImportExport).ImportarArquivo("aa", "C:\workspacecsw\temp\rotinasteste.rsa", "admin", "admin") 1 codTerm:%String,arquivo:%String,username:%String="",password:%String="",flgAtuWorkspace:%Boolean=1 %Status Importa Rotinas e Classes de um Arquivo xml 1 codTerm:%String,arquivo:%String,username:%String="",password:%String="",flgAtuWorkspace:%Boolean=1 %Status Atualizar o Workspace e Gera as Páginas CSP das Rotinas 1 codTerm:%String,arquivo:%String,username:%String="",password:%String="",flgAtuWorkspace:%Boolean=1 %Status Importa Rotinas de um Arquivo rsa 1 codTerm:%String,arquivo:%String,username:%String="",password:%String="",flgAtuWorkspace:%Boolean=1 %Status Valida a Importação de Rotinas e Classes de um Arquivo xml set sc = ##class(Src2.ImportExport).ValidarImportarArquivoXmlRsa("C:\workspacecsw\temp\testeexport.xml") set sc = ##class(Src2.ImportExport).ValidarImportarArquivoXmlRsa("C:\workspacecsw\temp\rotinasteste.rsa") 1 codTerm:%String,arquivo:%String %Status persistent 1 %Persistent,%XML.Adaptor 61727,0 right 1 http://consistem.com.br DadosCliente 1 Conta do Cliente %String 1 Mac Address do Servidor que está enviando as informações %String Flag para dizer se o gercon já foi atualizado %Boolean Data e Hora do fim da atualização no cliente %String 1 Data e Hora que o WebService recebeu os dados %String 1 Dados do Servidor do Cliente Src2.Inf.DadosServidor Dados da Licenca Caché no Cliente Src2.Inf.DadosLicencaCache Dados da Licenca Consistem no Cliente Src2.Inf.DadosLicencaConsistem Dados de Uso da Licenca Consistem Src2.Inf.DadosUsoLicencaConsistem list Lista com os dados da versão atual do cliente Src2.Inf.DadosVersaoAtual list Method para excluir todas as outras propriedades da classe 1 oid:%ObjectIdentity %Status 1 %Status 1 id:%Integer %Status Method para atualizar o gercon conforme informações recebidas Esse method somente atualiza sem efetuar lock e sem excluir os dados no final Utilizar o AtualizarInfGerconJob 1 id:%Integer %Status Method para limpar os dados do cliente Se passar a dataRef, limpa até a data já importados. Senão, todos os importados do ##Class(Src2.Inf.DadosCliente).LimparDadosClienteImportados() do ##Class(Src2.Inf.DadosCliente).LimparDadosClienteImportados((+$h-10)) 1 dataRef:%Date="" dataRef) , (dataRef '= "") continue set sc = ##Class(Src2.Inf.DadosCliente).%DeleteId(rs.GetData(1)) } ]]> %Library.CacheStorage ^Src2.Inf.DadosClienteD DadosClienteDefaultData ^Src2.Inf.DadosClienteD ^Src2.Inf.DadosClienteI ^Src2.Inf.DadosClienteS 100000 listnode %%CLASSNAME conta dadosServidor dadosLicencaCache DadosUsoLicencaConsistem dadosVersaoAtual dadosUsoLicencaConsistem flagAtualizadoGercon dataHoraAtualizaoCliente dataHoraWebService dadosLicencaConsistem macAddress persistent 1 %Persistent,%XML.Adaptor 62809,48159.816725 1 http://consistem.com.br DadosLicencaCache 1 Número de Licenças do Caché %String Data da Licenças do Caché %String Nome Cliente Licenciada Caché %String %Library.CacheStorage ^Src2.Inf.DadosLicencaCacheD DadosLicencaCacheDefaultData ^Src2.Inf.DadosLicencaCacheD ^Src2.Inf.DadosLicencaCacheI ^Src2.Inf.DadosLicencaCacheS 100000 listnode %%CLASSNAME numeroLicencasCache dataLicencasCache nomeClienteLicenca persistent 1 %Persistent,%XML.Adaptor 61727,0 1 http://consistem.com.br DadosLicencaConsistem 1 Licença %String Chave da Licença %String Tipo da Licença: Arquivo ou Banco %Integer 1 %Library.CacheStorage ^Src2.Inf.DadosLicencE39AD DadosLicencaConsistemDefaultData ^Src2.Inf.DadosLicencE39AD ^Src2.Inf.DadosLicencE39AI ^Src2.Inf.DadosLicencE39AS 100000 listnode %%CLASSNAME licenca chaveLicenca tipoLicenca persistent 1 %Persistent,%XML.Adaptor 62809,50730.246939 1 http://consistem.com.br DadosServidor 1 Sistema Operacional aonde está instalado o Caché %String Versão do Caché no Cliente %String Plataforma do Servidor %String Velocidade do Processador %String Modelo do Processador %String Fabricante do Processador %String Número de Chips do Processador %Integer Número de Cores do Processador %Integer Números de Cores por Chip do Processador %Integer Número de Threads do Processador %Integer Número de Threads Por Cores do Processador %Integer %Library.CacheStorage ^Src2.Inf.DadosServidorD DadosServidorDefaultData ^Src2.Inf.DadosServidorD ^Src2.Inf.DadosServidorI ^Src2.Inf.DadosServidorS 100000 listnode %%CLASSNAME sistemaOperacional versaoCache plataforma velocidadeProcessador modeloProcessador fabricanteProcessador numeroChips numeroCores numeroCoresPorChip numeroThreads numeroThreadsPorCore persistent 1 %Persistent,%XML.Adaptor 62809,59065.309798 1 http://consistem.com.br DadosUsoLicencaConsistem 1 Data %Date 1 Hora %Time 1 Total de Usuários %Integer Usuários Logados CRM %Integer Usuários Logados CSW %Integer Usuários Logados Caracter %Integer Usuários Logados Gráfico %Integer Usuários Temporários Consistem %Integer %Library.CacheStorage ^Src2.Inf.DadosUsoLic4AC1D DadosUsoLicencaConsistemDefaultData ^Src2.Inf.DadosUsoLic4AC1D ^Src2.Inf.DadosUsoLic4AC1I ^Src2.Inf.DadosUsoLic4AC1S 100000 listnode %%CLASSNAME data hora totUsuarios usuariosLogadosCRM usuariosLogadosCSW usuariosLogadosCaracter usuariosLogadosGrafico usuariosTmpConsistem persistent 1 %Persistent,%XML.Adaptor 62809,51244.125392 1 http://consistem.com.br DadosVersaoAtual 1 Produto %String Versão Atual %String Flag para dizer se existe rotinas fora da versão (Snapshot) %Boolean Revisão %String %Library.CacheStorage ^Src2.Inf.DadosVersaoAtualD DadosVersaoAtualDefaultData ^Src2.Inf.DadosVersaoAtualD ^Src2.Inf.DadosVersaoAtualI ^Src2.Inf.DadosVersaoAtualS 100000 listnode %%CLASSNAME produto versao flgVersaoAlter revisao 1 %RegisteredObject 61727,0 Obter Itens Alterados do Chamado set sc = ##class(Src2.IntegraGercon).ObterItensAlteradosChamado(999999, 1, .tabRotinas, .tabClasses, .tabReposRevis, .tabErros) 1 chamado:%String,idParcGerconInf:%String,tabRotinas:%String,tabClasses:%String,tabReposRevis:%String,tabErros:%String,username:%String="",password:%String="",ticketKayako:%String="" %Status Importar Revisoes set sc = ##class(Src2.IntegraGercon).ImportarRevisoesGercon(9999, "http://192.168.15.10:18080/svn/teste/trunk;68,69,70,84,89", "C:\workspacecsw\temp\loggercon.txt") set sc = ##class(Src2.IntegraGercon).ImportarRevisoesGercon(9999, "http://192.168.15.10:18080/svn/teste/trunk;68,69,70,84,89", "/usr/tmp/ederson/loggercon.txt", "ederson@consistem.com.br") set sc = ##class(Src2.IntegraGercon).ImportarRevisoesGercon(1111, "http://192.168.15.10:18080/svn/teste/trunk;89", "C:\workspacecsw\temp\loggercon.txt") set sc = ##class(Src2.IntegraGercon).ImportarRevisoesGercon(2222, "http://192.168.15.10:18080/svn/teste/trunk;69", "C:\workspacecsw\temp\loggercon.txt") 1 chamado:%String,strReposRevis:%String,arquivoLog:%String,email:%String="",ipServidor:%String="",username:%String="",password:%String="" %Status Filtra as Revisoes 1 codTerm:%String,urlRepositorio:%String %Status ultimaRevisao) { kill ^mtempSrc2Revisoes(codTerm,"rev",ultimaRevisao,1,tipoItem,item) kill ^mtempSrc2Revisoes(codTerm,"item",tipoItem,item,ultimaRevisao) kill tabChamados merge tabChamados = ^Src2GerconItem(tipoItem,item,urlRepositorio,revisao,1) set sc = ##class(Src2.IntegraGercon).GravarAviso(codTerm) set sc = ##class(Src2.IntegraGercon).GravarAviso(codTerm, ##class(Src2.Utils).ObterBarra( , ,100)) set sc = ##class(Src2.IntegraGercon).GravarAviso(codTerm, "Item Baixado por um Chamado em uma Revisão mais Recente") set sc = ##class(Src2.IntegraGercon).GravarAviso(codTerm, "Repositório: "_urlRepositorio_" - Revisão: "_revisao) set sc = ##class(Src2.IntegraGercon).GravarAviso(codTerm, "Item: "_item_" / Revisão: "_revisao_" / Chamados: "_##class(Src2.Utils).ConvertTabStr(.tabChamados)) set sc = ##class(Src2.IntegraGercon).GravarAviso(codTerm, ##class(Src2.Utils).ObterBarra( , ,100)) } } } quit $$$OK ]]> Importar Tabela de Revisoes set sc = ##class(Src2.IntegraGercon).GravarErro() 1 codTerm:%String,msgErro:%String="" %Status Importar Tabela de Revisoes set sc = ##class(Src2.IntegraGercon).GravarAviso() 1 codTerm:%String,msgErro:%String="" %Status Gerar Arquivo de Log de Erros 1 codTerm:%String,chamado:%String,arquivoLog:%String,ipServidor:%String="" %Status Envia um Log de Erros por Email 1 codTerm:%String,chamado:%String,strReposRevis:%String,email:%String,ipServidor:%String="" %String 1 %RegisteredObject 61727,0 Validar Rotina set sc = ##class(Src2.Item).ValidarItem("CCEVB9*.mac", .expressaoEdt, .qtdItens, .tabItens) set sc = ##class(Src2.Item).ValidarItem("CCEVA300.mac", .expressaoEdt, .qtdItens, .tabItens) set sc = ##class(Src2.Item).ValidarItem("nfe.v110.COF*.cls", .expressaoEdt, .qtdItens, .tabItens) 1 %String Agrupar Itens set sc = ##class(Src2.Item).AgruparItens(.tabItens, .qtdade) 1 tabItens:%String,qtdade:%Integer %Status Excluir Itens do Sistema set sc = ##class(Src2.Item).ExcluirItensSistema("csw") set sc = ##class(Src2.Item).ExcluirItensSistema("") set sc = ##class(Src2.Item).ExcluirItensSistema("customax") 1 sistema:%String %String Obter Itens do Sistema set sc = ##class(Src2.Item).ObterItensSistema("csw",.tabItens) set sc = ##class(Src2.Item).ObterItensSistema("customax",.tabItens) set sc = ##class(Src2.Item).ObterItensSistema("",.tabItens) 1 %String Excluir um Grupo de Itens set sc = ##class(Src2.Item).ExcluirGrupoItens("CCEVB99*.mac") set sc = ##class(Src2.Item).ExcluirGrupoItens("nfe.v110.COF*.cls") 1 grupo:%String %String Compara um Item com um Arquivo write ##class(Src2.Item).ExportarItemArquivo("CCEVA010.mac") write ##class(Src2.Item).ExportarItemArquivo("CCEVA001.MAC") write ##class(Src2.Item).ExportarItemArquivo("nfe.v200.avulsa.cls") write ##class(Src2.Item).ExportarItemArquivo("Src2.Classe.cls",,"admin","admin") 1 InternalName:%String,flgSubversion:%Boolean=1,username:%String="",password:%String="",flgLog:%Boolean=0 %String Compara um Item com um Arquivo write ##class(Src2.Item).CompararItemArquivo("CCEVA010.mac") write ##class(Src2.Item).CompararItemArquivo("Inf.ApuracaoSTAjustesOutros.cls", .linDifNr, .linDifItem, .linDifArq) 1 %String Importar um Item de um Arquivo 1 InternalName:%String,flgLog:%Boolean=0 %String Obter Dados Item set sc = ##class(Src2.Item).ObterDadosItem("CCEVA621.mac", .item, .pastaCopiaTrabalho, .itemCopiaTrabalho, .pastaRepositorio, .itemRepositorio, .descricao, .extensao, .pasta, .projeto, .versaoRelacionada, .sistema, .arquivo) set sc = ##class(Src2.Item).ObterDadosItem("GCCOTCR500RG.mac", .item, .pastaCopiaTrabalho, .itemCopiaTrabalho, .pastaRepositorio, .itemRepositorio, .descricao, .extensao, .pasta, .projeto, .versaoRelacionada, .sistema, .arquivo) set sc = ##class(Src2.Item).ObterDadosItem("%CSMEN045.mac", .item, .pastaCopiaTrabalho, .itemCopiaTrabalho, .pastaRepositorio, .itemRepositorio, .descricao, .extensao, .pasta, .projeto, .versaoRelacionada, .sistema, .arquivo) set sc = ##class(Src2.Item).ObterDadosItem("Gcco.Tcr.Tag.cls", .item, .pastaCopiaTrabalho, .itemCopiaTrabalho, .pastaRepositorio, .itemRepositorio, .descricao, .extensao, .pasta, .projeto, .versaoRelacionada, .sistema, .arquivo) set sc = ##class(Src2.Item).ObterDadosItem("Gcco.nfe.v200.transporta.cls", .item, .pastaCopiaTrabalho, .itemCopiaTrabalho, .pastaRepositorio, .itemRepositorio, .descricao, .extensao, .pasta, .projeto, .versaoRelacionada, .sistema, .arquivo) set sc = ##class(Src2.Item).ObterDadosItem("nfe.v200.transporta.cls", .item, .pastaCopiaTrabalho, .itemCopiaTrabalho, .pastaRepositorio, .itemRepositorio, .descricao, .extensao, .pasta, .projeto, .versaoRelacionada, .sistema, .arquivo) 1 %String Obter Dados Arquivo Item set sc = ##class(Src2.Item).ObterDadosArquivoItem("CCEVA621.mac", .dataAlteracao, .tamanho) set sc = ##class(Src2.Item).ObterDadosArquivoItem("nfe.v200.transporta.cls", .dataAlteracao, .tamanho) set sc = ##class(Src2.Item).ObterDadosArquivoItem("CCEVB612.mac", .dataAlteracao, .tamanho) 1 %String Obter Informações do Iternal Name set sc = ##class(Src2.Item).ObterInfoInternalName("Src.CCTCP020.mac", .item, .extensao) set sc = ##class(Src2.Item).ObterInfoInternalName("CCTCP020.MAC", .item, .extensao) set sc = ##class(Src2.Item).ObterInfoInternalName("Tcp.Engenharia.cls", .item, .extensao) 1 %String Verifica se Um Item Tem Controle de Fonte write ##class(Src2.Item).ValidarItemControleFonte("CCTCR075.mac") write ##class(Src2.Item).ValidarItemControleFonte("CCTCR075.mac") write ##class(Src2.Item).ValidarItemControleFonte("XXTCR075.mac") write ##class(Src2.Item).ValidarItemControleFonte("CCTCzzz.mac") write ##class(Src2.Item).ValidarItemControleFonte("zz.mac") write ##class(Src2.Item).ValidarItemControleFonte("nfe.v200.avulsa.cls") write ##class(Src2.Item).ValidarItemControleFonte("Tcp.Engenharia.cls") 1 InternalName:%String %Boolean Excluir um Item no Cache write ##class(Src2.Item).ExcluirItemCache("CCTCR075.mac") write ##class(Src2.Item).ExcluirItemCache("CCTCR075.mac") write ##class(Src2.Item).ExcluirItemCache("XXTCR075.mac") write ##class(Src2.Item).ExcluirItemCache("CCTCzzz.mac") write ##class(Src2.Item).ExcluirItemCache("zz.mac") write ##class(Src2.Item).ExcluirItemCache("nfe.v200.avulsa.cls") write ##class(Src2.Item).ExcluirItemCache("Tcp.Engenharia.cls") 1 %String Verifica se Um Item Tem o Fonte no Caché write ##class(Src2.Item).ValidarFonteItemCache("CCTCR075.mac") write ##class(Src2.Item).ValidarFonteItemCache("CCEVA330.mac") write ##class(Src2.Item).ValidarFonteItemCache("XXTCR075.mac") write ##class(Src2.Item).ValidarFonteItemCache("Src2.Utils.cls") write ##class(Src2.Item).ValidarFonteItemCache("nfe.v200.avulsa.cls") write ##class(Src2.Item).ValidarFonteItemCache("Tcp.Engenharia.cls") 1 InternalName:%String %Boolean Verifica se Um Item Tem o Fonte no Caché write ##class(Src2.Item).ValidarVersaoRelacionada("CCTCR075.mac") write ##class(Src2.Item).ValidarVersaoRelacionada("CCEVA330.mac") write ##class(Src2.Item).ValidarVersaoRelacionada("GCCOCCEVA330.mac") write ##class(Src2.Item).ValidarVersaoRelacionada("XXTCR075.mac") write ##class(Src2.Item).ValidarVersaoRelacionada("Gcco.nfe.v200.transporta.cls") write ##class(Src2.Item).ValidarVersaoRelacionada("nfe.v200.avulsa.cls") write ##class(Src2.Item).ValidarVersaoRelacionada("Tcp.Engenharia.cls") 1 InternalName:%String %Boolean 1 InternalName:%String,flgSubversion:%Boolean=1,username:%String="",password:%String="" %Status Obter Item set sc = ##class(Src2.Item).ObterItem("classes/nfe_v110/TDec0803Opc.xml (revisÃ£o 17)", .tipo, .item, .sys, .pasta, .InternalName, .itemId) set sc = ##class(Src2.Item).ObterItem("/trunk/classes/nfe_v110/TDec0803Opc.xml (revisÃ£o 17)", .tipo, .item, .sys, .pasta, .InternalName, .itemId) set sc = ##class(Src2.Item).ObterItem("rotinas/CCEVA/CCEVA704.mac (revisÃ£o 17)", .tipo, .item, .sys, .pasta, .InternalName, .itemId) set sc = ##class(Src2.Item).ObterItem("rotinas/_CS/_CSMEN000.mac (revisÃ£o 17)", .tipo, .item, .sys, .pasta, .InternalName, .itemId) set sc = ##class(Src2.Item).ObterItem("/trunk/rotinas/_CS/_CSMEN000.mac (revisÃ£o 17)", .tipo, .item, .sys, .pasta, .InternalName, .itemId) set sc = ##class(Src2.Item).ObterItem("rotinas/ccevb/ (revisã£o 17)", .tipo, .item, .sys, .pasta, .InternalName, .itemId) set sc = ##class(Src2.Item).ObterItem("classes/nfe_v200/ (revisÃ£o 17)", .tipo, .item, .sys, .pasta, .InternalName, .itemId) 1 %String Obtem Informações de um ItemId set sc = ##class(Src2.Item).ObterInfoItemId("nfe_v200\transporta.xml", .InternalName) set sc = ##class(Src2.Item).ObterInfoItemId("nfe_v200/transporta.xml", .InternalName) set sc = ##class(Src2.Item).ObterInfoItemId("_CSMEN\_CSMEN100.mac", .InternalName) set sc = ##class(Src2.Item).ObterInfoItemId("_CS/_CSMEN000.mac", .InternalName) 1 %String Obtem Informações de um ItemId 2 set sc = ##class(Src2.Item).ObterInfoItemId2("nfe_v200\transporta.xml", "http://192.168.15.10:18080/svn/cswutil/branches/6.2", "C:\workspacecsw\projetos\6.2\csw62", .itemPastaCopiaTrabalho, .itemCopiaTrabalho, .itemPastaRepositorio, .itemRepositorio) set sc = ##class(Src2.Item).ObterInfoItemId2("nfe_v200/transporta.xml", "http://192.168.15.10:18080/svn/cswutil/branches/6.2", "C:\workspacecsw\projetos\6.2\csw62", .itemPastaCopiaTrabalho, .itemCopiaTrabalho, .itemPastaRepositorio, .itemRepositorio) set sc = ##class(Src2.Item).ObterInfoItemId2("_CSMEN\_CSMEN100.mac", "http://192.168.15.10:18080/svn/cswutil/branches/6.2", "C:\workspacecsw\projetos\6.2\csw62", .itemPastaCopiaTrabalho, .itemCopiaTrabalho, .itemPastaRepositorio, .itemRepositorio) set sc = ##class(Src2.Item).ObterInfoItemId2("_CS/_CSMEN000.mac", "http://192.168.15.10:18080/svn/cswutil/branches/6.2", "C:\workspacecsw\projetos\6.2\csw62", .itemPastaCopiaTrabalho, .itemCopiaTrabalho, .itemPastaRepositorio, .itemRepositorio) 1 %String Validar a Selecao de um Item em um Grupo de Item write ##class(Src2.Item).ValidarSelecaoItem("CCTCR*.mac", "CCTCR075.mac") write ##class(Src2.Item).ValidarSelecaoItem("CCTCP*.mac", "CCTCR075.mac") write ##class(Src2.Item).ValidarSelecaoItem("CCTCR075.MAC", "CCTCR075.mac") write ##class(Src2.Item).ValidarSelecaoItem("CCTCR07*.MAC", "CCTCR075.mac") write ##class(Src2.Item).ValidarSelecaoItem("CCTCR07*.cls", "CCTCR075.mac") write ##class(Src2.Item).ValidarSelecaoItem("nfe.v200.avu*.cls", "nfe.v200.avulsa.cls") write ##class(Src2.Item).ValidarSelecaoItem("nfe.v100.avu*.cls", "nfe.v200.avulsa.cls") 1 grupo:%String="",InternalName:%String %String Validar Item Informado OBS: No primeiro paramatro também retorna o item ajustado. (Sem espaços e com a extensão no padrão) set item="CCTCR*.mac",sc=##class(Src2.Item).ValidarItemInf(.item, .item2, .extensao) set item="CCTCR700.mac",sc=##class(Src2.Item).ValidarItemInf(.item, .item2, .extensao) set item="*TCR700.mac",sc=##class(Src2.Item).ValidarItemInf(.item, .item2, .extensao) set item=" CCT CR*.Mac",sc=##class(Src2.Item).ValidarItemInf(.item, .item2, .extensao) set item="CCTCR700.png",sc=##class(Src2.Item).ValidarItemInf(.item, .item2, .extensao) set item="Tcp.Engenharia.*",sc=##class(Src2.Item).ValidarItemInf(.item, .item2, .extensao) set item="Tcp.Engenharia.*.cls",sc=##class(Src2.Item).ValidarItemInf(.item, .item2, .extensao) set item="Tcp.Engenharia.*.teste.cls",sc=##class(Src2.Item).ValidarItemInf(.item, .item2, .extensao) 1 %Status Separa Itens set sc=##class(Src2.Item).SeparaItens(.tabGrupoItens, .tabGrupoRotClas, .tabArqVers) 1 %String Validar a Selecao de um Item em Grupos de Itens 1 %String Compara Itens do Workspace para o Cache 1 codTerm:%String,flgAcertar:%Boolean=0,strOpcoesRotinas:%String="",flagCompClasses:%String="",flgLog:%Boolean=0,grupoItensSel:%String="" %String Importa Rotinas/Classes a Partir de Arquivos 1 codTerm:%String,strOpcoesRotinas:%String="",flagCompClasses:%String="",flgLog:%Boolean=0 %String Comparar Itens Arquivos flgAcertar = 0 - Compara sem acertar as diferenças 1 - Compara e acerta as diferenças 2 - Acerta as diferenças sem comparar set sc = ##class(Src2.Item).CompararItensArquivos("CCEVA*.mac") set sc = ##class(Src2.Item).CompararItensArquivos("CCEVA*.mac", 1) set sc = ##class(Src2.Item).CompararItensArquivos("nfe*.cls") 1 grupo:%String,flgAcertar:%Boolean=0,flgSubversion:%Boolean=1,username:%String="",password:%String="" %String Obter Tab Item Arquivo set sc = ##class(Src2.Item).ObterTabItemArquivo("C:\workspacecsw\temp\rotina2.mac", .tabRotina) 1 %String Obter Itens Alterados set sc = ##class(Src2.Item).ObterItensAlterados("sourcecontrol10", "admin", "admin", .tabItens) 1 %String 1 %RegisteredObject,%XML.Adaptor 63432,45912.959256 Situação %Integer 1 Hora de Envio do Log %Time Data Inicio do Log a Enviar %Date Data Fim do Log a Enviar %Date Data Inicio do Período de Reenvio do Log %Date Data Fim do Período de Reenvio do Log %Date Pesquisas Src2.Log.Pesquisa list 1 %RegisteredObject,%XML.Adaptor 63432,45809.11912 Conta do Cliente %String 1 Data %Date 1 Tipo %Integer MAC Address %String Versão de Componentes %String Logs de Uso Src2.Log.LogUso list Variaveis Src2.Log.Variavel list 1 %RegisteredObject,%XML.Adaptor 63432,45843.562144 Programa %String 1 Tipo de Interface %Integer 1 Tipo de Menu %Integer 1 Tempo de Uso em Segundos %Integer Quantidade de Acessos %Integer Quantidade de Acessos Quebrados %Integer Nr. de Chamadas de Gatilhos de Interface %Integer Nr. de Chamadas de Gatilhos de Regra %Integer 1 %RegisteredObject,%XML.Adaptor 63437,31586.822279 Código da Pesquisa %Integer Regra %String 1 %RegisteredObject,%XML.Adaptor 63436,65141.691354 Código da Pesquisa %Integer Nome %String Valor %String 1 %RegisteredObject,%XML.Adaptor 61727,0 right csw Src2.Menu.Sistema list 0 - Interno (Servidores Consistem) 1 - Externo (Para cliente)]]> 1 %Status Gerar Global 1 %Status Importa o arquivo de exportação do menu 1 endArqCompl:%String,tipoProduto:%String="csw" %Status Gera todos os indices do menu 1 %Status Exclui todos os indices do menu 1 %Status Regera os cadastros e configurações referente a programas alteradas/excluídas - Excluir Sistemas, Grupos e Programas da tabela de Perfil - Reorganiza o Programa para um grupo caso alterado Obs: Um grupo nunca poderá ser reorganizado em outro sistema, pois deverão mudar o Id. set sc=##Class(Src2.Menu.Geral).RegerarCadastrosConfiguracoes() 1 %Status 1 %RegisteredObject,%XML.Adaptor 61727,0 right grupo %String %String %String %String %String %String Src2.Menu.Programa list Indica se os programas do grupo tem cobertura pela equipe de testes %String Indica se os programas do grupo tem documentação %String Indica se os programas do grupo são implantados por serviço %String Grava a global temporaria referente a grupo 1 term:%String,codigo:%String,descricao:%String,idSistema:%String,sequencia:%String,isCustom:%Integer,segmento:%String %Status Grava a global %CSWINFO referente a grupo 1 codigo:%String,descricao:%String,idSistema:%String,sequencia:%String,isCustom:%Integer %Status Exclui a global %CSWINFO referente a grupo 1 codigo:%String %Status Gera os ponteiros da global %CSWINFO referente a grupo 1 codigo:%String %Status Gera os ponteiros da global %CSWINFO referente a grupo 1 codigo:%String %Status 1 codigo:%String %Status 1 %RegisteredObject,%XML.Adaptor 61727,0 right programa Programa (Nome - Chamada) %String Descrição da Programa %String Indica se a programa pertence ao produto CSW %String Indica se a programa pertence ao produto CSWOne %String Segmento da programa %String Indica se a programa é de Administrador %String Indica se a programa é customizada %String Indica se o programa tem cobertura pela equipe de testes %String Indica se o programa tem documentação %String Indica se o programa é implantado por serviço %String Situação da Programa 0 - Inativa 1 - Ativa (Ou nulo) 2 - Descontinuada 3 - Uso interno %String Indica se a programa possui acesso liberado. Não verifica perfil quando for chamado por F7 %String Grava a global temporaria referente a programa 1 term:%String,codigo:%String,descricao:%String,idGrupo:%String,sequencia:%String,isCustom:%Integer,isAdmin:%Integer,isDescont:%Integer,acesso:%String="",segmento:%String="",chave:%String="" %Status Grava a global %CSWINFO referente a programa 1 codigo:%String,descricao:%String,idGrupo:%String,sequencia:%String,isCustom:%Integer,isAdmin:%Integer,isDescont:%Integer,acesso:%String="" %Status Exclui a global %CSWINFO referente a programa 1 codigo:%String %Status Gera os ponteiros da global %CSWINFO referente a programa 1 codigo:%String %Status Gera os ponteiros da global %CSWINFO referente a programa 1 codigo:%String %Status 1 %RegisteredObject,%XML.Adaptor 61727,0 right sistema %String %String %String %String %String Src2.Menu.Grupo list %String Indica a qual produto pertence o sistema %String %String Indica se os programas do sistema tem cobertura pela equipe de testes %String Indica se os programas do sistema tem documentação %String Indica se os programas do sistema são implantados por serviço %String Grava a global temporaria da referente a sistema 1 term:%String,codigo:%String,descricao:%String,sequencia:%String,isCustom:%Integer,tipoProduto:%String,area:%String,segmento:%String %Status Grava a global %CSWINFO referente a sistema 1 codigo:%String,descricao:%String,sequencia:%String,isCustom:%Integer %Status Exclui a global %CSWINFO referente a Sistema 1 codigo:%String %Status Gera os ponteiros da global %CSWINFO referente a Sistema 1 codigo:%String %Status Gera os ponteiros da global %CSWINFO referente a Sistema 1 codigo:%String %Status 1 %Status 1 tipoProduto:%String %Status Exclui os programas e Grupos do Sistema 1 codigo:%String %Status 1 %RegisteredObject 61727,0 Atualizar Menu no Namespace set sc = ##class(Src2.Menu).AtualizarMenuPerfilNamespace() 1 username:%String="",password:%String="" %String Atualizar Menu no Namespace set sc = ##class(Src2.Menu).AtualizarMenuPerfilNamespaceConta("DESENVIC64") 1 namespace:%String="",username:%String="",password:%String="" %String Atualiza o Menu CSW OBS: Chamar a partir do namespace de desenvolvimento (DESENV61/DESENV62/...) set sc = ##class(Src2.Menu).AtualizarMenuCSW("DESENVIC64") 1 namespace:%String="" %String =", "6.4")) { set sc = ##class(Src2.Menu).AtualizarMenuPerfilCSW(caminhoCopiaTrabalho, codConta, caminhoSvn, arquivoTemp, arquivoTemp2) set sc = ##class(Src2.Menu).CriarUsuarioCSW( , , , codConta) } set sc = ##class(Src2.Menu).CriarUsuarioCSW(1, "visitante", "ccs", codConta) znspace namespaceAtual set sc = ##class(Src2.Menu).CriarUsuarioCSW( , , , "CC") quit $$$OK ]]> Atualizar Menu por Perfil do CSW (Novo) set sc = ##class(Src2.Menu).AtualizarMenuPerfilCSW("C:\workspacecsw\projetos\6.4\csw64", "DA") 1 caminho:%String="",codConta:%String,caminhoSvn:%String,arquivoTemp:%String,arquivoTemp2:%String %String Cria uma Empresa Modelo/Usuário para o CSW set sc = ##class(Src2.Menu).CriarEmpresaModeloCSW() 1 %String Cria um Usuário CSW set sc = ##class(Src2.Menu).CriarUsuarioCSW() set sc = ##class(Src2.Menu).CriarUsuarioCSW(1, "visitante", "ccs") 1 codUsuario:%String=99,usuario:%String="consistem",senha:%String="ccs",codConta:%String="CC" %String Obter Arquivos Menu Cliente set msgsc = ##class(Src2.Utils).ObterConfig(.codTerm, .caminhoWorkspace, .caminhoSvn, .arquivoTemp, .arquivoTemp2) set sc = ##class(Src2.Menu).ObterArquivosMenuCliente("IC", caminhoSvn, arquivoTemp, arquivoTemp2, .tabArquivos) 1 %String Excluir Arquivos Menu Cliente set sc = ##class(Src2.Menu).ExcluirArquivosMenuCliente(.tabArquivos) 1 %Status Gravar Acesso a Programa set sc = ##class(Src2.Menu).GravarAcessoPrograma() 1 codPrograma:%String="" %Status Gravar Acesso a Programa Informado 1 codPrograma:%String %Status Gravar Acesso a Todos os Programas 1 %Status set sc=##Class(Src2.Menu).ObterTabelaArvquivoXMLMenu(.tabArquivos,"6.4") 1 tabArquivos,codVersao:%String set sc=##Class(Src2.Menu).ExcluirTabelaArvquivoXMLMenu(.tabArquivos) 1 tabArquivos set sc=##Class(Src2.Menu).ValidarParamRotinaXMLMenu(.tabArquivos) 1 tabArquivos %Library.CacheStorage ^Src2.MenuD MenuDefaultData ^Src2.MenuD ^Src2.MenuI ^Src2.MenuS 100000 %%CLASSNAME %RegisteredObject,%XML.Adaptor 63450,43575.141383 Tipo (1 - Classe / 2 - Rotina) %Integer Item (CCTCP023 / Tcp.BookCorSortimento) %String Internal Name (CCTCP023.MAC / Tcp.BookCorSortimento.cls) %String Item ID (CCESA/CCESA710.mac / Fat/NotaFiscalImagemCaixas.xml) %String Sistema %String Pasta %String Package %String Arquivo %String %RegisteredObject,%XML.Adaptor 63450,43578.761876 Itens do Patch Src2.Patch.Item list 1 %RegisteredObject 61727,0 Obtem a Versao do Patch 1 %Integer Gerar Patch por Documento set sc = ##class(Src2.Patch).GerarPatchDocumento("CO",1,231465,.tabPatchs) 1 %Status Gerar Patch em Job set sc = ##class(Src2.Patch).GerarPatchJob("csw", "CC", "6.3.1", "6.3.2", .idPatch) set sc = ##class(Src2.Patch).GerarPatchJob("csw", "CC", "6.3.2", "6.3.3", .idPatch) set sc = ##class(Src2.Patch).GerarPatchJob("csw", "CC", "6.3.2", "6.3.2", .idPatch) set sc = ##class(Src2.Patch).GerarPatchJob("csw", "CC", "6.3.6", , .idPatch) set sc = ##class(Src2.Patch).GerarPatchJob("csw", "CC", "6.3.2", , .idPatch) 1 %Status Gerar Patch set sc = ##class(Src2.Patch).ExportarPatch("csw", "CC", 1, "6.3.1") set sc = ##class(Src2.Patch).ExportarPatch("csw", "CC", 1, "6.3.1", "6.3.3", , 0,,,"ederson@consistem.com.br") set sc = ##class(Src2.Patch).ExportarPatch("csw", "CC", 2, "6.3.3", "6.3.3", "CCUTI7*.mac;Tcp.Eng*.cls") set sc = ##class(Src2.Patch).ExportarPatch("csw", "CC", 3, "6.3.3", "6.3.5", "CCUTI7*.mac;Tcp.Eng*.cls") set sc = ##class(Src2.Patch).ExportarPatch("csw", "CC", 4, , "6.3", "CCUTI7*.mac;Tcp.Eng*.cls") set sc = ##class(Src2.Patch).ExportarPatch("csw", "CC", 5, , "6.3", , 0, , , "ederson@consistem.com.br") set sc = ##class(Src2.Patch).ExportarPatch("csw", "CC", 5, , "6.3", , 0, , , "ederson@consistem.com.br", , , , , , , , 11523) set sc = ##class(Src2.Patch).ExportarPatch("csw", "CC", 5, , "6.4", , 1, , , "ederson@consistem.com.br", , , , , , , , , , 0, "Observação") set sc = ##class(Src2.Patch).ExportarPatch("csw", "CC", 1, "6.4.2", "6.4.15", , 1, , , "ederson@consistem.com.br", , , , , , , , , , 0, "Observação") set sc = ##class(Src2.Patch).ExportarPatch("csw", "CC", 1, "6.4.15", "6.4.2", , 1, , , "ederson@consistem.com.br", , , , , , , , , , 0, "Observação") set sc = ##class(Src2.Patch).ExportarPatch("csw", "CC", 1, "6.4.6", "6.4.4", , 1, , , "ederson@consistem.com.br", , , , , , , , , , 0, "Observação") set sc = ##class(Src2.Patch).ExportarPatch("csw", "CC", 1, "6.3.10", "6.3.20", , 1, , , "ederson@consistem.com.br", , , , , , , , , , 0, "Observação") set sc = ##class(Src2.Patch).ExportarPatch("csw", "EI", 1, "6.4.151", "6.4.155", , 0, , , "ederson@consistem.com.br", , , , , , , , , , 0, "Observação") set sc = ##class(Src2.Patch).ExportarPatch("csw", "EI", 2, "6.4.155", "6.4.155", "CCMRPSP10*.mac;CCESA71*.mac;Fat.NotaFiscalImagem*.cls;Fat.NotaFiscalImagem*.cls;Gql.InspecaoResultados*.cls", 0, , , "ederson@consistem.com.br", , , , , , , , , , 0, "Observação") set sc = ##class(Src2.Patch).ExportarPatch("csw", "EI", 3, "6.4.156", "6.4.155", "CCMRPSP10*.mac;CCESA71*.mac;Fat.NotaFiscalImagem*.cls;Fat.NotaFiscalImagem*.cls;Gql.InspecaoResultados*.cls", 0, , , "ederson@consistem.com.br", , , , , , , , , , 0, "Observação") set sc = ##class(Src2.Patch).ExportarPatch("csw", "EI", 4, , "6.4", "CCPME02*.mac;CCMRPSP10*.mac;CCESA71*.mac;Fat.NotaFiscalImagem*.cls;Fat.NotaFiscalImagem*.cls;Gql.InspecaoResultados*.cls", 0, , , "ederson@consistem.com.br", , , , , , , , , , 0, "Observação") set sc = ##class(Src2.Patch).ExportarPatch("csw", "EI", 5, , "6.4", , 0, , , "ederson@consistem.com.br", , , , , , , , "35700", , 0, "Observação") set sc = ##class(Src2.Patch).ExportarPatch("csw", "DA", 6, , "6.4.74", , 1, , , "ederson@consistem.com.br", , , , , , , , , , 0, "Observação") set sc = ##class(Src2.Patch).ExportarPatch("cswutil", "DA", 6, , "6.4.16", , 1, , , "ederson@consistem.com.br", , , , , , , , , , 0, "Observação") set sc = ##class(Src2.Patch).ExportarPatch("csw", "EI", 4, , "6.4", , , , , "ederson@consistem.com.br", , , , , , , , , , 0, "Envio de base sem sobreposição", , , 1, 0, "1;2") set sc = ##class(Src2.Patch).ExportarPatch("csw", "GE", 4, , "6.4", , , , , "ederson@consistem.com.br", , , , , , , , , , 0, "Envio de base com sobreposição", , , 1, 1, "1;2", "^CGICFG;^CGICFM") 1 %Status Error Patch flag = 0 - Retorna uma mensagem padrão para o cliente 1 - Retorna a mensagem real para o cliente write ##class(Src2.Patch).ErrorPatch(1111, 0, "Serviço do nexus fora!",,1) 1 token:%String="",flag:%Integer=0,msgErro:%String="",sc:%String="",flgEmail:%Boolean=0 %Status Gerar Log da Geracao de Patch 1 %Status Excluir Geração de Patch 1 codTerm:%String,caminhoPatch:%String,idPatch:%String,codConta:%String,sistema:%String %Status Importar Patch set sc = ##class(Src2.Patch).ImportarPatch("CC-2012-08-06-10-14-27-CSW-1-6-3-2B1") 1 %Status $piece($get(^%CSW1ATUCONF(3,sistema)),"^",2)) { set $piece(^%CSW1ATUCONF(3,sistema),"^",2) = revisao } if (flgLinhaCmd) write !!,##class(Src2.Utils).ObterBarra("Atualizando Base de Inicialização") set sc = ##class(Src2.PatchUtils2).ImportarBaseInicalizacao(codTerm, codAtualizacao, codConta) if (flgLinhaCmd) write !!,##class(Src2.Utils).ObterBarra("Executando os Procedimentos de Base") set sc = ##class(Src2.PatchUtils2).ExecutarProcedimentos(codTerm, codAtualizacao) set $piece(^%CSW1ATULOG(1,codAtualizacao),"^",2) = $horolog kill ^mtempSrc2PatchImport(codTerm) if (flgLinhaCmd) write !!,##class(Src2.Utils).ObterBarra("Finalizando a Atualização") set sc = ##class(Src2.PatchUtils2).ExcluirBloqueiosAtualizacao() set sc = $$FinalizarAtualizacao^PCATUARG002() set sc = ##class(Src2.PatchUtils2).EliminarLogsAtualizacao() set sc = ##class(Src2.PatchUtils2).EliminarBackupsAtualizacao() lock -^Src2PatchImport quit $$$OK ]]> Validar Importacao do Patch flgExcluirCod = 0 - Não exclui 1 - Exclui a .MAC (Deixa a .INT) 2 - Exclui a .INT/.MAC 1 %String Excluir Rotinas do Controle de Fonte set sc = ##class(Src2.Patch).ExcluirRotinasControleFonte("CC") 1 codConta:%String %String Validar Importacao Inicial do Patch local = 1 - Pasta dos patchs 2 - Pasta do patch descompactado set sc = ##class(Src2.Patch).ValidarImportacaoPatch("PATCH-CC-2012-12-21-12-36-12-CSW-T5-6-3") set sc = ##class(Src2.Patch).ValidarImportacaoPatch("PATCH-CC-2012-12-21-09-56-13-CSW-T1-6-3-23") set sc = ##class(Src2.Patch).ValidarImportacaoPatch("PATCH-CC-2012-12-21-13-40-14-CSW-T1-6-3-22", , , .flgExcluir) set sc = ##class(Src2.Patch).ValidarImportacaoPatch("PATCH-CC-2012-12-21-09-59-01-CSW-T5-6-3", 2, .tabInfoPatch) 1 %String $piece($get(^%CSW1ATUCONF(3,sistema)),"^",2)) { set flgExcluir = 1 quit $$$ERROR(10000,"A versão atual do sistema """_dsSistema_""" ("_versaoReleaseAtual_") possui um Patch Snapshot mais atual instalado!") } set sc = ##class(Src2.PatchUtils2).ValidarPreRequisitosImportacao($get(tabInfoPatch("versoesPreRequisito"))) if $$$ISERR(sc) quit sc set flgPatchRetorno = 0 if (tipoPatch = 1) & (##class(Src2.Utils2).CompararVersao(versaoReleaseDestino, "<", versaoOrigemRef)) { set flgPatchRetorno = 1 } if ((flgPatchRetorno) & ($piece($get(^%CSW1ATUCONF(3,sistema)),"^",2) '= "")) { set flgExcluir = 1 quit $$$ERROR(10000,"Não é possível retornar para um release anterior! A versão atual do sistema """_dsSistema_""" ("_versaoReleaseAtual_") possui Patch Snapshot instalado.") } set namespace = $znspace set tipoNamespace = $piece($get(^%CSW1ATUCONF(4,namespace)),"^",1) if ((codConta '= "CC") & (tipoNamespace '= "sistemas")) quit $$$ERROR(10000,"Namespace "_namespace_" inválido para instalar atualização do sistema!") if ($get(tabInfoPatch("procedimentos")) = "1") && (tipoPatch '= 6) { if ((sistema = "csw") ! (sistema = "cswutil")) { if (##class(Src2.Utils2).CompararVersao(versaoSistemaCliente, ">", "6.3")) { set sc = ##class(Src2.PatchUtils).ValidarNamespacesProcedimento() if $$$ISERR(sc) quit sc } } } if ((tipoPatch = 1) & (sistema = "cswutil") & (##class(Src2.Utils2).CompararVersao(versaoReleaseDestino, ">=", "6.4"))) { if ($SYSTEM.Security.Check("%DB_CACHESYS","READ") '= "1") { quit $$$ERROR(10000,"O recurso %DB_CACHESYS do Caché deve estar com permissão de leitura para atualizar esta versão!") } if ($SYSTEM.Security.Check("%DB_%DEFAULT","READ") '= "1") { quit $$$ERROR(10000,"O recurso %DB_%DEFAULT do Caché deve estar com permissão de leitura para atualizar esta versão!") } } if (flgServicoConsistem) && ('flgLinhaCmd) { set flgAtuLinhaCmd = 1 quit $$$ERROR(10000,"A atualização deste patch deve ser realizada por linha de comando! set sc=##class(Src2.PatchImport2).Atualizar("""_idPatch_""")") } set sc = ##class(Src2.PatchUtils2).ValidarBloqueioAtualizacao(tipoPatch, bloqueioTotal, .tabGruposRotBloquear) if $$$ISERR(sc) quit sc quit $$$OK ]]> Validar Caminhos do Patch set sc = ##class(Src2.Patch).ValidarCaminhosPatch("PATCH-CC-2012-09-14-07-51-57-CSW-T1-6-3-2", .caminhoPatch, .caminhoPatchXml, .caminhoBackup, .arquivoSrc2) 1 %String Validar Caminhos do Patch Xml Origem local = 1 - Pasta dos patchs 2 - Pasta do patch descompactado set sc = ##class(Src2.Patch).ValidarCaminhosPatchXmlOrigem("PATCH-CC-2012-12-21-09-59-01-CSW-T5-6-3", 1, .caminhoPatchXml) set sc = ##class(Src2.Patch).ValidarCaminhosPatchXmlOrigem("PATCH-CC-2012-12-21-09-59-01-CSW-T5-6-3", 2, .caminhoPatchXml) 1 %String Obter Dados do Patch 1 %Status Exportar Rotinas/Classes Patch do Subversion 1 caminhoPatch:%String,username:%String="",password:%String="" %Status Exportar Rotinas/Classes Patch da Máquina do Desenvolvedor 1 codTerm:%String,sistema:%String,ipMaquina:%String,versaoReleaseRef:%String,caminhoPatch:%String %Status Excluir Arquivos da Maquina do Desenvolvedor 1 sistema:%String,ipMaquina:%String,versaoReleaseRef:%String %Status " { set status = %objlasterror } else { set status = $$$ERROR($$$CacheError,$ZERROR)} } quit $$$OK ]]> Exportar Rotinas/Classes Patch da Máquina do Desenvolvedor 1 codTerm:%String,ipMaquina:%String,caminhoPatch:%String %Status Exportar Utilitarios Patch 1 caminhoPatch:%String,repositorioRef:%String,revisaoRef:%String,codConta:%String,username:%String="",password:%String="" %Status Exportar Generico Patch 1 caminhoPatch:%String,opcao:%String,username:%String="",password:%String="" %Status Efetua um Download de Patch set sc = ##class(Src2.Patch).DownloadPatch("PATCH-EI-2013-12-19-12-28-21-CSW-T4-6-4") 1 idPatch:%String %Status " set sc = $$$ERROR(10000,"Não foi possível conectar-se ao servidor Consistem!") else set sc = $$$ERROR($$$CacheError,$zerror) } set objServico = "" if $$$ISERR(sc) quit sc quit $$$OK ]]> Obter Patchs no Server set sc = ##class(Src2.Patch).ObterPatchsServer("CC", .ObterPatchsServer) 1 %Status " set sc = $$$ERROR(10000,"Não foi possível conectar-se ao servidor Consistem!") else set sc = $$$ERROR($$$CacheError,$zerror) } set objServico = "" if $$$ISERR(sc) quit sc quit $$$OK ]]> Obter Patchs no Client set sc = ##class(Src2.Patch).ObterPatchsClient("CC", .tabPatchs) 1 %Status Gerar Configuração Padrão set sc = ##class(Src2.Patch).GerarConfPadrao() 1 namespace:%String="SISTEMAS",flgTeste1:%String=0 %Status 1 %RegisteredObject 61727,0 ================================================================================ ATENÇÃO: CLASSE DESCONTINUADA - UTILIZADA SOMENTE NAS VERSÕES 6.2 E 6.3 DO CSW SUBSTITUIDA PELA Src2.PatchImport2 - SEM O TRATAMENTO DO CACHÉ 5 CASO SEJA NECESSÁRIA A ALTERAÇÃO DO FONTE DESTA CLASSE ELA DEVE TER O FONTE ATUALIZADO EM TODOS OS CLIENTES, POIS É A UNICA DO PACKAGE SRC2*.CLS QUE NÃO É ATUALIZADA AUTOMATICAMENTE. OBSERVAÇÕES: ESTA CLASSE DEVE POSSUIR SOMENTE O MÉTODO "ImportarPatch", QUE TEM POR OBJETIVO, VERIFICAR SE O PACKAGE SRC2*.CLS ESTA ATUALIZADO EM TODOS OS NAMESPACES QUE PODEM SOFREM ATUALIZAÇÃO, CASO TENHA ALGUM NAMESPACE DESATUALIZADO, ATUALIZAR AS CLASSES SRC2*.CLS E CHAMAR O MÉTODO QUE REALMENTE IMPORTA O PATCH. ================================================================================ set sc = ##class(Src2.PatchImport).ImportarPatch("CC-2012-08-11-12-29-40-CSW-T1-6-3-2") 1 %Status 1 %RegisteredObject 61727,0 ================================================================================ OBSERVAÇÕES: ESTA CLASSE DEVE POSSUIR SOMENTE O MÉTODO "ImportarPatch", QUE TEM POR OBJETIVO, VERIFICAR SE O PACKAGE SRC2*.CLS ESTA ATUALIZADO EM TODOS OS NAMESPACES QUE PODEM SOFREM ATUALIZAÇÃO, CASO TENHA ALGUM NAMESPACE DESATUALIZADO, ATUALIZAR AS CLASSES SRC2*.CLS E CHAMAR O MÉTODO QUE REALMENTE IMPORTA O PATCH. ================================================================================ Atualizar Patch (Descompacta / Importa / Elimina Arquivos Temporários) 1 %Status Importar Patch (Atualizando as Classes do Atualizador - Src2*.cls) set sc = ##class(Src2.PatchImport2).ImportarPatch("CC-2012-08-11-12-29-40-CSW-T1-6-3-2") 1 %Status Atualizar por Linha de Comando set sc = ##class(Src2.PatchImport2).Atualizar() 1 idPatch:%String="" %Status persistent _SYSTEM 1 1 Src2PatchLogGeracaoStorage %Persistent 62761,35593.507944 Ederson E. Jantsch Controle de Fontes Log de Geração de Patch Log de Geração de Patch 1 Log de Geração de Patch por Data e Conta Código da Sequência %Integer 1 Tipo do log %Integer 1 Data do log - Sistema %Date 1 Hora do log - Sistema %Time 1 Conta do Cliente %String 1 Usuário do Gercon %String Email do Usuário %String Sistema do Patch %String Tipo do Patch %Integer ID do Patch Gerado %String Versão release de origem %String Versão release de referência (Destino) %String Tipo do documento %Integer Documento na Geração %String Mensagem de Erro %String Geração Forçada %Integer 1 Manter Código Fonte %Integer 1 Grupo de Itens Selecionados %String Origem da Geração do Patch %Integer 1 Revisão %String Tempo de Geração do Patch %Float 1 1 codSeq %CacheSQLStorage ^Src2.PatchLogGeracaoS 100000 index 0 ^Src2PatchLogGeracao 2 {dataLog} {conta} {codSeq} data 0 ^Src2PatchLogGeracao 1 {codSeq} "^" 3 "^","," 2,1 "^" 12 "^" 5 "^" 15 "^" 14 "^","," 2,2 "^" 8 "^" 13 "^" 17 "^" 18 "^" 6 "^" 16 "^" 19 "^" 11 "^" 1 "^" 7 "^" 4 "^" 9 "^" 10 persistent _SYSTEM 1 1 Src2PatchLogGeracaoStorage %Persistent 62875,61722.975083 Ederson E. Jantsch Controle de Fontes Log de Geração de Patch por Conta Log de Geração de Patch por Conta 1 Log de Geração de Patch por Data e Conta Conta do Cliente %String 1 Sistema do Patch %String Versão %String Código da Sequência do Log %Integer 1 Tipo do Patch %Integer ID do Patch Gerado %String 1 1 conta,sistema,versao,codSeq %CacheSQLStorage ^Src2.PatchLogGeracaoContaS 100000 data 0 ^Src2PatchLogGeracao 3 {conta} {sistema} {versao} {codSeq} "^" 2 "^" 1 1 %RegisteredObject 62736,40699.51885 Testar Eliminar Log - Para Frente set sc = ##class(Src2.PatchTeste).TestarEliminarLog() 1 %String Testar Eliminar Log - Para Traz set sc = ##class(Src2.PatchTeste).TestarEliminarLog2() 1 %String Testar Importacao do Tipo 1 - (Sistema com Tag) set sc = ##class(Src2.PatchTeste).TestarImportacaoTipo1() 1 %String Testar Importacao do Tipo 2 - (Sistema com Tag) set sc = ##class(Src2.PatchTeste).TestarImportacaoTipo2() 1 %String Testar Importacao do Tipo 3 - (Sistema com Tag) set sc = ##class(Src2.PatchTeste).TestarImportacaoTipo3() 1 %String Testar Importacao do Tipo 4 - (Sistema com Tag) set sc = ##class(Src2.PatchTeste).TestarImportacaoTipo4ComTag() 1 %String Testar Importacao do Tipo 4 - (Sistema sem Tag) set sc = ##class(Src2.PatchTeste).TestarImportacaoTipo4SemTag() 1 %String Testar Importacao do Tipo 5 - (Sistema com Tag) set sc = ##class(Src2.PatchTeste).TestarImportacaoTipo5() 1 %String Testar Pre-Requisitos Importacao set sc = ##class(Src2.PatchTeste).TestarPreRequisitosImportacao() 1 %String ",##class(Src2.Utils).ObterMensagemStatusCode(sc) set strPreRequisitos = "cswutil,6.3.5" set sc = ##class(Src2.PatchUtils2).ValidarPreRequisitosImportacao(strPreRequisitos) write !,"=>",##class(Src2.Utils).ObterMensagemStatusCode(sc) set strPreRequisitos = "cswutil,6.3.4" set sc = ##class(Src2.PatchUtils2).ValidarPreRequisitosImportacao(strPreRequisitos) write !,"=>",##class(Src2.Utils).ObterMensagemStatusCode(sc) set strPreRequisitos = "cswutil,6.3.4;customax,6.2.2;gatilho,6.3.8" set sc = ##class(Src2.PatchUtils2).ValidarPreRequisitosImportacao(strPreRequisitos) write !,"=>",##class(Src2.Utils).ObterMensagemStatusCode(sc) /* =>O sistema 'cswutil' na versão 6.3.6 é pré-requisito para esta atualização! => => =>O sistema 'customax' na versão 6.2.2 é pré-requisito para esta atualização! */ quit $$$OK ]]> 1 %RegisteredObject 61727,0 Obter Id Patch 1 %Status Obter Informações Patch Tipo 1 1 %Status ", versaoReleaseOrigem)) { quit $$$ERROR(10000,"Produto "_sistema_" já está atualizado com a última versão!") } } if (versaoReferenciaInf '= "") { set sc = ##class(Src2.Utils2).ObterVersao(versaoReferenciaInf, , .versaoReleaseRef) if ('$data(tabTags(versaoReleaseRef))) { quit $$$ERROR(10000,"Versão destino informada "_versaoReferenciaInf_" não encontrada!") } if (versaoReleaseRef = versaoReleaseOrigem) quit $$$ERROR(10000,"Versão destino igual a versão origem!") } if ('$data(tabTags(versaoReleaseRef))) { quit $$$ERROR(10000,"Versão destino "_versaoReleaseRef_" inválida!") } set repositorioOrig = ##class(Src2.PatchUtils).ObterTag(repositorio, versaoReleaseOrigem) set repositorioRef = ##class(Src2.PatchUtils).ObterTag(repositorio, versaoReleaseRef) set repositorioBranche = ##class(Src2.PatchUtils).ObterBranchTrunk(repositorio, versaoOrigem) set sc = ##class(Src2.PatchUtils).ObterVersoesIntervalo(.tabTags, versaoReleaseOrigem, versaoReleaseRef, .tabVersoes, , .flgRetorno) set sc = ##class(Src2.PatchUtils2).ValidarVersaoBloqueada(sistema, .tabSistemas, .tabVersoes, force) if $$$ISERR(sc) quit sc if ('flgRetorno) { set sc = ##class(Src2.PatchUtils2).ObterVersoesPreRequisitos(sistema, .tabSistemas, .tabVersoes, .tabStrVersoesPreReq) if $$$ISERR(sc) quit sc } quit $$$OK ]]> Obter Informações Patch Tipo 2 1 %Status Obter Informações Patch Tipo 3 1 %Status Obter Informações Patch Tipo 4 1 %Status Obter Informações Patch Tipo 5 1 %Status revisao) { quit $$$ERROR(10000,"A revisão informada "_revisaoInf_" deve ser maior que a revisão do release "_versaoReleaseUltima_"!") } if (versaoReleaseAfetada '= "") { set tabVersoes(versaoReleaseAfetada) = "" } set sc = ##class(Src2.PatchUtils2).ObterVersoesPreRequisitos(sistema, .tabSistemas, .tabVersoes, .tabStrVersoesPreReq) if $$$ISERR(sc) quit sc quit $$$OK ]]> Obter Informações Patch Tipo 6 1 %Status Obter Informações Patch Tipo 7 1 %Status Obtem o Endereço de uma Branch ou Trunk write ##class(Src2.PatchUtils).ObterBranchTrunk("http://192.168.15.10:18080/svn/csw", "6.3") write ##class(Src2.PatchUtils).ObterBranchTrunk("http://192.168.15.10:18080/svn/csw", "6.4") write ##class(Src2.PatchUtils).ObterBranchTrunk("http://192.168.15.10:18080/svn/csw", "6.5") write ##class(Src2.PatchUtils).ObterBranchTrunk("http://192.168.15.10:18080/svn/gercon", "1.0") 1 repositorio:%String,versao:%String %String Obtem Versão Trunk set sc=##class(Src2.PatchUtils).ObterVersaoTrunk("http://192.168.15.10:18080/svn/csw", .versao) set sc=##class(Src2.PatchUtils).ObterVersaoTrunk("http://192.168.15.10:18080/svn/customax", .versao) set sc=##class(Src2.PatchUtils).ObterVersaoTrunk("http://192.168.15.10:18080/svn/csw", .versao) set sc=##class(Src2.PatchUtils).ObterVersaoTrunk("http://192.168.15.10:18080/svn/gercon", .versao) 1 repositorio:%String,versao:%String %Status Obtem o Endereço de uma Tag write ##class(Src2.PatchUtils).ObterTag("http://192.168.15.10:18080/svn/csw", "6.3.2") write ##class(Src2.PatchUtils).ObterTag("http://192.168.15.10:18080/svn/csw", "6.5.2b2") write ##class(Src2.PatchUtils).ObterTag("http://192.168.15.10:18080/svn/csw", "6.6.4b6.+") write ##class(Src2.PatchUtils).ObterTag("http://192.168.15.10:18080/svn/csw", "6.3.55.+") 1 repositorio:%String,versaoReleaseInf:%String %String Obter Versao Produto Conta set sc = ##class(Src2.PatchUtils).ObterVersaoProdutoConta("csw", "CO", .versaoRelease) 1 sistema:%String,codConta:%String,versaoRelease:%String %Status Retorma uma Tabela de Patchs Gerados por Conta set sc = ##class(Src2.PatchUtils).ObterPatchs("CC", .tabPatchs) 1 %Status Obter Tags por versão do Repositório set sc = ##class(Src2.PatchUtils).ObterTagsRepositorio("http://192.168.15.10:18080/svn/csw", "6.1", .tabTags, .versaoReleaseUltima, , .versaoReleaseProxima) set sc = ##class(Src2.PatchUtils).ObterTagsRepositorio("http://192.168.15.10:18080/svn/csw", "6.3", .tabTags, .versaoReleaseUltima, , .versaoReleaseProxima) set sc = ##class(Src2.PatchUtils).ObterTagsRepositorio("http://192.168.15.10:18080/svn/customax", "6.3", .tabTags, .versaoReleaseUltima, , .versaoReleaseProxima) 1 %Status Obter Tabela de Versões Ordenadas set sc = ##class(Src2.PatchUtils).ObterVersoesOrdenadas(.tabTags, .tabTagsOrdem, .versaoReleaseUltima, .flgRetorno, .versaoReleasePrimeira) 1 %Status Obter Versões de um Intervalo set sc = ##class(Src2.PatchUtils).ObterVersoesIntervalo(, "6.3.2b1", "6.3.6b2", .tabVersoes, .tabVersoesOrdem, .flgRetorno) set sc = ##class(Src2.PatchUtils).ObterVersoesIntervalo(, "6.3.2b2", "6.3.6", .tabVersoes, .tabVersoesOrdem, .flgRetorno) set sc = ##class(Src2.PatchUtils).ObterVersoesIntervalo(, "6.3.2", "6.3.6", .tabVersoes, .tabVersoesOrdem, .flgRetorno) 1 %Status ", versaoDestino)) { set flgRetorno = 1 } set sc = ##class(Src2.PatchUtils).ObterVersoesOrdenadas(.tabTags, .tabTagsOrdem2, , flgRetorno) set (codSeq, codSeqOrdem, flag) = "" for { set codSeq = $order(tabTagsOrdem2(codSeq)) if (codSeq = "") quit set versaoRelease = $get(tabTagsOrdem2(codSeq)) if (flag) { set tabVersoes(versaoRelease) = "" set tabVersoesOrdem($increment(codSeqOrdem)) = versaoRelease } if (versaoRelease = versaoOrigem) set flag = 1 if (versaoRelease = versaoDestino) set flag = 0 } quit $$$OK ]]> Obter Branches do Repositório set sc = ##class(Src2.PatchUtils).ObterBranchesRepositorio("http://192.168.15.10:18080/svn/cswutil", .tabBranches) set sc = ##class(Src2.PatchUtils).ObterBranchesRepositorio("http://192.168.15.10:18080/svn/custinter", .tabBranches) 1 %Status Obter Versões do Repositório set sc = ##class(Src2.PatchUtils).ObterVersoesRepositorio("http://192.168.15.10:18080/svn/csw", .tabVersoes) set sc = ##class(Src2.PatchUtils).ObterVersoesRepositorio("http://192.168.15.10:18080/svn/cswutil", .tabVersoes) set sc = ##class(Src2.PatchUtils).ObterVersoesRepositorio("http://192.168.15.10:18080/svn/custinter", .tabVersoes) set sc = ##class(Src2.PatchUtils).ObterVersoesRepositorio("http://192.168.15.10:18080/svn/gercon", .tabVersoes) 1 %Status Obter Dados Svn Diff set sc = ##class(Src2.Patch).ObterDadosSvnDiff("http://repositorios:18080/svn/teste/aproject/tags/1.0.1", "http://repositorios:18080/svn/teste/aproject/tags/1.0.2") set sc = ##class(Src2.Patch).ObterDadosSvnDiff("http://192.168.15.10:18080/svn/cswutil/tags/6.3.3", "http://192.168.15.10:18080/svn/cswutil/tags/6.3.7") set sc = ##class(Src2.Patch).ObterDadosSvnDiff("http://192.168.15.10:18080/svn/cswutil/tags/6.3.6", "http://192.168.15.10:18080/svn/cswutil/tags/6.3.7") 1 %Status Obter Dados Svn Diff Classe 1 %Status Obter Dados Svn Diff Rotina 1 %Status Obter Rotinas com Interface Auxiliar 1 codTerm:%String %Status Obter Dados Svn Diff Genérico 1 codTerm:%String,opcao:%String,repositorioOrig:%String,repositorioDest:%String,revisaoDest:%String %Status Obter Dados Svn List 1 %Status Obter Dados Máquina Desenvolvedor 1 %Status " { set status = %objlasterror } else { set status = $$$ERROR($$$CacheError,$ZERROR)} } if $$$ISERR(status) quit status set (codSeq, msgErro) = "" for { set objItem = objItens.itens.GetNext(.codSeq) if objItem = "" quit set itemId = $translate(objItem.itemId,"\","/") set pasta = objItem.pasta set arquivo = objItem.arquivo if (sistema '= objItem.sistema) { set dsSistema = ##class(Src2.PatchUtils).ObterDescricaoSistema(sistema) set msgErro = $$$ERROR(10000,"Item "_objItem.item_" não pertence ao sistema "_dsSistema_"!") quit } if (objItem.tipo = 1) { set classe = objItem.item set package = objItem.package set sc = ##class(Src2.PatchUtils).ValidarClasseLiberada(.tabClassesLiberadas, .tabClassesBloqueadas, classe) if (sc '= 1) { set ^mtempSrc2Patch(codTerm,"classes",3,classe) = "" set ^mtempSrc2Patch(codTerm,"classes",3) = $increment(^mtempSrc2Patch(codTerm,"classes",3)) continue } set var2 = "" set $piece(var2,"^",2) = pasta set $piece(var2,"^",3) = itemId set $piece(var2,"^",4) = versaoReleaseRef set $piece(var2,"^",6) = 0 set ^mtempSrc2Patch(codTerm,"classes",1,classe) = var2 set ^mtempSrc2Patch(codTerm,"classes",1) = $increment(^mtempSrc2Patch(codTerm,"classes",1)) set ^mtempSrc2Patch(codTerm,"dados") = "" if (package '= "") { set ^mtempSrc2Patch(codTerm,"classes",4,package) = "" } } if (objItem.tipo = 2) { set rotina = objItem.item set sc = ##class(Src2.PatchUtils).ValidarRotinaLiberada(.tabRotinasLiberadas, .tabRotinasBloqueadas, rotina) if (sc '= 1) { set ^mtempSrc2Patch(codTerm,"rotinas",3,rotina) = "" set ^mtempSrc2Patch(codTerm,"rotinas",3) = $increment(^mtempSrc2Patch(codTerm,"rotinas",3)) continue } set var2 = "" set $piece(var2,"^",2) = pasta set $piece(var2,"^",3) = itemId set $piece(var2,"^",4) = versaoReleaseRef set $piece(var2,"^",6) = 0 set ^mtempSrc2Patch(codTerm,"rotinas",1,rotina) = var2 set ^mtempSrc2Patch(codTerm,"rotinas",1) = $increment(^mtempSrc2Patch(codTerm,"rotinas",1)) set ^mtempSrc2Patch(codTerm,"dados") = "" } } if (msgErro '= "") quit msgErro quit $$$OK ]]> Validar Rotina Liberada tipo = 1 - Envio de Rotina 2 - Item no Menu 1 %String Validar Classe Liberada 1 %String Obter Namespace de Conexao set sc = ##class(Src2.PatchUtils).ObterNamespaceConexao("csw", "6.4", .namespace) set sc = ##class(Src2.PatchUtils).ObterNamespaceConexao("gercon", "1.0", .namespace) 1 sistema:%String,versaoReleaseRef:%String,namespace:%String %Status Obter Autenticacao do Subversion do Gercon set sc = ##class(Src2.PatchUtils).ObterAutSubversionGercon(.username, .password) 1 username:%String="",password:%String="" %Status Obtem as Rotinas Liberadas por Conta set msgsc = ##class(Src2.UtilsXml).ObterAtualizacaoXML(.tabSistemas, .caminhoPatch, .tabItensLiberados, .tabItensBloqueados) set msgsc = ##class(Src2.PatchUtils).ObterItensLiberadosConta("csw", "NA" , , "6.4", 1, .tabItensLiberados, .tabItensBloqueados, .tabRotinasLiberadas, .tabRotinasBloqueadas, .tabClassesLiberadas, .tabClassesBloqueadas) 1 %Status Obtem os Programas Liberados para o Menu set msgsc = ##class(Src2.PatchUtils).ObterProgramasMenuConta("csw", "RO", .tabProgramasMenu, .tabSiglas) 1 %Status Obter Dados do Cliente set sc = ##class(Src2.PatchUtils).ObterDadosCliente("CO", .tipoProdCsw, .tabSegmentos, .nomeCliente, .emailsCliente) 1 %Status 1 %String Atualizar Versoes Consistem set sc = ##class(Src2.PatchUtils).AtualizarVersoesConsistem() 1 codConta:%String="" %Status ") quit $$$ERROR(10000,"Não foi possível conectar-se aos servidores Consistem! Tente novamente mais tarde.") else quit $$$ERROR($$$CacheError,$zerror) quit $$$OK ]]> Method para gerar uma global resumida do uso da licença 1 dataInicial:%Integer %Status Gerar Log de OK 1 %Status Gerar Log de Erro 1 %Status Gerar Log de Aviso 1 %Status Gerar Log de Erro origem = 1 - Rotinas 2 - Classes 3 - Ajuda 4 - Relatórios 5 - Componentes 6 - Procedimento 7 - Páginas/Objetos da Aplicação CSP 8 - Arquivos Versionados 9 - Keystores 10 - Menu 11 - Backup 12 - Geração de Base 1 %Status Obter Tabela de Origens dos Logs set sc = ##class(Src2.PatchUtils).ObterTabOrigemLog(.tabTipos) 1 tabTipos:%String %String Validar Importacao de um Item tipo = 1 - Rotina 2 - Rotina % / Rotina Z* 3 - Classe 4 - Diversos.xml 5 - Aplicação CSP 6 - Gerar Paginas CSP Pieces da Configuração 1 - Rotina ("" ou "0" - Padrão / 1 - Sim / 2 - Não) 2 - Rotina % / Rotina Z* ("" ou "0" - Padrão / 1 - Sim / 2 - Não) 3 - Classe ("" ou "0" - Padrão / 1 - Sim / 2 - Não) 4 - Diversos.xml ("" ou "0" - Padrão / 1 - Sim / 2 - Não) 5 - Aplicação CSP ("" ou "0" - Padrão / 1 - Sim / 2 - Não) 6 - Gerar Paginas CSP ("" ou "0" - Padrão / 1 - Sim / 2 - Não) Configuração padrão para SISTEMAS = "1^2^1^1^1^1" %SYS = "1^1^2^1^2^2" TESTE1 "1^2^1^1^2^2" TESTE2 "1^2^1^1^2^2" write ##class(Src2.PatchUtils).ValidarSelecaoNamespace("csw","TESTE1",5) 1 sistema:%String,namespace:%String,tipo:%String,item:%String="" %Status ", "6.4.8", .flgSemCSPT1) if ('flgSemCSPT1) { quit ##class(Src2.PatchUtils).ValidarSelecaoNamespaceOld(sistema, namespace, tipo, $get(item)) } set var = $get(^%CSW1ATUCONF(3,sistema,1,namespace)) set flgRotina = +$piece(var,"^",1) set flgRotinaSYS = +$piece(var,"^",2) set flgClasse = +$piece(var,"^",3) set flgDiversos = +$piece(var,"^",4) set flgAplicCsp = +$piece(var,"^",5) set flgGerarCsp = +$piece(var,"^",6) set flgRotZ = 0 if ($extract(item,1) = "Z") set flgRotZ = 1 if (tipo = 1) & (($extract(item,1) = "%") ! (flgRotZ)) set tipo = 2 if (flgRotina = 0) set flgRotina = 1 // Atualiza rotinas por padrão if (flgDiversos = 0) set flgDiversos = 1 // Atualiza diversos por padrão if (namespace = "%SYS") { if (flgRotinaSYS = 0) set flgRotinaSYS = 1 // No namespace %SYS atualiza rotinas percento por padrão if (flgClasse = 0) set flgClasse = 2 // No namespace %SYS não atualiza classes por padrão } else { if (flgRotinaSYS = 0) set flgRotinaSYS = 2 // Em namespaces não %SYS não atualiza rotinas percento por padrão if (flgClasse = 0) set flgClasse = 1 // Em namespaces não %SYS atualiza classes por padrão } if (flgAplicCsp = 0) { if (namespace = "SISTEMAS") set flgAplicCsp = 1 else set flgAplicCsp = 2 } if (flgGerarCsp = 0) { if (namespace = "SISTEMAS") set flgGerarCsp = 1 else set flgGerarCsp = 2 } if (flgRotZ) set flgGerarCsp = 2 if (tipo = 1) & (flgRotina '= 1) quit $$$ERROR(10000,"Não importar rotina!") if (tipo = 2) & (flgRotinaSYS '= 1) quit $$$ERROR(10000,"Não importar rotina % ou Z!") if (tipo = 3) & (flgClasse '= 1) quit $$$ERROR(10000,"Não importar classe!") if (tipo = 4) & (flgDiversos '= 1) quit $$$ERROR(10000,"Não importar diversos.xml!") if (tipo = 5) & (flgAplicCsp '= 1) quit $$$ERROR(10000,"Não importar aplicação CSP!") if (tipo = 6) & (flgGerarCsp '= 1) quit $$$ERROR(10000,"Não gerar página CSP!") quit $$$OK ]]> ATENÇÃO * Método antigo para ser utilizado em atualizações com os componentes antes da versão 6.4.9. * A partir da verão 6.4.9 de componentes não existe mais aplicação CSP para os namespaces diferentes de SISTEMAS. 1 sistema:%String,namespace:%String,tipo:%String,item:%String="" %Status set sc = ##class(Src2.PatchUtils).ObterItensDocumento("CO",1,231465,.tabItens) set sc = ##class(Src2.PatchUtils).ObterItensDocumento("CO",1,246353,.tabItens) set sc = ##class(Src2.PatchUtils).ObterItensDocumento("CO",1,4454545,.tabItens) set sc = ##class(Src2.PatchUtils).ObterItensDocumento("CO",1,249222,.tabItens) tipoDocumento = 1 - Chamado 2 - Projeto 3 - Ticket Kayako 4 - Ticket Redmine 5 - Chamado Adapcon 1 codConta:%String,tipoDocumento:%Integer,documento:%String,tabItens:%String %Status Importar Rotinas/Classes 1 codTerm:%String,codAtualizacao:%Integer,sistema:%String,flgExcluirCod:%Boolean,flgBackUp:%Boolean,tipoPatch:%String,versaoLog:%String,revisao:%Integer,caminhoBackup:%String %Status Backup das Rotinas e Classes 1 codTerm:%String,codAtualizacao:%Integer,caminhoBackup:%String,namespace:%String %Status 500) { set contBack = $increment(contBack) set sc = $system.OBJ.Export(.tabItens, caminhoBackup_barra_$translate($zdatetime(horolog,3),": ","--")_"-"_namespace_"-CLASSES-"_contBack_".xml", "-d") kill tabItens set cont = "" } } if $data(tabItens) { set contBack = $increment(contBack) set sc = $system.OBJ.Export(.tabItens, caminhoBackup_barra_$translate($zdatetime(horolog,3),": ","--")_"-"_namespace_"-CLASSES-"_contBack_".xml", "-d") } if ($order(^mtempSrc2PatchImport(codTerm,"classes",namespace,3,"")) '= "") { set sc = ##class(Src2.PatchUtils).GerarLogOK(codAtualizacao, 11, "Gerado Backup das Classes") } // Rotinas - Backup de 500 em 500 para não dar erro no Caché kill tabItens set (rotina, cont, contBack) = "" for { set rotina = $order(^mtempSrc2PatchImport(codTerm,"rotinas",namespace,3,rotina)) if (rotina = "") quit set cont = $increment(cont) set tabItens(rotina) = "" if (cont > 500) { set contBack = $increment(contBack) set sc = $system.OBJ.Export(.tabItens, caminhoBackup_barra_$translate($zdatetime(horolog,3),": ","--")_"-"_namespace_"-ROTINAS-"_contBack_".xml", "-d") kill tabItens set cont = "" } } if $data(tabItens) { set contBack = $increment(contBack) set sc = $system.OBJ.Export(.tabItens, caminhoBackup_barra_$translate($zdatetime(horolog,3),": ","--")_"-"_namespace_"-ROTINAS-"_contBack_".xml", "-d") } if ($order(^mtempSrc2PatchImport(codTerm,"rotinas",namespace,3,"")) '= "") { set sc = ##class(Src2.PatchUtils).GerarLogOK(codAtualizacao, 11, "Gerado Backup das Rotinas") } quit $$$OK ]]> Exclui Rotinas e Classes 1 codTerm:%String,codAtualizacao:%Integer,sistema:%String,tipoPatch:%String,versaoLog:%String,revisao:%Integer,namespace:%String %Status Importa Classes do Patch 1 codTerm:%String,codAtualizacao:%Integer,sistema:%String,tipoPatch:%String,versaoLog:%String,revisao:%Integer,namespace:%String %Status ") { continue } set sc = ##class(Src2.PatchUtils).GerarLogErro(codAtualizacao, 2, "Importação da classe "_classe, .tabTemp) continue } set sc = ##class(Src2.PatchUtils).GerarLogOK(codAtualizacao, 2, "Importação da classe "_classe) set tabClasses(classe_".cls") = "" } if ('$data(tabClasses)) quit $$$OK set flagCompClasses = ##class(Src2.Classe).ObterFlagsCompilacaoPadrao(2) do $system.OBJ.CompileList(.tabClasses,flagCompClasses,.errorLog) if ($order(errorLog("")) '= "") { set lin = "" for { set lin = $order(errorLog(lin)) if (lin = "") quit set tabTemp(lin) = $piece($get(errorLog(lin)),$char(13)_$char(10)_$char(32),1) } set sc = ##class(Src2.PatchUtils).GerarLogErro(codAtualizacao, 2, "Compilação de classes", .tabTemp) } else { set sc = ##class(Src2.PatchUtils).GerarLogOK(codAtualizacao, 2, "Compilação de classes") } quit $$$OK ]]> Importa Rotinas do Patch 1 codTerm:%String,codAtualizacao:%Integer,sistema:%String,tipoPatch:%String,versaoLog:%String,revisao:%Integer,namespace:%String %Status Gerar Paginas CSP Rotinas 1 codTerm:%String,codAtualizacao:%Integer,namespace:%String %Status Excluir Fontes das Rotinas 1 codTerm:%String,codAtualizacao:%Integer,namespace:%String,flag:%String=0 %Status Importar Componentes 1 %Status Importar Componentes 1 codTerm:%String,codAtualizacao:%Integer,codConta:%String %Status Exporta Paginas/Objetos 1 codAtualizacao:%Integer,codConta:%String,caminhoOrigem:%String,caminhoDestino:%String,caminhoBackupJars:%String %Status /dev/null 2>&1") set status = $zf(-1,"chown -R cacheusr:cacheusr "_caminhoDestino_" > /dev/null 2>&1") } quit $$$OK ]]> Exporta Jars para Paginas/Objetos/Java 1 codTerm:%String,codAtualizacao:%Integer,namespace:%String %Status Importar Relatorios 1 codTerm:%String,codAtualizacao:%Integer %Status Importa os Arquivos para Consistem/Lib/Componentes 1 codTerm:%String,codAtualizacao:%Integer %Status Importar Aplicações Web Java 1 %Status Deploy das Aplicações Web Java não Atualizadas OBS: Quando atualiza o serviço consistem, este método faz o deploy das aplicações existentes e que não foram atualizadas. 1 %Status Obter Aplicações Web 1 %Status Importa os Arquivos Versionados Temporários 1 codTerm:%String,codAtualizacao:%Integer %Status Importar Keystore 1 codTerm:%String,codAtualizacao:%Integer %Status Importar Release Notes 1 codTerm:%String,codAtualizacao:%Integer %Status Importar Menu 1 codTerm:%String,codAtualizacao:%Integer,sistema:%Integer,tipoPatch:%String,versaoLog:%String,revisao:%Integer %Status Remove Todos os Arquivos e Pastas de um Diretorio set sc = ##class(Src2.PatchUtils).LimparDiretorio("C:\dados\consistem\atualizacao\temp") 1 caminho:%String %Status Selecionar Rotina operacao = 1 - Importar 2 - Excluir 1 codTerm:%String,sistema:%String,barra:%String,caminhoPatch:%String,operacao:%String,rotina:%String,arquivo:%String %Status Selecionar Classe operacao = 1 - Importar 2 - Excluir 1 codTerm:%String,sistema:%String,barra:%String,caminhoPatch:%String,operacao:%String,classe:%String,arquivo:%String %Status Selecionar Diversos Xml 1 codTerm:%String,sistema:%String,barra:%String,caminhoPatch:%String,flag:%String,arquivo:%String %Status Selecionar Paginas/Objetos 1 %Status Obter Configuração serasahttp.keystore set sc = ##class(Src2.PatchUtils).ObterConfigSerasaHttp(.arquivo,,.pastaArquivo) set sc = ##class(Src2.PatchUtils).ObterConfigSerasaHttp(.arquivo, "C:\consistem", .pastaArquivo) 1 %Status Obter Configuração server_producao.keystore set sc = ##class(Src2.PatchUtils).ObterConfigServerProducao(.arquivo, , .pastaArquivo) set sc = ##class(Src2.PatchUtils).ObterConfigServerProducao(.arquivo, "C:\consistem", .pastaArquivo) 1 %Status Selecionar serasahttp.keystore 1 codTerm:%String,barra:%String,caminhoPatch:%String,flag:%String,consistemHome:%String="" %Status Selecionar server_producao.keystore 1 codTerm:%String,barra:%String,caminhoPatch:%String,flag:%String,consistemHome:%String="" %Status Selecionar Arquivo para Objetos/Java 1 %Status Selecionar Aplicação Web Java 1 codTerm:%String,sistema:%String,barra:%String,caminhoPatch:%String,consistemHome:%String,tipoArquivo:%String,versao:%String,nomeArquivo:%String %Status Selecionar Arquivo para Consistem/Lib/Componentes 1 codTerm:%String,sistema:%String,barra:%String,caminhoPatch:%String,consistemHome:%String,tipoArquivo:%String,versao:%String,nomeArquivo:%String %Status Selecionar consistem_server.rpm 1 codTerm:%String,sistema:%String,barra:%String,caminhoPatch:%String,consistemHome:%String,tipoArquivo:%String,versao:%String,nomeArquivo:%String %Status Selecionar Arquivos Temporarios 1 codTerm:%String,sistema:%String,barra:%String,caminhoPatch:%String,consistemHome:%String,tipoArquivo:%String,versao:%String,nomeArquivo:%String,rotinaProcedimento:%String %Status Obter Aplicacoes Csp set sc = ##class(Src2.PatchUtils).ObterAplicacoesCsp("csw", .tabAplicacoes) 1 %Status Validar Permissoes 1 codTerm:%String %Status Selecionar Relatorios - Importar 1 codTerm:%String,barra:%String,caminhoPatch:%String,consistemHome:%String %Status Selecionar Relatorios - Excluir 1 %Status Selecionar Release Notes 1 codTerm:%String,versao:%String,tarefa:%String,tipo:%Integer,sistema:%Integer,funcionalidade:%Integer,menus:%String,descricao:%String %Status Obter Namespaces com Configuração de Atualização set sc = ##class(Src2.PatchUtils).ObterNamespacesAtualizacao(.tabNamespace) 1 tabNamespace:%String %Status Obter Namespaces com Execução de Procedimento set sc = ##class(Src2.PatchUtils).ObterNamespacesProcedimento(.tabNspProced, .tabNspProced2) 1 tabNspProced:%String,tabNspProced2:%String %Status Validar Namespaces com Execução de Procedimento set sc = ##class(Src2.PatchUtils).ValidarNamespacesProcedimento() 1 %Status Valida a Versão do Controle de Fonte nos Namespaces set sc = ##class(Src2.PatchUtils).ValidarVersaoPatch(1, .tabNamespace) 1 %Status Obter Descrição do Sistema write ##class(Src2.PatchUtils).ObterDescricaoSistema("cswutil") write ##class(Src2.PatchUtils).ObterDescricaoSistema("teste") 1 sistema:%String %String Obter Tabela de Sistemas 1 %Status Obter Tabela de Tipos de Patchs 1 %Status Obter Tabela de Tipos de Documentos 1 %Status Obter Tabela de Status do Patch 1 %Status Obter Tabela de Tipos de Instancias no Wildfly 1 %Status Obter Versao do Produto set sc = ##class(Src2.PatchUtils).ObterVersaoProdutoCliente("csw", .versao) set sc = ##class(Src2.PatchUtils).ObterVersaoProdutoCliente("cswutil", .versao) 1 %String Obter String de Sistemas/Versao set sc = ##class(Src2.PatchUtils).ObterStrVersoesProdutoCliente(.strSistemasVersoes) 1 %String Altera a Versao do Sistema pela Rotina ZZZ OBS: Método utilizado pelo atualizar geral de versão 1 sistema:%String %Status Altera a Versao do Sistema set sc = ##class(Src2.PatchUtils).AlterarVersaoSistema("csw", "6.3.3", 1) 1 sistema:%String,versao:%String,codAtualizacao:%String="",rotinaVersao:%String="" %Status Atualizar Rotinas de Versoes set sc = ##class(Src2.Teste).AtualizarRotinasVersoes() 1 %Status Obter Endereços dos WebServices set sc = ##class(Src2.PatchUtils).ObterEnderecosWebServices(.servidor, .namespace, .usuario, .senha, .location) 1 %Status 10) { set httprequest = ##Class(%Net.HttpRequest).%New() set httprequest.Timeout = 5 for i = 1:1:4 { set httprequest.Server = $get(tabServidor(i)) if httprequest.Post() { set servidor = $get(tabServidor(i)) set dataHoraVerificacao = $horolog quit } } set $piece(^%CSW1ATUCONF(1),"^",3) = servidor set $piece(^%CSW1ATUCONF(1),"^",4) = dataHoraVerificacao if (servidor = "") set servidor = $get(tabServidor(1)) } } if (namespace = "") set namespace = "sistemas" set usuario = "atualizador" set senha = "atualizador" set location = "http://"_servidor_"/csp/"_namespace_"/br.com.consistem.gercon.service" quit $$$OK ]]> Efetua um Download de Patch set sc = ##class(Src2.PatchUtils).DownloadPatch("PATCH-CO-2012-09-18-14-15-17-CUSTOMAX-T4-6-2") 1 idPatch:%String %Status Disponibilizar Patch para Download 1 idPatch:%String %Status >/dev/null") if (sc '= 0) quit $$$ERROR(10000,"Erro ao compactar o patch: "_sc_"!") set sc = ##Class(%File).CopyFile(caminhoPatch_barra_idPatch_".xml",##class(Src2.PatchUtils).ObterEndDispDownload()_idPatch_".xml") set sc = ##Class(%File).CopyFile(caminhoPatch_barra_idPatch_".xml",##class(Src2.PatchUtils).ObterEndXmlPatch()_idPatch_".xml") quit $$$OK ]]> Preparar Patch Instalação: - Descompacta - Copia XML - Apaga arquivos set sc = ##class(Src2.PatchUtils).PrepararPatch("PATCH-CO-2012-09-18-14-15-17-CUSTOMAX-T4-6-2") 1 idPatch:%String,flgAtuCompleta:%Boolean=0 %Status Retorna o Codigo do Patch write ##class(Src2.PatchUtils).ObterCodigo("PATCH-CC-2012-09-19-13-47-49-CSW-T1-6-3-3") 1 valor:%String,tipo:%Integer=0 %String Retorna o endereço da aplicação CSP onde deve ser disponibilizado o zip para futuro download 1 %String Retorna o endereço da aplicação CSP onde deve ser disponibilizado uma cópia de todos os arquivos xml de patchs 1 %String Exclui os arquivos de um Patch flgTemp: Se igual a 1 somente apaga os arquivos descompactados na pasta temporária 1 idPatch:%String,flgTemp:%Boolean=0 %String Valida a Existencia do Parametro de Erro do Gerador CSP write ##Class(Src2.PatchUtils).ValidarTesteErroCsp() 1 %Boolean Obter IP Máquina pelo Email set sc = ##class(Src2.PatchUtils).ObterIPMaquina("ederson@consistem.com.br", .ipMaquina) set sc = ##class(Src2.PatchUtils).ObterIPMaquina("teste@consistem.com.br", .ipMaquina) 1 %String Obter Arquivos Versionados Patch set sc = ##class(Src2.PatchUtils).ObterArquivosVersionadosPatch("csw", "1", , .tabArqVers) set sc = ##class(Src2.PatchUtils).ObterArquivosVersionadosPatch("cswutil", "1", , .tabArqVers) set sc = ##class(Src2.PatchUtils).ObterArquivosVersionadosPatch("cswutil", "6", , .tabArqVers) 1 %Status 1 %RegisteredObject 61727,0 Obter Versoes dos Sistemas set sc = ##class(Src2.PatchUtils2).ObterVersoesSistemas("6.3.1",, .tabVersoesSistemas) set sc = ##class(Src2.PatchUtils2).ObterVersoesSistemas("6.2.1",, .tabVersoesSistemas) set sc = ##class(Src2.PatchUtils2).ObterVersoesSistemas(,"csw;6.3.2^gercon;1.0.1", .tabVersoesSistemas) set sc = ##class(Src2.PatchUtils2).ObterVersoesSistemas(,"csw;6.3.2^cswutil;6.2.3", .tabVersoesSistemas) set sc = ##class(Src2.PatchUtils2).ObterVersoesSistemas(,"csw;6.3.2^cswutil;6.2.3^gercon;1.0.1", .tabVersoesSistemas) 1 %Status Obter Versoes dos Sistemas 1 %Status Exportar Patch Xml 1 %Status ") set sc = objFile.WriteLine("") // Informações set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_idPatch_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_$zdatetime(horolog,3)_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_##class(Src2.Patch).ObterVersaoPatchSrc()_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_tipoPatch_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_codConta_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_sistema_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_$zconvert($piece($get(tabSistemas(sistema)),"^",7),"O","UTF8")_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_flgTag_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_flgServTeste_"") if (versaoReleaseOrigem '= "") { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_versaoReleaseOrigem_"") } if (versaoReleaseAfetada '= "") { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_versaoReleaseAfetada_"") } if (documento '= "") { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_tipoDocumento_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_documento_"") } if ($get(tabStrVersoesPreReq) '= "") { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_$get(tabStrVersoesPreReq)_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_versaoReleaseRef_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_repositorioRef_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_revisao_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_autor_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_data_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_tempoTotalEdt_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_(+$get(^mtempSrc2Patch(codTerm,"rotinas",1)))_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_(+$get(^mtempSrc2Patch(codTerm,"rotinas",2)))_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_(+$get(^mtempSrc2Patch(codTerm,"rotinas",3)))_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_(+$get(^mtempSrc2Patch(codTerm,"classes",1)))_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_(+$get(^mtempSrc2Patch(codTerm,"classes",2)))_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_(+$get(^mtempSrc2Patch(codTerm,"classes",3)))_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_(+$get(^mtempSrc2Patch(codTerm,"relatorios","importar","arquivo")))_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_(+$get(^mtempSrc2Patch(codTerm,"relatorios","excluir","arquivo")))_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_(+$get(^mtempSrc2Patch(codTerm,"relatorios","excluir","pasta")))_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") if (rotinaVersao '= "") { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_rotinaVersao_"") } if ($order(tabGrupoItens("")) '= "") { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") set grupo = "" for { set grupo = $order(tabGrupoItens(grupo)) if (grupo = "") quit set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_grupo_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") } if (observacao '= "") { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") set sc = objFile.WriteLine("") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") // Classes if $data(^mtempSrc2Patch(codTerm,"classes")) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") if $data(^mtempSrc2Patch(codTerm,"classes",1)) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") set classe = "" for { set classe = $order(^mtempSrc2Patch(codTerm,"classes",1,classe)) if (classe = "") quit set var = $get(^mtempSrc2Patch(codTerm,"classes",1,classe)) set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_classe_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") } if $data(^mtempSrc2Patch(codTerm,"classes",2)) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") set classe = "" for { set classe = $order(^mtempSrc2Patch(codTerm,"classes",2,classe)) if (classe = "") quit set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_classe_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") } if $data(^mtempSrc2Patch(codTerm,"classes",4)) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") set package = "" for { set package = $order(^mtempSrc2Patch(codTerm,"classes",4,package)) if (package = "") quit set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_package_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") } // Rotinas if $data(^mtempSrc2Patch(codTerm,"rotinas")) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") if $data(^mtempSrc2Patch(codTerm,"rotinas",1)) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") set rotina = "" for { set rotina = $order(^mtempSrc2Patch(codTerm,"rotinas",1,rotina)) if (rotina = "") quit set var = $get(^mtempSrc2Patch(codTerm,"rotinas",1,rotina)) set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_rotina_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") } if $data(^mtempSrc2Patch(codTerm,"rotinas",2)) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") set rotina = "" for { set rotina = $order(^mtempSrc2Patch(codTerm,"rotinas",2,rotina)) if (rotina = "") quit set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_rotina_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") } if $data(^mtempSrc2Patch(codTerm,"rotinas",3)) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") set rotina = "" for { set rotina = $order(^mtempSrc2Patch(codTerm,"rotinas",3,rotina)) if (rotina = "") quit set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_rotina_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") } // Outros - Arquivos Versionados if ($data(^mtempSrc2Patch(codTerm,"arquivosVersionados"))) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") set tipoArquivo = "" for { set tipoArquivo = $order(^mtempSrc2Patch(codTerm,"arquivosVersionados",tipoArquivo)) if (tipoArquivo = "") quit set var = $get(^mtempSrc2Patch(codTerm,"arquivosVersionados",tipoArquivo)) set rotinaProcedimento = $get(^mtempSrc2Patch(codTerm,"arquivosVersionados",tipoArquivo,1)) set versaoArquivo = $piece(var,"^",1) set nomeArquivo = $piece(var,"^",2) set localizacao = $piece(var,"^",4) set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_versaoArquivo_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") } // Outros - Base de Inicialização if ($data(^mtempSrc2Patch(codTerm,"flags","flgBase"))) { set var = $get(^mtempSrc2Patch(codTerm,"flags","flgBase")) set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_$piece(var,"^",1)_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_$piece(var,"^",2)_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") set global = "" for { set global = $order(^mtempSrc2Patch(codTerm,"flags","flgBase",global)) if (global = "") quit set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_"^"_global_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") } // Outros set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") if ($order(^mtempSrc2Patch(codTerm,"flags","")) '= "") { if ($data(^mtempSrc2Patch(codTerm,"flags","flgPaginas"))) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"1") } if ($data(^mtempSrc2Patch(codTerm,"flags","flgDiversos"))) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"1") } if ($data(^mtempSrc2Patch(codTerm,"flags","flgProcedimentos"))) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"1") } if ($data(^mtempSrc2Patch(codTerm,"flags","flgSerasahttp"))) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"1") } if ($data(^mtempSrc2Patch(codTerm,"flags","flgServerProducao"))) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"1") } } // Outros - Menu if ($data(^mtempSrc2Patch(codTerm,"flags","flgMenu"))) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"1") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") // Segmentos set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") set codSegmento = "" for { set codSegmento = $order(tabSegmentos(codSegmento)) if (codSegmento = "") quit set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_codSegmento_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") // Relatórios set sc = ##class(Src2.PatchUtils2).ExportarPatchXmlGenerico(codTerm, .objFile, "relatorios", "Relatorios") // Bloqueia Uso dos Programas Durante a Atualização if ($data(tabBloqUsoAtua)) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") set grupoRotina = "" for { set grupoRotina = $order(tabBloqUsoAtua(1,grupoRotina)) if (grupoRotina = "") quit set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_""_grupoRotina_"") } if ($data(tabBloqUsoAtua(2,"BloqueioTotal"))) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"1") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") } // Release Notes if $data(^mtempSrc2Patch(codTerm,"notes")) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") set codSeq = "" for { set codSeq = $order(^mtempSrc2Patch(codTerm,"notes",1,codSeq)) if (codSeq = "") quit set var = $get(^mtempSrc2Patch(codTerm,"notes",1,codSeq,1)) set var2 = $get(^mtempSrc2Patch(codTerm,"notes",1,codSeq,2)) set tipo2 = $zconvert($piece(var,"^",2),"O","UTF8") set sistema2 = $zconvert($piece(var,"^",5),"O","UTF8") set funcionalidade = $zconvert($piece(var,"^",6),"O","UTF8") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") set sc = objFile.WriteLine("") set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") } set sc = objFile.Write("") do objFile.Close() set objFile = "" quit $$$OK ]]> Enviar Email Patch 1 %Status " set tabMsg($order(tabMsg(""),-1)+1) = "" set tabMsg($order(tabMsg(""),-1)+1) = "" set tabMsg($order(tabMsg(""),-1)+1) = "" set tabMsg($order(tabMsg(""),-1)+1) = "" set tabMsg($order(tabMsg(""),-1)+1) = "" set tabMsg($order(tabMsg(""),-1)+1) = "" set tabMsg($order(tabMsg(""),-1)+1) = "

Patch de Atualização "_empresa_"

" set flgQuebra = 0 /// Observações if (observacao '= "") { set tabMsg($order(tabMsg(""),-1)+1) = "

Observações:
" set tabMsg($order(tabMsg(""),-1)+1) = ##class(Src2.Utils).Translate($zconvert(observacao,"O","HTML"),$char(10),"
") set tabMsg($order(tabMsg(""),-1)+1) = "

" set flgQuebra = 1 } /// Bloqueio Total if ($data(tabBloqUsoAtua(2,"BloqueioTotal"))) { if (flgQuebra) set tabMsg($order(tabMsg(""),-1)+1) = "

" set tabMsg($order(tabMsg(""),-1)+1) = "

ATENÇÃO: Durante a instalação deste patch o sistema não permitirá nenhum usuário logado no sistema.

" set flgQuebra = 1 } /// Programas Bloqueados if ($order(tabBloqUsoAtua(1,"")) '= "") { if (flgQuebra) set tabMsg($order(tabMsg(""),-1)+1) = "

" set tabMsg($order(tabMsg(""),-1)+1) = "

ATENÇÃO: Programas que serão bloqueados durante a instalação deste patch:

"_grupoRotina_"

" set flgQuebra = 1 } /// Pré-Requisitos if ($order(tabStrVersoesPreReq("")) '= "") { if (flgQuebra) set tabMsg($order(tabMsg(""),-1)+1) = "

" set tabMsg($order(tabMsg(""),-1)+1) = "

Pré-Requisitos:

O produto "_dsProdPreReq_" deve estar no release "_verPreReq_" ou superior.

" } set tabMsg($order(tabMsg(""),-1)+1) = "

Produto: "_$piece($get(tabSistemas(sistema)),"^",7)_"
Cliente: "_nomeCliente_"
ID Patch: "_idPatch_"
Data/Hora Geração: "_$zdatetime(horolog,4)_"
Tipo do Patch: "_tipoPatch_" - "_$get(tabTiposPatch(tipoPatch))_"
Para Servidor de Testes: "_$select(flgServTeste:"Sim",1:"Não")_"
"_$get(tabTiposDoc(tipoDocumento))_": "_documento_"
Itens: "_##class(Src2.Utils).ConvertTabStr(.tabGrupoItens)_"
Versão Origem: "_versaoReleaseOrigem_"
Versão Destino: "_versaoReleaseRef_"
Versão: "_versaoReleaseRef_"
Versão Origem: "_versaoReleaseOrigem_"
Versão: "_versaoReleaseAfetada_"
Atualização dos Programas do Menu: "_progMenu_"
Inicialização de Base: Sim
Sistemas Alterados:

"_dsSistemas_"

Arquivos Diversos:

"_descricao_"

" set tabMsg($order(tabMsg(""),-1)+1) = "

" if ($data(^mtempSrc2Patch(codTerm,"notes"))) { set (versao, codSeq) = "" for { set versao = $order(^mtempSrc2Patch(codTerm,"notes",2,versao)) if (versao = "") quit set tabMsg($order(tabMsg(""),-1)+1) = "

Versão "_versao_"

" for tipo = "Legislação","Nova Funcionalidade","Melhoria","Defeito" { if ('$data(^mtempSrc2Patch(codTerm,"notes",2,versao,tipo))) continue set tabMsg($order(tabMsg(""),-1)+1) = "

"_tipo_"

" set tabMsg($order(tabMsg(""),-1)+1) = "" for { set codSeq = $order(^mtempSrc2Patch(codTerm,"notes",2,versao,tipo,codSeq)) if (codSeq = "") quit set var = $get(^mtempSrc2Patch(codTerm,"notes",1,codSeq,1)) set var2 = $get(^mtempSrc2Patch(codTerm,"notes",1,codSeq,2)) set texto = ""_$piece(var,"^",5) if ($piece(var,"^",6) '= "") { set texto = texto_" ("_$piece(var,"^",6)_")" } set texto = texto_"" for cont = 1:1:$length(var2,$char(13)_$char(10)) { set texto = texto_"
"_$piece(var2,$char(13)_$char(10),cont) } set tabMsg($order(tabMsg(""),-1)+1) = "" set tabMsg($order(tabMsg(""),-1)+1) = "" set tabMsg($order(tabMsg(""),-1)+1) = "" set tabMsg($order(tabMsg(""),-1)+1) = "" } set tabMsg($order(tabMsg(""),-1)+1) = "

[ #"_$piece(var,"^",1)_" ] -

" set tabMsg($order(tabMsg(""),-1)+1) = texto set tabMsg($order(tabMsg(""),-1)+1) = "

" } } } if (tipoPatch = 1) , ('$data(^mtempSrc2Patch(codTerm,"notes"))) , ('$data(tabDocumentacao)) { set tabDocumentacao(1) = "Esta atualização possui apenas alterações de baixo impacto que não afetam a interface/usuabilidade do sistema." } if ($data(tabDocumentacao)) { set tabMsg($order(tabMsg(""),-1)+1) = "

Documentação

" set tabMsg($order(tabMsg(""),-1)+1) = "" set (codSeq, texto) = "" for { set codSeq = $order(tabDocumentacao(codSeq)) if (codSeq = "") quit set var = $get(tabDocumentacao(codSeq)) set texto = texto_$select(texto="":"",1:"
")_var } set tabMsg($order(tabMsg(""),-1)+1) = "" set tabMsg($order(tabMsg(""),-1)+1) = "

" set tabMsg($order(tabMsg(""),-1)+1) = texto set tabMsg($order(tabMsg(""),-1)+1) = "

" } set tabMsg($order(tabMsg(""),-1)+1) = "

" set tabMsg($order(tabMsg(""),-1)+1) = "

" if (codParceiro = 1) { set tabMsg($order(tabMsg(""),-1)+1) = "Consistem Sistemas Ltda
" set tabMsg($order(tabMsg(""),-1)+1) = "www.consistem.com.br
" set tabMsg($order(tabMsg(""),-1)+1) = "Rua: Henrique Nagel, 135 / Bairro: Água Verde / CEP: 89254-560
" set tabMsg($order(tabMsg(""),-1)+1) = "Jaraguá do Sul – SC / Telefone: 55 47 2107-1800" } if (codParceiro = 12) { set tabMsg($order(tabMsg(""),-1)+1) = "Customax Serviços Ltda
" set tabMsg($order(tabMsg(""),-1)+1) = "www.customax.com.br
" set tabMsg($order(tabMsg(""),-1)+1) = "Rua: Henrique Nagel, 179 / Bairro: Água Verde / CEP: 89254-560
" set tabMsg($order(tabMsg(""),-1)+1) = "Jaraguá do Sul - SC / Telefone: 55 47 3275-2250" } if (codParceiro = 2) { set tabMsg($order(tabMsg(""),-1)+1) = "Adapcon Sistemas e Assessoria
" set tabMsg($order(tabMsg(""),-1)+1) = "www.adapcon.com.br
" set tabMsg($order(tabMsg(""),-1)+1) = "Rua: Walter Marquardt, 744, Sala 7 / Bairro: Vila Nova / CEP: 89259-700
" set tabMsg($order(tabMsg(""),-1)+1) = "Jaraguá do Sul – SC / Telefone: 55 47 3370-7625" } set tabMsg($order(tabMsg(""),-1)+1) = "

" set tabMsg($order(tabMsg(""),-1)+1) = "Mensagem gerada automaticamente! Favor não responder." set tabMsg($order(tabMsg(""),-1)+1) = "

" set tabMsg($order(tabMsg(""),-1)+1) = "" set tabMsg($order(tabMsg(""),-1)+1) = "" // Anexo o patch.xml if $data(tabEmailPara(1)) { kill tabEmail merge tabEmail = tabEmailPara(1) set sc = ##class(Src2.Utils2).EnviarEmail(titulo, emailDe, .tabEmail, .tabMsg, 1, arquivoXmlPatch, "noreply@consistem.com.br") } // Sem anexo if $data(tabEmailPara(2)) { kill tabEmail merge tabEmail = tabEmailPara(2) set sc = ##class(Src2.Utils2).EnviarEmail(titulo, emailDe, .tabEmail, .tabMsg, 1, , "noreply@consistem.com.br") } quit $$$OK ]]> Exportar Patch Xml Generico 1 %Status ") if ($data(^mtempSrc2Patch(codTerm,opcao,"importar"))) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") set itemRepositorio = "" for { set itemRepositorio = $order(^mtempSrc2Patch(codTerm,opcao,"importar","arquivo",itemRepositorio)) if (itemRepositorio = "") quit set var = $get(^mtempSrc2Patch(codTerm,opcao,"importar","arquivo",itemRepositorio)) set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_""_$piece(var,"^",1)_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") } if ($data(^mtempSrc2Patch(codTerm,opcao,"excluir"))) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") if ($data(^mtempSrc2Patch(codTerm,opcao,"excluir","pasta"))) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_"") set itemRepositorio = "" for { set itemRepositorio = $order(^mtempSrc2Patch(codTerm,opcao,"excluir","pasta",itemRepositorio)) if (itemRepositorio = "") quit set var = $get(^mtempSrc2Patch(codTerm,opcao,"excluir","pasta",itemRepositorio)) set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(4)_""_$piece(var,"^",1)_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_"") } if ($data(^mtempSrc2Patch(codTerm,opcao,"excluir","arquivo"))) { set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_"") set itemRepositorio = "" for { set itemRepositorio = $order(^mtempSrc2Patch(codTerm,opcao,"excluir","arquivo",itemRepositorio)) if (itemRepositorio = "") quit set var = $get(^mtempSrc2Patch(codTerm,opcao,"excluir","arquivo",itemRepositorio)) set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(4)_""_$piece(var,"^",1)_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(3)_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(2)_"") } set sc = objFile.WriteLine(##class(Src2.Utils2).Tab(1)_"") quit $$$OK ]]> Executa um Procedimento 1 rotinaDe:%String="",rotinaPara:%String="" %Status Executa os Procedimentos 1 codTerm:%String,codAtualizacao:%Integer %Status Executa um Procedimento 1 versao:%String,idProcedimento:%String,namespace:%String,procedimento:%String %String Importa Base de Inicalizacao set sc = ##class(Src2.PatchUtils2).ImportarBaseInicalizacao("XX", 1, "CC") 1 codTerm:%String,codAtualizacao:%Integer,codConta:%String %Status Gerar Base de Inicalizacao 1 %Status Gerar Base de Inicalizacao 2 1 %Status Gerar Base de Inicalizacao 3 1 %Status Obter Chave set sc=##class(Src2.PatchUtils2).ObterChave("^TESTEIMP(1,5,2,""MB"",222)",1,70,.tabXecuteChave,.chave) set sc=##class(Src2.PatchUtils2).ObterChave("^TESTEIMP(1,5,3,""MB"",222)",1,70,.tabXecuteChave,.chave) 1 %Status Obter Release Notes do Redmine 1 %Status Validar Selecao Release Note set sc = ##class(Src2.PatchUtils2).ValidarSelecaoReleaseNote(.tabSiglasConta,"PCC/PDV/FGT") set sc = ##class(Src2.PatchUtils2).ValidarSelecaoReleaseNote(.tabSiglasConta,"PCC2/PDV2/FGT2") 1 %Status Obter Documentação do Documento set sc = ##class(Src2.PatchUtils2).ObterDocumentacaoDocumento("ej", "CC", 1, 249221, .tabDocumentacao, .codParceiro) set sc = ##class(Src2.PatchUtils2).ObterDocumentacaoDocumento("ej", "CC", 4, 11184, .tabDocumentacao, .codParceiro) 1 %Status Obter Documentação do Ticket set sc = ##class(Src2.PatchUtils2).ObterDocumentacaoTicket("ej", 11184, .tipo, .documentacao, .sistema, .funcionalidade) 1 %Status Validar Permissão Geração do Patch Códigos das Equipes no Gercon 1 - Gerência 8 - Suporte 9 - Infraestrutura 27 - Desenvolvimento 28 - Manutenção 29 - Customização 30 - Projetos 31 - Produto 32 - Testes set sc = ##class(Src2.PatchUtils2).ValidarPermissaoGeracaoPatch(3, "csw", 32) set sc = ##class(Src2.PatchUtils2).ValidarPermissaoGeracaoPatch(3, "csw", 27) 1 %Status Validar Bloqueio de Credito set sc = ##class(Src2.PatchUtils2).ValidarBloqueioCredito("CO") 1 codConta:%String,force:%Boolean=0 %Status Validar a Atualizacao Bloqueada set sc = ##class(Src2.PatchUtils2).ValidarAtualizacaoBloqueada("CO") 1 codConta:%String %Status Eliminar Versoes Log 1 codTerm:%String,sistema:%String,releaseOrigem:%String,releaseDestino:%String %Status identificadorDestino) continue if (identificadorLog < identificadorOrigem) continue } for fixa = 1,2,3 { for { set item = $order(^mtempSrc2PatchVersoesLog(codTerm,versaoLog,fixa,item)) if (item = "") quit kill ^%CSW1ATUCONF(6,sistema,fixa,item) } } } kill ^mtempSrc2PatchVersoesLog(codTerm) quit $$$OK ]]> Validar Atualização do Item 1 codAtualizacao:%String,tipoPatch:%String,sistema:%String,tipoItem:%String,item:%String,versao:%String,revisao:%String %String identificadorLog) quit $$$OK set dsTipo = "" if (tipoItem = 1) set dsTipo = "Rotina "_item_" atualizada" if (tipoItem = 2) set dsTipo = "Classe "_item_" atualizada" if (tipoItem = 3) set dsTipo = "Menu do Sistema "_##class(Src2.PatchUtils).ObterDescricaoSistema(sistema)_" atualizado" if (identificador < identificadorLog) quit dsTipo_" por versão mais recente! (Release: "_versaoLog_")" if (revisao < revisaoLog) quit dsTipo_" por versão mais recente! (Release: "_versaoLog_" Revisão: "_revisaoLog_")" quit $$$OK ]]> Gerar Log de Atualizacao do Item 1 codAtualizacao:%String,tipoPatch:%String,sistema:%String,tipoItem:%String,item:%String,versao:%String,revisao:%String %String Validar Versao Bloqueada 1 %Status Obter Versoes Pre-Requisitos 1 %Status ", versaoSel)) { set versaoSel = versao } } set tabStrVersoesPreReq = tabStrVersoesPreReq_$select(tabStrVersoesPreReq="":"",1:";")_sistema2_","_versaoSel set tabStrVersoesPreReq(sistema2) = versaoSel } quit $$$OK ]]> Validar Versões Pre-Requisitos na Importação 1 versoesPreRequisito:%String="" %Status Atualizar index.html 1 sistema:%String %Status ", "6.3.12", .flgRet) if ('flgRet) quit $$$OK // A partir da versão 6.4.9 foi alterado o formato do arquivo de versão. set tipoArq = 1 set sc = ##class(Src2.Utils2).ValidarVersaoSistema("cswutil", ">", "6.4.8", .flgRet) if (flgRet) set tipoArq = 2 set sc = ##class(Src2.Utils2).ValidarVersaoSistema("cswutil", ">", "6.5.1b0", .flgRet) if (flgRet) set tipoArq = 3 set sc = ##class(Src2.PatchUtils).ObterAplicacoesCsp(sistema, .tabAplicacoes) if $$$ISERR(sc) quit sc set namespace = "" for { set namespace = $order(^%CSW1ATUCONF(3,sistema,1,namespace)) if (namespace = "") quit set sc = ##class(Src2.PatchUtils).ValidarSelecaoNamespace(sistema,namespace,5) if $$$ISERR(sc) continue set caminhoAplicWeb = $piece($get(tabAplicacoes(namespace)),"^",1) if (caminhoAplicWeb = "") continue if ($data(^%CSW1ATUCONF(3,"gercon"))) { if (tipoArq = 1) set sc = ##class(Src2.PatchUtils2).GerarVersaoHtmlGercon(caminhoAplicWeb_"versao.html") if (tipoArq = 2) set sc = ##class(Src2.PatchUtils2).GerarVersaoTxtGercon64(caminhoAplicWeb_"versao.txt") if (tipoArq = 3) set sc = ##class(Src2.PatchUtils2).GerarVersaoTxtGercon65(caminhoAplicWeb_"versao.txt") continue } if ($data(^%CSW1ATUCONF(3,"csw"))) { if (tipoArq = 1) set sc = ##class(Src2.PatchUtils2).GerarVersaoHtmlCsw(caminhoAplicWeb_"versao.html") if (tipoArq = 2) set sc = ##class(Src2.PatchUtils2).GerarVersaoTxtCsw64(caminhoAplicWeb_"versao.txt") if (tipoArq = 3) set sc = ##class(Src2.PatchUtils2).GerarVersaoTxtCsw65(caminhoAplicWeb_"versao.txt") } } quit $$$OK ]]> Retorna o valor escalonado, do primeiro para o ultimo 1 valor1:%String="",valor2:%String="",valor3:%String="",valor4:%String="",valor5:%String="" %String Gerar versao.txt (Método Exclusivo para as Classes do Controle de Fontes) set sc = ##class(Src2.PatchUtils2).GerarVersaoTxtCsw("6.4", "C:\workspacecsw\temp\versao.txt") 1 versao:%String,arquivo:%String %Status ", "6.4.999") if (flgRet) { set sc = ##class(Src2.PatchUtils2).GerarVersaoTxtCsw65(arquivo) } else { set sc = ##class(Src2.PatchUtils2).GerarVersaoTxtCsw64(arquivo) } quit $$$OK ]]> Gerar versao.txt - 6.4 set sc = ##class(Src2.PatchUtils2).GerarVersaoTxtCsw64("C:\workspacecsw\temp\versao.txt") 1 arquivo:%String %Status Consistem Sistemas") do stream.WriteLine($zconvert("

Versão CSW: "_$$ObterVersaoRelease^CCCSWzzz()_"

","O","UTF8")) do stream.WriteLine($zconvert("

Versão Componentes: "_$$ObterVersaoRelease^%CSzzz()_"

","O","UTF8")) do stream.Flush() do stream.SaveStream() do stream.%Close() quit $$$OK ]]> Gerar versao.txt - 6.5 set sc = ##class(Src2.PatchUtils2).GerarVersaoTxtCsw65("C:\workspacecsw\temp\versao.txt") 1 arquivo:%String %Status Gerar versao.txt - 6.4 set sc = ##class(Src2.PatchUtils2).GerarVersaoTxtGercon64("C:\workspacecsw\temp\versao.txt") 1 arquivo:%String %Status Consistem Sistemas") do stream.WriteLine($zconvert("

Versão CSW: "_$$ObterVersaoRelease^CCCSWzzz()_"

","O","UTF8")) do stream.WriteLine($zconvert("

Versão Gercon: "_$$ObterVersaoRelease^CCGERzzz()_"

","O","UTF8")) do stream.WriteLine($zconvert("

Versão Componentes: "_$$ObterVersaoRelease^%CSzzz()_"

","O","UTF8")) do stream.Flush() do stream.SaveStream() do stream.%Close() quit $$$OK ]]> Gerar versao.txt - 6.5 set sc = ##class(Src2.PatchUtils2).GerarVersaoTxtGercon65("C:\workspacecsw\temp\versao.txt") 1 arquivo:%String %Status Gerar versao.html set sc = ##class(Src2.PatchUtils2).GerarVersaoHtmlCsw("C:\workspacecsw\temp\versao.html") 1 arquivo:%String %Status

Versão CSW: #($$ObterVersaoRelease^CCCSWzzz())#

Versão Componentes: #($$ObterVersaoRelease^%CSzzz())#

> close arquivo quit $$$OK ]]> Gerar versao.html set sc = ##class(Src2.PatchUtils2).GerarVersaoHtmlGercon("C:\workspacecsw\temp\versao.html") 1 arquivo:%String %Status

Versão CSW: #($$ObterVersaoRelease^CCCSWzzz())#

Versão Gercon: #($$ObterVersaoRelease^CCGERzzz())#

Versão Componentes: #($$ObterVersaoRelease^%CSzzz())#

> close arquivo quit $$$OK ]]> Obtem o Endereco do Nexus set sc = ##class(Src2.PatchUtils2).ObterEnderecoNexus(.server, .port) 1 %Status Validar o Servico Nexus set sc = ##class(Src2.PatchUtils2).ValidarServicoNexus() 1 %Status Validar Arquivo Versionado 1 sistema:%String,tipoArquivo:%String,versao:%String %Status Exportar Arquivos Versionados 1 codTerm:%String,caminhoPatch:%String %Status Download do Arquivo Versionado 1 caminhoPatch:%String,nomeArquivo:%String,enderecoDownload:%String %Status Obter Arquivos Versionados a Enviar 1 %Status Obter Arquivo Versionado de uma Tabela de Versoes 1 %Status Obter Arquivo Versionado de Referencia 1 %Status Obter Arquivo Versionado de Ultimo 1 %Status Validar Namespaces 1 %String Validar Namespace 1 namespace:%String %String Retorna os Patchs do Server (Consistem) set sc = ##class(Src2.PatchUtils2).ObterRemessasServer("CS", .tabelaPatchs) 1 %String ") quit $$$ERROR(10000,"Não foi possível conectar ao WebService da Consistem! Tente novamente mais tarde.") else quit $$$ERROR($$$CacheError,$zerror) ]]> Retorna os Patchs para Atualização Completa OBS: Este método deve substituir uma regra na rotina CCUTI800RG set sc = ##class(Src2.PatchUtils2).ObterPatchsAtualizacaoCompleta(.patchCswUtil, .patchCsw) 1 %Status Retorna os Patchs do Client (Clientes) OBS: Este método deve substituir uma regra na rotina CCUTI800RG set sc = ##class(Src2.PatchUtils2).ObterRemessasClient(.tabelaPatchs) 1 %String Validar Exportação do Menu Patch set sc = ##class(Src2.Patch).ValidarExportacaoMenuPatch("C:\workspacecsw\temp\PATCH-TESTE" ,"http://192.168.15.10:18080/svn/csw/branches/6.4", , "EI") 1 caminhoPatch:%String,repositorio:%String,revisao:%String="head",codConta:%String,username:%String="",password:%String="" %Status Exportar Menu Patch 1 %Status Obter Arquivos de Menu set sc = ##class(Src2.PatchUtils).ObterArquivosMenu("http://192.168.15.10:18080/svn/csw/trunk", , "IC") 1 repositorio:%String,revisao:%String="",codConta:%String,username:%String="",password:%String="" %Status Obter Globais de Base de Inicialização set sc = ##class(Src2.PatchUtils2).ObterGlobaisBaseInic("csw", "AE", "6.4", .tabGlobais) set sc = ##class(Src2.PatchUtils2).ObterGlobaisBaseInic("csw", , "6.4", .tabGlobais) 1 %Status Validar Exportação de Bases para o Patch set sc = ##class(Src2.PatchUtils2).ValidarExportacaoBaseIniPatch("C:\workspacecsw\temp\PATCH-TESTE" ,"http://192.168.15.10:18080/svn/csw/branches/6.4", , "AE") 1 %Status Obter Arquivos de Base set sc = ##class(Src2.PatchUtils2).ObterArquivosBaseIni("http://192.168.15.10:18080/svn/csw/branches/6.4") 1 repositorio:%String,revisao:%String="",username:%String="",password:%String="" %Status Ler Arquivo de Base de Inicialização KILL ^mtempSrc2BaseIni set sc = ##class(Src2.PatchUtils2).LerArquivoBaseIni("XX", "C:\workspacecsw\temp\PATCH-TESTE\temp_bases\cswbase_geral_cidades.xml") KILL ^mtempSrc2BaseIni set sc = ##class(Src2.PatchUtils2).LerArquivoBaseIni("XX", "C:\workspacecsw\temp\PATCH-TESTE\temp_bases\cswbase_financeiro.xml") 1 codTerm:%String,arquivoBase:%String %Status Filtrar Base de Inicialização 2 1 %Status Filtrar Base de Inicialização 1 %Status Exportar Base de Inicialização para o Patch set sc = ##class(Src2.PatchUtils2).ExportarBaseIniPatch("6788", "C:\workspacecsw\temp\PATCH-TESTE") 1 codTerm:%String,caminhoPatch:%String %Status ") set sc = objFile.WriteLine("") set sc = objFile.WriteLine("") set codSeqGlobal = "" for { set codSeqGlobal = $order(^mtempSrc2BaseIni(codTerm,codSeqGlobal)) if (codSeqGlobal = "") quit set var = $get(^mtempSrc2BaseIni(codTerm,codSeqGlobal)) set sc = objFile.WriteLine(##class(Src2.Utils).Tab(1)_"") if ($data(^mtempSrc2BaseIni(codTerm,codSeqGlobal,"2-XecuteDados"))) ! ($data(^mtempSrc2BaseIni(codTerm,codSeqGlobal,"3-XecuteChave"))) { set sc = objFile.WriteLine(##class(Src2.Utils).Tab(2)_"") set codSeq = "" for { set codSeq = $order(^mtempSrc2BaseIni(codTerm,codSeqGlobal,"2-XecuteDados",codSeq)) if (codSeq = "") quit set var = $get(^mtempSrc2BaseIni(codTerm,codSeqGlobal,"2-XecuteDados",codSeq,1)) set var2 = $get(^mtempSrc2BaseIni(codTerm,codSeqGlobal,"2-XecuteDados",codSeq,2)) set sc = objFile.WriteLine(##class(Src2.Utils).Tab(3)_""_var2_"") } set codSeq = "" for { set codSeq = $order(^mtempSrc2BaseIni(codTerm,codSeqGlobal,"3-XecuteChave",codSeq)) if (codSeq = "") quit set var = $get(^mtempSrc2BaseIni(codTerm,codSeqGlobal,"3-XecuteChave",codSeq,1)) set var2 = $get(^mtempSrc2BaseIni(codTerm,codSeqGlobal,"3-XecuteChave",codSeq,2)) set sc = objFile.WriteLine(##class(Src2.Utils).Tab(3)_""_var2_"") } set sc = objFile.WriteLine(##class(Src2.Utils).Tab(2)_"") } set sc = objFile.WriteLine(##class(Src2.Utils).Tab(2)_"") set sc = objFile.WriteLine("") set sc = objFile.WriteLine(##class(Src2.Utils).Tab(2)_"") set sc = objFile.WriteLine(##class(Src2.Utils).Tab(1)_"") } set sc = objFile.WriteLine("") set sc = objFile.Write("") do objFile.Close() set objFile = "" quit $$$OK ]]> Obter Dados do Release do Sistema 1 %Status Obter Job para Atualização ATENÇÃO: NÃO UTILIZAR PARA OUTRAS LÓGICAS write ##class(Src2.PatchUtils2).ObterJobBloqAtu() 1 %Status Validar Bloqueio Atualizacao set sc = ##class(Src2.PatchUtils2).ValidarBloqueioAtualizacao(1,1,.tabGruposRotBloquear) set sc = ##class(Src2.PatchUtils2).ValidarBloqueioAtualizacao(1,1,.tabGruposRotBloquear) set sc = ##class(Src2.PatchUtils2).ValidarBloqueioAtualizacao(1,0,.tabGruposRotBloquear) set sc = ##class(Src2.PatchUtils2).ValidarBloqueioAtualizacao(1,0,.tabGruposRotBloquear) 1 %Status ", "6.4", .flgRet) if ('flgRet) quit $$$OK if (tipoPatch = 6) quit $$$OK set codTerm = ##class(Src2.PatchUtils2).ObterJobBloqAtu() if (bloqueioTotal) { // Caracter set sc=$$RetornaUsuariosLogadosCaracter^%CSW1LICENCA(.tabUsuariosCar) set (codSeq, flgErro) = "" for { set codSeq = $order(tabUsuariosCar(codSeq)) if (codSeq = "") quit set var = $get(tabUsuariosCar(codSeq)) if ($piece(var,"^",4) = codTerm) continue set flgErro = 1 quit } if flgErro quit $$$ERROR(10000,"Para esta atualização nenhum usuário deve estar logado no sistema!") // CSW set sc=$$RetornaUsuariosLogadosCSW^%CSW1LICENCA(.tabUsuariosCSW) set (codSeq, flgErro) = "" for { set codSeq = $order(tabUsuariosCSW(codSeq)) if (codSeq = "") quit set var = $get(tabUsuariosCSW(codSeq)) if ($piece(var,"^",4) = codTerm) continue set flgErro = 1 quit } if flgErro quit $$$ERROR(10000,"Para esta atualização nenhum usuário deve estar logado no sistema!") quit $$$OK } if ('$data(tabGruposRotBloquear)) quit $$$OK set (rotina, codTerm2, seqEmpilhamento, flgErro) = "" for { set rotina = $order(^mtempCSWLOGUSOROT(rotina)) if (rotina = "") quit set sc = ##class(Src2.Item).ValidarSelecaoGrupoItens(.tabGruposRotBloquear, rotina_".mac") if (sc = $$$OK) { for { set codTerm2 = $order(^mtempCSWLOGUSOROT(rotina,codTerm2)) if (codTerm2 = "") quit if (codTerm2 = codTerm) continue set flgErro = 1 quit } } if (flgErro) quit } if (flgErro) { set strProgramas = ##class(Src2.Utils).ConvertTabStr(.tabGruposRotBloquear) set strProgramas = ##class(Src2.Utils).Translate(strProgramas, ".mac", "") quit $$$ERROR(10000,"Os programas ("_strProgramas_") não podem estar em uso durante a instalação deste patch!") } quit $$$OK ]]> Efetivar Bloqueios da Atualizacao Como funciona o bloqueio 1. O bloqueio por rotina - Não permite que ninguem acesse as rotinas bloqueadas 2. O bloqueio geral 2.1. No momento da atualização, ninguem (Exceto quem esta atualizando) pode estar logado no sistema 2.2. Bloqueio o acesso ao menu 2.2. O acesso ao menu, permanece liberado para usuários administradores 2.3. Mas estes usuários administradores, não vão conseguir acessar nenhum programa, com execessão do atualizador 1 %Status ", "6.4", .flgRet) if ('flgRet) quit $$$OK if (tipoPatch = 6) quit $$$OK set codTerm = ##class(Src2.PatchUtils2).ObterJobBloqAtu() set sc = ##class(Src2.PatchUtils2).ExcluirBloqueiosAtualizacao() set sc = ##class(Src2.PatchUtils2).ValidarBloqueioAtualizacao(tipoPatch, bloqueioTotal, .tabGruposRotBloquear) quit:sc'=1 sc if (bloqueioTotal) { set ^mtempSrc2AtualizBloqueios(1) = $piece($get(^%CSMENCF),"^",23) set $piece(^%CSMENCF,"^",23) = 1 } else { merge ^mtempSrc2AtualizBloqueios(2) = tabGruposRotBloquear } hang 3 set sc = ##class(Src2.PatchUtils2).ValidarBloqueioAtualizacao(tipoPatch, bloqueioTotal, .tabGruposRotBloquear) if (sc '= 1) { set sc = ##class(Src2.PatchUtils2).ExcluirBloqueiosAtualizacao() quit sc } quit $$$OK ]]> Excluir Bloqueios da Atualizacao 1 %Status Ajustar Itens Limitados 1 %Status Obter Grupos Itens Limitados 1 %Status Validar Instalacao do Serviço Consistem set sc = ##class(Src2.PatchImport2).ValidarInstalacaoServicoConsistem() 1 senhaSystem:%String="" %Status Atualizar Serviço Consistem 1 codTerm:%String,codAtualizacao:%Integer,codConta:%String,flgLinhaCmd=0,senhaSystem:%String="" %Status "_arquivoLog_" 2>&1") set sc = ##class(Src2.Utils2).ConverteArquivoTabela(arquivoLog, .tabDetalhes) if (flgLinhaCmd) { set codSeq = "" for { set codSeq = $order(tabDetalhes(codSeq)) if (codSeq = "") quit write !,$get(tabDetalhes(codSeq)) } } // Verifica se o wildfly esta no ar set sc = 0, tentativas = 0 while (sc '= 1) && (+$get(tentativas) < 10) { set tentativas = $increment(tentativas) if (flgLinhaCmd) write !,"Conectando no Serviço Consistem... "_tentativas set sc = ##class(Src2.WildFly).ControllTest() } if (sc = 1) { if (flgLinhaCmd) write !!,##class(Src2.Utils).ObterBarra("Criando DataSources") for { set namespace = $order(^%CSW1ATUCONF(4,$get(namespace))) if (namespace="") quit set flagconf=$piece($get(^%CSW1ATUCONF(4,namespace)),"^",1) if (flagconf = "%sys") continue if (flagconf = "sem_procedimento") continue if (flagconf = "sistemas") continue set sc = ##class(Src2.WildFly).RemoveDS($zconvert(namespace_"ds","U"),arquivoLog) set sc = ##class(Src2.WildFly).CreateDS($zconvert(namespace_"ds","U"),namespace,"","","",arquivoLog) set sc = ##class(Src2.Utils2).ConverteArquivoTabela(arquivoLog, .tabDetalhes) if (flgLinhaCmd) { set codSeq = "" for { set codSeq = $order(tabDetalhes(codSeq)) if (codSeq = "") quit write !,$get(tabDetalhes(codSeq)) } } } } else { if (flgLinhaCmd) write !,"Erro ao conectar no Serviço Consistem!" } if (sc = 0) { set sc = ##class(Src2.PatchUtils).GerarLogOK(codAtualizacao, 8, "Instação do arquivo consistem_server.rpm (versão: "_versao_")", .tabDetalhes) } else { set sc = ##class(Src2.PatchUtils).GerarLogErro(codAtualizacao, 8, "Instação do arquivo consistem_server.rpm (versão: "_versao_")", .tabDetalhes) } quit $$$OK ]]> Gera o Arquivo de Instalação para Linux set sc=##class(Src2.PatchUtils2).GerarArquivoInstalacaoLinux("/usr/tmp/install.sh", "/usr/tmp/consistem_server.rpm", "CC","/usr/tmp", "/consistem", "ccscache") 1 arquivoInstall:%String,arquivoRpm:%String,codConta:%String,caminhoTemp:%String,consistemHome:%String,senhaSystem:%String="" %String &2") set sc = objFile.WriteLine(" exit 1") set sc = objFile.WriteLine("fi") set sc = objFile.WriteLine("stopProcess(){") set sc = objFile.WriteLine(" cont=0") set sc = objFile.WriteLine(" pid=$(ps aux | grep consistem/webservice | awk 'NR==1{print $2}' )") set sc = objFile.WriteLine(" service consistem stop > /dev/null 2>&1") set sc = objFile.WriteLine(" while [ -f /proc/$pid/exe ]; do") set sc = objFile.WriteLine(" cont=$((cont+1))") set sc = objFile.WriteLine(" if [ $cont -gt 30 ]; then") set sc = objFile.WriteLine(" /opt/jboss/httpd/sbin/apachectl stop > /dev/null 2>&1") set sc = objFile.WriteLine(" kill -9 $pid > /dev/null 2>&1") set sc = objFile.WriteLine(" fi") set sc = objFile.WriteLine(" sleep 1; ") set sc = objFile.WriteLine(" done") set sc = objFile.WriteLine("}") set sc = objFile.WriteLine("installRpm(){") set sc = objFile.WriteLine(" rpm -e --allmatches consistem_server > /dev/null 2>&1") set sc = objFile.WriteLine(" rpm -ivh --nodeps --replacepkgs --replacefiles $arquivo_rpm") set sc = objFile.WriteLine("}") set sc = objFile.WriteLine("removerConsistem(){") set sc = objFile.WriteLine(" rm -rf $CONSISTEM_HOME > /dev/null 2>&1") set sc = objFile.WriteLine(" rm -rf /opt/jboss/httpd > /dev/null 2>&1") set sc = objFile.WriteLine(" mkdir $CONSISTEM_HOME") set sc = objFile.WriteLine(" chmod 775 $CONSISTEM_HOME") set sc = objFile.WriteLine("}") set tipoInstanciaSug = $piece($get(^%CSW1ATUCONF(2)),"^",7) if (tipoInstanciaSug = "") set tipoInstanciaSug = 1 set sc = objFile.WriteLine("configure(){") set sc = objFile.WriteLine(" cls=org.picketbox.datasource.security.SecureIdentityLoginModule") set sc = objFile.WriteLine(" JAVA_HOME=$CONSISTEM_HOME/java") set sc = objFile.WriteLine(" PICKET_HOME=$CONSISTEM_HOME/webservice/modules/system/layers/base/org/picketbox/main") set sc = objFile.WriteLine(" password=`$JAVA_HOME/bin/java -cp $PICKET_HOME/picketbox-4.0.21.Final.jar:$CLASSPATH $cls $senha|awk -F"": "" '{print $2}'`") set sc = objFile.WriteLine(" echo ""export CONSISTEM_NAMESPACE=$namespace"" >> /etc/profile.d/consistem_profile.sh") set sc = objFile.WriteLine(" echo ""export CONSISTEM_PASSWORD=$password"" >> /etc/profile.d/consistem_profile.sh") if (tipoInstanciaSug = 1) { set sc = objFile.WriteLine(" echo ""export CONSISTEM_SERVER02=false"" >> /etc/profile.d/consistem_profile.sh") set sc = objFile.WriteLine(" echo ""export CONSISTEM_SERVER03=false"" >> /etc/profile.d/consistem_profile.sh") set sc = objFile.WriteLine(" echo ""export CONSISTEM_SERVER04=false"" >> /etc/profile.d/consistem_profile.sh") } if (tipoInstanciaSug = 2) { set sc = objFile.WriteLine(" echo ""export CONSISTEM_SERVER02=true"" >> /etc/profile.d/consistem_profile.sh") set sc = objFile.WriteLine(" echo ""export CONSISTEM_SERVER03=false"" >> /etc/profile.d/consistem_profile.sh") set sc = objFile.WriteLine(" echo ""export CONSISTEM_SERVER04=false"" >> /etc/profile.d/consistem_profile.sh") } if (tipoInstanciaSug = 3) { set sc = objFile.WriteLine(" echo ""export CONSISTEM_SERVER02=true"" >> /etc/profile.d/consistem_profile.sh") set sc = objFile.WriteLine(" echo ""export CONSISTEM_SERVER03=true"" >> /etc/profile.d/consistem_profile.sh") set sc = objFile.WriteLine(" echo ""export CONSISTEM_SERVER04=true"" >> /etc/profile.d/consistem_profile.sh") } set sc = objFile.WriteLine(" source /etc/profile") set sc = objFile.WriteLine(" chmod -R 775 $CONSISTEM_HOME/atualizacao $CONSISTEM_HOME/cswapp $CONSISTEM_HOME/lib") set sc = objFile.WriteLine(" chown -R cacheusr:cacheusr $CONSISTEM_HOME") set sc = objFile.WriteLine("}") set sc = objFile.WriteLine("backup(){") set sc = objFile.WriteLine(" f0=$CONSISTEM_HOME/lib/"_pastaComponentes_"/consistem_geral_interno.jar") set sc = objFile.WriteLine(" f1=$CONSISTEM_HOME/lib/"_pastaComponentes_"/consistem_geral.jar") set sc = objFile.WriteLine(" f2="_arqServerProducao) set sc = objFile.WriteLine(" f3="_arqSerasaHttp) set sc = objFile.WriteLine(" f4=$CONSISTEM_HOME/lib/relatorios") set sc = objFile.WriteLine(" f5=$CONSISTEM_HOME/cswapp") set sc = objFile.WriteLine(" rm -rf $CONSISTEM_HOME/cswapp/consistem_webapp.war") set sc = objFile.WriteLine(" mkdir -p $folderbackp") set sc = objFile.WriteLine(" [ -f ""$f0"" ] && cp $f0 $folderbackp/.") set sc = objFile.WriteLine(" [ -f ""$f1"" ] && cp $f1 $folderbackp/.") set sc = objFile.WriteLine(" [ -f ""$f2"" ] && cp $f2 $folderbackp/.") set sc = objFile.WriteLine(" [ -f ""$f3"" ] && cp $f3 $folderbackp/.") set sc = objFile.WriteLine(" [ -d ""$f4"" ] && cp -rf $f4 $folderbackp/relatorios") set sc = objFile.WriteLine(" [ -d ""$f5"" ] && cp -rf $f5 $folderbackp/cswapp") set sc = objFile.WriteLine("}") set sc = objFile.WriteLine("restore(){") set sc = objFile.WriteLine(" f0=$folderbackp/consistem_geral_interno.jar") set sc = objFile.WriteLine(" f1=$folderbackp/consistem_geral.jar") set sc = objFile.WriteLine(" f2=$folderbackp/server_producao.keystore") set sc = objFile.WriteLine(" f3=$folderbackp/serasahttp.keystore") set sc = objFile.WriteLine(" f4=$folderbackp/relatorios") set sc = objFile.WriteLine(" f5=$folderbackp/cswapp") set sc = objFile.WriteLine(" [ -f ""$f0"" ] && cp $f0 $CONSISTEM_HOME/lib/componentes/.") set sc = objFile.WriteLine(" [ -f ""$f1"" ] && cp $f1 $CONSISTEM_HOME/lib/componentes/.") set sc = objFile.WriteLine(" mkdir -p $CONSISTEM_HOME/lib/keystores") set sc = objFile.WriteLine(" [ -f ""$f2"" ] && cp $f2 $CONSISTEM_HOME/lib/keystores/.") set sc = objFile.WriteLine(" [ -f ""$f3"" ] && cp $f3 $CONSISTEM_HOME/lib/keystores/.") set sc = objFile.WriteLine(" mkdir -p $CONSISTEM_HOME/lib/relatorios") set sc = objFile.WriteLine(" [ -d ""$f4"" ] && cp -rf $f4 $CONSISTEM_HOME/lib/.") set sc = objFile.WriteLine(" [ -d ""$f5"" ] && cp -rf $f5/* $CONSISTEM_HOME/cswapp/.") set sc = objFile.WriteLine("}") set sc = objFile.WriteLine("folderbackp="_caminhoTemp) set sc = objFile.WriteLine("backup") set sc = objFile.WriteLine("namespace="_$znspace) set sc = objFile.WriteLine("senha="_senhaSystem) set sc = objFile.WriteLine("arquivo_rpm="_arquivoRpm) set sc = objFile.WriteLine("stopProcess") set sc = objFile.WriteLine("removerConsistem") set sc = objFile.WriteLine("installRpm") set sc = objFile.WriteLine("restore") set sc = objFile.WriteLine("configure") set sc = objFile.WriteLine("service consistem start") do objFile.Close() set objFile = "" do $zf(-1,"chmod 775 "_arquivoInstall) quit $$$OK ]]> Validar configuraçõs de hostname no linux set sc = ##class(Src2.PatchUtils2).VerificarHostnameLinux() 1 /dev/null 2>&1" set sc = $zf(-1,command) quit:sc'=0 $$$ERROR(1000,"Não foi possível conectar via localhost") set command = "ping `hostname` -c 1 > /dev/null 2>&1" set sc = $zf(-1,command) quit:sc'=0 $$$ERROR(1000,"Não foi possível conectar via hostname do servidor") quit $$$OK ]]> Elimina o Log das Atualizações Anteriores aos Últimos 6 Meses set sc = ##class(Src2.PatchUtils2).EliminarLogsAtualizacao() 1 dias:%String=180 %Status ($horolog - dias)) continue set fixa = "" for { set fixa = $order(^%CSW1ATULOG(1,codAtualizacao,fixa)) if (fixa = "") quit kill ^%CSW1ATULOG(1,codAtualizacao,fixa) } set $piece(^%CSW1ATULOG(1),"^",1) = codAtualizacao } quit $$$OK ]]> Elimina os Backups das Atualizações Anteriores aos Últimos 3 Meses set sc = ##class(Src2.PatchUtils2).EliminarBackupsAtualizacao() 1 dias:%String=90 %Status ($horolog - dias)) continue set sc = ##class(%File).RemoveDirectoryTree(caminhoBackup_barra_patch) } do rs.%Close() quit $$$OK ]]> 1 %Persistent 62990,63329.588309 Carregar Menus Sistemas - Task set sc = ##class(Src2.Programa).CarregarMenusSistemaTask() 1 %Status Carregar Menus Sistemas 1 urlRepositorioInf:%Status,username:%String="",password:%String="" %Status persistent _SYSTEM 1 Src2DadosProgramasStorage %Persistent 62991,29376.121664 Jéssy Junior Gomes Lucas Utilitários Svn Programa Programas Menu 1 Versão %Integer 1 Programa %String 1 Sistema %String 1 Programa com Cobertura pela Equipe de Testes %Integer 1 Programa com Documentação %Integer 1 %CacheSQLStorage ^Src2.ProgramaProgSisS 100000 data ^Src2DadosProgramas {codVersao} 2 {codPrograma} 1 {codSistema} "^" 2 "^" 1 1 1 codVersao,codSistema,codPrograma persistent _SYSTEM 1 Src2DadosProgramasNewStorage %Persistent 62991,29307.284241 Jéssy Junior Gomes Lucas Utilitários Svn Programa Programas Menu 1 Versão %Integer 1 Sistema %String 1 Programa %String 1 1 1 codVersao,codSistema,codPrograma %CacheSQLStorage ^Src2.ProgramaSisProgS 100000 data ^Src2DadosProgramas {codVersao} 1 {codSistema} 1 {codPrograma} 1 %RegisteredObject 62402,71836.774312 Obter Rotinas do Sistema set sc = ##class(Src2.Rotina).ObterRotinasSistema("csw", .tabItens) 1 %String Validar Rotina set sc = ##class(Src2.Rotina).ValidarRotina("CCEVB9*.mac", .expressaoEdt, .qtdItens, .tabItens) set sc = ##class(Src2.Rotina).ValidarRotina("CCEVA300.mac", .expressaoEdt, .qtdItens, .tabItens) 1 %String Obter Rotinas do Projeto set sc = ##class(Src2.Rotina).ObterRotinasProjeto("csw.rotinas", .expressaoEdt, .qtdItens, .tabItens) set sc = ##class(Src2.Rotina).ObterRotinasProjeto("cswutil.rotinas", .expressaoEdt, .qtdItens, .tabItens) 1 %Status Exporta uma rotina para um arquivo texto com a extensão .mac 1 rotina:%String,arquivoRotina:%String,flgSubversion:%Boolean=1,username:%String="",password:%String="",flgLog:%Boolean=0 %String "_arquivoRotina_" | Não foi possível criar o diretório "_pastaArquivo) } quit "Não foi possível criar o diretório "_pastaArquivo_"!" } set objFile = ##class(%File).%New(arquivoRotina) do objFile.Open("WN:/IOTABLE=""UTF8""") if ('objFile.IsOpen) { set objFile = "" if (flgLog) { set sc = ##class(Src2.Utils).GeraLog(2, "Exportação de Rotina | "_rotina_" => "_arquivoRotina_" | Não foi possível abrir o arquivo") } quit "Não foi possível abrir o arquivo "_arquivoRotina_" para exportar a rotina "_rotina_"!" } set nrLinhas = $get(^rMAC(rotina,0,0)) set sc = $$$OK for lin = 1:1:nrLinhas { set sc = objFile.Write($get(^rMAC(rotina,0,lin))_$char(10)) if (sc '= 1) quit } do objFile.Close() set objFile = "" if (flgSubversion) { if (adicionar) { set sc = ##class(Src2.Utils).Subversion(caminhoSvn, "add "_arquivoRotina, username, password) if (permissao) { do $zf(-1,"chmod -R 777 "_pastaArquivo) } } if (permissao) { do $zf(-1,"chmod 777 "_arquivoRotina) } } if (sc '= $$$OK) { if (flgLog) { set sc = ##class(Src2.Utils).GeraLog(2, "Exportação de Rotina | "_rotina_" => "_arquivoRotina_" | Erro ao gravar o arquivo") } quit "Erro ao exportar a rotina "_rotina_" para o arquivo "_arquivoRotina_"!" } if (flgLog) { set sc = ##class(Src2.Utils).GeraLog(1, "Exportação de Rotina | "_rotina_" => "_arquivoRotina) } quit $$$OK ]]> Cria uma Rotina a Partir de um Arquivo strOpcoes = csp - Gera página CSP todo - Validar TODOs nas rotinas workspace - Atualizar Workspace tabErros = Em fixas conforme lista abaixo 1 - Outros erros 2 - Erro de compilação da rotina 3 - Erro na geração da página csp 4 - TODOs pendentes de implementação tabOK = 1 - Importou 2 - Compilou 3 - Gerou CSP 4 - Sem TODOs set sc = ##class(Src2.Rotina).GerarRotinaArquivo("C:\workspacecsw\projetos\6.1\csw61\rotinas\CCCCA\CCCCA000.mac", "CCCCA000", "csp;todo;workspace", .tabErros, .tabOK) set sc = ##class(Src2.Rotina).GerarRotinaArquivo("C:\workspacecsw\temp\rotina2.mac", "CCEVA300", "csp;todo;workspace", .tabErros, .tabOK) 1 %String "_rotina_" | "_msgsc) } quit msgsc } } if ('$data(tabRotina)) { if (flgLog) { set sc = ##class(Src2.Utils).GeraLog(2, "Importação de Rotina | "_arquivoRotina_" => "_rotina_" | Dados para geração da rotina "_rotina_" não encontrados") } quit "Dados para geração da rotina "_rotina_" não encontrados" } set objRotina = ##class(%Routine).%New(rotina_".MAC") set nrLinhas = $order(tabRotina(""),-1) for linha = 1:1:(nrLinhas-1) { do objRotina.WriteLine($get(tabRotina(linha))) } do objRotina.Write($get(tabRotina(nrLinhas))) do objRotina.Save() set tabOK(1) = "" // Compila a rotina set sc = objRotina.Compile("k-d") set msgError = $$$OK set objRotina = "" if (sc '= 1) { set sc = ##class(Src2.Utils).ObterTabErrosCompilacaoRotina(sc, .tabErros2) set msgError = "Erro ao compilar a rotina "_rotina merge tabErros(2) = tabErros2 } else { set tabOK(2) = "" } // Gera a página CSP da rotina if ('$data(tabErros)) & ($data(tabOpcoes("csp"))) { set msgsc = ##class(Src2.Rotina).GerarPaginaCSP(rotina, .tabErros2) if (msgsc '= 1) { set msgError = msgsc merge tabErros(3) = tabErros2 } else { set tabOK(3) = "" } } // Verificar TODOs não implementados if ($data(tabOpcoes("todo"))) { set msgsc = ##class(Src2.SourceCheck).ObterTODOs(rotina, .tabErros2) if (msgsc '= 1) { merge tabErros(4) = tabErros2 if (msgError = "") { set msgError = msgsc } } else { set tabOK(4) = "" } } if ($data(tabOpcoes("workspace"))) { set msgsc = ##class(Src2.Item).ExportarItemArquivo(rotina_".mac", flgSubversion, username, password) if (msgsc '= 1) { if (msgError = "") { set msgError = msgsc } } else { set tabOK(5) = "" } } if (msgError '= $$$OK) { if (flgLog) { set sc = ##class(Src2.Utils).GeraLog(2, "Importação de Rotina | "_arquivoRotina_" => "_rotina_" | "_msgError) } quit msgError } if (flgLog) { set sc = ##class(Src2.Utils).GeraLog(1, "Importação de Rotina | "_arquivoRotina_" => "_rotina) } quit $$$OK ]]> Obtem uma Tabela com o Fonte de uma Rotina a Partir de um Arquivo set sc = ##class(Src2.Rotina).ObterTabRotinaArquivo("C:\workspacecsw\temp\rotina.txt", .tabRotina) set sc = ##class(Src2.Rotina).ObterTabRotinaArquivo("C:\workspacecsw\temp\rotina2.mac", .tabRotina) 1 %String Gerar a Pagina CSP de uma Rotina 1 %String Exclui uma Rotina flag = 0 - Mata (MAC / INT / OBJ) - Opção Padrão 1 - Mata (MAC) 2 - Mata (MAC / INT) 1 %String Compara uma Rotina com um Arquivo 1 %String Obter Dados Rotina set sc = ##class(Src2.Rotina).ObterDadosRotina("CCEVA621", .rotPastaCopiaTrabalho, .rotinaCopiaTrabalho, .rotPastaRepositorio, .rotinaRepositorio, .descricao, .extensao, .InternalName, .pasta, .projeto, .versaoRelacionada) set sc = ##class(Src2.Rotina).ObterDadosRotina("%CSMEN045", .rotPastaCopiaTrabalho, .rotinaCopiaTrabalho, .rotPastaRepositorio, .rotinaRepositorio, .descricao, .extensao, .InternalName, .pasta, .projeto, .versaoRelacionada) set sc = ##class(Src2.Rotina).ObterDadosRotina("GCCOTCP020", .rotPastaCopiaTrabalho, .rotinaCopiaTrabalho, .rotPastaRepositorio, .rotinaRepositorio, .descricao, .extensao, .InternalName, .pasta, .projeto, .versaoRelacionada) 1 %String Obtem Informações de uma Rotina Entrada rotina = "CCEVA662" Saidas rotinaId = "CCEVA\CCEVA662.mac" ou "CCEVA/CCEVA662.mac" pasta = "CCEVA" InternalName = "CCEVA662.mac" set sc = ##class(Src2.Rotina).ObterInfoRotina("CCEVA662", .rotinaId, .pasta, .InternalName, .descricao, .sigla, .situacao, .projeto, .extensao, .versaoRelacionada) set sc = ##class(Src2.Rotina).ObterInfoRotina("%CSMEN100", .rotinaId, .pasta, .InternalName, .descricao, .sigla, .situacao, .projeto, .extensao, .versaoRelacionada) 1 %String Obtem Informações de um rotinaId Entrada rotinaId = "CCEVA\CCEVA662.mac" ou "CCEVA/CCEVA662.mac" Saidas rotina = "CCEVA662" pasta = "CCEVA" InternalName = "CCEVA662.MAC" set sc = ##class(Src2.Rotina).ObterInfoRotinaId("CCEVA\CCEVA662.mac", .rotina, .pasta, .InternalName, .sys, .package) set sc = ##class(Src2.Rotina).ObterInfoRotinaId("_CSMEN\_CSMEN100.mac", .rotina, .pasta, .InternalName, .sys, .package) set sc = ##class(Src2.Rotina).ObterInfoRotinaId("_CS/_CSMEN000.mac", .rotina, .pasta, .InternalName, .sys, .package) set sc = ##class(Src2.Rotina).ObterInfoRotinaId("CCPME660.mac", .rotina, .pasta, .InternalName, .sys, .package) 1 %String Obtem Informações de um rotinaId 2 set sc = ##class(Src2.Rotina).ObterInfoRotinaId2("CCEVA\CCEVA662.mac", "http://192.168.15.10:18080/svn/cswutil/branches/6.2", "C:\workspacecsw\projetos\6.2\csw62", .rotPastaCopiaTrabalho, .rotinaCopiaTrabalho, .rotPastaRepositorio, .rotinaRepositorio) set sc = ##class(Src2.Rotina).ObterInfoRotinaId2("_CSMEN\_CSMEN100.mac", "http://192.168.15.10:18080/svn/cswutil/branches/6.2", "C:\workspacecsw\projetos\6.2\csw62", .rotPastaCopiaTrabalho, .rotinaCopiaTrabalho, .rotPastaRepositorio, .rotinaRepositorio) set sc = ##class(Src2.Rotina).ObterInfoRotinaId2("_CS/_CSMEN000.mac", "http://192.168.15.10:18080/svn/cswutil/branches/6.2", "C:\workspacecsw\projetos\6.2\csw62", .rotPastaCopiaTrabalho, .rotinaCopiaTrabalho, .rotPastaRepositorio, .rotinaRepositorio) 1 %String Importa Rotinas a Partir de Arquivos 1 codTerm:%String,strOpcoes:%String="",flgLog:%Boolean=0 %String Compara/Acerta as Rotinas do Workspace para o Cache 1 codTerm:%String,flgAcertar:%Boolean=0,strOpcoes:%String="",flgLog:%Boolean=0,grupoItensSel:%String="" %String Verifica se Uma Rotina Tem Controle de Fonte write ##class(Src2.Rotina).ValidarRotinaControleFonte("CCTCR075") write ##class(Src2.Rotina).ValidarRotinaControleFonte("CCTCR075") write ##class(Src2.Rotina).ValidarRotinaControleFonte("XXTCR075") write ##class(Src2.Rotina).ValidarRotinaControleFonte("CCTCzzz") write ##class(Src2.Rotina).ValidarRotinaControleFonte("zz") 1 rotina:%String %Boolean 1 rotina:%String %String Valida se a Rotina está Ativa 1 rotina:%String %String ") quit "Rotina "_rotina_" inativa!" quit $$$OK ]]> Valida se a Rotina é de Manutenção de Base set sc = ##class(Src2.Rotina).ValidarRotinaManutBase("CCTCPRG001") 1 rotina:%String %Status Faz Pesquisa de Expressões em Rotinas rotinas = String ou tabela de rotinas expressoes = String ou tabela de expressões arquivo = Arquivo de saída caseSensitive = Compara Maiusculo/Minusculo 0 - Não (Padrão) 1 - Sim linhaComentada = Linha comentada 0 - Desconsidera (Padrão) 1 - Considera rotinaManut = Rotina de Manutenção (QG/MB/RB) 0 - Desconsidera (Padrão) 1 - Considera rotinaInativa = Rotina Inativa 0 - Desconsidera (Padrão) 1 - Considera set sc = ##class(Src2.Rotina).PesquisarRotinas(rotinas As %String, expressoes As %String, arquivo As %String, caseSensitive As %Boolean, linhaComentada As %Boolean, rotinaManut As %Boolean) set sc = ##class(Src2.Rotina).PesquisarRotinas("CCTCP7*;CCTCR075*","CODENG;CODTAG","/usr/tmp/ederson/teste.txt") set sc = ##class(Src2.Rotina).PesquisarRotinas("CCTCP*","Reestrutura base para roteiros padroes?","/usr/tmp/ederson/teste.txt", 1, 1, 1) set tabRot("CCTCR*")="",tabRot("CCCGI*")="" set tabExp("CODPRO")="",tabExp("CODITE")="" set sc = ##class(Src2.Rotina).PesquisarRotinas(.tabRot,.tabExp,"/usr/tmp/ederson/teste.txt") set tabExp("CCTCP024RG","CODPRO")="" set tabExp("ExcluirControleSaidaIrregular")="" set sc = ##class(Src2.Rotina).PesquisarRotinas("CCTCP020",.tabExp,"/usr/tmp/ederson/teste.txt") 1 rotinas:%String="",expressoes:%String="",arquivo:%String,caseSensitive:%Boolean=0,linhaComentada:%Boolean=0,rotinaManut:%Boolean=0,rotinaInativa:%Boolean=0,semExpressoes:%String="" %Status set sc = ##class(Src2.Rotina).ObterInforRotina("CCTCP020", .tipoRotCsp, .chamada, .intAux, .flgRegra) set sc = ##class(Src2.Rotina).ObterInforRotina("CCTCP601", .tipoRotCsp, .chamada, .intAux, .flgRegra) set sc = ##class(Src2.Rotina).ObterInforRotina("CCTCPRG001", .tipoRotCsp, .chamada, .intAux, .flgRegra) set sc = ##class(Src2.Rotina).ObterInforRotina("CCUTIRG004A", .tipoRotCsp, .chamada, .intAux, .flgRegra) set sc = ##class(Src2.Rotina).ObterInforRotina("CCTDTE005TAB4RG", .tipoRotCsp, .chamada, .intAux, .flgRegra) set sc = ##class(Src2.Rotina).ObterInforRotina("CCGGB299", .tipoRotCsp, .chamada, .intAux, .flgRegra) 1 rotina:%String,tipoRotCsp:%String,chamada:%String,intAux:%String,flgRegra:%Boolean %String ") set flgRegra = 1 if ($get(^rMAC(rotina,0,1)) [ "") set flgRegra = 0 quit $$$OK ]]> set sc = ##class(Src2.Rotina).ObterInforRotina2("CCTCP020", .tipoRotCsp) set sc = ##class(Src2.Rotina).ObterInforRotina2("CCTCP601", .tipoRotCsp) set sc = ##class(Src2.Rotina).ObterInforRotina2("CCTCPRG001", .tipoRotCsp) set sc = ##class(Src2.Rotina).ObterInforRotina2("CCUTIRG004A", .tipoRotCsp) set sc = ##class(Src2.Rotina).ObterInforRotina2("CCTDTE005TAB4RG", .tipoRotCsp) set sc = ##class(Src2.Rotina).ObterInforRotina2("CCGGB299", .tipoRotCsp) set sc = ##class(Src2.Rotina).ObterInforRotina2("CCTCORB98", .tipoRotCsp) 1 rotina:%String,tipoRotCsp:%String %String Validar Rotina Liberada para Geração de Patch write ##class(Src2.Rotina).ValidarRotinaLiberadaPatch("CCTCP020") write ##class(Src2.Rotina).ValidarRotinaLiberadaPatch("CCTCP020RG") write ##class(Src2.Rotina).ValidarRotinaLiberadaPatch("CCTCP601") write ##class(Src2.Rotina).ValidarRotinaLiberadaPatch("CCTCPRG001") write ##class(Src2.Rotina).ValidarRotinaLiberadaPatch("CCUTIRG004A") write ##class(Src2.Rotina).ValidarRotinaLiberadaPatch("CCTDTE005TAB4RG") write ##class(Src2.Rotina).ValidarRotinaLiberadaPatch("CCGGB299") write ##class(Src2.Rotina).ValidarRotinaLiberadaPatch("CCCGI930") write ##class(Src2.Rotina).ValidarRotinaLiberadaPatch("CCCGI960A") write ##class(Src2.Rotina).ValidarRotinaLiberadaPatch("CCGGB298A") write ##class(Src2.Rotina).ValidarRotinaLiberadaPatch("CCGGB299A2") 1 rotina:%String %Boolean 289) & (var < 300) set flgLib = 1 if (var > 899) & (var < 1000) set flgLib = 1 } if (flgLib) quit $$$OK // Validar Rotina Regra set codSeq = "" for { set codSeq = $order(tabAlf(codSeq)) if (codSeq = "") quit set var = $get(tabAlf(codSeq)) if ($extract(var,$length(var)-1,$length(var)) = "RG") set flgLib = 2 } if (flgLib) quit $$$OK quit $$$ERROR(10000,"Rotina "_rotina_" bloqueada!") ]]> 1 %RegisteredObject 61727,0 Atualiza o Menu CSW/Configurações em um Namespace de Base set sc = ##class(Src2.ServidorLinux).AtualizarMenuConfig("DESENVAK64") 1 namespace:%String="",conta:%String="",flgDataSource:%Boolean=1 %Status Gera a Global ^%CSMENCF - Para namespace de base OBS: Chamar a partir do namespace de desenvolvimento (DESENV61/DESENV62/...) Passar por parametro o namespace de base set sc = ##class(Src2.Utils).GerarCSMENCFBase("DESENVDA61", "DA") 1 namespace:%String,conta:%String %String Importa o Arquivo diversos.xml OBS: Chamar a partir do namespace de desenvolvimento (DESENV61/DESENV62/...) set sc = ##class(Src2.Utils).ImportarArquivoDiversosXml("cswutil62") 1 namespace:%String="",username:%String="",password:%String="" %String 1 %Studio.SourceControl.Base 61727,0 Called before the compile of the item is done. InternalName:%String %Status 2) quit $$$OK set ^%CSW1CSPGEN($piece(InternalName,".",1))="" } quit $$$OK ]]> Return information about this entity. %Status 1 %RegisteredObject 61727,0 Ederson E. Jantsch Utilitários Controle de Código Fonte Controle de Código Fonte - Standard-checkers 1 set sc = ##class(Src2.SourceCheck).ValidarPadroes("XXEJCCESA020") set sc = ##class(Src2.SourceCheck).ValidarPadroes("CCTCPRG003") set sc = ##class(Src2.SourceCheck).ValidarPadroes("CCTCP055",,1) set sc = ##class(Src2.SourceCheck).ValidarPadroes("CCTCP030") set sc = ##class(Src2.SourceCheck).ValidarPadroes("CCEVB607") set sc = ##class(Src2.SourceCheck).ValidarPadroes("CCTCO130") set sc = ##class(Src2.SourceCheck).ValidarPadroes("CCESCT000TAB2") nivel = 1 - Label de Retorno / quit:$$CSP^%CSW1UTI / News CSW / Nome Rotina / Macro com Componentes / Linha em Branco 2 - {nivel 1} / Atalhos / Break / Rotina zzz / Label Obrigatório / Expandir Comandos / Parametro Obrigatorio / Col. Grid Editavel 3 - {nivel 1 e 2} / Mensagens / News / Tamanho Tela / New Regra / Goto em Regra / ^%ZS 4 - {nivel 1, 2 e 3} / TODO 1 rotina:%String,arquivo:%String="",nivel:%String=4 %String ") continue set sc = ##class(Src2.SourceCheck).ValidarChamadas(rotina, lin, linha, .tabLabelsRet, .tabChamadas, .tabGrid) set sc = ##class(Src2.SourceCheck).ValidarBreak(lin, linha, linhaUper) set sc = ##class(Src2.SourceCheck).ValidarParametros(lin, linha, .tabAtalhoCSUTIOP, .varRetCSUTIOP, .tabLabels) if ('flgRegra) { if (linha [ "^%CSUTI") { set sc = ##class(Src2.SourceCheck).ValidarParamUtilit(lin, linha, .tabMsgInvalida, .tabAtalho, .varRetCSUTIOP) } set sc = ##class(Src2.SourceCheck).LerCSLE(lin, linha, .tabCSLE) set sc = ##class(Src2.SourceCheck).LerSetCSW1UTI(lin, linha, .tabSetCSW1UTI) } if (flgRegra) { set sc = ##class(Src2.SourceCheck).ValidarInterfaceRegra(lin, linha) } if ('flagLerNewsEnc) { set sc = ##class(Src2.SourceCheck).LerNews(lin, linha, .flagLerNewsEnc) } } set sc = ##class(Src2.SourceCheck).ValidarNomeRotina(rotina) if (tipoRot = "gerar") ! (chamada = "Show") ! (chamada = "Ex") ! (intAux) { if ($data(tabValida("103-newcsw"))) { set sc = ##class(Src2.SourceCheck).ValidaNews() } } if (tipoRot = "gerar") ! (chamada = "Show") ! (chamada = "Ex") ! (intAux) ! (tipoRot = "rotina299") { if ($data(tabValida("101-labelRet"))) { set sc = ##class(Src2.SourceCheck).ValidarLabelsRetorno(.tabLabels, .tabLabelsRet) } if ($data(tabValida("102-quitCsp"))) { set sc = ##class(Src2.SourceCheck).ValidarQuitChamadas(rotina, .tabChamadas, .tabQuit, .tabLabels) } } if ($data(tabValida("110-mensagem"))) { set sc = ##class(Src2.SourceCheck).ValidarDisplaysValcps(.tabMsgInvalida, .tabCSLE, .tabDisplay) } if ($data(tabValida("105-atalho"))) { set sc = ##class(Src2.SourceCheck).ValidarAtalhos(.tabAtalho, .tabAtalhoCSUTIOP) } if ($data(tabValida("109-cslenumerico"))) { set sc = ##class(Src2.SourceCheck).ValidarCSLENumericos(.tabCSLE, .tabSetCSW1UTI) } if ($data(tabValida("119-assinGatilho"))) { if ('flgRegra) { set sc = ##class(Src2.SourceCheck).ValidarAssinGatilho(rotina, .tabLabels) } else { set sc = ##class(Src2.SourceCheck).ValidarAssinGatilhoRegra(rotina, .tabLabels) } } if ($data(tabValida("122-varCaracInval"))) { set sc = ##class(Src2.SourceCheck).ValidarCaracteresVariaveis() } if ($data(tabValida("104-newregra"))) { set sc = ##class(Src2.SourceCheck).ValidarNewRegra(rotina, .tabLabels) } if ($data(tabValida("117-labelTab"))) ! ($data(tabValida("121-labelCaracInval"))) { set sc = ##class(Src2.SourceCheck).ValidarTabLabel(rotina, .tabLabels) } if ($data(tabValida("202-new"))) { set sc = ##class(Src2.SourceCheck).ValidarNewVariaveis() } if ($data(tabValida("116-colGridEdit"))) { set sc = ##class(Src2.SourceCheck).ValidarColunaEditavelGrid(.tabCSLE, .tabGrid) } set sc = ##class(Src2.SourceCheck).MostrarMensagens(rotina, arquivo, .tabValida) kill ^mtempSoureCheck($job) kill ^mtempSoureMsg($job) kill ^mtempSoureEstrut($job) kill ^mtempSoureVar($job) kill ^mtempSoureParametros($job) kill ^mtempSoureRegra($job) kill ^mtempCSW1CSPTotais($job) quit $$$OK ]]> 1 lin:%String,linha:%String,linhaUper:%String %Status 1 tabAtalho:%String,tabAtalhoCSUTIOP:%String %Status 1 tabCSLE:%String,tabSetCSW1UTI:%String %Status 1 %Status 1 %Status 1 rotina:%String,tabLabels:%String %Status ") continue if $data(tabVar) { set sc = ##class(Src2.SourceCheck).GravarMensagem("104-newregra", lin, "Variaveis sem NEW - "_regra , ##class(Src2.Utils).ConvertTabStr(.tabVar,,",")) } } quit $$$OK ]]> 1 rotina:%String,tabLabels:%String %Status ") continue if ($extract(var,1,$length(label)+1) [ (label_"(")) { if ($piece(var,label_"(",2) '[ (")"_$char(9))) { set sc = ##class(Src2.SourceCheck).GravarMensagem("117-labelTab", lin, "Label sem TAB" , label) } } else { if ($piece(var,label,2) '[ ($char(9))) { set sc = ##class(Src2.SourceCheck).GravarMensagem("117-labelTab", lin, "Label sem TAB" , label) } } } quit $$$OK ]]> 1 rotina:%String,tabLabels:%String %Status 1 rotina:%String,tabLabels:%String %Status 1 tabCSLE:%String,tabGrid:%String %Status 1 rotina:%String %Status "_rotina) } quit $$$OK ]]> 1 rotina:%String,arquivo:%String,tabValida:%String %Status ") { set avisos = 0 } else { set avisos = 1 } set tipo = "" for { set tipo = $order(tabValida(tipo)) if (tipo = "") quit if ('$data(^mtempSoureMsg($job,tipo))) continue set tipo2 = $get(tabValida(tipo)) if ('avisos) , (tipo2 = 2) continue set tabSelValida(tipo) = "" } if ('$data(tabSelValida)) quit $$$OK if (arquivo '= "") { set % = $$WriteLine^%CSUTIIO(arquivo,"Rotina: "_rotina) } set (tipo, lin, codSeq) = "" for { set tipo = $order(tabSelValida(tipo),-1) if (tipo = "") quit set tipo2 = $get(tabValida(tipo)) set desTipo = $piece("ERRO;AVISO;TODO",";",tipo2) for { set lin = $order(^mtempSoureMsg($job,tipo,lin)) if (lin = "") quit for { set codSeq = $order(^mtempSoureMsg($job,tipo,lin,codSeq)) if (codSeq = "") quit set mensagem = rotina_".MAC("_lin_") : "_desTipo_" : "_$get(^mtempSoureMsg($job,tipo,lin,codSeq)) if (arquivo = "") { write !,mensagem } else { set % = $$WriteLine^%CSUTIIO(arquivo,mensagem) } set tabTipos(tipo2) = $get(tabTipos(tipo2)) + 1 } } } if ($piece($get(^mtempCSW1CSPTotais($job)),"^",2) > 0) { set tabTipos(4) = $piece($get(^mtempCSW1CSPTotais($job)),"^",2) } if ($piece($get(^mtempCSW1CSPTotais($job)),"^",1) > 0) { set tabTipos(5) = $piece($get(^mtempCSW1CSPTotais($job)),"^",1) } if $data(tabTipos) { set erros = +$get(tabTipos(1)) if (erros>5) set erros=5 set errosCsp = +$get(tabTipos(4)) if (errosCsp>5) set errosCsp=5 set msg = "ERROS CSP: "_$translate($justify("",errosCsp)," ","[")_(+$get(tabTipos(4)))_$translate($justify("",errosCsp)," ","]") set msg = msg_" / ERROS SRC: "_$translate($justify("",erros)," ","[")_(+$get(tabTipos(1)))_$translate($justify("",erros)," ","]") if (avisos) { set msg = msg_" / AVISOS SRC: "_(+$get(tabTipos(2))) } else { set msg = msg_" / AVISOS SRC: " } set msg = msg_" / AVISOS CSP: "_(+$get(tabTipos(5))) set msg = msg_" / TODO: "_(+$get(tabTipos(3))) if (arquivo = "") { write !,"Source Control - "_msg } else { set % = $$WriteLine^%CSUTIIO(arquivo,"Source Control - ERROS : "_+$get(tabTipos(1))) } } quit $$$OK ]]> 1 rotina:%String,lin:%String,linha:%String,tabLabelsRet:%String,tabChamadas:%String,tabGrid:%String %Status 1 rotina:%String,lin:%String,linha:%String,parametro:%String,tabPar:%String,tabLabelsRet:%String,tabChamadas:%String %Status 1 %Status 1 lin:%String,linha:%String,tabQuit:%String %Status 1 lin:%String,linha:%String,tabChamadas:%String %Status 1 lin:%String,linha:%String %Status 0) set ^mtempSoureEstrut($job,lin) = nivel quit $$$OK ]]> 1 rotina:%String,tabChamadas:%String,tabQuit:%String,tabLabels:%String %Status ") continue if ($data(tabQuit(linIniEstrut))) ! ($data(tabQuitTmp(linIniEstrut))) { kill tabQuit(linIniEstrut) set tabQuitTmp(linIniEstrut) = "" continue } set sc = ##class(Src2.SourceCheck).GravarMensagem("102-quitCsp", lin, "Chamada sem quit:$$CSP^%CSW1UTI", "Inserir um quit:$$CSP^%CSW1UTI na linha "_linIniEstrut_" : """_linha_"""") } // Valida o quit:$$CSP^%CSW1UTI das chamadas fora das estruturas set lin = "" for { set lin = $order(tabChamadas(lin)) if (lin = "") quit if ($data(^mtempSoureEstrut($job,lin))) continue set linIni = lin // Linha anterior a próxima chamada set linFim = $order(tabChamadas(lin)) if (linFim = "") set linFim = $order(tabQuit(""),-1) else set linFim = linFim - 1 // Linha anterior ao próximo label set linLabel = $order(tabLabels(2,lin)) - 1 if (linLabel '= -1) , (linLabel < linFim) { set linFim = linLabel } if (linFim = "") set linFim = $order(^rMAC(rotina,0,"LANG"),-1) set flgOk = 0 for cont = linIni:1:linFim { if $data(tabQuit(cont)) { set flgOk = 1 quit } } set linha = $get(tabChamadas(lin)) if (flgOk) ! (linha [ "") continue set sc = ##class(Src2.SourceCheck).GravarMensagem("102-quitCsp", lin, "Linha com chamada sem quit", """"_linha_"""") } quit $$$OK ]]> 1 lin:%String,linha:%String,tabCSLE:%String %Status 1 lin:%String,linha:%String,tabSetCSW1UTI:%String %Status 1 lin:%String,linha:%String %Status 1 rotina:%String,lin:%String,linha:%String,tabDisplay:%String,tabAtalho:%String,tabLabelsRet:%String %Status 108) ! ($piece(var,",",2) > 28) { set sc = ##class(Src2.SourceCheck).GravarMensagem("201-tela", lin, "A tela não pode ser maior que 108 x 28", "Atual: "_$piece(var,",",1)_" x "_$piece(var,",",2)) } } if (linha [ "//") quit $$$OK if (linha [ "csw:label:") { set var = $piece(linha,"csw:label:",2) set linDisplay = $piece(var,",",2) set descricao = $piece(var,",",4) if (descricao = "") ! (linDisplay = "") quit $$$OK set sc = ##class(Src2.SourceCheck).ValidarPalavras(lin, descricao) if (descricao [ "'") { set sc = ##class(Src2.SourceCheck).GravarMensagem("118-label", lin, "Label com apóstrofo", """"_descricao_"""") } set tabDisplay(linDisplay) = $get(tabDisplay(linDisplay)) + 1 set tabDisplay(linDisplay,descricao) = lin } if (linha [ "csw:btnManter:") { set var = $piece(linha,"csw:btnManter:",2) set ident = $piece(var,",",1) if (ident = "") set ident = "btnManter" set flgAtalho = $translate($piece(var,",",6)," ","") if ($piece(var,",",3) '= "") , ($piece($piece(var,",",3),"^",2) = "") { set $piece(var,",",3) = $piece(var,",",3)_"^"_rotina } if (flgAtalho '= 0) { set tabAtalho("btnManter","S",lin,ident,"Salvar") = "" } set sc = ##class(Src2.SourceCheck).GravarLabelRetorno(rotina, lin, linha, $piece(var,",",3), .tabLabelsRet) if ($piece(var,",",4) '= "") { if (flgAtalho '= 0) { set tabAtalho("btnManter","C",lin,ident,"Cancelar") = "" } set sc = ##class(Src2.SourceCheck).GravarLabelRetorno(rotina, lin, linha, $piece(var,",",4), .tabLabelsRet) } if ($piece(var,",",5) '= "") { if (flgAtalho '= 0) { set tabAtalho("btnManter","E",lin,ident,"Excluir") = "" } set sc = ##class(Src2.SourceCheck).GravarLabelRetorno(rotina, lin, linha, $piece(var,",",5), .tabLabelsRet) } } if (linha [ "csw:btnConsultar:") { set var = $piece(linha,"csw:btnConsultar:",2) set ident = $piece(var,",",1) if (ident = "") set ident = "btnConsultar" set flgAtalho = $translate($piece(var,",",5)," ","") if ($piece(var,",",3) '= "") { if (flgAtalho '= 0) { set tabAtalho("btnConsultar","O",lin,ident,"Consultar") = "" } set sc = ##class(Src2.SourceCheck).GravarLabelRetorno(rotina, lin, linha, $piece(var,",",3), .tabLabelsRet) } if ($piece(var,",",4) '= "") { if (flgAtalho '= 0) { set tabAtalho("btnConsultar","L",lin,ident,"Limpar") = "" } set sc = ##class(Src2.SourceCheck).GravarLabelRetorno(rotina, lin, linha, $piece(var,",",4), .tabLabelsRet) } } if (linha [ "csw:btnManut:") { set var = $piece(linha,"csw:btnManut:",2) set ident = $piece(var,",",6) if (ident = "") set ident = $piece(var,",",1) if (ident = "") set ident = "btnManut" set flgAtalho = $translate($piece(var,",",7)," ","") if ($piece(var,",",3) '= "") { if (flgAtalho '= 0) { set tabAtalho("btnManut","M",lin,ident,"Manutencao") = "" } set sc = ##class(Src2.SourceCheck).GravarLabelRetorno(rotina, lin, linha, $piece(var,",",3), .tabLabelsRet) } if ($piece(var,",",4) '= "") { if (flgAtalho '= 0) { set tabAtalho("btnManut","I",lin,ident,"Incluir") = "" } set sc = ##class(Src2.SourceCheck).GravarLabelRetorno(rotina, lin, linha, $piece(var,",",4), .tabLabelsRet) } if ($piece(var,",",5) '= "") { if (flgAtalho '= 0) { set tabAtalho("btnManut","R",lin,ident,"Remover") = "" } set sc = ##class(Src2.SourceCheck).GravarLabelRetorno(rotina, lin, linha, $piece(var,",",5), .tabLabelsRet) } } if (linha [ "csw:btnNavega:") { set var = $piece(linha,"csw:btnNavega:",2) set ident = $piece(var,",",6) if (ident = "") set ident = $piece(var,",",1) if (ident = "") set ident = "btnNavega" set flgAtalho = $translate($piece(var,",",5)," ","") if (flgAtalho '= 0) { set tabAtalho("btnNavega","A",lin,ident,"Anterior") = "" set tabAtalho("btnNavega","X",lin,ident,"Próximo") = "" if ($translate($piece(var,",",4)," ","") '= 2) { set tabAtalho("btnNavega","P",lin,ident,"Primeiro") = "" set tabAtalho("btnNavega","U",lin,ident,"Último") = "" } } set sc = ##class(Src2.SourceCheck).GravarLabelRetorno(rotina, lin, linha, $piece(var,",",3), .tabLabelsRet, 1) } if (linha [ "csw:botaoupload:") { set var = $piece(linha,"csw:botaoupload:",2) set sc = ##class(Src2.SourceCheck).GravarLabelRetorno(rotina, lin, linha, $piece(var,",",6), .tabLabelsRet, 1) set ident = $piece(var,",",1) if (ident = "") set ident = "botaoupload" set texto = $piece(var,",",4) set atalho = $piece(var,",",5) set sc = ##class(Src2.SourceCheck).ValidarAtalhoBotao(lin, texto, atalho) if (atalho '= "") , (texto '= "") { set tabAtalho("botao",atalho,lin,ident,texto) = "" } if ($piece(var,",",8) '= "") { set sc = ##class(Src2.SourceCheck).ValidarPalavras(lin, $piece(var,",",8)) } } if (linha [ "csw:botao:") { set var = $piece(linha,"csw:botao:",2) set sc = ##class(Src2.SourceCheck).GravarLabelRetorno(rotina, lin, linha, $piece(var,",",6), .tabLabelsRet) set ident = $piece(var,",",1) if (ident = "") set ident = "botao" set texto = $piece(var,",",4) set atalho = $piece(var,",",5) set sc = ##class(Src2.SourceCheck).ValidarAtalhoBotao(lin, texto, atalho) if (atalho '= "") , (texto '= "") { set tabAtalho("botao",atalho,lin,ident,texto) = "" } if ($piece(var,",",8) '= "") { set sc = ##class(Src2.SourceCheck).ValidarPalavras(lin, $piece(var,",",8)) } } quit $$$OK ]]> 1 lin:%String,texto:%String,atalho:%String %Status ") ! (texto [ "") { set u = "", u2 = "" } if (texto [ "") ! (texto [ "") { set u = "", u2 = "" } if (u = "") quit $$$OK set atalhoDisplay = $piece($piece(texto,u,2),u2,1) if (atalhoDisplay = "") ! (texto '[ u) ! (texto '[ u2) { set sc = ##class(Src2.SourceCheck).GravarMensagem("105-atalho", lin, "Atalho com problemas na definição do underline", texto) quit $$$OK } set texto2 = $piece(texto,u,1)_atalhoDisplay_$piece(texto,u2,2) if (atalhoDisplay '= "") , ($zconvert(atalho,"U") '= $zconvert(atalhoDisplay,"U")) { if (atalho = "") { set sc = ##class(Src2.SourceCheck).GravarMensagem("105-atalho", lin, "Atalho não definido", texto) } else { set sc = ##class(Src2.SourceCheck).GravarMensagem("105-atalho", lin, "Atalho definido diferente do atalho do display", texto_" - """_atalho_"""") } } set sc = ##class(Src2.SourceCheck).ValidarPalavras(lin, texto2) quit $$$OK ]]> 1 %Status ") quit $$$OK if $data(tabComandos("lock")) { set sc = ##class(Src2.SourceCheck).GravarMensagem("112-cmdinvalido", lin, "Comando inválido - lock", """"_linha_"""") } if $data(tabFuncCache("$io")) { set sc = ##class(Src2.SourceCheck).GravarMensagem("112-cmdinvalido", lin, "Função inválida - $io", """"_linha_"""") } if $data(tabFuncCache("$principal")) { set sc = ##class(Src2.SourceCheck).GravarMensagem("112-cmdinvalido", lin, "Função inválida - $principal", """"_linha_"""") } if $data(tabFuncCache("$job")) { set sc = ##class(Src2.SourceCheck).GravarMensagem("112-cmdinvalido", lin, "Função inválida - $job", """"_linha_"""") } if $data(tabFuncCache("$horolog")) { set sc = ##class(Src2.SourceCheck).GravarMensagem("112-cmdinvalido", lin, "Função inválida - $horolog ($$$horolog / $$$horologEmp(codEmpresa))", """"_linha_"""") } quit $$$OK ]]> 1 lin:%String,linha:%String,tabLabels:%String,flgRegra:%Boolean,flgExpandir:%Boolean %Status 1 tabLabels:%String,lin:%String,regra:%String %Status 1 rotina:%String,lin:%String,linha:%String,retorno:%String,tabLabelsRet:%String,flgParametro:%String=0 %Status 1 tabMsgInvalida:%String,tabCSLE:%String,tabDisplay:%String %Status 1 lin:%String,linha:%String,tabMsgInvalida:%String,tabAtalho:%String,varRetCSUTIOP:%String %Status 1 lin:%String,linha:%String,tabAtalhoCSUTIOP:%String,varRetCSUTIOP:%String,tabLabels:%String %Status 1 lin:%String,linha:%String,tabLabels:%String %Status "_$piece($get(tabLabels(2,linLabel)),"^",1)) } if (linha '[ ("$get("_$get(tabPar(1,2,1))_")=""""")) { set sc = ##class(Src2.SourceCheck).GravarMensagem("111-paramObrig", lin, "Variavel incorreta em $$ParamObrigatorio", "Variavel: "_$get(tabPar(1,2,1))) } quit $$$OK ]]> 1 lin:%String,texto:%String,tabAtalho:%String %Status :?,.;/|\" [ $extract(texto,cont)) continue set tabAtalho("^%CSUTIOP",$extract(texto,cont),lin,1,texto) = "" quit } quit $$$OK ]]> kill ^mtempSoureMsg($job) set sc = ##class(Src2.SourceCheck).ValidarPalavras(1, "pingo-de-mel") zw ^mtempSoureMsg($job) kill ^mtempSoureMsg($job) set sc = ##class(Src2.SourceCheck).ValidarPalavras(1, "1-teste") zw ^mtempSoureMsg($job) kill ^mtempSoureMsg($job) set sc = ##class(Src2.SourceCheck).ValidarPalavras(1, "1-téste") zw ^mtempSoureMsg($job) kill ^mtempSoureMsg($job) set sc = ##class(Src2.SourceCheck).ValidarPalavras(1, "2-3-pingo-de-mel") zw ^mtempSoureMsg($job) kill ^mtempSoureMsg($job) set sc = ##class(Src2.SourceCheck).ValidarPalavras(1, "pingo-de-mél") zw ^mtempSoureMsg($job) kill ^mtempSoureMsg($job) set sc = ##class(Src2.SourceCheck).ValidarPalavras(1, "1-10-23") zw ^mtempSoureMsg($job) kill ^mtempSoureMsg($job) set sc = ##class(Src2.SourceCheck).ValidarPalavras(1, "A qtd é 3 palavra. Teste 5,5 + 6.6 de sistema.Nec.") zw ^mtempSoureMsg($job) kill ^mtempSoureMsg($job) set sc = ##class(Src2.SourceCheck).ValidarPalavras(1, "A qtd.\né 3 palavra. Teste 5,5 6.6 de sistema. Nec.") zw ^mtempSoureMsg($job) 1 lin:%String,mensagem:%String %Status ^*+%"_$char(34)," ") for cont = 1:1:$length(mensagem2," ") { set expressao = $piece(mensagem2," ",cont) if (expressao = "") ! (expressao = "-") continue if (expressao [ "-") { for cont2 = 1:1:$length(expressao,"-") { if ($piece(expressao,"-",cont2) '?.N) quit } set expressao = $piece(expressao,"-",cont2,$length(expressao,"-")) } if (expressao ?.N) ! ($translate(expressao,".","") ?.N) continue set expressaoUper = $zconvert(expressao,"U") if ($data(^Src2Config("palavrasinv",expressaoUper))) { set sc = ##class(Src2.SourceCheck).GravarMensagem("110-mensagem", lin, "Palavra '"_expressao_"' inválida", """"_mensagem_"""") continue } if ($data(^Src2Config("palavras",expressaoUper))) ! ($data(^Src2Config("dicionario",expressaoUper))) continue if ($extract(expressaoUper,$length(expressaoUper)) = ".") set $extract(expressaoUper,$length(expressaoUper))="" if ($data(^Src2Config("palavras",expressaoUper))) ! ($data(^Src2Config("dicionario",expressaoUper))) continue set sc = ##class(Src2.SourceCheck).GravarMensagem("110-mensagem", lin, "Palavra '"_expressao_"' não encontrada no dicionário", """"_mensagem_"""") } quit $$$OK ]]> 1 tipo:%String,lin:%String,msg1:%String,msg2:%String %Status 1 tabLabels:%String,tabLabelsRet:%String %Status 1 lin:%String,linha:%String,tabLabels:%String %Status 1 linha:%String %Status 1 lin:%String,linha:%String,flagLerNewsEnc:%String %Status 240) { set sc = ##class(Src2.SourceCheck).GravarMensagem("103-newcsw", lin, "Linha muito grande" , var2) quit $$$OK } if (var2 = "") { set sc = ##class(Src2.SourceCheck).GravarMensagem("103-newcsw", lin, "'New^%CSW1UTI' sem conteúdo" , linha) quit $$$OK } set ^mtempSoureCheck($job,1,var2) = lin } } if ($extract(varUper,1,17) = "D NEWF7^%CSW1UTI(") ! ($extract(varUper,1,18) = "DO NEWF7^%CSW1UTI(") { set sc = ##class(Src2.SourceCheck).ObterParametros("NewF7^%CSW1UTI", var, .tabPar) set var2 = $get(tabPar(1,1,1)) if (var2 '= "") , (var2 '= "%VRM") { if ($length(var2) > 240) { set sc = ##class(Src2.SourceCheck).GravarMensagem("103-newcsw", lin, "Linha muito grande" , var2) quit $$$OK } if (var2 = "") { set sc = ##class(Src2.SourceCheck).GravarMensagem("103-newcsw", lin, "'New^%CSW1UTI' sem conteúdo" , linha) quit $$$OK } set ^mtempSoureCheck($job,1,var2) = lin } } if ($extract(varUper,1,2) = "N ") ! ($extract(varUper,1,4) = "NEW ") { set var2 = $piece(var," ",2) if ($length(var2) > 240) { set sc = ##class(Src2.SourceCheck).GravarMensagem("103-newcsw", lin, "Linha muito grande" , var2) quit $$$OK } if (var2 = "") quit $$$OK if ($data(^mtempSoureCheck($job,1,var2))) { kill ^mtempSoureCheck($job,1,var2) } else { set ^mtempSoureCheck($job,2,var2) = lin } } quit $$$OK ]]> 1 %Status set sc = ##class(Src2.SourceCheck).ObterParametros("SN^%CSUTIUD", $get(^rMAC("CCTCO215",0,41)), .tabPar) set sc = ##class(Src2.SourceCheck).ObterParametros("ME^%CSUTIUD", $get(^rMAC("CCFFB065",0,41)), .tabPar) 1 funcao:%String,string:%String,tabPars:%String %Status 0) { set tabPars(codSeq,contPar) = $get(tabPars(codSeq,contPar))_carac if (flgTexto) , (carac2 '= "") set tabPars(codSeq,contPar,contTexto) = $get(tabPars(codSeq,contPar,contTexto))_carac2 } } } quit $$$OK ]]> set sc = ##class(Src2.SourceCheck).ObterTODOs("CCTCP020", .tabTodos) 1 rotina:%String,tabTodos:%String %String %Library.CacheStorage ^Src2.SourceCheckD SourceCheckDefaultData ^Src2.SourceCheckD ^Src2.SourceCheckI ^Src2.SourceCheckS %%CLASSNAME 1 %RegisteredObject 62490,30881.885609 Validar Padroes de Desenvolvimetno de Classes set sc = ##class(Src2.SourceCheckClasse).ValidarPadroes("Teste.Classe2", "C:\workspacecsw\projetos\sourcecontrol10\classes\Teste\Classe2.xml") set sc = ##class(Src2.SourceCheckClasse).ValidarPadroes("Teste.Classe3", "C:\workspacecsw\projetos\sourcecontrol10\classes\Teste\Classe3.xml") set sc = ##class(Src2.SourceCheckClasse).ValidarPadroes("Teste.Classe4", "C:\workspacecsw\projetos\sourcecontrol10\classes\Teste\Classe4.xml") set sc = ##class(Src2.SourceCheckClasse).ValidarPadroes("Tco.ConfigFasesSugestaoMovGradeFichasPacotes", "C:\workspacecsw\projetos\6.1\csw61\classes\Tco\ConfigFasesSugestaoMovGradeFichasPacotes.xml") 1 classe:%String,arquivoClasse:%String %String 25) { write !,"Source Control - Tamanho do nome da classe não deve ter mais que 25 caracteres - Atual: "_tamanhoNomeClasse } set sc = ##class(%XML.TextReader).ParseFile(arquivoClasse,.reader) while (reader.Read()) { // Class if (reader.Path = "/Export/Class/Super") & (reader.NodeType = "chars") { set Super = reader.Value } if (reader.Path = "/Export/Class/ProcedureBlock") & (reader.NodeType = "chars") { set ProcedureBlock = reader.Value } if (reader.Path = "/Export/Class/ClassType") & (reader.NodeType = "element") { set ClassType = "" } if (reader.Path = "/Export/Class/ClassType") & (reader.NodeType = "chars") { set ClassType = reader.Value } // Property if (reader.Path = "/Export/Class/Property") & (reader.NodeType = "element") { set (nameProperty) = "" if reader.MoveToAttributeName("name") set nameProperty = reader.Value } if (reader.Path = "/Export/Class/Property/Type") & (reader.NodeType = "chars") { if (nameProperty '= "") { set tabProperty(nameProperty,"Type") = reader.Value } } if (reader.Path = "/Export/Class/Property/Parameter") & (reader.NodeType = "element") { set (nameParameter, valueParameter) = "" if reader.MoveToAttributeName("name") set nameParameter = reader.Value if reader.MoveToAttributeName("value") set valueParameter = reader.Value if (nameProperty '= ""), (nameParameter '= "") { set tabProperty(nameProperty,"Property",nameParameter) = valueParameter } } } set reader = "" if (Super = "%Persistent") { if ($get(ClassType) = "") { write !,"Source Control - Definir na classe - [ ClassType = persistent ]" } ;if ('$data(ClassType)) { ; write !,"Source Control - Definir na classe - [ ClassType = """" ]" ;} } if (ProcedureBlock = "") { write !,"Source Control - Definir na classe - [ ProcedureBlock ] ou [ Not ProcedureBlock ]" } set nameProperty = "" for { set nameProperty = $order(tabProperty(nameProperty)) if (nameProperty = "") quit if ($get(tabProperty(nameProperty,"Type")) = "%String") { if '$data(tabProperty(nameProperty,"Property","TRUNCATE")) { write !,"Source Control - Definir na propriedade '"_nameProperty_"' - (TRUNCATE = 1)" } } } quit $$$OK ]]> 1 %Studio.SourceControl.Base 61727,0 ]]> */ ]]> STRING 0000 %String Name:%String,Password:%String %Status %Status %Status %Status Caché") { set Action=7 set sc = ##class(Src2.SvnAux).ObterDadosDifWorksCache(.Msg, InternalName) quit $$$OK } if (name = "Analisar Diferenças - Caché > Workspace") { set Action=7 set sc = ##class(Src2.SvnAux).ObterDadosDifCacheWorks(.Msg, InternalName) quit $$$OK } if (name = "Status das Alterações do Projeto") { set Action=7 set sc = ##class(Src2.SvnAux).ObterDadosStatus(.Msg, InternalName) quit $$$OK } /* Retirado por falta de espaço no menu if (name = "Log Alterações - Item") { set sc = ##class(Src2.Svn).LogAlteracoesItem(InternalName, ..Username, ..Password) quit $$$OK } if (name = "Analise do Item") { set sc = ##class(Src2.Svn).AnalisarItemProjetos(InternalName, ..Username, ..Password) quit $$$OK } */ if (name = "Atualizar Configurações/Gerar Backup") { set sc = ##class(Src2.Config).AtualizarConfiguracoes(1, 1, , ..Username, ..Password) quit $$$OK } if (name = "Exportar Objetos para Aplicação CSP") { set Action=7 set sc = ##class(Src2.SvnAux).ObterDadosExpObjAplicCSP(.Msg) quit $$$OK } if (name = "Gerar Serviço Consistem") { set Action=7 set sc = ##class(Src2.SvnAux).ObterDadosGerarServConsistem(.Msg) quit $$$OK } if (name = "Gerar/Configurar Base") { set Action=7 set sc = ##class(Src2.SvnAux).ObterDadosAtualizarMenu(.Msg) quit $$$OK } if (name = "Executar Teste Unitário") { set Action=7 set Msg = ##class(Src2.UnitTest).ObterMensagemParaExecucao(InternalName) quit $$$OK } if (name = "Ajuda") { set sc = ##class(Src2.Utils).Ajuda() quit $$$OK } } quit $$$OK ]]> %Status Caché") { set sc = ##class(Src2.SvnAux).GravarDadosDifWorksCache(Msg) set sc = ##class(Src2.Svn).AnalisarDifWorkspaceCacheStr(Msg, ..Username, ..Password) quit $$$OK } if (name = "Analisar Diferenças - Caché > Workspace") { set sc = ##class(Src2.SvnAux).GravarDadosDifCacheWorks(Msg) set sc = ##class(Src2.Svn).AnalisarDifCacheWorkspaceStr(Msg, ..Username, ..Password) quit $$$OK } if (name = "Status das Alterações do Projeto") { set sc = ##class(Src2.SvnAux).GravarDadosStatus(Msg) set sc = ##class(Src2.Svn).StatusAlteracoesStr(Msg, ..Username, ..Password) quit $$$OK } /* if (name = "Log Alterações - Projeto") { set sc = ##class(Src2.SvnAux).GravarDadosLog(Msg) set sc = ##class(Src2.Svn).LogAlteracoesStr(Msg, ..Username, ..Password) quit $$$OK } */ if (name = "Exportar Objetos para Aplicação CSP") { set sc = ##class(Src2.Svn).ExportarObjetosAplicacaoCSP(..Username, ..Password) quit $$$OK } if (name = "Gerar Serviço Consistem") { set sc = ##class(Src2.Svn).GerarServicoConsistem(..Username, ..Password) quit $$$OK } if (name = "Gerar/Configurar Base") { set sc = ##class(Src2.Svn).AtualizarMenuConfigStr(Msg) quit $$$OK } if (name = "Executar Teste Unitário") { set sc = ##class(Src2.UnitTest).AnalisarMensagemParaExecucao(Msg) quit $$$OK } } } quit $$$OK ]]> InternalName:%String,Object:%RegisteredObject=$$$NULLOREF,Print:%Status %Status InternalName:%String,Location:%String="",Object:%RegisteredObject=$$$NULLOREF %Status InternalName:%String,Object:%RegisteredObject %Status InternalName:%String %Status 30000) { write " - ATENÇÃO PARA " } } set msgsc = ##class(Src2.SourceCheck).ValidarPadroes(item) } if (extensao = "cls") { set sc = ##class(Src2.SourceCheckClasse).ValidarPadroes(item, itemCopiaTrabalho) } set sc = ##class(Src2.Config).AtualizarConfiguracoes( , , , ..Username, ..Password) set sc = ##class(Src2.Item).ValidarVersaoRelacionada(InternalName) if (sc'=1) { write !!,"Source Control: ATENÇÃO - "_sc,! if ('$data(^mtempSrc2ItemRelProj($job,InternalName))) { set ^mtempSrc2ItemRelProj($job,InternalName) = "" quit $$$ERROR(10000,"ATENÇÃO - "_sc) } } set msgsc = ##class(Src2.Config).ValidarVersaoSrc() if (msgsc '= 1) { write !,"Source Control: ATENÇÃO - "_msgsc write !,"Source Control: "_##class(Src2.Utils).StringAtualizador() quit $$$ERROR(10000,"ATENÇÃO - "_msgsc) } quit $$$OK ]]> InternalName:%String %Status InternalName:%String %Status InternalName:%String,Description:%String="" %Status InternalName:%String %Boolean %Status InternalName:%String %Boolean set sc = ##class(Src2.SourceControl).ValidarControleVersao("CCEVA800.mac", .flgSourceControl, .extensao) set sc = ##class(Src2.SourceControl).ValidarControleVersao("CCEVA800.int", .flgSourceControl, .extensao) %Status 1 %RegisteredObject 61727,0 Ederson E. Jantsch Utilitários Controle de Código Fonte Controle de Código Fonte - Importação/Sincronização com o Subversion 1 urlRepositorio - Informar a URL do repositório Exemplo de repositório de rotina: "http://192.168.15.10:18080/svn/rotina61" Exemplo de repositório de classe: "http://192.168.15.10:18080/svn/classe61" revisao - Informar uma revisão (Opção padrão "head") grupo - Informar/delimitar um grupo de rotinas ou classes (passar a extensão) Obs: Quando um grupo é determinado, as rotinas deste grupo são excluídas antes da importação Exemplos de filtros de rotinas: "CCCGI*.MAC" / "CCCGI015.MAC" Exemplos de filtros de classes: "Tcp.Eng*.cls" / "Tcp.Engengenharia.cls" flagCsp - Gera a página CSP das rotinas importadas (Opção padrão: TRUE) force - Importa as rotinas/classes mesmo em namespaces com controle de fonte (Opção padrão: FALSE) excluir - Exclui os grupos de rotinas importadas (Opção padrão: TRUE) Obs1: Exclui somente os grupos informados no parametro "grupo" Obs2: Quando importar o grupo de rotinas %CS colocar este parametro como false. Este método utiliza rotinas %CS. flagWorkspace - Atualizar o Workspace (Opção padrão: FALSE) set sc = ##class(Src2.SourceImport).Importar("http://192.168.15.10:18080/svn/teste/trunk", , "CCEVB9*.mac", 0, 0, 0, 0) set sc = ##class(Src2.SourceImport).Importar("http://192.168.15.10:18080/svn/teste/trunk", , "nfe.v110*.cls", , 1, 1, 1, "-dia") 1 %Status Atualiza Fontes Namespace Parametros: projetoDes = Código do projeto de desenvolvimento a ser atualizado Este parametro é utilizado para o "tipo" = 3. Global de Configuração: ^Src2SourceImport( "projeto" ) = "Rev. Inicial" ^ "tipo" ^ "flagComp" ^ "flagEmail" ^ "flagCsp" ^ "flagTODO" ^ "flagMerge" Chave 1 - "projeto" = Do arquivo "projetos.xml" - csw61 / csw62 / cswutil62 / ... Piece 1 - "Rev. Inicial" = Para determinar a partir de que revisão deve inicar as importações. (Não é obrigatório) Piece 2 - "tipo" = 1 - Atualiza tudo 2 - Atualiza um projeto de desenvolvimento informado e tudo que não é projeto de desenvolvimento 3 - Atualiza tudo que não é projeto de desenvolvimento Piece 3 - "flagComp" = Flags a serem utilizados no Load da classe. $System.OBJ.Load() (Não é obrigatório) Piece 4 - "flagEmail" = Flag para determinar se envia e-mail para erros de comilação (Valor padrão = 0) Piece 5 - "flagCsp" = Flag para determinar se gera a página csp da rotina (Valor padrão = 1) Piece 6 - "flagTODO" = Flag para determinar se verifica TODO's não implementados (Valor padrão = 0) Piece 7 - "flagMerge" = Flag para determinar se importa revisões de merge (Valor padrão = 1) set sc = ##class(Src2.SourceImport).AtualizarFontesNamespace() 1 projetoDes:%String="",username:%String="",password:%String="" %Status Atualizar Fontes no Namespace do Projeto set sc = ##class(Src2.SourceImport).AtualFontesNamespaceRepos() 1 codTerm:%String,caminhoSvn:%String,arquivoTemp:%String,projeto:%String,urlRepositorio:%String,tipo:%Integer=1,autenticacao:%String="",projetoDes:%String="" %Status Filtra as Revisoes 1 codTerm:%String,projeto:%String,tipo:%Integer=1,projetoDes:%String="",revInicio:%String="",flagMerge:%Boolean=1 %Status revisao) { kill ^mtempSrc2Revisoes(codTerm,"rev",revisao,1,2,classe) } } for { set rotina = $order(^mtempSrc2Revisoes(codTerm,"rev",revisao,1,1,rotina)) if (rotina = "") quit set var = $get(^mtempSrc2Revisoes(codTerm,"rev",revisao,1,1,rotina)) set revisaoUlt = $piece($get(^Src2SourceImport(projeto,3,1,rotina)),"^",1) if (revisaoUlt '= "") & (revisaoUlt > revisao) { kill ^mtempSrc2Revisoes(codTerm,"rev",revisao,1,1,rotina) } } } quit $$$OK ]]> Gravar as Revisoes Importadas 1 codTerm:%String,projeto:%String,tipo:%Integer=1,identificador:%String,projetoDes:%String="" %Status $piece($get(^Src2SourceImport(projeto)),"^",1)) { set $piece(^Src2SourceImport(projeto,1,identificador),"^",1) = revisao } set codSeq = $order(^Src2SourceImport(projeto,2,""),-1) + 1 set ^Src2SourceImport(projeto,2,codSeq) = projetoDes_"^"_revisao_"^"_$zdatetime($horolog,4)_"^"_tipo quit $$$OK ]]> Obter Dados do Repositorio de Importação 1 %Status Envia um Log de Erros por Email 1 codTerm:%String,urlRepositorio:%String %Status 1 %RegisteredObject 62407,52662.508834 Ederson E. Jantsch Utilitários Validador de Sintax Caché Code Validador de Sintax Caché Code 1 set sc = ##class(Src2.SourceSyntax).Teste("XXEJCCFT240",15) set sc = ##class(Src2.SourceSyntax).CompilarRotina("XXEJCCFT240") set sc = ##class(Src2.SourceSyntax).CompilarRotina("CCTCP020") 1 rotina:%String %Status ",linhaExp } if (msgErro '= "") quit msgErro quit $$$OK ]]> set sc = ##class(Src2.SourceSyntax).Teste("CCTCORG000",15) set sc = ##class(Src2.SourceSyntax).Teste("XXEJTESTECMD",7) 1 rotina:%String,lin:%String %Status 1 %Status 1 tabExpressao:%String,opcoes:%String=1 %Status "_var_"<=",27) write $$Just^%CSUTIUD($list($get(tabExpressao(codSeq)),2),16) write $$Just^%CSUTIUD($list($get(tabExpressao(codSeq)),3),14) write $$Just^%CSUTIUD($list($get(tabExpressao(codSeq)),4),16) write $$Just^%CSUTIUD($list($get(tabExpressao(codSeq)),5),5) } } if (opcoes = 2) { set codSeq = "" for { set codSeq = $order(tabExpressao(codSeq)) if (codSeq = "") quit set var = $list($get(tabExpressao(codSeq)),1) if (var = $char(9)) { set var = " " } write !,$justify(codSeq,2) write $$Just^%CSUTIUD(" =>"_var_"<=",27) write $$Just^%CSUTIUD($list($get(tabExpressao(codSeq)),2),16) write $$Just^%CSUTIUD($list($get(tabExpressao(codSeq)),3),14) write $$Just^%CSUTIUD($list($get(tabExpressao(codSeq)),4),16) write $$Just^%CSUTIUD($list($get(tabExpressao(codSeq)),6),5) } } quit $$$OK ]]> 1 %Status 1 %Status 1 tabExpressao:%String,idSyntax:%String="linha",codExpressao:%String="",codExpressaoRet:%String="",comando:%String="" %String 1 idSyntax:%String,tabExpressao:%String,codExpressao:%String,codExpressaoRet:%String,expressao:%String,posicao:%String,comando:%String %String 1 %String ") { set codExpressaoRet = codExpressao } set posicao = $piece($get(^%Src2SourceSyntax("syntax",idSyntax,posicao,tipo)),"^",1) set flgOK = 1 if (idSyntax2 = "") quit $$$OK set sc = ##class(Src2.SourceSyntax).ValidarSyntax(.tabExpressao, idSyntax2, .codExpressao, .codExpressaoRet, comando) if (sc'=$$$OK) quit sc quit $$$OK ]]> 1 expressao:%String,tabTipos:%String %Status set sc = ##class(Src2.SourceSyntax).ObterExpressoes($get(^rMAC("XXEJCCFT240",0,28)), .tabela) S S = B , F = 3 SET B = 34535345 , I = F W W , I , 45 ,4,AA 1 linha:%String,tabela:%String %Status 1 %RegisteredObject 62407,52817.669021 Pendências Parametros com valor pré-definido Definições set CASA=^["NAMESPACE"]PEDRA ; ACEITA set CASA=^[VARIAVELNS]PEDRA ; ACEITA set CASA=^[(VARIAVELNS_AAA)]PEDRA ; NÃO ACEITA - UTILIZAR | E NÃO [] 1 %Status 1 %Status 1 %Status 1 %Status 1 %Status ","operador") = "" set ^%Src2SourceSyntax("tipo","'>","operador") = "" set ^%Src2SourceSyntax("tipo","<","operador") = "" set ^%Src2SourceSyntax("tipo","'<","operador") = "" set ^%Src2SourceSyntax("tipo","[","operador") = "" set ^%Src2SourceSyntax("tipo","[","abreNsp[") = "" set ^%Src2SourceSyntax("tipo","]","operador") = "" set ^%Src2SourceSyntax("tipo","]","fechaNsp]") = "" set ^%Src2SourceSyntax("tipo","]]","operador") = "" set ^%Src2SourceSyntax("tipo","&&","operador") = "" set ^%Src2SourceSyntax("tipo","&","operador") = "" set ^%Src2SourceSyntax("tipo","|","pipe") = "" set ^%Src2SourceSyntax("tipo","||","operador") = "" set ^%Src2SourceSyntax("tipo","!","operador") = "" set ^%Src2SourceSyntax("tipo","=","operador") = "" set ^%Src2SourceSyntax("tipo","=","atribuicao") = "" set ^%Src2SourceSyntax("tipo","@","operador") = "" set ^%Src2SourceSyntax("tipo","@","indirecao") = "" set ^%Src2SourceSyntax("tipo","#","operador") = "" set ^%Src2SourceSyntax("tipo","#","include") = "" set ^%Src2SourceSyntax("tipo",":","doispontos") = "" set ^%Src2SourceSyntax("tipo",";","coment") = "" set ^%Src2SourceSyntax("tipo","//","coment") = "" set ^%Src2SourceSyntax("tipo",$char(9),"tab") = "" set ^%Src2SourceSyntax("tipo"," ","espaco") = "" set ^%Src2SourceSyntax("tipo",".","ponto") = "" set ^%Src2SourceSyntax("tipo","(","abre(") = "" set ^%Src2SourceSyntax("tipo",")","fecha)") = "" set ^%Src2SourceSyntax("tipo","$","funcCache") = "" set ^%Src2SourceSyntax("tipo","$$","funcDes") = "" set ^%Src2SourceSyntax("tipo","$$$","macro") = "" set ^%Src2SourceSyntax("tipo",",","virgula") = "" set ^%Src2SourceSyntax("tipo","^","uperro") = "" set ^%Src2SourceSyntax("tipo","?","interroga") = "" quit $$$OK ]]> 1 %Status " set ^%Src2SourceSyntax("syntax","linha","linha-1","tab") = "linha-3" set ^%Src2SourceSyntax("syntax","linha","linha-1","espaco") = "linha-3" set ^%Src2SourceSyntax("syntax","linha","linha-1","fim") = "^^" set ^%Src2SourceSyntax("syntax","linha","linha-2","coment") = "^coment^" set ^%Src2SourceSyntax("syntax","linha","linha-2","espaco") = "linha-3" set ^%Src2SourceSyntax("syntax","linha","linha-2","tab") = "linha-3" set ^%Src2SourceSyntax("syntax","linha","linha-2","ponto") = "linha-3" set ^%Src2SourceSyntax("syntax","linha","linha-2","fim") = "^^" set ^%Src2SourceSyntax("syntax","linha","linha-3","coment") = "^coment^" set ^%Src2SourceSyntax("syntax","linha","linha-3","ponto") = "linha-3" set ^%Src2SourceSyntax("syntax","linha","linha-3","espaco") = "linha-3" set ^%Src2SourceSyntax("syntax","linha","linha-3","tab") = "linha-3" set ^%Src2SourceSyntax("syntax","linha","linha-3","set") = "linha-4^set" set ^%Src2SourceSyntax("syntax","linha","linha-3","write") = "linha-4^write" set ^%Src2SourceSyntax("syntax","linha","linha-3","zwrite") = "linha-4^kill" set ^%Src2SourceSyntax("syntax","linha","linha-3","if") = "linha-4^if" set ^%Src2SourceSyntax("syntax","linha","linha-3","else") = "linha-4^else" set ^%Src2SourceSyntax("syntax","linha","linha-3","do") = "linha-4^do" set ^%Src2SourceSyntax("syntax","linha","linha-3","goto") = "linha-4^goto" set ^%Src2SourceSyntax("syntax","linha","linha-3","quit") = "linha-4^quit" set ^%Src2SourceSyntax("syntax","linha","linha-3","for") = "linha-4^for" set ^%Src2SourceSyntax("syntax","linha","linha-3","new") = "linha-4^new" set ^%Src2SourceSyntax("syntax","linha","linha-3","kill") = "linha-4^kill" set ^%Src2SourceSyntax("syntax","linha","linha-3","zkill") = "linha-4^kill" set ^%Src2SourceSyntax("syntax","linha","linha-3","merge") = "linha-4^merge" set ^%Src2SourceSyntax("syntax","linha","linha-3","xecute") = "linha-4^comExp" set ^%Src2SourceSyntax("syntax","linha","linha-3","lock") = "linha-4^lock" set ^%Src2SourceSyntax("syntax","linha","linha-3","break") = "linha-4^break" set ^%Src2SourceSyntax("syntax","linha","linha-3","hang") = "linha-4^comExp" set ^%Src2SourceSyntax("syntax","linha","linha-3","macro") = "linha-4^funcCache" set ^%Src2SourceSyntax("syntax","linha","linha-3","include") = "linha-4^include" set ^%Src2SourceSyntax("syntax","linha","linha-3","znspace") = "linha-4^comExp" set ^%Src2SourceSyntax("syntax","linha","linha-3","fim") = "^^" set ^%Src2SourceSyntax("syntax","linha","linha-4","coment") = "^coment^" set ^%Src2SourceSyntax("syntax","linha","linha-4","espaco") = "linha-4" set ^%Src2SourceSyntax("syntax","linha","linha-4","tab") = "linha-4" set ^%Src2SourceSyntax("syntax","linha","linha-4","set") = "linha-4^set" set ^%Src2SourceSyntax("syntax","linha","linha-4","write") = "linha-4^write" set ^%Src2SourceSyntax("syntax","linha","linha-4","zwrite") = "linha-4^kill" set ^%Src2SourceSyntax("syntax","linha","linha-4","if") = "linha-4^if" set ^%Src2SourceSyntax("syntax","linha","linha-4","else") = "linha-4^else" set ^%Src2SourceSyntax("syntax","linha","linha-4","do") = "linha-4^do" set ^%Src2SourceSyntax("syntax","linha","linha-4","goto") = "linha-4^goto" set ^%Src2SourceSyntax("syntax","linha","linha-4","quit") = "linha-4^quit" set ^%Src2SourceSyntax("syntax","linha","linha-4","for") = "linha-4^for" set ^%Src2SourceSyntax("syntax","linha","linha-4","new") = "linha-4^new" set ^%Src2SourceSyntax("syntax","linha","linha-4","kill") = "linha-4^kill" set ^%Src2SourceSyntax("syntax","linha","linha-4","zkill") = "linha-4^kill" set ^%Src2SourceSyntax("syntax","linha","linha-4","merge") = "linha-4^merge" set ^%Src2SourceSyntax("syntax","linha","linha-4","xecute") = "linha-4^comExp" set ^%Src2SourceSyntax("syntax","linha","linha-4","lock") = "linha-4^lock" set ^%Src2SourceSyntax("syntax","linha","linha-4","break") = "linha-4^break" set ^%Src2SourceSyntax("syntax","linha","linha-4","hang") = "linha-4^comExp" set ^%Src2SourceSyntax("syntax","linha","linha-4","macro") = "linha-4^funcCache" set ^%Src2SourceSyntax("syntax","linha","linha-4","include") = "linha-4^include" set ^%Src2SourceSyntax("syntax","linha","linha-4","znspace") = "linha-4^comExp" set ^%Src2SourceSyntax("syntax","linha","linha-4","fim") = "^^" // Comentario set ^%Src2SourceSyntax("syntax","coment","coment-1","{direta}") = "coment-1" set ^%Src2SourceSyntax("syntax","coment","coment-1","fim") = "^^" // Comando - set set ^%Src2SourceSyntax("syntax","set","set-01","set") = "set-02" set ^%Src2SourceSyntax("syntax","set","set-02","doispontos") = "set-09" set ^%Src2SourceSyntax("syntax","set","set-02","espaco") = "set-03" set ^%Src2SourceSyntax("syntax","set","set-03","{direta}") = "set-05^exprAtrib" set ^%Src2SourceSyntax("syntax","set","set-03","indirecao") = "set-04^indirecao^" set ^%Src2SourceSyntax("syntax","set","set-04","espaco") = "set-05" set ^%Src2SourceSyntax("syntax","set","set-04","tab") = "set-05" set ^%Src2SourceSyntax("syntax","set","set-04","atribuicao") = "set-06" set ^%Src2SourceSyntax("syntax","set","set-04","fim") = "^^" set ^%Src2SourceSyntax("syntax","set","set-05","espaco") = "set-05" set ^%Src2SourceSyntax("syntax","set","set-05","tab") = "set-05" set ^%Src2SourceSyntax("syntax","set","set-05","atribuicao") = "set-06" set ^%Src2SourceSyntax("syntax","set","set-06","espaco") = "set-06" set ^%Src2SourceSyntax("syntax","set","set-06","tab") = "set-06" set ^%Src2SourceSyntax("syntax","set","set-06","{direta}") = "set-07^expressao^" set ^%Src2SourceSyntax("syntax","set","set-07","espaco") = "set-07" set ^%Src2SourceSyntax("syntax","set","set-07","tab") = "set-07" set ^%Src2SourceSyntax("syntax","set","set-07","virgula") = "set-08" set ^%Src2SourceSyntax("syntax","set","set-07","fim") = "^^" set ^%Src2SourceSyntax("syntax","set","set-08","espaco") = "set-08" set ^%Src2SourceSyntax("syntax","set","set-08","tab") = "set-08" set ^%Src2SourceSyntax("syntax","set","set-08","{direta}") = "set-05^exprAtrib" set ^%Src2SourceSyntax("syntax","set","set-09","{direta}") = "set-10^expressao2" set ^%Src2SourceSyntax("syntax","set","set-10","espaco") = "set-03" // Comando - merge set ^%Src2SourceSyntax("syntax","merge","merge-01","merge") = "merge-02" set ^%Src2SourceSyntax("syntax","merge","merge-02","doispontos") = "merge-08" set ^%Src2SourceSyntax("syntax","merge","merge-02","espaco") = "merge-03" set ^%Src2SourceSyntax("syntax","merge","merge-03","{direta}") = "merge-04^variavel^" set ^%Src2SourceSyntax("syntax","merge","merge-03","indirecao") = "merge-04^indirecao^" set ^%Src2SourceSyntax("syntax","merge","merge-04","espaco") = "merge-04" set ^%Src2SourceSyntax("syntax","merge","merge-04","tab") = "merge-04" set ^%Src2SourceSyntax("syntax","merge","merge-04","atribuicao") = "merge-05" set ^%Src2SourceSyntax("syntax","merge","merge-05","espaco") = "merge-05" set ^%Src2SourceSyntax("syntax","merge","merge-05","tab") = "merge-05" set ^%Src2SourceSyntax("syntax","merge","merge-05","{direta}") = "merge-06^variavel^" set ^%Src2SourceSyntax("syntax","merge","merge-05","indirecao") = "merge-06^indirecao^" set ^%Src2SourceSyntax("syntax","merge","merge-06","espaco") = "merge-06" set ^%Src2SourceSyntax("syntax","merge","merge-06","tab") = "merge-06" set ^%Src2SourceSyntax("syntax","merge","merge-06","virgula") = "merge-07" set ^%Src2SourceSyntax("syntax","merge","merge-06","fim") = "^^" set ^%Src2SourceSyntax("syntax","merge","merge-07","espaco") = "merge-07" set ^%Src2SourceSyntax("syntax","merge","merge-07","tab") = "merge-07" set ^%Src2SourceSyntax("syntax","merge","merge-07","{direta}") = "merge-04^variavel" set ^%Src2SourceSyntax("syntax","merge","merge-07","indirecao") = "merge-04^indirecao" set ^%Src2SourceSyntax("syntax","merge","merge-08","{direta}") = "merge-09^expressao2" set ^%Src2SourceSyntax("syntax","merge","merge-09","espaco") = "merge-03" // Comando - xecute / hang / znspace - (comando:expressao expressao) set ^%Src2SourceSyntax("syntax","comExp","comExp-01","xecute") = "comExp-02^^" set ^%Src2SourceSyntax("syntax","comExp","comExp-01","hang") = "comExp-02^^" set ^%Src2SourceSyntax("syntax","comExp","comExp-01","znspace") = "comExp-02^^" set ^%Src2SourceSyntax("syntax","comExp","comExp-02","doispontos") = "comExp-06" set ^%Src2SourceSyntax("syntax","comExp","comExp-02","espaco") = "comExp-03" set ^%Src2SourceSyntax("syntax","comExp","comExp-02","fim") = "^^" set ^%Src2SourceSyntax("syntax","comExp","comExp-03","{direta}") = "comExp-04^expressao^" set ^%Src2SourceSyntax("syntax","comExp","comExp-04","espaco") = "comExp-04" set ^%Src2SourceSyntax("syntax","comExp","comExp-04","tab") = "comExp-04" set ^%Src2SourceSyntax("syntax","comExp","comExp-04","virgula") = "comExp-05" set ^%Src2SourceSyntax("syntax","comExp","comExp-04","fim") = "^^" set ^%Src2SourceSyntax("syntax","comExp","comExp-05","espaco") = "comExp-05" set ^%Src2SourceSyntax("syntax","comExp","comExp-05","tab") = "comExp-05" set ^%Src2SourceSyntax("syntax","comExp","comExp-05","{direta}") = "comExp-04^expressao^" set ^%Src2SourceSyntax("syntax","comExp","comExp-06","{direta}") = "comExp-07^expressao2" set ^%Src2SourceSyntax("syntax","comExp","comExp-07","espaco") = "comExp-03" // Comando - write set ^%Src2SourceSyntax("syntax","write","write-01","write") = "write-02^^" set ^%Src2SourceSyntax("syntax","write","write-02","doispontos") = "write-08" set ^%Src2SourceSyntax("syntax","write","write-02","espaco") = "write-03" set ^%Src2SourceSyntax("syntax","write","write-02","fim") = "^^" set ^%Src2SourceSyntax("syntax","write","write-03","{direta}") = "write-04^expressao^" set ^%Src2SourceSyntax("syntax","write","write-03","!") = "write-06^^" set ^%Src2SourceSyntax("syntax","write","write-03","#") = "write-06^^" set ^%Src2SourceSyntax("syntax","write","write-03","?") = "write-07" set ^%Src2SourceSyntax("syntax","write","write-04","espaco") = "write-04" set ^%Src2SourceSyntax("syntax","write","write-04","tab") = "write-04" set ^%Src2SourceSyntax("syntax","write","write-04","virgula") = "write-05" set ^%Src2SourceSyntax("syntax","write","write-04","fim") = "^^" set ^%Src2SourceSyntax("syntax","write","write-05","espaco") = "write-05" set ^%Src2SourceSyntax("syntax","write","write-05","tab") = "write-05" set ^%Src2SourceSyntax("syntax","write","write-05","{direta}") = "write-04^expressao^" set ^%Src2SourceSyntax("syntax","write","write-05","!") = "write-06^^" set ^%Src2SourceSyntax("syntax","write","write-05","#") = "write-06^^" set ^%Src2SourceSyntax("syntax","write","write-05","?") = "write-07" set ^%Src2SourceSyntax("syntax","write","write-06","espaco") = "write-06" set ^%Src2SourceSyntax("syntax","write","write-06","tab") = "write-06" set ^%Src2SourceSyntax("syntax","write","write-06","virgula") = "write-05" set ^%Src2SourceSyntax("syntax","write","write-06","!") = "write-06^^" set ^%Src2SourceSyntax("syntax","write","write-06","#") = "write-06^^" set ^%Src2SourceSyntax("syntax","write","write-06","?") = "write-07" set ^%Src2SourceSyntax("syntax","write","write-06","fim") = "^^" set ^%Src2SourceSyntax("syntax","write","write-07","espaco") = "write-07" set ^%Src2SourceSyntax("syntax","write","write-07","tab") = "write-07" set ^%Src2SourceSyntax("syntax","write","write-07","{direta}") = "write-04^expressao^" set ^%Src2SourceSyntax("syntax","write","write-08","{direta}") = "write-09^expressao2" set ^%Src2SourceSyntax("syntax","write","write-09","espaco") = "write-03" // Comando - quit set ^%Src2SourceSyntax("syntax","quit","quit-01","quit") = "quit-02^^" set ^%Src2SourceSyntax("syntax","quit","quit-02","doispontos") = "quit-05" set ^%Src2SourceSyntax("syntax","quit","quit-02","espaco") = "quit-04" set ^%Src2SourceSyntax("syntax","quit","quit-02","tab") = "quit-03" set ^%Src2SourceSyntax("syntax","quit","quit-02","fim") = "^^" set ^%Src2SourceSyntax("syntax","quit","quit-03","espaco") = "quit-04" set ^%Src2SourceSyntax("syntax","quit","quit-03","tab") = "quit-03" set ^%Src2SourceSyntax("syntax","quit","quit-03","fim") = "^^" set ^%Src2SourceSyntax("syntax","quit","quit-04","espaco") = "^^" set ^%Src2SourceSyntax("syntax","quit","quit-04","tab") = "^^" set ^%Src2SourceSyntax("syntax","quit","quit-04","coment") = "^coment^" set ^%Src2SourceSyntax("syntax","quit","quit-04","{direta}") = "^expressao^" set ^%Src2SourceSyntax("syntax","quit","quit-04","fim") = "^^" set ^%Src2SourceSyntax("syntax","quit","quit-05","{direta}") = "quit-06^expressao^" set ^%Src2SourceSyntax("syntax","quit","quit-06","espaco") = "quit-04" set ^%Src2SourceSyntax("syntax","quit","quit-06","tab") = "quit-03" set ^%Src2SourceSyntax("syntax","quit","quit-06","fim") = "^^" // Comando - break set ^%Src2SourceSyntax("syntax","break","break-01","break") = "break-02^^" set ^%Src2SourceSyntax("syntax","break","break-02","doispontos") = "break-05" set ^%Src2SourceSyntax("syntax","break","break-02","espaco") = "break-04" set ^%Src2SourceSyntax("syntax","break","break-02","tab") = "break-03" set ^%Src2SourceSyntax("syntax","break","break-02","fim") = "^^" set ^%Src2SourceSyntax("syntax","break","break-03","espaco") = "break-04" set ^%Src2SourceSyntax("syntax","break","break-03","tab") = "break-03" set ^%Src2SourceSyntax("syntax","break","break-03","fim") = "^^" set ^%Src2SourceSyntax("syntax","break","break-04","espaco") = "^^" set ^%Src2SourceSyntax("syntax","break","break-04","tab") = "^^" set ^%Src2SourceSyntax("syntax","break","break-04","coment") = "^coment^" set ^%Src2SourceSyntax("syntax","break","break-04","fim") = "^^" set ^%Src2SourceSyntax("syntax","break","break-05","{direta}") = "break-06^expressao^" set ^%Src2SourceSyntax("syntax","break","break-06","espaco") = "break-04" set ^%Src2SourceSyntax("syntax","break","break-06","tab") = "break-03" set ^%Src2SourceSyntax("syntax","break","break-06","fim") = "^^" // Comando - if set ^%Src2SourceSyntax("syntax","if","if-01","if") = "if-02" set ^%Src2SourceSyntax("syntax","if","if-02","espaco") = "if-03" set ^%Src2SourceSyntax("syntax","if","if-03","{direta}") = "if-04^expressao^" set ^%Src2SourceSyntax("syntax","if","if-04","espaco") = "if-04" set ^%Src2SourceSyntax("syntax","if","if-04","tab") = "if-04" set ^%Src2SourceSyntax("syntax","if","if-04","virgula") = "if-05" set ^%Src2SourceSyntax("syntax","if","if-04","fim") = "^^" set ^%Src2SourceSyntax("syntax","if","if-05","espaco") = "if-05" set ^%Src2SourceSyntax("syntax","if","if-05","tab") = "if-05" set ^%Src2SourceSyntax("syntax","if","if-05","{direta}") = "if-04^expressao^" // Comando - else set ^%Src2SourceSyntax("syntax","else","else-01","else") = "else-02^^" set ^%Src2SourceSyntax("syntax","else","else-02","espaco") = "else-03" set ^%Src2SourceSyntax("syntax","else","else-02","fim") = "^^" set ^%Src2SourceSyntax("syntax","else","else-03","espaco") = "^^" // Comando - do set ^%Src2SourceSyntax("syntax","do","do-01","do") = "do-02^^" set ^%Src2SourceSyntax("syntax","do","do-02","doispontos") = "do-06" set ^%Src2SourceSyntax("syntax","do","do-02","espaco") = "do-03" set ^%Src2SourceSyntax("syntax","do","do-02","fim") = "^^" set ^%Src2SourceSyntax("syntax","do","do-03","espaco") = "^^" set ^%Src2SourceSyntax("syntax","do","do-03","{direta}") = "do-04^labRot()^" set ^%Src2SourceSyntax("syntax","do","do-03","indirecao") = "do-04^indirecao^" set ^%Src2SourceSyntax("syntax","do","do-03","macro") = "do-04^funcCache^" set ^%Src2SourceSyntax("syntax","do","do-03","fim") = "^^" set ^%Src2SourceSyntax("syntax","do","do-04","doispontos") = "do-08" set ^%Src2SourceSyntax("syntax","do","do-04","espaco") = "do-04" set ^%Src2SourceSyntax("syntax","do","do-04","tab") = "do-04" set ^%Src2SourceSyntax("syntax","do","do-04","virgula") = "do-05" set ^%Src2SourceSyntax("syntax","do","do-04","fim") = "^^" set ^%Src2SourceSyntax("syntax","do","do-05","espaco") = "do-05" set ^%Src2SourceSyntax("syntax","do","do-05","tab") = "do-05" set ^%Src2SourceSyntax("syntax","do","do-05","{direta}") = "do-04^labRot()^" set ^%Src2SourceSyntax("syntax","do","do-05","indirecao") = "do-04^indirecao^" set ^%Src2SourceSyntax("syntax","do","do-05","macro") = "do-04^funcCache^" set ^%Src2SourceSyntax("syntax","do","do-06","{direta}") = "do-07^expressao2^" set ^%Src2SourceSyntax("syntax","do","do-07","espaco") = "do-03" set ^%Src2SourceSyntax("syntax","do","do-07","fim") = "^^" set ^%Src2SourceSyntax("syntax","do","do-08","{direta}") = "do-09^expressao2^" set ^%Src2SourceSyntax("syntax","do","do-09","espaco") = "do-09" set ^%Src2SourceSyntax("syntax","do","do-09","tab") = "do-09" set ^%Src2SourceSyntax("syntax","do","do-09","virgula") = "do-05" set ^%Src2SourceSyntax("syntax","do","do-09","fim") = "^^" // Comando - goto set ^%Src2SourceSyntax("syntax","goto","goto-01","goto") = "goto-02" set ^%Src2SourceSyntax("syntax","goto","goto-02","doispontos") = "goto-06" set ^%Src2SourceSyntax("syntax","goto","goto-02","espaco") = "goto-03" set ^%Src2SourceSyntax("syntax","goto","goto-03","{direta}") = "goto-04^labRot^" set ^%Src2SourceSyntax("syntax","goto","goto-03","indirecao") = "goto-04^indirecao^" set ^%Src2SourceSyntax("syntax","goto","goto-04","doispontos") = "goto-08" set ^%Src2SourceSyntax("syntax","goto","goto-04","espaco") = "goto-04" set ^%Src2SourceSyntax("syntax","goto","goto-04","tab") = "goto-04" set ^%Src2SourceSyntax("syntax","goto","goto-04","virgula") = "goto-05" set ^%Src2SourceSyntax("syntax","goto","goto-04","fim") = "^^" set ^%Src2SourceSyntax("syntax","goto","goto-05","espaco") = "goto-05" set ^%Src2SourceSyntax("syntax","goto","goto-05","tab") = "goto-05" set ^%Src2SourceSyntax("syntax","goto","goto-05","{direta}") = "goto-04^labRot^" set ^%Src2SourceSyntax("syntax","goto","goto-05","indirecao") = "goto-04^indirecao^" set ^%Src2SourceSyntax("syntax","goto","goto-06","{direta}") = "goto-07^expressao2" set ^%Src2SourceSyntax("syntax","goto","goto-07","espaco") = "goto-03" set ^%Src2SourceSyntax("syntax","goto","goto-08","{direta}") = "goto-09^expressao^" set ^%Src2SourceSyntax("syntax","goto","goto-09","espaco") = "goto-09" set ^%Src2SourceSyntax("syntax","goto","goto-09","tab") = "goto-09" set ^%Src2SourceSyntax("syntax","goto","goto-09","virgula") = "goto-05" set ^%Src2SourceSyntax("syntax","goto","goto-09","fim") = "^^" // Comando - for set ^%Src2SourceSyntax("syntax","for","for-01","for") = "for-02" set ^%Src2SourceSyntax("syntax","for","for-02","espaco") = "for-03" set ^%Src2SourceSyntax("syntax","for","for-03","espaco") = "^^" set ^%Src2SourceSyntax("syntax","for","for-03","variavel") = "for-04" set ^%Src2SourceSyntax("syntax","for","for-04","espaco") = "for-04" set ^%Src2SourceSyntax("syntax","for","for-04","tab") = "for-04" set ^%Src2SourceSyntax("syntax","for","for-04","atribuicao") = "for-05" set ^%Src2SourceSyntax("syntax","for","for-05","espaco") = "for-05" set ^%Src2SourceSyntax("syntax","for","for-05","tab") = "for-05" set ^%Src2SourceSyntax("syntax","for","for-05","{direta}") = "for-06^expressao^" set ^%Src2SourceSyntax("syntax","for","for-06","espaco") = "for-06" set ^%Src2SourceSyntax("syntax","for","for-06","tab") = "for-06" set ^%Src2SourceSyntax("syntax","for","for-06","doispontos") = "for-07" set ^%Src2SourceSyntax("syntax","for","for-06","virgula") = "for-05" set ^%Src2SourceSyntax("syntax","for","for-06","fim") = "^^" set ^%Src2SourceSyntax("syntax","for","for-07","espaco") = "for-07" set ^%Src2SourceSyntax("syntax","for","for-07","tab") = "for-07" set ^%Src2SourceSyntax("syntax","for","for-07","{direta}") = "for-08^expressao^" set ^%Src2SourceSyntax("syntax","for","for-08","espaco") = "for-08" set ^%Src2SourceSyntax("syntax","for","for-08","tab") = "for-08" set ^%Src2SourceSyntax("syntax","for","for-08","doispontos") = "for-09" set ^%Src2SourceSyntax("syntax","for","for-08","virgula") = "for-05" set ^%Src2SourceSyntax("syntax","for","for-08","fim") = "^^" set ^%Src2SourceSyntax("syntax","for","for-09","espaco") = "for-09" set ^%Src2SourceSyntax("syntax","for","for-09","tab") = "for-09" set ^%Src2SourceSyntax("syntax","for","for-09","{direta}") = "for-10^expressao^" set ^%Src2SourceSyntax("syntax","for","for-10","espaco") = "for-10" set ^%Src2SourceSyntax("syntax","for","for-10","tab") = "for-10" set ^%Src2SourceSyntax("syntax","for","for-10","virgula") = "for-05" set ^%Src2SourceSyntax("syntax","for","for-10","fim") = "^^" // Comando - new set ^%Src2SourceSyntax("syntax","new","new-01","new") = "new-02" set ^%Src2SourceSyntax("syntax","new","new-02","doispontos") = "new-06" set ^%Src2SourceSyntax("syntax","new","new-02","espaco") = "new-03" set ^%Src2SourceSyntax("syntax","new","new-03","espaco") = "^^" set ^%Src2SourceSyntax("syntax","new","new-03","variavel") = "new-04^^" set ^%Src2SourceSyntax("syntax","new","new-03","indirecao") = "new-04^indirecao^" set ^%Src2SourceSyntax("syntax","new","new-04","espaco") = "new-04" set ^%Src2SourceSyntax("syntax","new","new-04","tab") = "new-04" set ^%Src2SourceSyntax("syntax","new","new-04","virgula") = "new-05" set ^%Src2SourceSyntax("syntax","new","new-04","fim") = "^^" set ^%Src2SourceSyntax("syntax","new","new-05","espaco") = "new-05" set ^%Src2SourceSyntax("syntax","new","new-05","tab") = "new-05" set ^%Src2SourceSyntax("syntax","new","new-05","variavel") = "new-04^^" set ^%Src2SourceSyntax("syntax","new","new-05","indirecao") = "new-04^indirecao^" set ^%Src2SourceSyntax("syntax","new","new-06","{direta}") = "new-07^expressao2" set ^%Src2SourceSyntax("syntax","new","new-07","espaco") = "new-03" // Comando - kill / zkill / zwrite set ^%Src2SourceSyntax("syntax","kill","kill-01","kill") = "kill-02" set ^%Src2SourceSyntax("syntax","kill","kill-01","zkill") = "kill-02" set ^%Src2SourceSyntax("syntax","kill","kill-01","zwrite") = "kill-02" set ^%Src2SourceSyntax("syntax","kill","kill-02","doispontos") = "kill-06" set ^%Src2SourceSyntax("syntax","kill","kill-02","espaco") = "kill-03" set ^%Src2SourceSyntax("syntax","kill","kill-03","espaco") = "^^" set ^%Src2SourceSyntax("syntax","kill","kill-03","{direta}") = "kill-04^variavel^" set ^%Src2SourceSyntax("syntax","kill","kill-03","indirecao") = "kill-04^indirecao^" set ^%Src2SourceSyntax("syntax","kill","kill-04","espaco") = "kill-04" set ^%Src2SourceSyntax("syntax","kill","kill-04","tab") = "kill-04" set ^%Src2SourceSyntax("syntax","kill","kill-04","virgula") = "kill-05" set ^%Src2SourceSyntax("syntax","kill","kill-04","fim") = "^^" set ^%Src2SourceSyntax("syntax","kill","kill-05","espaco") = "kill-05" set ^%Src2SourceSyntax("syntax","kill","kill-05","tab") = "kill-05" set ^%Src2SourceSyntax("syntax","kill","kill-05","{direta}") = "kill-04^variavel^" set ^%Src2SourceSyntax("syntax","kill","kill-05","indirecao") = "kill-04^indirecao^" set ^%Src2SourceSyntax("syntax","kill","kill-06","{direta}") = "kill-07^expressao2" set ^%Src2SourceSyntax("syntax","kill","kill-07","espaco") = "kill-03" // Comando - lock set ^%Src2SourceSyntax("syntax","lock","lock-01","lock") = "lock-02^^" set ^%Src2SourceSyntax("syntax","lock","lock-02","doispontos") = "lock-10" set ^%Src2SourceSyntax("syntax","lock","lock-02","espaco") = "lock-03" set ^%Src2SourceSyntax("syntax","lock","lock-02","fim") = "^^" set ^%Src2SourceSyntax("syntax","lock","lock-03","espaco") = "^^" set ^%Src2SourceSyntax("syntax","lock","lock-03","+") = "lock-04" set ^%Src2SourceSyntax("syntax","lock","lock-03","-") = "lock-04" set ^%Src2SourceSyntax("syntax","lock","lock-03","{direta}") = "lock-05^variavel^" set ^%Src2SourceSyntax("syntax","lock","lock-04","{direta}") = "lock-05^variavel^" set ^%Src2SourceSyntax("syntax","lock","lock-05","espaco") = "lock-05" set ^%Src2SourceSyntax("syntax","lock","lock-05","tab") = "lock-05" set ^%Src2SourceSyntax("syntax","lock","lock-05","doispontos") = "lock-06" set ^%Src2SourceSyntax("syntax","lock","lock-05","virgula") = "lock-08" set ^%Src2SourceSyntax("syntax","lock","lock-05","fim") = "^^" set ^%Src2SourceSyntax("syntax","lock","lock-06","{direta}") = "lock-07^expressao2^" set ^%Src2SourceSyntax("syntax","lock","lock-07","espaco") = "lock-07" set ^%Src2SourceSyntax("syntax","lock","lock-07","tab") = "lock-07" set ^%Src2SourceSyntax("syntax","lock","lock-07","virgula") = "lock-08" set ^%Src2SourceSyntax("syntax","lock","lock-07","fim") = "^^" set ^%Src2SourceSyntax("syntax","lock","lock-08","espaco") = "lock-08" set ^%Src2SourceSyntax("syntax","lock","lock-08","tab") = "lock-08" set ^%Src2SourceSyntax("syntax","lock","lock-08","+") = "lock-09" set ^%Src2SourceSyntax("syntax","lock","lock-08","-") = "lock-09" set ^%Src2SourceSyntax("syntax","lock","lock-08","{direta}") = "lock-05^variavel^" set ^%Src2SourceSyntax("syntax","lock","lock-09","{direta}") = "lock-05^variavel^" set ^%Src2SourceSyntax("syntax","lock","lock-10","{direta}") = "lock-11^expressao2" set ^%Src2SourceSyntax("syntax","lock","lock-11","espaco") = "lock-03" // Expressao para ser atribuida set ^%Src2SourceSyntax("syntax","expressao","expres-01","abre(") = "expres-04" set ^%Src2SourceSyntax("syntax","expressao","expres-01","{direta}") = "expres-02^variavel^" set ^%Src2SourceSyntax("syntax","expressao","expres-01","numero") = "expres-02^^" set ^%Src2SourceSyntax("syntax","expressao","expres-01","texto") = "expres-02^^" set ^%Src2SourceSyntax("syntax","expressao","expres-01","funcDes") = "expres-02^funcDes^" set ^%Src2SourceSyntax("syntax","expressao","expres-01","funcCache") = "expres-02^funcCache^" set ^%Src2SourceSyntax("syntax","expressao","expres-01","macro") = "expres-02^funcCache^" set ^%Src2SourceSyntax("syntax","expressao","expres-01","indirecao") = "expres-02^indirecao^" set ^%Src2SourceSyntax("syntax","expressao","expres-01","operador") = "expres-03" set ^%Src2SourceSyntax("syntax","expressao","expres-02","espaco") = "expres-02" set ^%Src2SourceSyntax("syntax","expressao","expres-02","tab") = "expres-02" set ^%Src2SourceSyntax("syntax","expressao","expres-02","operador") = "expres-03" set ^%Src2SourceSyntax("syntax","expressao","expres-02","fim") = "^^" set ^%Src2SourceSyntax("syntax","expressao","expres-02","interroga") = "expres-02^interroga^" set ^%Src2SourceSyntax("syntax","expressao","expres-03","espaco") = "expres-03" set ^%Src2SourceSyntax("syntax","expressao","expres-03","tab") = "expres-03" set ^%Src2SourceSyntax("syntax","expressao","expres-03","abre(") = "expres-04" set ^%Src2SourceSyntax("syntax","expressao","expres-03","operador") = "expres-03" set ^%Src2SourceSyntax("syntax","expressao","expres-03","{direta}") = "expres-02^variavel^" set ^%Src2SourceSyntax("syntax","expressao","expres-03","numero") = "expres-02^^" set ^%Src2SourceSyntax("syntax","expressao","expres-03","texto") = "expres-02^^" set ^%Src2SourceSyntax("syntax","expressao","expres-03","funcDes") = "expres-02^funcDes^" set ^%Src2SourceSyntax("syntax","expressao","expres-03","funcCache") = "expres-02^funcCache^" set ^%Src2SourceSyntax("syntax","expressao","expres-03","macro") = "expres-02^funcCache^" set ^%Src2SourceSyntax("syntax","expressao","expres-03","indirecao") = "expres-02^indirecao^" set ^%Src2SourceSyntax("syntax","expressao","expres-03","interroga") = "expres-02^interroga^" set ^%Src2SourceSyntax("syntax","expressao","expres-04","espaco") = "expres-04" set ^%Src2SourceSyntax("syntax","expressao","expres-04","tab") = "expres-04" set ^%Src2SourceSyntax("syntax","expressao","expres-04","{direta}") = "expres-05^expressao" set ^%Src2SourceSyntax("syntax","expressao","expres-05","espaco") = "expres-05" set ^%Src2SourceSyntax("syntax","expressao","expres-05","tab") = "expres-05" set ^%Src2SourceSyntax("syntax","expressao","expres-05","fecha)") = "expres-02^^" // Expressao para ser atribuida - sem espaços set ^%Src2SourceSyntax("syntax","expressao2","expres2-01","abre(") = "expres2-04" set ^%Src2SourceSyntax("syntax","expressao2","expres2-01","{direta}") = "expres2-02^variavel^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-01","numero") = "expres2-02^^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-01","texto") = "expres2-02^^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-01","funcDes") = "expres2-02^funcDes^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-01","funcCache") = "expres2-02^funcCache^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-01","macro") = "expres2-02^funcCache^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-01","indirecao") = "expres2-02^indirecao^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-01","operador") = "expres2-03" set ^%Src2SourceSyntax("syntax","expressao2","expres2-02","operador") = "expres2-03" set ^%Src2SourceSyntax("syntax","expressao2","expres2-02","interroga") = "expres2-02^interroga^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-02","fim") = "^^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-03","abre(") = "expres2-04" set ^%Src2SourceSyntax("syntax","expressao2","expres2-03","operador") = "expres2-03" set ^%Src2SourceSyntax("syntax","expressao2","expres2-03","{direta}") = "expres2-02^variavel^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-03","numero") = "expres2-02^^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-03","texto") = "expres2-02^^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-03","funcDes") = "expres2-02^funcDes^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-03","funcCache") = "expres2-02^funcCache^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-03","macro") = "expres2-02^funcCache^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-03","indirecao") = "expres2-02^indirecao^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-03","interroga") = "expres2-02^interroga^" set ^%Src2SourceSyntax("syntax","expressao2","expres2-04","espaco") = "expres2-04" set ^%Src2SourceSyntax("syntax","expressao2","expres2-04","tab") = "expres2-04" set ^%Src2SourceSyntax("syntax","expressao2","expres2-04","{direta}") = "expres2-05^expressao" set ^%Src2SourceSyntax("syntax","expressao2","expres2-05","espaco") = "expres2-05" set ^%Src2SourceSyntax("syntax","expressao2","expres2-05","tab") = "expres2-05" set ^%Src2SourceSyntax("syntax","expressao2","expres2-05","fecha)") = "expres2-02^^" // Indireção @ set ^%Src2SourceSyntax("syntax","indirecao","indir-00","indirecao") = "indir-01" set ^%Src2SourceSyntax("syntax","indirecao","indir-01","espaco") = "indir-01" set ^%Src2SourceSyntax("syntax","indirecao","indir-01","tab") = "indir-01" set ^%Src2SourceSyntax("syntax","indirecao","indir-01","abre(") = "indir-02" set ^%Src2SourceSyntax("syntax","indirecao","indir-01","{direta}") = "^variavel^" set ^%Src2SourceSyntax("syntax","indirecao","indir-02","espaco") = "indir-02" set ^%Src2SourceSyntax("syntax","indirecao","indir-02","tab") = "indir-02" set ^%Src2SourceSyntax("syntax","indirecao","indir-02","{direta}") = "indir-03^expressao^" set ^%Src2SourceSyntax("syntax","indirecao","indir-03","espaco") = "indir-03" set ^%Src2SourceSyntax("syntax","indirecao","indir-03","tab") = "indir-03" set ^%Src2SourceSyntax("syntax","indirecao","indir-03","fecha)") = "^^" // ? set ^%Src2SourceSyntax("syntax","interroga","inter-01","interroga") = "inter-02" set ^%Src2SourceSyntax("syntax","interroga","inter-02","ponto") = "inter-02^^" set ^%Src2SourceSyntax("syntax","interroga","inter-02","ident") = "inter-02^^" set ^%Src2SourceSyntax("syntax","interroga","inter-02","espaco") = "" set ^%Src2SourceSyntax("syntax","interroga","inter-02","fim") = "^^" // Variavel / Global / Tabela set ^%Src2SourceSyntax("syntax","variavel","var-01","uperro") = "var-02" set ^%Src2SourceSyntax("syntax","variavel","var-01","variavel") = "var-03^^" set ^%Src2SourceSyntax("syntax","variavel","var-02","variavel") = "var-03^^" set ^%Src2SourceSyntax("syntax","variavel","var-02","abreNsp[") = "var-06" set ^%Src2SourceSyntax("syntax","variavel","var-02","pipe") = "var-09" set ^%Src2SourceSyntax("syntax","variavel","var-03","espaco") = "var-03" set ^%Src2SourceSyntax("syntax","variavel","var-03","tab") = "var-03" set ^%Src2SourceSyntax("syntax","variavel","var-03","abre(") = "var-04" set ^%Src2SourceSyntax("syntax","variavel","var-03","fim") = "^^" set ^%Src2SourceSyntax("syntax","variavel","var-04","espaco") = "var-04" set ^%Src2SourceSyntax("syntax","variavel","var-04","tab") = "var-04" set ^%Src2SourceSyntax("syntax","variavel","var-04","{direta}") = "var-05^expressao" set ^%Src2SourceSyntax("syntax","variavel","var-05","espaco") = "var-05" set ^%Src2SourceSyntax("syntax","variavel","var-05","tab") = "var-05" set ^%Src2SourceSyntax("syntax","variavel","var-05","virgula") = "var-04" set ^%Src2SourceSyntax("syntax","variavel","var-05","fecha)") = "^^" set ^%Src2SourceSyntax("syntax","variavel","var-06","espaco") = "var-06" set ^%Src2SourceSyntax("syntax","variavel","var-06","tab") = "var-06" set ^%Src2SourceSyntax("syntax","variavel","var-06","variavel") = "var-07" set ^%Src2SourceSyntax("syntax","variavel","var-06","texto") = "var-07" set ^%Src2SourceSyntax("syntax","variavel","var-07","espaco") = "var-07" set ^%Src2SourceSyntax("syntax","variavel","var-07","tab") = "var-07" set ^%Src2SourceSyntax("syntax","variavel","var-07","fechaNsp]") = "var-08" set ^%Src2SourceSyntax("syntax","variavel","var-08","variavel") = "var-03^^" set ^%Src2SourceSyntax("syntax","variavel","var-09","espaco") = "var-09" set ^%Src2SourceSyntax("syntax","variavel","var-09","tab") = "var-09" set ^%Src2SourceSyntax("syntax","variavel","var-09","{direta}") = "var-10^expressao" set ^%Src2SourceSyntax("syntax","variavel","var-10","espaco") = "var-10" set ^%Src2SourceSyntax("syntax","variavel","var-10","tab") = "var-10" set ^%Src2SourceSyntax("syntax","variavel","var-10","pipe") = "var-11" set ^%Src2SourceSyntax("syntax","variavel","var-11","variavel") = "var-03^^" // Expressao para receber atribuição set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-01","abre(") = "exprAtrib-04" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-01","{direta}") = "exprAtrib-02^variavel^" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-01","funcCache") = "exprAtrib-02^funcCache^" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-01","macro") = "exprAtrib-02^funcCache^" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-01","indirecao") = "exprAtrib-02^indirecao^" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-02","espaco") = "exprAtrib-02" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-02","tab") = "exprAtrib-02" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-02","virgula") = "exprAtrib-03" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-02","fim") = "^^" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-03","espaco") = "exprAtrib-03" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-03","tab") = "exprAtrib-03" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-03","{direta}") = "exprAtrib-02^variavel^" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-03","funcCache") = "exprAtrib-02^funcCache^" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-03","macro") = "exprAtrib-02^funcCache^" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-03","indirecao") = "exprAtrib-02^indirecao^" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-04","espaco") = "exprAtrib-04" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-04","tab") = "exprAtrib-04" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-04","{direta}") = "exprAtrib-05^exprAtrib2" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-05","espaco") = "exprAtrib-05" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-05","tab") = "exprAtrib-05" set ^%Src2SourceSyntax("syntax","exprAtrib","exprAtrib-05","fecha)") = "exprAtrib-02^^" set ^%Src2SourceSyntax("syntax","exprAtrib2","exprAtrib2-01","{direta}") = "exprAtrib2-02^variavel^" set ^%Src2SourceSyntax("syntax","exprAtrib2","exprAtrib2-01","funcCache") = "exprAtrib2-02^funcCache^" set ^%Src2SourceSyntax("syntax","exprAtrib2","exprAtrib2-01","macro") = "exprAtrib2-02^funcCache^" set ^%Src2SourceSyntax("syntax","exprAtrib2","exprAtrib2-01","indirecao") = "exprAtrib2-02^indirecao^" set ^%Src2SourceSyntax("syntax","exprAtrib2","exprAtrib2-02","espaco") = "exprAtrib2-02" set ^%Src2SourceSyntax("syntax","exprAtrib2","exprAtrib2-02","tab") = "exprAtrib2-02" set ^%Src2SourceSyntax("syntax","exprAtrib2","exprAtrib2-02","virgula") = "exprAtrib2-03" set ^%Src2SourceSyntax("syntax","exprAtrib2","exprAtrib2-02","fim") = "^^" set ^%Src2SourceSyntax("syntax","exprAtrib2","exprAtrib2-03","espaco") = "exprAtrib2-03" set ^%Src2SourceSyntax("syntax","exprAtrib2","exprAtrib2-03","tab") = "exprAtrib2-03" set ^%Src2SourceSyntax("syntax","exprAtrib2","exprAtrib2-03","{direta}") = "exprAtrib2-02^variavel^" set ^%Src2SourceSyntax("syntax","exprAtrib2","exprAtrib2-03","funcCache") = "exprAtrib2-02^funcCache^" set ^%Src2SourceSyntax("syntax","exprAtrib2","exprAtrib2-03","macro") = "exprAtrib2-02^funcCache^" set ^%Src2SourceSyntax("syntax","exprAtrib2","exprAtrib2-03","indirecao") = "exprAtrib2-02^indirecao^" // Função Desenvolvida // $$Teste(variavel, teste) // $$Teste^rotina(variavel, teste) set ^%Src2SourceSyntax("syntax","funcDes","funcDes-01","funcDes") = "funcDes-02" set ^%Src2SourceSyntax("syntax","funcDes","funcDes-02","{direta}") = "^labRot()^" // Função Caché / Macro set ^%Src2SourceSyntax("syntax","funcCache","funcCache-01","funcCache") = "funcCache-02" set ^%Src2SourceSyntax("syntax","funcCache","funcCache-01","macro") = "funcCache-02" set ^%Src2SourceSyntax("syntax","funcCache","funcCache-02","ident") = "funcCache-03^^" set ^%Src2SourceSyntax("syntax","funcCache","funcCache-03","abre(") = "funcCache-04" set ^%Src2SourceSyntax("syntax","funcCache","funcCache-03","fim") = "^^" set ^%Src2SourceSyntax("syntax","funcCache","funcCache-04","espaco") = "funcCache-04" set ^%Src2SourceSyntax("syntax","funcCache","funcCache-04","tab") = "funcCache-04" set ^%Src2SourceSyntax("syntax","funcCache","funcCache-04","virgula") = "funcCache-04" set ^%Src2SourceSyntax("syntax","funcCache","funcCache-04","fecha)") = "^^" set ^%Src2SourceSyntax("syntax","funcCache","funcCache-04","{direta}") = "funcCache-05^expressao" set ^%Src2SourceSyntax("syntax","funcCache","funcCache-05","espaco") = "funcCache-05" set ^%Src2SourceSyntax("syntax","funcCache","funcCache-05","tab") = "funcCache-05" set ^%Src2SourceSyntax("syntax","funcCache","funcCache-05","virgula") = "funcCache-04" set ^%Src2SourceSyntax("syntax","funcCache","funcCache-05","fecha)") = "^^" // $select set ^%Src2SourceSyntax("syntax","$select","$select-01","ident") = "$select-02" set ^%Src2SourceSyntax("syntax","$select","$select-02","abre(") = "$select-03" set ^%Src2SourceSyntax("syntax","$select","$select-03","espaco") = "$select-03" set ^%Src2SourceSyntax("syntax","$select","$select-03","tab") = "$select-03" set ^%Src2SourceSyntax("syntax","$select","$select-03","{direta}") = "$select-04^expressao" set ^%Src2SourceSyntax("syntax","$select","$select-04","espaco") = "$select-04" set ^%Src2SourceSyntax("syntax","$select","$select-04","tab") = "$select-04" set ^%Src2SourceSyntax("syntax","$select","$select-04","doispontos") = "$select-05" set ^%Src2SourceSyntax("syntax","$select","$select-05","espaco") = "$select-05" set ^%Src2SourceSyntax("syntax","$select","$select-05","tab") = "$select-05" set ^%Src2SourceSyntax("syntax","$select","$select-05","{direta}") = "$select-07^expressao" set ^%Src2SourceSyntax("syntax","$select","$select-07","espaco") = "$select-07" set ^%Src2SourceSyntax("syntax","$select","$select-07","tab") = "$select-07" set ^%Src2SourceSyntax("syntax","$select","$select-07","virgula") = "$select-03" set ^%Src2SourceSyntax("syntax","$select","$select-07","fecha)") = "^^" // Label set ^%Src2SourceSyntax("syntax","label","label-01","label") = "label-03^^" set ^%Src2SourceSyntax("syntax","label","label-03","abre(") = "label-04" set ^%Src2SourceSyntax("syntax","label","label-03","fim") = "^^" set ^%Src2SourceSyntax("syntax","label","label-04","espaco") = "label-04" set ^%Src2SourceSyntax("syntax","label","label-04","tab") = "label-04" set ^%Src2SourceSyntax("syntax","label","label-04","fecha)") = "^^" set ^%Src2SourceSyntax("syntax","label","label-04","variavel") = "label-05" set ^%Src2SourceSyntax("syntax","label","label-05","espaco") = "label-05" set ^%Src2SourceSyntax("syntax","label","label-05","tab") = "label-05" set ^%Src2SourceSyntax("syntax","label","label-05","virgula") = "label-04" set ^%Src2SourceSyntax("syntax","label","label-05","fecha)") = "^^" // Label / Label^Rotina / ^Rotina set ^%Src2SourceSyntax("syntax","labRot","labRot-01","label") = "labRot-02^^" set ^%Src2SourceSyntax("syntax","labRot","labRot-01","indirecao") = "labRot-02^indirecao^" set ^%Src2SourceSyntax("syntax","labRot","labRot-01","uperro") = "labRot-03" set ^%Src2SourceSyntax("syntax","labRot","labRot-02","uperro") = "labRot-03" set ^%Src2SourceSyntax("syntax","labRot","labRot-02","espaco") = "^^" set ^%Src2SourceSyntax("syntax","labRot","labRot-02","fim") = "^^" set ^%Src2SourceSyntax("syntax","labRot","labRot-03","rotina") = "labRot-04^^" set ^%Src2SourceSyntax("syntax","labRot","labRot-03","indirecao") = "labRot-04^indirecao^" set ^%Src2SourceSyntax("syntax","labRot","labRot-03","fim") = "^^" set ^%Src2SourceSyntax("syntax","labRot","labRot-04","espaco") = "^^" set ^%Src2SourceSyntax("syntax","labRot","labRot-04","fim") = "^^" set ^%Src2SourceSyntax("syntax","labRot","labRot-07","variavel") = "labRot-06" // Label / Label^Rotina / ^Rotina / Label() / Label^Rotina() / ^Rotina() set ^%Src2SourceSyntax("syntax","labRot()","labRot()-01","label") = "labRot()-02^^" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-01","indirecao") = "labRot()-02^indirecao^" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-01","uperro") = "labRot()-03" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-02","uperro") = "labRot()-03" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-02","abre(") = "labRot()-05" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-02","espaco") = "^^" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-02","fim") = "^^" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-03","rotina") = "labRot()-04^^" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-03","indirecao") = "labRot()-04^indirecao^" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-03","fim") = "^^" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-04","espaco") = "labRot()-04" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-04","fim") = "^^" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-04","abre(") = "labRot()-05" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-05","espaco") = "labRot()-05" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-05","tab") = "labRot()-05" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-05","virgula") = "labRot()-05" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-05","ponto") = "labRot()-07" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-05","fecha)") = "^^" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-05","{direta}") = "labRot()-06^expressao" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-06","espaco") = "labRot()-06" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-06","tab") = "labRot()-06" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-06","virgula") = "labRot()-05" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-06","fecha)") = "^^" set ^%Src2SourceSyntax("syntax","labRot()","labRot()-07","variavel") = "labRot()-06" // Comando - include set ^%Src2SourceSyntax("syntax","include","include-01","include") = "include-02" set ^%Src2SourceSyntax("syntax","include","include-02","ident") = "include-03^^" set ^%Src2SourceSyntax("syntax","include","include-03","espaco") = "include-03" set ^%Src2SourceSyntax("syntax","include","include-03","tab") = "include-03" set ^%Src2SourceSyntax("syntax","include","include-03","variavel") = "^^" quit $$$OK ]]> 1 %RegisteredObject 61727,0 Ederson E. Jantsch Utilitários Validador de Sintax Caché Code Validador de Sintax Caché Code 1 [ ] Converter o fonte das classes também [ ] Converter na mão também as rotinas com COS [ ] Implementar desvio de rotinas inativas e QGs set sc = ##class(Src2.Item).ValidarItem("CCTCP02*.MAC", , .qtdItens, .tabItens) set sc = ##class(Src2.SourceSyntaxConv).ConverterGrupoRotinas("CCTCPRG000.MAC") set sc = ##class(Src2.SourceSyntaxConv).ConverterGrupoRotinas("CCTCPRG005.MAC") set sc = ##class(Src2.SourceSyntaxConv).ConverterGrupoRotinas("CCTCPRG*.MAC") set sc = ##class(Src2.SourceSyntaxConv).ConverterGrupoRotinas("CCTCP02*.MAC") set sc = ##class(Src2.SourceSyntaxConv).ConverterGrupoRotinas("CCTCP*.MAC") 1 grupo:%String %Status Converter Rotina tipoConv = 0 - Converte somente se tiver macro (Padrão) 1 - Converte sempre set sc = ##class(Src2.SourceSyntaxConv).ConverterRotina("XXEJCCFT240", "XXEJCCFT240CONV") set sc = ##class(Src2.SourceSyntaxConv).ConverterRotina("CCTCOC700RG", "XXEJCCTCOC700RG") set sc = ##class(Src2.SourceSyntaxConv).ConverterRotina("XXEJCCTCOC700RG", "XXEJCCTCOC700RGCONV") set sc = ##class(Src2.SourceSyntaxConv).ConverterRotina("CCTCORG002", "XXEJCCTCORG002") set sc = ##class(Src2.SourceSyntaxConv).ConverterRotina("XXEJCCTCORG000", "XXEJCCTCORG000CONV") set sc = ##class(Src2.SourceSyntaxConv).ConverterRotina("CCESN100", "XXEJCCESN100") set sc = ##class(Src2.SourceSyntaxConv).ConverterRotina("CCTCORG006", "XXEJCCTCORG006") set sc = ##class(Src2.SourceSyntaxConv).ConverterRotina("CCTCPRG000", "XXEJCCTCPRG000") set sc = ##class(Src2.SourceSyntaxConv).ConverterRotina("CCUTIRG001", "XXEJCCUTIRG001", .flgConv, .tabErrosCompCS) 1 %Status ") { set tabRotina(lin) = linha continue } set sc = ##class(Src2.SourceSyntax).ObterExpressoes(linha, .tabExpressao) set sc = ##class(Src2.SourceSyntax).ValidarSyntax(.tabExpressao) if (sc '= 1) { set tabRotina(lin) = linha set tabErrosCompCS(lin) = linha continue } if (linha [ "#include %CSUTICSP") { set tabStringsFull($char(9)_"quit 1") = $char(9)_"quit $$$OK" set flgTemMacro = 1 } set sc = ##class(Src2.SourceSyntaxConv).ObterLinhaConvExpressao(.tabExpressao, .linhaRet, .flgMacro) if flgMacro set flgIncMacro = 1 set sc = ##class(Src2.SourceSyntaxConv).TrocarStrings(.linhaRet, .flgMacro, .tabStrings, .tabStringsFull) if flgMacro set flgIncMacro = 1 set tabRotina(lin) = linhaRet } merge tabErros(10) = tabErrosCompCS if (tipoConv = 0) & ('flgIncMacro) quit $$$OK set flgConv = 1 if ('flgTemMacro) { set sc = ##class(Src2.SourceSyntaxConv).IncluirInclude(.tabRotina) } set strOpcoes = "csp;workspace" set sc = ##class(Src2.Rotina).GerarRotinaArquivo(, rotinaDest, "csp;workspace", .tabErrosTemp, .tabOK, .tabRotina) merge tabErros = tabErrosTemp quit sc ]]> 1 %Status set sc = ##class(Src2.SourceSyntaxConv).TrocarStrings("else quit $$Error^%CSUTICSP(10000,$$MsgLock^%CSW1F(Natureza para comprometimento,a,$name(^TCOCFG($$Error^%CSUTICSP(10000,codEmpresa),12,codNatureza))))") set sc = ##class(Src2.SourceSyntaxConv).TrocarStrings($get(^rMAC("CCTCORG000",0,17))) 1 %Status 1 %Status 1 %Status 1 %Status 1 tabExpressao:%String,linha:%String,tab:%String,codCmd:%String %String 1 tabExpressao:%String,tabSeq:%String,cmd:%String,parametro:%String %String 1) continue } if (syntax = "funcCache") & (tipo = "fecha)") { set nivel = nivel - 1 if (nivel '> 0) continue } if (syntax = "funcCache") & (tipo = "virgula") & (nivel = 1) { set parametro = parametro + 1 continue } set tabFunc(parametro,codSeq) = "" } set parametro = """" kill tabSeq2 merge tabSeq2 = tabFunc(1) set sc = ##class(Src2.SourceSyntaxConv).ExcreverTabSeq(.tabExpressao, .tabSeq2, .parametro, 1) set parametro = parametro _ """," kill tabSeq2 merge tabSeq2 = tabFunc(2) set sc = ##class(Src2.SourceSyntaxConv).ExcreverTabSeq(.tabExpressao, .tabSeq2, .parametro, 0) set parametro = parametro _ "," kill tabSeq2 merge tabSeq2 = tabFunc(3) set sc = ##class(Src2.SourceSyntaxConv).ExcreverTabSeq(.tabExpressao, .tabSeq2, .parametro, 0) set parametro = parametro _ "," kill tabSeq2 merge tabSeq2 = tabFunc(4) set sc = ##class(Src2.SourceSyntaxConv).ExcreverTabSeq(.tabExpressao, .tabSeq2, .parametro, 0) ]]> 1 tabExpressao:%String,linha:%String,tab:%String,codCmd:%String %String 1 tabExpressao:%String,linha:%String,tab:%String,codCmd:%String,cmd:%String,cmd2:%String %String 1 tabExpressao:%String,linha:%String,tab:%String,codCmd:%String %String 1 tabExpressao:%String,linha:%String,tab:%String,codCmd:%String %String 1 tabExpressao:%String,tabSeq:%String,linha:%String,texto:%Status=0 %String 1 texto:%String %String 1 express:%String %String 1) quit 0 quit $$$OK ]]> set sc = ##class(Src2.SourceSyntaxConv).IncluirInclude(.tabRotina) 1 %Status 1 %RegisteredObject 61727,0 Realiza um Svn Checkout Atualizando os Fontes no Caché (por string) 1 string:%String,username:%String="",password:%String="" %String Realiza um Svn Checkout Atualizando os Fontes no Caché set sc = ##class(Src2.Svn).Checkout("csw63", "36") 1 projeto:%String,revisao:%String="head",username:%String="",password:%String="",flagCsp:%Boolean=0,flagCompClasse:%Boolean=0 %String Realiza um Svn Update Atualizando os Fontes no Caché de Todos os Projetos 1 username:%String="",password:%String="" %String Realiza um Svn Update Atualizando os Fontes no Caché (por string) 1 string:%String,username:%String="",password:%String="" %String Realiza um Svn Update Atualizando os Fontes no Caché set sc = ##class(Src2.Svn).Update("csw63") set sc = ##class(Src2.Svn).Update("csw63", "36") 1 projeto:%String,revisao:%String="head",username:%String="",password:%String="",autenticacao:%String="",flgUrlRepos:%Boolean=1,flgUpdateDifHead:%Boolean=1 %String "_nrRevisao_" | Tempo: "_tempoTotalEdt) kill ^mtempInfoArquivo(codTerm) set sc = ##class(Src2.Utils2).UnLockProjeto(projeto) quit $$$OK ]]> Importa os Itens Alterados no Workspace para o Caché (por string) 1 string:%String,username:%String="",password:%String="" %String Importa os Itens Alterados no Workspace para o Caché set sc = ##class(Src2.Svn).ImportarItensAlterados("csw63") 1 projeto:%String,username:%String="",password:%String="" %String Importa Todos os Itens do Workspace para o Caché (por string) 1 string:%String,username:%String="",password:%String="" %String Importa Todos os Itens do Workspace para o Caché set sc = ##class(Src2.Svn).ImportarTodosItensProjeto("teste64", "admin", "admin") 1 projeto:%String,username:%String="",password:%String="",flagCsp:%Boolean=0,flagCompClasse:%Boolean=0 %String "_revisaoWorkspace_" | Tempo: "_tempoTotalEdt) kill ^mtempInfoArquivo(codTerm) quit $$$OK ]]> Gera o Status das Alterações no Projeto (por string) 1 string:%String,username:%String="",password:%String="" %String Gera o Status das Alterações no Projeto set sc = ##class(Src2.Svn).StatusAlteracoes("csw63") 1 projeto:%String,username:%String="",password:%String="" %String Exporta o Item 1 InternalName:%String,username:%String="",password:%String="" %String Exporta o Item set sc = ##class(Src2.Svn).ExportarItem("CCEVA300.mac") 1 InternalName:%String,username:%String="",password:%String="" %String Reverte o Item 1 InternalName:%String,username:%String="",password:%String="" %String Converter o Item 1 InternalName:%String,username:%String="",password:%String="" %String "_$justify(codSeq,5)_": "_$get(tabErros(10,codSeq)) } } set sc = ##class(Src2.Utils).EncerrarCronometragem(timestampInicio, .tempoTotalEdt) write !,##class(Src2.Utils).ObterBarra("Projeto: "_projeto_" | Revisao: "_revisaoAtual_" | Tempo: "_tempoTotalEdt) set sc = ##class(Src2.Utils).GeraLog(0, "Studio - Converter Item | Projeto: "_projeto_" | "_InternalName_" | Revisão: "_revisaoAtual_" | Tempo: "_tempoTotalEdt) quit $$$OK ]]> Caché (por string) ]]> 1 string:%String,username:%String="",password:%String="" %String Caché set sc = ##class(Src2.Svn).AnalisarDifWorkspaceCache("teste64", 0)]]> 1 projeto:%String,flgAcertar:%Boolean=0,username:%String="",password:%String="",flagCsp:%Boolean=0,flagCompClasse:%Boolean=0,grupoItensSel:%String="" %String Caché") set sc = ##class(Src2.Utils).ObterConfig(.codTerm, , .caminhoSvn, .arquivoTemp) if (sc '= $$$OK) { write !,"Source Control: "_sc write !,##class(Src2.Utils).ObterBarra() quit sc } set sc = ##class(Src2.Utils).ObterDadosProjeto(projeto, .caminhoCopiaTrabalho, .urlRepositorio, .sistema, .revisaoAtual) if (sc '= $$$OK) { write !,"Source Control: "_sc write !,##class(Src2.Utils).ObterBarra() quit sc } set sc = ##class(Src2.Utils).ValidarWorkspaceProjeto(projeto) if (sc '= $$$OK) { write !,"Source Control: "_sc write !,##class(Src2.Utils).ObterBarra() quit sc } set sc = ##class(Src2.Utils).Subversion(caminhoSvn, "list -R "_caminhoCopiaTrabalho, username, password, , arquivoTemp) if (sc '= $$$OK) { write !,"Source Control: "_sc write !,##class(Src2.Utils).ObterBarra() quit sc } set sc = ##class(Src2.Utils).ObterDadosArquivoSvnList(codTerm, arquivoTemp, urlRepositorio, caminhoCopiaTrabalho) set strOpcoesRotinas = "" if (flagCsp) { set strOpcoesRotinas = "csp" } set tipoFlag = 1 if (flagCompClasse) set tipoFlag = 2 set flagCompClasses = ##class(Src2.Classe).ObterFlagsCompilacaoPadrao(tipoFlag) set sc = ##class(Src2.Item).CompararWorkspaceCache(codTerm, flgAcertar, strOpcoesRotinas, flagCompClasses, 1, grupoItensSel) set sc = ##class(Src2.Utils).EncerrarCronometragem(timestampInicio, .tempoTotalEdt) write !,##class(Src2.Utils).ObterBarra("Projeto: "_projeto_" | Revisao: "_revisaoAtual_" | Tempo: "_tempoTotalEdt) kill ^mtempInfoArquivo(codTerm) set sc = ##class(Src2.Utils).GeraLog(0, "Studio - Analisar Diferenças - Workspace > Caché | Projeto: "_projeto_" | Revisão: "_revisaoAtual_" | Tempo: "_tempoTotalEdt_" | Acertar: "_$select(flgAcertar:"Sim",1:"Não")) quit $$$OK ]]> Workspace (por string) ]]> 1 string:%String,username:%String="",password:%String="" %String Workspace set sc = ##class(Src2.Svn).AnalisarDifCacheWorkspace("csw63") set sc = ##class(Src2.Svn).AnalisarDifCacheWorkspace("csw63", 1)]]> 1 projeto:%String,flgAcertar:%Boolean=0,flgSubversion:%Boolean=1,username:%String="",password:%String="",grupoItensSel:%String="" %String Workspace") if (grupoItensSel '= "") { set sc = ##class(Src2.Item).CompararItensArquivos(grupoItensSel, flgAcertar, flgSubversion, username, password) } if (grupoItensSel = "") { set grupo = "" for { set grupo = $order(^Src2Config("rotina",grupo)) if (grupo = "") quit set var = $get(^Src2Config("rotina",grupo)) set projetoGrupo = $piece(var,"^",1) if (projetoGrupo '= projeto) continue if ('$data(^Src2Config("projetorev",projetoGrupo))) continue set sc = ##class(Src2.Item).CompararItensArquivos(grupo_"*.mac", flgAcertar, flgSubversion, username, password) } set grupo = "" for { set grupo = $order(^Src2Config("classe",grupo)) if (grupo = "") quit set var = $get(^Src2Config("classe",grupo)) set projetoGrupo = $piece(var,"^",1) if (projetoGrupo '= projeto) continue if ('$data(^Src2Config("projetorev",projetoGrupo))) continue set sc = ##class(Src2.Item).CompararItensArquivos(grupo_"*.cls", flgAcertar, flgSubversion, username, password) } } set sc = ##class(Src2.Utils).EncerrarCronometragem(timestampInicio, .tempoTotalEdt) write !,##class(Src2.Utils).ObterBarra("Projeto: "_projeto_" | Revisao: "_revisaoAtual_" | Tempo: "_tempoTotalEdt) set sc = ##class(Src2.Utils).GeraLog(0, "Studio - Analisar Diferenças - Caché > Workspace | Projeto: "_projeto_" | Revisão: "_revisaoAtual_" | Tempo: "_tempoTotalEdt_" | Acertar: "_$select(flgAcertar:"Sim",1:"Não")) quit $$$OK ]]> Exportar os Objetos para a Aplicacao CSP 1 username:%String="",password:%String="" %String Importa o Serviço Consistem 1 username:%String="",password:%String="" %String Lista o Log de Alterações do Item set sc = ##class(Src2.Svn).LogAlteracoesItem("CCAFC002.mac", "admin", "admin") 1 InternalName:%String,username:%String="",password:%String="" %String Analisa as Diferenças do Item entre os Projetos set sc = ##class(Src2.Svn).AnalisarItemProjetos("CCAFC002.mac", "admin", "admin") 1 InternalName:%String,username:%String="",password:%String="" %String Gerar/Configurar Base (por string) 1 string:%String %String Configurar Base set sc = ##class(Src2.Svn).AtualizarMenuConfig("DESENVDA61") 1 namespace:%String="",flgWrite:%Boolean=1,flgDataSource:%Boolean=1 %Status Switch Projetos set sc = ##class(Src2.Svn).SwitchProjetos() 1 username:%String="",password:%String="" %Status revisaoMaxima)) { write " - Erro - Revisao do repositorio de estar entre "_revisaoMinima_":"_revisaoMaxima_" | set sc = ##class(Src2.Svn).Update("""_projeto_""", """_revisaoMinima_""", , , , 0)" continue } set msgsc = ##class(Src2.Utils).Subversion(caminhoSvn, "switch "_urlDestino_"@"_revisaoDestino_" "_caminhoCopiaTrabalho, , , autenticacao) if (msgsc '= 1) { write " - Erro - "_msgsc continue } set ^Src2Config("projetorev",projeto) = revisaoDestino write " - Convertido de "_urlRepositorioReal_"@"_revisaoAtualReal_" para "_urlDestino_"@"_revisaoDestino } quit $$$OK ]]> Realiza um Svn Switch Atualizando os Fontes no Caché (por string) 1 string:%String,username:%String="",password:%String="" %String Switch set sc = ##class(Src2.Svn).Switch("teste64rf1") set sc = ##class(Src2.Svn).Switch("teste64") 1 projetoSwitch:%String="",username:%String="",password:%String="" %String Validar Switch 1 %String Switch Projeto 1 projetoSwitch:%String,username:%String="",password:%String="" %String "_projetoSwitch_" | Revisão: "_revisaoAtual_" => "_nrRevisao_" | Tempo: "_tempoTotalEdt) kill ^mtempInfoArquivo(codTerm) set msgsc = ##class(Src2.Utils2).UnLockProjeto(projeto) quit $$$OK ]]> Reverte Totas as Alterações em um Projeto 1 projeto:%String,username:%String="",password:%String="" %String Gerar Backup e Patch com Totas as Alterações em um Projeto 1 projeto:%String="",username:%String="",password:%String="",flgAlteracoes:%Boolean,projetoSwitch:%String %String " set tabLinhas(2) = "" set tabLinhas(3) = $char(9)_""_projetoAtual_"" set tabLinhas(4) = $char(9)_""_revisaoAtual_"" set tabLinhas(5) = $char(9)_""_projetoSwitch_"" set tabLinhas(6) = $char(9)_""_$zdatetime($horolog,4)_"" set tabLinhas(7) = "" set sc = ##class(Src2.Utils2).ConverteTabelaArquivo(arquivoInfoXml, .tabLinhas) set sc = ##Class(%File).CopyFile(arquivoInfoXml, arquivoInfoXml2) // Arquivo xml - Backup Redundante set sc = ##class(Src2.Item).ObterItensAlterados(projeto, username, password, .tabItens) set sc = ##class(Src2.ImportExport).ExportarArquivoXml(.tabItens, arquivoXml) set sc = ##Class(%File).CopyFile(arquivoXml, arquivoXml2) // Arquivo diff - Arquivo para Recuperação set msgsc = ##class(Src2.Utils).Subversion(caminhoSvn, "diff "_caminhoCopiaTrabalho, , , autenticacao, arquivoDiff) set sc = ##Class(%File).CopyFile(arquivoDiff, arquivoDiff2) } set sc = ##class(Src2.Utils).EncerrarCronometragem(timestampInicio, .tempoTotalEdt) write !,##class(Src2.Utils).ObterBarra("Projeto: "_descProjeto_" | Revisao: "_revisaoAtual_" | Tempo: "_tempoTotalEdt) set sc = ##class(Src2.Utils).GeraLog(0, "Studio - Gerar Backup/Patch do Projeto | Projeto: "_descProjeto_" | Revisão: "_revisaoAtual_" | Tempo: "_tempoTotalEdt) quit $$$OK ]]> Aplicar Patch com Totas as Alterações em um Projeto 1 projeto:%String="",username:%String="",password:%String="" %String 1 %RegisteredObject 61727,0 Obter Dados - Checkout 1 %String Grava Dados - Checkout 1 string:%String="" %String Obter Dados - Update 1 %String Obter Dados - Switch 1 %String Grava Dados - Update 1 string:%String="" %String Obter Dados - Importar Itens - Alterados 1 %String Caché" set string = string_$char(13,10,13)_"Sistema: "_sistema quit $$$OK ]]> Grava Dados - Importar Itens - Alterados 1 string:%String="" %String Obter Dados - Importar Itens - Todos 1 %String Caché" set string = string_$char(13,10,13)_"ATENÇÃO - Processo Demorado" set string = string_$char(13,10,13)_"Sistema: "_sistema set string = string_$char(13,10,13)_"Gerar CSP: Não" set string = string_$char(13,10,13)_"Compilar Classes: Não" quit $$$OK ]]> Grava Dados - Importar Itens - Todos 1 string:%String="" %String Obter Dados - Importar Item 1 %String Caché" set string = string_$char(13,10,13)_"Item: "_InternalName_" <<= Não Alterar" quit $$$OK ]]> Obter Dados - Exportar Item 1 %String Workspace" set string = string_$char(13,10,13)_"Item: "_InternalName_" <<= Não Alterar" quit $$$OK ]]> Obter Dados - Reverter Item 1 %String Obter Dados - Converter Item 1 %String Caché ]]> 1 %String Caché" set string = string_$char(13,10,13)_"Sistema: "_sistema set string = string_$char(13,10,13)_"Grupo de Itens: " set string = string_$char(13,10,13)_"Acertar: Não" set string = string_$char(13,10,13)_"Exemplos de Grupos de Itens: CCPV*.MAC / Fat.Nfe.*.cls" quit $$$OK ]]> Caché ]]> 1 string:%String="" %String Workspace ]]> 1 %String Workspace" set string = string_$char(13,10,13)_"Sistema: "_sistema set string = string_$char(13,10,13)_"Grupo de Itens: " set string = string_$char(13,10,13)_"Acertar: Não" set string = string_$char(13,10,13)_"Exemplos de Grupos de Itens: CCPV*.MAC / Fat.Nfe.*.cls" quit $$$OK ]]> Workspace ]]> 1 string:%String="" %String Obter Dados - Status Alterações 1 %String Grava Dados - Status Alterações 1 string:%String="" %String Obter Dados - Log Alterações 1 %String Grava Dados - Log Alterações 1 string:%String="" %String Obter Dados - Exportar Objetos para Aplicação CSP 1 %String Obter Dados - Gerar Serviço Consistem 1 %String Obter Dados - Atualizar Menu 1 %String Grava Ultimo Projeto 1 sistema:%String="" %String 1 %RegisteredObject 62428,56271.964316 Atualiza Fontes Namespace set sc = ##class(Src2.SvnHookScript).AtualizarFontesNamespaceJob() set sc = ##class(Src2.SvnHookScript).AtualizarFontesNamespaceJob(15) 1 projeto:%String="",username:%String="",password:%String="" %Status Atualizar Log de Dados do SVN no Gercon set sc = ##class(Src2.SvnHookScript).AtualizarLogJob() 1 username:%String="",password:%String="" %Status Atualizar Log de Dados do SVN no Gercon set sc = ##class(Src2.SvnHookScript).AtualizarRevisaoJob() 1 repositorio:%String="",revisao:%String="",user:%String="",propname:%String="",action:%String="",username:%String="",password:%String="" %Status Importar uma Revisão a Partir do Endereço de uma Cópia de Trabalho set sc = ##class(Src2.SvnHookScript).ImportarRevisaoCopiaTrabalho("C:\workspacecsw\projetos\6.1\csw61\rotinas\CCUTI", "560") 1 caminhoCopiaTrabalhoInfo:%String,nrRevisao:%String,username:%String="",password:%String="" %Status 1 %RegisteredObject 61727,0 1 suite="",className="",todos="",isCobertura=0 1 nomeClasse:%String %String 1 string:%String %Status 1 %String 1 %String 1 %RegisteredObject 61727,0 Obtem Configurações Básicas set sc = ##class(Src2.Utils).ObterConfig(.codTerm, .caminhoWorkspace, .caminhoSvn, .arquivoTemp, .arquivoTemp2, .versao, .pastaTemp, .flgServAplicJava) 1 %String Realiza o Update das Configurações Gerais do Workspace set sc = ##class(Src2.Utils).UpdateConfigGeralWorkspace(.nrRevisao) 1 %String Obter Sistema Operacional write ##class(Src2.Utils).ObterSistOper() 1 %String Obter Barra Sistema Operacional write ##class(Src2.Utils).ObterBarraSistOper() 1 %String Obtem Dados do Projeto set sc = ##class(Src2.Utils).ObterDadosProjeto("csw64", .caminhoCopiaTrabalho, .urlRepositorio, .sistema, .revisaoAtual, .versao, .rotinaVersao, .pasta, .urlRepositorioBase, .projetoSwitch, .descProjeto) set sc = ##class(Src2.Utils).ObterDadosProjeto("sourcecontrol20", .caminhoCopiaTrabalho, .urlRepositorio, .sistema, .revisaoAtual, .versao, .rotinaVersao, .urlRepositorioBase, .projetoSwitch, .descProjeto) 1 %String Obter Projeto a Partir do Caminho da Copia de Trabalho set sc = ##class(Src2.Utils).ObterProjetoCamCopiaTrab("C:\workspacecsw\projetos\6.1\csw61\rotinas\CCUTI", .projeto) 1 %String Validar Copia de Trabalho set sc = ##class(Src2.Utils).ValidarCopiaTrabalhoRepositorio("C:\workspacecsw\projetos\6.3\cswutil63\rotinas\_SM", "http://192.168.15.10:18080/svn/cswutil/branches/6.3/rotinas/_SM", "cswutil63", "ederson.jantsch") 1 pastaCopiaTrabalho:%String,pastaRepositorio:%String,projeto:%String,username:%String="" %String Validar Workspace do Projeto set sc = ##class(Src2.Utils).ValidarWorkspaceProjeto("csw63") 1 %String Valida uma Copia de Trabalho (Retorna a Url do Repositorio) set sc = ##class(Src2.Utils).ValidarCopiaTrabalho("C:\workspacecsw\projetos\6.1\csw61", .urlRepositorio, .revisaoWorkspace, .lastChangeAuthor, .lastChangeRev) 1 %String Obtem os Tipos de Status do Subversion set sc = ##class(Src2.Utils).ObterTiposStatus(.tabTiposStatus) 1 %String Converte uma String de UTF8 para Ansi write ##class(Src2.Utils).ConverterStringUTF8("teste") 1 string:%String="1" %String Obtem o Caminho de um Arquivo write ##class(Src2.Utils).ObterCaminhoArquivo("C:\workspacecsw\csw63\rotinas\CCEVA\CCEVA010.mac") write ##class(Src2.Utils).ObterCaminhoArquivo("/sourcecontrol/csw63/rotinas/CCEVA/CCEVA010.mac") 1 arquivo:%String %String Acerta o Caminho do Arquivo write ##class(Src2.Utils).AcertarCaminhoArquivo("/cache/cachesys/csp///sistemas//pasta/arquivo.txt") write ##class(Src2.Utils).AcertarCaminhoArquivo("cache/ cachesys /csp///sistemas//pasta/arquivo.txt") write ##class(Src2.Utils).AcertarCaminhoArquivo("c:\cache\cachesys\ csp \\\sistemas \\pasta\arquivo.txt") write ##class(Src2.Utils).AcertarCaminhoArquivo("c:\\cache\cachesys\csp\\\sistemas\\pasta\arquivo.txt") write ##class(Src2.Utils).AcertarCaminhoArquivo("c:\\cache/cachesys\csp\\\sistemas\/pasta\arquivo",".csv") write ##class(Src2.Utils).AcertarCaminhoArquivo("c:\\cache\cachesys\csp\\\sistemas\\pasta\arquivo.txt",".csv") write ##class(Src2.Utils).AcertarCaminhoArquivo("c:\\cache\cachesys\csp\\\sistemas\\pasta\/\") 1 caminho:%String,extensaoPadrao:%String %String 1 %String 1 string:%String,tamanho:%String,caracter:%String=" " %String 1 string:%String,strOld:%String,strNew:%String %String Obtem Uma Tabela de Itens de Uma String set sc = ##class(Src2.Utils).ObterTabItens(,.tabItens) 1 %String ") { set item = ##class(Src2.Utils).Translate(item, "", "") set item = ##class(Src2.Utils).Translate(item, "", "") } if (item [ "") { set item = ##class(Src2.Utils).Translate(item, "", "") set item = ##class(Src2.Utils).Translate(item, "", "") } if (item = "") continue set sc = ##class(Src2.Item).ValidarItemInf(.item) if (sc = 1) set tabItens(item)="" } quit $$$OK ]]> Obter uma Barra write ##class(Src2.Utils).ObterBarra("Teste") 1 %String Converte uma Tabela em uma String set sc = ##class(Src2.Utils).ConvertTabStr(.tabela) 1 tabela:%String,padrao:%String="",separador:%String=" / " %String Converte uma String em uma Tabela set sc = ##class(Src2.Utils).ConvertStrTab("csp;TODO;;workspace",.tabela) 1 string:%String,tabela:%String="",separador:%String=";" %String Iniciar Cronometragem set sc = ##class(Src2.Utils).IniciarCronometragem(.timestampInicio) 1 %Status Encerrar Cronometragem set sc = ##class(Src2.Utils).EncerrarCronometragem(timestampInicio, .tempoTotalEdt, .tempoTotal) 1 %Status Cálcular Período set sc = ##class(Src2.Utils).CalcularPeriodo($zdth("10/10/2013 08:00:00",4), $zdth("10/10/2013 09:00:00",4), .tempoTotalEdt, .segundos, .minutos, .horas) set sc = ##class(Src2.Utils).CalcularPeriodo($zdth("10/10/2013 22:00:00",4), $zdth("11/10/2013 02:00:00",4), .tempoTotalEdt, .segundos, .minutos, .horas) set sc = ##class(Src2.Utils).CalcularPeriodo($zdth("10/10/2013 22:00:00",4), $zdth("11/10/2013 02:35:00",4), .tempoTotalEdt, .segundos, .minutos, .horas) set sc = ##class(Src2.Utils).CalcularPeriodo($zdth("10/10/2013 22:00:00",4), $zdth("11/10/2013 02:35:25",4), .tempoTotalEdt, .segundos, .minutos, .horas) set sc = ##class(Src2.Utils).CalcularPeriodo($zdth("10/10/2013 22:00:00",4), $zdth("19/10/2013 02:00:00",4), .tempoTotalEdt, .segundos, .minutos, .horas) 1 %String dataInicio) { set segundos = horaFim - horaInicio } if (dataFim = dataInicio) { set segundos = $piece(timestampFim,",",2) - $piece(timestampInicio,",",2) } else { set segundos = (86400 - horaInicio) + horaFim for cont = (dataInicio+1):1:(dataFim-1) { set segundos = segundos + 86400 } } set minutos = segundos / 60 set horas = segundos / 3600 set tempoTotalEdt = $translate($justify(horas\1,2)," ","0")_":"_$piece($ztime(segundos#3600),":",2,3) quit $$$OK ]]> Obter Sugestão de Sistema set sc = ##class(Src2.Utils).ObterSugestaoSistema(.sistema) 1 %String Exporta Fontes do Controle de Fonte para o Workspace set sc = ##class(Src2.Utils).CmdSubversion("C:\""Program Files""\TortoiseSVN\bin\svn", "list -R http://192.168.15.10:18080/svn/cswesp/branches/6.1", "admin", "acessorestrito", "C:\workspacecsw\temp\teste.txt") set sc = ##class(Src2.Utils).CmdSubversion("C:\""Program Files""\TortoiseSVN\bin\svn", "list -R http://192.168.15.10:18080/svn/cswesp/branches/6.1", "oi", "teste", "C:\workspacecsw\temp\teste.txt") set sc = ##class(Src2.Utils).CmdSubversion("C:\""Program Files""\TortoiseSVN\bin\svn", "list -R http://192.168.15.10:18080/svn/sourcecontrol/trunk", , , "C:\workspacecsw\temp\teste.txt") 1 caminhoSvn:%String,comando:%String,username:%String="",password:%String="",autenticacao:%String="",arquivoSaida:%String="" %String "_arquivoSaida set status = $zf(-1,string) if (status '= 0) { set sc = ##class(Src2.Utils).GeraLog(2, "Chamada Subversion | "_caminhoSvn_" "_comando) quit "Chamada ao subversion retornou erro! svn "_comando } quit $$$OK ]]> Obter String de Autenticacao no Subversion set sc = ##class(Src2.Utils).ObterStrAutenticacao("usuario.nome", "1234", .autenticacao) set sc = ##class(Src2.Utils).ObterStrAutenticacao(, , .autenticacao) set sc = ##class(Src2.Utils).ObterStrAutenticacao(, , .autenticacao, 0) set sc = ##class(Src2.Utils).ObterStrAutenticacao(, , .autenticacao, , 1) 1 %String Leitor de Password do ##class(Src2.Utils).ReadPassword(.var) 1 var:%String="" %String Obtem os Tipos de Status do Subversion set sc = ##class(Src2.Utils).ObterResumoStatus(1564, .tabResumo) 1 %String Obtem os Itens em um de Status do Subversion set sc = ##class(Src2.Utils).ObterItensStatus("a", "G", .strItens) 1 %String Obter Dados Informados set sc = ##class(Src2.Utils).ObterDadosInformados("Projeto: ads"_$char(13,10,13)_"Revisão: casa",.tabInf) set sc = ##class(Src2.Utils).ObterDadosInformados("Namespace: ",.tabInf) 1 %String set sc = ##class(Src2.Utils).ObterStrReposRevis(.tabReposRevis, .strReposRevis) 1 tabReposRevis:%String,strReposRevis:%String %Status set sc = ##class(Src2.Utils).ObterTabReposRevis(strReposRevis, .tabReposRevis) 1 strReposRevis:%String,tabReposRevis:%String %Status set sc = ##class(Src2.Utils).ObterVersaoCache(.versao, .versao2) 1 versao:%String,versao2:%String %Status Obter Tabela de Erros da Compilacao de uma Rotina 1 %String Obter Mensagem Status Code write ##class(Src2.Utils).ObterMensagemStatusCode(sc) 1 sc:%String="" %String Obtem as Revisoes set sc = ##class(Src2.Utils).ObterDadosRevisoes("aa", "C:\csvn\bin\svn", "C:\workspacecsw\temp\3100.txt", "http://192.168.15.10:18080/svn/teste/trunk", 38, 38) 1 codTerm:%String,caminhoSvn:%String,arquivoTemp:%String,urlRepositorio:%String,revInicio:%String,revFim:%String="head",username:%String="",password:%String="",autenticacao:%String="" %String Importar as Revisoes 1 %Status Importar uma Revisão a Partir do Endereço de uma Cópia de Trabalho set sc = ##class(Src2.Utils).ImportarRevisaoCopiaTrabalho("C:\workspacecsw\projetos\6.1\csw61\rotinas\CCUTI", "560") 1 caminhoCopiaTrabalhoInfo:%String,nrRevisao:%String,username:%String="",password:%String="" %Status Obtem uma Tabela de Mensagens de Erro da Revisao 1 codTerm:%String,urlRepositorio:%String,autor:%String,revisao:%String,tabMensagem:%String %String Ajuda set sc = ##class(Src2.Utils).Ajuda() 1 %String Controle de Fonte => Atualizar Configurações" write !," do $system.OBJ.DeletePackage(""Src2"")" write !," "_##class(Src2.Utils).StringAtualizador() write !," Executar em cada namespace de desenvolvimento: DESENV64 / DESENV64RF / DESENV65 / ..." write !,##class(Src2.Utils).ObterBarra() quit $$$OK ]]> Obter String do Atualizador write ##class(Src2.Utils).StringAtualizador() 1 %String Obter Dados de um Arquivo Gerado pelo Svn Info 1 %String Obter Dados de um Arquivo Gerado pelo Svn Checkout/Update/Status/Diff set sc = ##class(Src2.Utils).ObterDadosArquivoSvnCUS("a", "C:\workspacecsw\temp\checkout.txt", "checkout", .nrRevisao, .tabFlags) set sc = ##class(Src2.Utils).ObterDadosArquivoSvnCUS("a", "C:\workspacecsw\temp\update.txt", "update", .nrRevisao, .tabFlags) set sc = ##class(Src2.Utils).ObterDadosArquivoSvnCUS("a", "C:\workspacecsw\temp\update_2.txt", "update", .nrRevisao, .tabFlags) set sc = ##class(Src2.Utils).ObterDadosArquivoSvnCUS("a", "C:\workspacecsw\temp\update_conflito.txt", "update", .nrRevisao, .tabFlags) set sc = ##class(Src2.Utils).ObterDadosArquivoSvnCUS("a", "C:\workspacecsw\temp\update_paginas.txt", "update", .nrRevisao, .tabFlags) set sc = ##class(Src2.Utils).ObterDadosArquivoSvnCUS("a", "C:\workspacecsw\temp\update_restored.txt", "update", .nrRevisao, .tabFlags) set sc = ##class(Src2.Utils).ObterDadosArquivoSvnCUS("a", "C:\workspacecsw\temp\status.txt", "status", .nrRevisao, .tabFlags) 1 %String Carregar Itens de Pastas Excluídas 1 codTerm:%String,projeto:%String %String Obter Dados de um Arquivo Gerado pelo Svn List set sc = ##class(Src2.Utils).ObterDadosArquivoSvnList("a", "C:\workspacecsw\temp\list-r.txt") 1 codTerm:%String="",arquivo:%String,urlRepositorio:%String="",caminhoCopiaTrabalho:%String="" %String Obter Dados de um Arquivo Gerado pelo Svn Revert 1 codTerm:%String,projeto:%String,arquivo:%String %String Obter Projeto do Sistema set sc = ##class(Src2.Utils).ObterProjetoSistema("cswutil", .projeto) set sc = ##class(Src2.Utils).ObterProjetoSistema("especifico", .projeto) 1 %String Exportar os Objetos para a Aplicacao CSP set sc = ##class(Src2.Utils).ExportarObjetosAplicacaoCSP("cswutil62", "admin", "admin") 1 projeto:%String,username:%String="",password:%String="",autenticacao:%String="" %String =", "6.4")) { set msgsc = ..GerarArquivosAux(caminhoAplicWeb) quit:msgsc'=1 msgsc } set msgsc = ##class(Src2.Utils).Subversion(caminhoSvn, "export --force "_caminhoPaginas_" "_caminhoAplicWeb, username, password, autenticacao) if (msgsc '= $$$OK) quit msgsc set sc = ##class(Src2.Utils).ExportarJarsAplicacaoCSP(projeto, autenticacao) quit $$$OK ]]> Exportar Jars para a Aplicacao CSP set sc = ##class(Src2.Utils).ExportarJarsAplicacaoCSP("cswutil64") 1 projeto:%String,autenticacao:%String="" %String Obter Arquivos Versionados por Sistema/Localizacao set sc = ##class(Src2.Utils).ObterArquivosVersSistLocal("cswutil", "objetos/java", .tabArqVers) 1 %Status Gerar Arquivo Auxiliar 1 caminhoAplicWeb:%String ") do objFile.Close() // Gera o aquivo csw1documentacao.csp set arquivo=caminhoAplicWeb_"csw1documentacao.csp" set objFile = ##class(%File).%New(arquivo) do objFile.Open("WSN") if ('objFile.IsOpen) { set objFile = "" quit "Erro ao gerar o arquivo "_arquivo_"!" } set sc = objFile.WriteLine("") do objFile.Close() set objFile="" quit $$$OK ]]> Gera o Serviço Consistem para Windows set sc = ##class(Src2.Utils).GerarServicoConsistem(1) 1 flgDisplay:%Boolean=0,autenticacao:%String="" %String "_caminhoLog) // Descompactar o consistem_server.jar if (flgDisplay) write !,"Descompactando o consistem_server.jar" do $zf(-1,"c: && cd "_consistemHome_barra_"tmp && "_consistemHome_barra_"java"_barra_"bin"_barra_"jar xf "_consistemServerJar_" >>"_caminhoLog) set sc = ##class(%File).CopyDir(consistemHomeTmp_barra_"bin", consistemHomeLib_barra_"bin", 1) set sc = ##Class(%File).CopyFile(consistemHomeTmp_barra_"keystores"_barra_"base64Csw.cer", consistemHomeLib_barra_"keystores"_barra_"base64Csw.cer") set sc = ##Class(%File).CopyFile(consistemHomeTmp_barra_"keystores"_barra_"base64Csw.key", consistemHomeLib_barra_"keystores"_barra_"base64Csw.key") set caminhoZip = consistemHomeLib_barra_"bin"_barra // Descompacta o WildFly if (flgDisplay) write !,"Descompactando o WildFly" set sc = $zf(-1,caminhoZip_"7za x -tzip "_arquivoWildFly_" -o"_consistemHomeTmp_barra_" >>"_caminhoLog) set status = ##class(%File).CopyDir(consistemHomeTmp_barra_"wildfly-8.2.0.Final", consistemHome_barra_"webservice", 1) set sc = ##Class(%File).CopyFile(consistemHomeTmp_barra_"service.bat", caminhoServico) set sc = ##class(Src2.Utils).GerarArquivoMmgmtUsersProperties(consistemHomeConfiguration) set sc = ##class(Src2.Utils).GerarArquivoMgmtGroupsProperties(consistemHomeConfiguration) set sc = ##class(Src2.Utils).GerarArquivoStandaloneConf(consistemHome_barra_"webservice"_barra_"bin") set sc = ##Class(%File).CopyFile(consistemHomeTmp_barra_"standalone.xml", consistemHomeConfiguration_barra_"standalone.xml") // Descompacta Cachedb if (flgDisplay) write !,"Descompactando o cachedb_jboss.zip" set sc = $zf(-1,caminhoZip_"7za x -tzip "_cacheDb_" -o"_consistemHome_barra_"webservice"_barra_"modules >>"_caminhoLog) // Exporta as keystore if (flgDisplay) write !,"Exportando as keystore" set sc = ##Class(%File).CopyFile(caminhoCopiaTrabCsw_barra_"outros"_barra_"server_producao.keystore", consistemHomeLib_barra_"keystores"_barra_"server_producao.keystore") set sc = ##Class(%File).CopyFile(caminhoCopiaTrabCsw_barra_"outros"_barra_"serasahttp.keystore", consistemHomeLib_barra_"keystores"_barra_"serasahttp.keystore") // Exporta Relatórios if (flgDisplay) write !,"Exportando os relatórios" set sc = ##class(%File).CopyDir(caminhoCopiaTrabCsw_barra_"relatorios", consistemHomeLib_barra_"relatorios", 1) set sc = ##class(%File).CopyDir(caminhoCopiaTrabCswUtil_barra_"relatorios", consistemHomeLib_barra_"relatorios", 1) // Instalar Serviço if (flgDisplay) write !,"Instalando o Serviço Consistem" set sc = $zf(-1,"set JAVA_HOME="_consistemHome_barra_"java && "_caminhoServico_" install >>"_caminhoLog) if (sc '= 0) { if (flgDisplay) write !,"Erro ao installar Serviço Consistem - Log: "_caminhoLog quit $$$ERROR(10000,"Erro ao installar Serviço Consistem!") } if (flgDisplay) write !,"Iniciando o Serviço Consistem" set sc = $zf(-1,"set JAVA_HOME="_consistemHome_barra_"java && "_caminhoServico_" start >>"_caminhoLog) // Cria os Datasources // verificar se o wildfly esta no ar set sc = 0, tentativas = 0 while (sc '= 1) && (+$get(tentativas) < 10) { set tentativas = $increment(tentativas) if (flgDisplay) write !,"Conectando no Serviço Consistem... "_tentativas set sc = ##class(Src2.WildFly).ControllTest(caminhoLog) if $$$ISERR(sc) { if (flgDisplay) write !,"Log de retorno: "_##class(Src2.Utils).ObterMensagemStatusCode(sc) } } if (sc = 1) { if (flgDisplay) write !,"Criando Datasources" set sc = ##class(Src2.Utils).GerarDataSourcesWildFly(caminhoLog) if (flgDisplay) write !,"Efetuando deploy da app!" set sc = ##Class(%File).CopyFile(consistemHomeTmp_barra_"consistem_webapp.war", consistemHome_barra_"cswapp"_barra_"consistem_webapp.war") } else { if (flgDisplay) write !,"Erro ao conectar no Serviço Consistem" } // Mata Pasta Temporária if (flgDisplay) write !,"Excluindo arquivos temporários" set sc2 = ##class(%File).RemoveDirectoryTree(consistemHomeTmp) if (flgDisplay) write !,"Encerrado!" if (flgDisplay) write !,"ATENÇÃO: Alterar o serviço o tipo de inicialização do 'Csw Server' para 'Automático'" quit $$$OK ]]> Obtem a Porta do Cache set sc = ##class(Src2.Utils).ObterPortaCache(.porta) 1 %String Gera o Arquivo mgmt-groups.properties 1 caminho:%String %String Gera o Arquivo mgmt-groups.properties 1 caminho:%String %String Gera o Aquivo standalone.conf.bar 1 caminho:%String %String Gera os DataSources no WildFly set sc = ##class(Src2.Utils).GerarDataSourcesWildFly() 1 caminhoLog:%String="",namespaceInf:%String="" %String Gera as Configurações de Namespace para o Serviço Consistem (Somente para Windows) set sc = ##class(Src2.Utils).GerarArquivoCSWConsistem("C:\consistem\CSWConsistem_desenvza64.conf", , "desenv63") 1 arquivo:%String="",ip:%String="localhost",namespace:%String,porta:%String="1972" %String Retorna uma Tabela de Namespaces set sc = ##class(Src2.Utils).ObterNamespaces(.tabNamespaces) 1 %String Retorna uma Tabela de Namespaces Base Dados set sc = ##class(Src2.Utils).ObterNamespacesBaseDados(.tabNamespaces, .tabContas) 1 %String Validar um Namespace de Desenvolvimento set sc = ##class(Src2.Utils).ValidarNamespaceDesenvolvimento("DESENV61", , .versao, .complemento) set sc = ##class(Src2.Utils).ValidarNamespaceDesenvolvimento("DESENV63RF", , .versao, .complemento) set sc = ##class(Src2.Utils).ValidarNamespaceDesenvolvimento("DESENV63RF1", , .versao, .complemento) set sc = ##class(Src2.Utils).ValidarNamespaceDesenvolvimento("DESENVRF", , .versao, .complemento) set sc = ##class(Src2.Utils).ValidarNamespaceDesenvolvimento("DESENVDA61", , .versao, .complemento) 1 %String Validar um Namespace de Base de Dados set sc = ##class(Src2.Utils).ValidarNamespaceBaseDados("DESENVDA", , .conta, .versao, .complemento) set sc = ##class(Src2.Utils).ValidarNamespaceBaseDados("DESENVDA61", , .conta, .versao, .complemento) set sc = ##class(Src2.Utils).ValidarNamespaceBaseDados("DESENVDA61L", , .conta, .versao, .complemento) set sc = ##class(Src2.Utils).ValidarNamespaceBaseDados("DESENVDA63RF", , .conta, .versao, .complemento) set sc = ##class(Src2.Utils).ValidarNamespaceBaseDados("DESENV62", , .conta, .versao, .complemento) set sc = ##class(Src2.Utils).ValidarNamespaceBaseDados("DESENV62DA", , .conta, .versao, .complemento) 1 %String Gera o Arquivo diversos.xml OBS: Este método gera o arquivo para que seja utilizado no repositório de utilitários na pasta "outros" set sc = $system.OBJ.Load("C:\workspacecsw\projetos\6.4\cswutil64\outros\diversos.xml") set sc = ##class(Src2.Utils).GerarArquivoDiversosXml("C:\workspacecsw\projetos\6.4\cswutil64\outros\diversos.xml") 1 arquivo:%String %String Gera o Arquivo diversos.xml OBS: Este método gera o arquivo para que seja utilizado no repositório de utilitários na pasta "outros" set sc = $system.OBJ.Load("C:\workspacecsw\projetos\6.4\cswutil64\outros\diversosbase.xml") set sc = ##class(Src2.Utils).GerarArquivoDiversosBaseXml("C:\workspacecsw\projetos\6.4\cswutil64\outros\diversosbase.xml") 1 arquivo:%String %String Importa o Arquivo diversos.xml OBS: Chamar a partir do namespace de desenvolvimento (DESENV61/DESENV62/...) set sc = ##class(Src2.Utils).ImportarArquivoDiversosXml("cswutil62") 1 projeto:%String %String 1 caminhoDiversos:%String %String Importa o Arquivo diversos.xml OBS: Chamar a partir do namespace de desenvolvimento (DESENV61/DESENV62/...) set sc = ##class(Src2.Utils).ImportarArquivoDiversosXml("cswutil62") 1 namespace:%String="",projeto:%String %String Gera a Global ^%CSMENCF - Para namespace de desenvolvimento OBS: Chamar a partir do namespace de desenvolvimento (DESENV61/DESENV62/...) set sc = ##class(Src2.Utils).GerarCSMENCF() 1 %String Gera a Global ^%CSMENCF - Para namespace de base OBS: Chamar a partir do namespace de desenvolvimento (DESENV61/DESENV62/...) Passar por parametro o namespace de base set sc = ##class(Src2.Utils).GerarCSMENCFBase("DESENVDA61", "DA") 1 namespace:%String,conta:%String %String Obter o Caminho da Aplicação Web set sc = ##class(Src2.Utils).ObterCaminhoAplicacaoWeb("c:\intersystems\cache\csp\", "/csp/desenv64", , .caminhoAplic, .caminhoServAplic) set sc = ##class(Src2.Utils).ObterCaminhoAplicacaoWeb("c:\intersystems\cache\csp\", "DESENV64", , .caminhoAplic, .caminhoServAplic) set sc = ##class(Src2.Utils).ObterCaminhoAplicacaoWeb(, "DESENV64", , .caminhoAplic, .caminhoServAplic) set sc = ##class(Src2.Utils).ObterCaminhoAplicacaoWeb(, "DESENV64", 1, .caminhoAplic, .caminhoServAplic) set sc = ##class(Src2.Utils).ObterCaminhoAplicacaoWeb(, , 1, .caminhoAplic, .caminhoServAplic) 1 %String Exporta o Item set sc = ##class(Src2.Utils).AnalisarItemProjetos("CCAFC002.mac", "admin", "admin", .tabProjetos) 1 %String set sc = ##class(Src2.Utils).AnalisarDiferenca(468) 1 %Status Atualiza as Flags Apos a Importação dos Fontes 1 projeto:%String,tabFlags:%String,username:%String="",password:%String="",autenticacao:%String="" %String Atualiza as Flags Antes da Importação dos Fontes 1 projeto:%String,tabFlags:%String %String Exporta Fontes do Controle de Fonte para o Workspace set sc = ##class(Src2.Utils).ExportarControleFonteWorkspace() 1 arquivo:%String="" %String Obter Consistem Home set sc = ##class(Src2.Utils).ObterConsistemHome(.consistemHome) 1 consistemHome:%String="" %String Retorna os Emails dos Usuario 1 usuario:%String,email:%String %String Exclui Log do Controle de Fonte Depois de 7 Dias set sc = ##class(Src2.Utils).ExcluirLog() 1 %String 7) continue set sc = ##class(%File).Delete(arquivo) } do rs.%Close() set rs = "" quit $$$OK ]]> Gera o Log do Controle de Fonte tipo = 0 - LOG 1 - OK 2 - ERRO 3 - MERGE 4 - CONFL (Conflito) set sc = ##class(Src2.Utils).GeraLog(1, "teste de log") 1 tipo:%Integer=0,mensagem:%String="" %String Validar a Situação dos Arquivos na Cópia de Trabalho ? - Não versionado C - Conflito 1 %String Exclui os Arquivos/Pastas não Versionadas 1 codTerm:%String="" %String Obter Projetos para Switch set sc = ##class(Src2.Utils).ObterProjetosSwitch(.tabProjetosSwitch) 1 %String Tab 1 niveis:%String %String Obter Endereco do Arquivo Versionado 1 %Status 1 %RegisteredObject 61727,0 ======================================================================================== É criada uma rotina em tempo de execução porque no Caché 5 não é possível chamar métodos de classe com job ======================================================================================== set sc = ##class(Src2.Utils2).GerarBackupJob("ederson.jantsch") 1 username:%String="",password:%String="" %Status Realiza o Backup das Rotinas/Classes em Alteração set sc = ##class(Src2.Utils2).GerarBackup("ederson.jantsch") 1 username:%String="",password:%String="" %Status Exclui o Backup Depois de 7 Dias 1 caminho:%String %String 5) { set arquivo = $get(tabBackup(projeto, dataHoraEdt)) set sc = ##class(%File).Delete(arquivo) } } } quit $$$OK ]]> Cria uma rotina em tempo de execução para ser chamada via job 1 rotina:%String,fonte:%String %Status Lock de Projeto set sc = ##class(Src2.Utils2).LockProjeto("csw61") 1 projeto:%String %String UnLock de Projeto 1 projeto:%String %String Tag 1 niveis:%String %String Criar Pasta 1 pasta:%String,flgChmod:%Boolean=1 %Boolean Obter Linhas do Arquivo set sc = ##class(Src2.Utils2).ObterLinhasArquivo("/usr/tmp/ederson/temp.txt", , .tabLinhas) 1 %Boolean Validar Versao/Release set sc = ##class(Src2.Utils2).ValidarVersao("6.3.3.+", .versao, .versaoRelease, .versaoRelease2, .beta, .release, .identificador) set sc = ##class(Src2.Utils2).ValidarVersao("6.3.3.45433", .versao, .versaoRelease, .versaoRelease2, .beta, .release, .identificador) set sc = ##class(Src2.Utils2).ValidarVersao("6.3.3b2.45433", .versao, .versaoRelease, .versaoRelease2, .beta, .release, .identificador) set sc = ##class(Src2.Utils2).ValidarVersao("v.6.2 r01.7870", .versao, .versaoRelease, .versaoRelease2, .beta, .release, .identificador) set sc = ##class(Src2.Utils2).ValidarVersao("6.2 r01.7870", .versao, .versaoRelease, .versaoRelease2, .beta, .release, .identificador) 1 %Status Obter Versao/Release set sc = ##class(Src2.Utils2).ObterVersao("6.3.3.+", .versao, .versaoRelease, .versaoRelease2, .beta, .release, .identificador, .flgBeta, .revisao) set sc = ##class(Src2.Utils2).ObterVersao("6.3.3.45433", .versao, .versaoRelease, .versaoRelease2, .beta, .release, .identificador, .flgBeta, .revisao) set sc = ##class(Src2.Utils2).ObterVersao("6.3.3b2.45433", .versao, .versaoRelease, .versaoRelease2, .beta, .release, .identificador, .flgBeta, .revisao) set sc = ##class(Src2.Utils2).ObterVersao("v.6.2 r01.7870", .versao, .versaoRelease, .versaoRelease2, .beta, .release, .identificador, .flgBeta, .revisao) 1 %Status ", "6.3.3.+") write ##class(Src2.Utils2).CompararVersao("6.3.2b2.45433", "<", "6.3.2.45433")]]> 1 versao1:%String,operador:%String,versao2:%String %Boolean ", "6.3.3", .flgRet) set sc=##class(Src2.Utils2).ValidarVersaoSistema("cswutil", ">", "6.3.3", .flgRet) set sc=##class(Src2.Utils2).ValidarVersaoSistema("cswutil", "<=", "6.3.5", .flgRet)]]> 1 %Status Envia um Log de Erros por Email set sc = ##class(Src2.Utils2).EnviarEmail() 1 %Status Obter Caminho arquivo JAR 1 flgAtuCompleta:%Boolean=0 %String Obter Caminho dos Componentes write ##class(Src2.Utils2).ObterCaminhoComponentes() 1 consistemHome:%String="",flgAtuCompleta:%Boolean=0 %String Obter Pasta dos Componentes write ##class(Src2.Utils2).ObterPastaComponentes() 1 %String Obter Dados Ultima Revisao tipo = 0 - Última Revisão 1 - Penultima Revisão set sc = ##class(Src2.Utils2).ObterDadosUltimaRevisao("http://192.168.15.10:18080/svn/cswutil/tags/6.3.1", , , , , , .revisao, .autor, .data, .mensagem) set sc = ##class(Src2.Utils2).ObterDadosUltimaRevisao("http://192.168.15.10:18080/svn/csw/tags/6.3.7", , , , , , .revisao, .autor, .data, .mensagem) set sc = ##class(Src2.Utils2).ObterDadosUltimaRevisao("http://192.168.15.10:18080/svn/csw/tags/6.3.7", , 1, , , , .revisao, .autor, .data, .mensagem) set sc = ##class(Src2.Utils2).ObterDadosUltimaRevisao("http://repositorio:18080/svn/cswutil/tags/6.3.1", , , , , , .revisao, .autor, .data, .mensagem) set sc = ##class(Src2.Utils2).ObterDadosUltimaRevisao("http://192.168.15.10:18080/svn/cswutil/branches/6.2", , , , , , .revisao, .autor, .data, .mensagem) 1 urlRepositorio:%String,revisaoInf:%String="head",tipo:%Integer=0,username:%String="",password:%String="",autenticacao:%String="",revisao:%String,autor:%String,data:%String,mensagem:%String %Status Obter Dados Ultima Revisao do Dia Anterior a Data de Referencia set sc = ##class(Src2.Utils2).ObterRevisaoDiaAnterior("http://192.168.15.10:18080/svn/csw/branches/6.2", $horolog-2, , , , .revisao, .autor, .data, .mensagem) set sc = ##class(Src2.Utils2).ObterRevisaoDiaAnterior("http://192.168.15.10:18080/svn/csw/branches/6.2", , , , , .revisao, .autor, .data, .mensagem) 1 urlRepositorio:%String,dataReferencia:%String="",username:%String="",password:%String="",autenticacao:%String="",revisao:%String,autor:%String,data:%String,mensagem:%String %Status Obter Dados Conta/Versao set sc = ##class(Src2.Utils2).ObterDadosContaVersao("MB", "6.3", .dataBase, .namespace, .dataBaseConta, .dataBaseFonte, .namespaceFonte, .application) 1 %String Criar Aplicacao por Conta/Versao set sc = ##class(Src2.Utils2).CriarAplicacaoContaVersao("MB", "6.3") set sc = ##class(Src2.Utils2).CriarAplicacaoContaVersao("DA", "6.3", "A") 1 codConta:%String,versao:%String,tag:%String="",flgWrite:%Boolean=1,flgDataSource:%Boolean=1 %String Criar Aplicacao set sc = ##class(Src2.Utils2).CriarAplicacao("MB", "6.3", "/InterSystems/cachedb/desenvmb/", "/InterSystems/cachedb/desenvmb63/") 1 codConta:%String,versao:%String,directoryConta:%String,directoryContaVersao:%String,codServerECP:%String,flgWrite:%Boolean=1,flgDataSource:%Boolean=1 %String =", "6.3")) { set flgAuthDelegada = 1 } set nspOrigem = $znspace try { znspace "%SYS" kill tabProperties set tabProperties("ClusterMountMode") = 0 set tabProperties("Directory") = directoryConta set tabProperties("MountAtStartup") = 0 set tabProperties("MountRequired") = 0 set tabProperties("Server") = codServerECP set tabProperties("CPFFile") = caminhoCache_"cache.cpf" set tabProperties("Flags") = "4103" set sc = ##Class(Config.Databases).Create(dataBaseConta,.tabProperties) if (flgWrite) write !,"Base criada: "_dataBaseConta_" - "_directoryConta kill tabProperties set tabProperties("ClusterMountMode") = 0 set tabProperties("Directory") = directoryContaVersao set tabProperties("MountAtStartup") = 0 set tabProperties("MountRequired") = 0 set tabProperties("Server") = codServerECP set tabProperties("CPFFile") = caminhoCache_"cache.cpf" set tabProperties("Flags") = "4103" set sc = ##Class(Config.Databases).Create(dataBase,.tabProperties) if (flgWrite) write !,"Base criada: "_dataBase_" - "_directoryContaVersao kill tabProperties set tabProperties("Globals") = dataBaseConta set tabProperties("Library") = "CACHELIB" set tabProperties("Routines") = dataBaseFonte set tabProperties("SysGlobals") = "CACHESYS" set tabProperties("SysRoutines") = "CACHESYS" set tabProperties("TempGlobals") = "CACHETEMP" set sc = ##Class(Config.Namespaces).Create(namespace,.tabProperties) if (flgWrite) write !,"Namespace criado: "_namespace kill tabProperties set tabProperties("Database") = "CACHELIB" set sc = ##Class(Config.MapRoutines).Create(namespace,"%CSP*",.tabProperties) set sc = ##Class(Config.MapRoutines).Create(namespace,"%CSR*",.tabProperties) kill tabProperties set tabProperties("Database") = dataBaseFonte set sc = ##Class(Config.MapRoutines).Create(namespace,"%CS*",.tabProperties) set sc = ##Class(Config.MapRoutines).Create(namespace,"%SM*",.tabProperties) set sc = ##Class(Config.MapRoutines).Create(namespace,"%WW*",.tabProperties) set sc = ##Class(Config.MapRoutines).Create(namespace,"%ZS",.tabProperties) kill tabProperties set tabProperties("Database") = dataBase set sc = ##Class(Config.MapGlobals).Create(namespace,"%CSMENCF",.tabProperties) set sc = ##Class(Config.MapGlobals).Create(namespace,"%SM*",.tabProperties) kill tabProperties set tabProperties("Database") = "INFRA" set sc = ##Class(Config.MapGlobals).Create(namespace,"%CSMENDI",.tabProperties) kill tabProperties set tabProperties("Database") = dataBaseFonte set sc = ##Class(Config.MapGlobals).Create(namespace,"%CSW1*",.tabProperties) if (sysOper = "linux") { set sc = ##Class(Config.MapGlobals).Create(namespace,"%CSWINFO*",.tabProperties) } kill tabProperties set tabProperties("Database") = dataBaseConta set sc = ##Class(Config.MapGlobals).Create(namespace,"%CS*",.tabProperties) set sc = ##Class(Config.MapGlobals).Create(namespace,"%EMP",.tabProperties) if (flgWrite) write !,"Mapeamentos de Rotinas/Globais Gerados" kill tabProperties set tabProperties("AutoCompile") = 0 set tabProperties("ChangePasswordPage") = "" set tabProperties("CookiePath") = "/csp/" set tabProperties("Description") = "" set tabProperties("Enabled") = 1 set tabProperties("ErrorPage") = "csw1erro.csp" set tabProperties("EventClass") = "Utils.CSW1SessionEvents" set tabProperties("HyperEvent") = 2 set tabProperties("LockCSPName") = 0 set tabProperties("MatchRoles") = ":%All" set tabProperties("NameSpace") = namespace set tabProperties("Package") = "" set tabProperties("Path") = caminhoCache_"csp"_barra_$zconvert(namespaceFonte,"l")_barra set tabProperties("Recurse") = 1 set tabProperties("Resource") = "" set tabProperties("ServeFiles") = 1 set tabProperties("ServeFilesTimeout") = 3600 set tabProperties("SuperClass") = "" set tabProperties("Timeout") = 60 set tabProperties("Type") = 2 set tabProperties("UseCookies") = 0 set tabProperties("AutheEnabled") = 64 set tabProperties("LoginPage") = "" if (flgAuthDelegada) { set tabProperties("AutheEnabled") = 8192 set tabProperties("LoginPage") = "csw1jsonsql.csp" } set sc = ##Class(Security.Applications).Create(application,.tabProperties) if (flgWrite) write !,"Aplicação CSP Gerada - "_application znspace namespace set ^%SMConf("System","DispTelnet")="" set ^%SMConf("System","Indef")=0 set ^%SMConf("System","Sys")="MSQL" set ^%SMConf("System","Ter")=1 set ^%SMConf("System","TestaNetTerm")=0 kill ^%SMConf("DirInOut") set ^%SMConf("DirInOut",1)="%SYS" set ^%SMConf("DirInOut",2)="TRABALHO" set ^%SMConf("DirInOut",3)=namespace kill ^%SMConf("DirOutIn") set ^%SMConf("DirOutIn","%SYS")=1 set ^%SMConf("DirOutIn",namespace)=3 set ^%SMConf("DirOutIn","TRABALHO")=2 // Cria o link para a pasta da aplicação CSP if (sysOper = "windows") { set status = $zf(-1,"mklink /d "_caminhoCache_"csp"_barra_$zconvert(namespace,"l")_" "_caminhoCache_"csp"_barra_$zconvert(nspOrigem,"l")) if (status = 0) { if (flgWrite) write !,"Criado o link para a pasta da aplicação csp" } } if (sysOper = "linux") { set status = $zf(-1,"ln -sf "_caminhoCache_"csp"_barra_$zconvert(nspOrigem,"l")_" "_caminhoCache_"csp"_barra_$zconvert(namespace,"l")) if (status = 0) { if (flgWrite) write !,"Criado o link para a pasta da aplicação csp" } } hang 3 do utilitario^%CSW1LOADPAGES() if (flgWrite) write !,"Executado o LoadPages" znspace nspOrigem set sc = ##class(Src2.Utils).EncerrarCronometragem(timestampInicio, .tempoTotalEdt) if (flgWrite) write !,##class(Src2.Utils).ObterBarra("Gerar Base: "_codConta_" | Versão: "_versao_" | Namespace: "_namespace_" | Tempo: "_tempoTotalEdt) set sc = ##class(Src2.Utils).GeraLog(0, "Gerar Base: "_codConta_" | Versão: "_versao_" | Namespace: "_namespace_" | Tempo: "_tempoTotalEdt) if (sysOper = "windows") { set sc = ##class(Src2.Svn).AtualizarMenuConfig(namespace, flgWrite, flgDataSource) } if (sysOper = "linux") { set sc = ##class(Src2.ServidorLinux).AtualizarMenuConfig(namespace, , flgDataSource) } } catch { if (flgWrite) write !,"Erro: "_$zerror znspace nspOrigem set sc = ##class(Src2.Utils).EncerrarCronometragem(timestampInicio, .tempoTotalEdt) if (flgWrite) write !,##class(Src2.Utils).ObterBarra("ERRO - Base: "_codConta_" | Versão: "_versao_" | Namespace: "_namespace_" | Tempo: "_tempoTotalEdt) set sc = ##class(Src2.Utils).GeraLog(2, "Gerar Base: "_codConta_" | Versão: "_versao_" | Namespace: "_namespace_" | Tempo: "_tempoTotalEdt) set sc = ##class(Src2.Utils2).ExcluirAplicacaoContaVersao(codConta, versao) } quit $$$OK ]]> Excluir Aplicacao por Conta/Versao set sc = ##class(Src2.Utils2).ExcluirAplicacaoContaVersao("MB", "6.3") 1 codConta:%String,versao:%String,flgWrite:%Boolean=1 %String Obter Diretorios da Conta/Versao set sc = ##class(Src2.Utils2).ObterDiretoriosContaVersao("DA", "6.3", "A", "windows", .directoryConta, .directoryContaVersao, .codServerECP) set sc = ##class(Src2.Utils2).ObterDiretoriosContaVersao("DA", "6.3", "B", "windows", .directoryConta, .directoryContaVersao, .codServerECP) set sc = ##class(Src2.Utils2).ObterDiretoriosContaVersao("DA", "6.3", "B", "linux", .directoryConta, .directoryContaVersao, .codServerECP) set sc = ##class(Src2.Utils2).ObterDiretoriosContaVersao("RS", "6.4", , "windows", .directoryConta, .directoryContaVersao, .codServerECP) set sc = ##class(Src2.Utils2).ObterDiretoriosContaVersao("RS", "6.4rf", , "windows", .directoryConta, .directoryContaVersao, .codServerECP) 1 %Status Configurar Bases Automaticamente set sc = ##class(Src2.Utils2).ConfigurarBasesAutomaticamente() 1 flgCriar:%Boolean=0 %Status Validar Execução de Procedimento set sc=##class(Src2.Utils2).ValidarExecucaoProcedimento("CCPVTESTE") 1 rotinaProcedimento:%String %Status Obter Informações do Caché set sc=##class(Src2.Utils2).ObterInformacoesCache(.caminhoCache) 1 %Status Cria Arquivo Vazio 1 arquivo:%String %String Validar Servidor Oficial set sc=##class(Src2.Utils2).ValidarServidorOficial() set sc=##class(Src2.Utils2).ValidarServidorOficial("desenvae64") 1 namespace:%String="" %Status Obter Dados Servidor set sc=##class(Src2.Utils2).ObterDadosServidor(.macAddress, .hostname) 1 %Status Obter Ano/Semana write ##class(Src2.Utils2).ObterAnoSemana() 1 horolog:%String="" %String Obter MacAdress Linux set sc=##class(Src2.Utils2).ObterMacAdressLinux() 1 %String "_arqtemp set sc = $zf(-1, cmd) set stream=##class(%FileBinaryStream).%New() set stream.Filename = arqtemp set macadd = stream.Read(17) do stream.%Close() quit $translate(macadd,":","") ]]> Converte um arquivo em tabela set sc = ##class(Src2.Utils2).ValidarUsuarioRoot() 1 %String "_arquivoTmp) if (sc '= 0) { quit "Usuário logado no sistema operacional não é root!" } set sc = ##class(Src2.Utils2).ConverteArquivoTabela(arquivoTmp, .tabDetalhes) set sc = ##class(%File).Delete(arquivoTmp) if ($get(tabDetalhes(1)) '= 0) { quit "Usuário logado no sistema operacional não é root!" } quit $$$OK ]]> Converte um Arquivo em Tabela set sc = ##class(Src2.Utils2).ConverteArquivoTabela("C:\workspacecsw\configgeral\atualizacao.xml", .tabLinhas) 1 %Status Converte uma Tabela em Arquivo 1 %Status Gerar a Rotina ZZZ 1 rotina:%String,versaoRelease:%String="",revisao:%String="",autor:%String="",data:%String="",urlRepositorio:%String="" %String 1 %RegisteredObject 61727,0 Obtem as Configurações de um Arquivo XML set sc = ##class(Src2.UtilsXml).ObterConfigXML("DESENV61", .tabProjLocais) set sc = ##class(Src2.UtilsXml).ObterConfigXML(, .tabProjLocais) 1 %String Obtem os Projetos de um Arquivo XML set sc = ##class(Src2.UtilsXml).ObterProjetosXML(.tabProjetos) 1 %String Obtem os Sistemas de um Arquivo XML set sc = ##class(Src2.UtilsXml).ObterSistemasXML(.tabSistemas) 1 %String Obter Contas set sc = ##class(Src2.UtilsXml).ObterContas(.tabContas) 1 %String Obtem as Configurações de um Arquivo XML set sc = ##class(Src2.UtilsXml).ObterParametrosXML(.tabParametros, .tabUsuarios) 1 %String Obter Dados do Arquivo SourceCheck set sc = ##class(Src2.UtilsXml).ObterSourceCheck(.tabPalavras, .tabPalavrasInv, .tabUtilitarios) 1 %Status Obtem as Configurações de um Arquivo XML set msgsc = ##class(Src2.UtilsXml).ObterAtualizacaoXML(.tabSistemas) set msgsc = ##class(Src2.UtilsXml).ObterAtualizacaoXML(.tabSistemas, .caminhoPatch, .tabItensLiberados, .tabItensBloqueados, .flgAtuBloq, .tabItensLimitados) set msgsc = ##class(Src2.UtilsXml).ObterAtualizacaoXML(, , , , , .tabItensLimitados) 1 %String Obter Rotinas de Interface Auxiliar set sc = ##class(Src2.UtilsXml).ObterTabInterfaceAux("aa") 1 codTerm:%String %String set sc = ##class(Src2.UtilsXml).ObterConfCertificados(.tabSenhas) 1 %Status Obtem as Procedimentos set sc = ##class(Src2.UtilsXml).ObterProcedimentos("C:\workspacecsw\projetos\6.4\csw64\outros\procedimentos.xml", .versao, .tabProcedimentos) 1 %Status Obtem as Classes set sc = ##class(Src2.UtilsXml).ObterClassesArquivo("C:\workspacecsw\temp\patchs\CC-2012-08-11-11-14-59-CSW-T1-6-3-2\outros\Src2.xml", .tabItens) 1 %Status Obtem os Dados do Arquivo switch.xml set sc = ##class(Src2.UtilsXml).ObterSwitchXML(.tabSwitch) 1 %String Obtem os Arquivos Versionados set sc = ##class(Src2.UtilsXml).ObterArquivosVersionados(.tabArqVers) 1 %String 1 %SOAP.WebClient 61727,0 This is the URL used to access the web service. http://gercon.consistem.com.br/csp/sistemas/br.com.consistem.gercon.service.AcessoUsuarioConsistem.cls This is the namespace used by the Service http://consistem.com.br Use xsi:type attribute for literal types. 1 This is the name of the Service AcessoUsuarioConsistem This is the SOAP version supported by the service. 1.1 initvalue:%CacheString %Status 1 conta:%String,login:%String,senhaCliente:%String,geraLog:%Boolean 1 %Boolean 1 document literal 1 %SOAP.WebClient 61727,0 This is the URL used to access the web service. http://gercon.consistem.com.br/csp/sistemas/br.com.consistem.gercon.service.Cliente.cls This is the namespace used by the Service http://consistem.com.br Use xsi:type attribute for literal types. 1 This is the name of the Service ClienteGercon This is the SOAP version supported by the service. 1.1 initvalue:%CacheString %Status 1 dadosCliente:Src2.Inf.DadosCliente 1 %xsd.base64Binary 1 document literal 1 grupoKayako:%String 1 %String 1 document literal 1 grupoKayako:%String 1 %String 1 document literal 1 %SOAP.WebClient 63432,46688.547174 This is the URL used to access the web service. http://gercon.consistem.com.br/csp/sistemas/br.com.consistem.gercon.service.ConsistemLog.cls This is the namespace used by the Service http://consistem.com.br Use xsi:type attribute for literal types. 1 This is the name of the Service ConsistemLog This is the SOAP version supported by the service. 1.1 initvalue:%CacheString %Status 1 codConta:%String 1 Src2.Log.Config 1 document literal 1 dados:Src2.Log.Dados 1 %xsd.base64Binary 1 document literal 1 %SOAP.WebClient 61727,0 This is the URL used to access the web service. http://gercon.consistem.com.br/csp/sistemas/br.com.consistem.gercon.service.LicencaCliente.cls This is the namespace used by the Service http://consistem.com.br Use xsi:type attribute for literal types. 1 This is the name of the Service LicencaCliente This is the SOAP version supported by the service. 1.1 initvalue:%CacheString %Status 1 cnpjEmpresa:%String,dataRef:%Date 1 %String 1 document literal 1 cnpjEmpresa:%String,macAddress:%String,dataRef:%Date 1 %String 1 document literal 1 cnpjEmpresa:%String,licenca:%String,chaveLicenca:%String 1 %xsd.base64Binary 1 document literal 1 cnpjEmpresa:%String 1 %String 1 document literal 1 cnpjEmpresa:%String 1 %String 1 document literal 1 cnpjEmpresa:%String 1 %String 1 document literal 1 %SOAP.WebClient 63450,72726.463233 This is the URL used to access the web service. http://localhost/csp/desenv64/Src2.Web.Service.Patch.cls This is the namespace used by the Service http://localhost Use xsi:type attribute for literal types. 1 This is the name of the Service Patch This is the SOAP version supported by the service. 1.1 1 strIntens:%String 1 Src2.Patch.Itens 1 document literal 1 1 %Status 1 document literal 1 %SOAP.WebClient 63450,45508.939936 This is the URL used to access the web service. http://gercon.consistem.com.br/csp/sistemas/br.com.consistem.gercon.service.Patch.cls This is the namespace used by the Service http://consistem.com.br Use xsi:type attribute for literal types. 1 This is the name of the Service Patch This is the SOAP version supported by the service. 1.1 initvalue:%CacheString %Status 1 idPatch:%String 1 %xsd.base64Binary 1 document literal 1 codConta:%String,produto:%String,versao:%String,email:%String 1 %xsd.base64Binary 1 document literal 1 conta:%String 1 %String 1 document literal 1 conta:%String,idPatch:%String 1 %String 1 document literal 1 versaoOrigem:%String,strSistemasVersoes:%String 1 %String 1 document literal 1 %SOAP.WebService 63450,64910.337215 Nome do Serviço Web. Patch FALTANDO FAZER: alterar isso para o namespace SOAP real. Namespace SOAP para o serviço Web http://localhost Os namespaces das classes referenciadas serão usados no WSDL. 1 Preparar Itens para Patch do Tipo Temporário strIntens:%String Src2.Patch.Itens 1 Excluir Itens para Patch do Tipo Temporário %Status 1 1 %RegisteredObject 63782,74407.324341 Connection String 1 %String Deploy 1 arqLog:%String,appName:%String="",namespace:%String="" %Status "_arqLog_" 2>&1" set sc = $zf(-1,command) quit sc ]]> Undeploy 1 arqLog:%String,appName:%String %Status "_arqLog_" 2>&1" set sc = $zf(-1,command) quit sc ]]> Cria o DataSource 1 dsname:%String,namespace:%String,port:%String,mimPool:%String,maxPool:%String,arqLog:%String="" %Status > "_arqLog_" 2>&1" set sc = $zf(-1,command) quit sc ]]> Remove o DataSource 1 dsname:%String,arqLog:%String="" %Status "_arqLog_" 2>&1" set sc = $zf(-1,command) quit sc ]]> ControllTest 1 arqLog:%String %Status /dev/null 2>&1" else set command = command_" > "_arqLog_".log 2>&1" set sc = $zf(-1,command) if (sc '= 0) hang 4 if (sc '= 0) quit $$$ERROR(10000,"Não foi possível ao executar o comando!") set return = $$$OK if ($get(arqLog) '= "") { set return = $$$ERROR(10000,"Serviço não iniciado!") set stream = ##class(%FileCharacterStream).%New() set stream.Filename = arqLog_".log" while ('stream.AtEnd) { set line = stream.ReadLine() if (line = "8.2.0.Final") { set return = $$$OK quit } } if $$$ISERR(return) hang 4 } quit return ]]> Reconfigure 1 appName:%String="",namespace:%String="" %Status > /dev/null 2>&1" set sc = $zf(-1,command) set sc = ##class(%File).RemoveDirectoryTree(workdir) quit $$$OK ]]> Gera o Arquivo de Configuração 1 appName:%String,file:%String,namespace:%String="" %Status