Pegar Informações do Subversion(SVN)

[sygecom]

Para quem usa Subversion + TortoiseSVN para gerenciamento de codigo fonte de projetos, e quer pegar dados do SVN para colocar no sistema.

Código: Selecionar todos

FUNCTION PEGA_VER_SVN
LOCAL oREV, oSVN

TRY
   oSVN := GetActiveObject( "Scripting.FileSystemObject" )
CATCH
   TRY
      oSVN := CreateObject( "Scripting.FileSystemObject" )
   CATCH
       MsgStop("Não foi Possivel Achar o TortoiseSVN Instalado","Aviso do Sistema")
       RETURN
   END
END

TRY
   oREV := GetActiveObject( "SubWCRev.object" )
CATCH
   TRY
      oREV := CreateObject( "SubWCRev.object" )
   CATCH
       MsgStop("Não foi Possivel Achar o TortoiseSVN Instalado","Aviso do Sistema")
       RETURN
   END
END
oREV:GetWCInfo(oSVN:GetAbsolutePathName("."), 1, 1) // direciona o path para pasta padrão
//oREV:GetWCInfo(oSVN:GetAbsolutePathName("arquivo.prg"), 1, 1) // direciona o path para um arquivo

MsgInfo( 'Revisão: ' + ALLTRIM(STR(oREV:Revision)) + ' Ultima alteração feita por: ' + oREV:Author +' no dia: ' + oREV:Date )
oREV=nil
oSVN=nil

/*
Outras propriedades:
"Revision     = " + oREV:Revision
"Min Revision = " + oREV:MinRev
"Max Revision = " + oREV:MaxRev
"Date         = " + oREV:Date
"URL          = " + oREV:Url
"Author       = " + oREV:Author
*/
RETURN

[fladimir]

Como assim Leonardo? Tipo baseado naquela postagem q fiz sobre ChangeLog do Sistema q vc sugeriu o SVN eu criaria um controle através do SVN e incorporaria este código postado acima para tratar isto? Seria algo em torno deste raciocínio ou nada a ver?

Sds.

[sygecom]

Olá Fladimir,
Não seria bem esse o objetivo, essa função eu uso para colocar no meu sistema as informações do SVN, como por exemplo o numero da revisão que o sistema foi gerado, se houver algum problema em uma versão passada vejo o numero da revisão e baixo o SVN na versão idêntica que está rodando em meu cliente.