1
Download as
Browse Code »

Commit fb06bd0c3772d6898a8635f0a89600000ffe7d45

Authored by José Maria Villac Pinheiro
1 parent c5223c69
Exists in master

21-10-2016 - GeoSan 7.4.1 - Realizada alteração para corrigir melhorar a forma de atualização 

dos ramais.
Showing 28 changed files with 37 additions and 42 deletions   Show diff stats
install/GeoSan/SetupGeoSan-v.06.08.01.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.09.05.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.09.06.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.09.07.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.09.12.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.09.13.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.09.14.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.09.16.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.09.17.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.10.00.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.10.09.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.10.13.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.10.14.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.10.15.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.10.20.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.10.21.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.10.34.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.06.10.35.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.07.00.00.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.07.00.48.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.07.00.49.exe
View file @c5223c6
No preview for this file type
install/GeoSan/SetupGeoSan-v.07.00.51.exe
View file @c5223c6
No preview for this file type
install/GeraSetupGeoSan/ArquivosInstGeoSan/GeoSan.exe
View file @fb06bd0
No preview for this file type
install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss
  Diff comments   View file @fb06bd0
1 #define SetupBaseName "SetupGeoSan-v." 1 #define SetupBaseName "SetupGeoSan-v."
2 -#define AppVersionFile "07.04.00" 2 +#define AppVersionFile "07.04.01"
3 3
4 [Setup] 4 [Setup]
5 AppName=GeoSan 5 AppName=GeoSan
trunk/Forms/frmCanvas.frm
  Diff comments   View file @fb06bd0
@@ -236,7 +236,7 @@ Private Sub InsereLigacaoNoRamalSelecionado(object_id_ramalSelecionado As Long, @@ -236,7 +236,7 @@ Private Sub InsereLigacaoNoRamalSelecionado(object_id_ramalSelecionado As Long,
236 strAbreConexaoInsereRamaisAguaLigacao = "SELECT NRO_LIGACA, VOL_FATURA FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidoreSelecionado) 236 strAbreConexaoInsereRamaisAguaLigacao = "SELECT NRO_LIGACA, VOL_FATURA FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidoreSelecionado)
237 debugCodigoErro = "1 - Select: " & strAbreConexaoInsereRamaisAguaLigacao 237 debugCodigoErro = "1 - Select: " & strAbreConexaoInsereRamaisAguaLigacao
238 rsInsereRamaisAguaLigacao.Open strAbreConexaoInsereRamaisAguaLigacao, Conn, adOpenKeyset, adLockOptimistic, adCmdText 238 rsInsereRamaisAguaLigacao.Open strAbreConexaoInsereRamaisAguaLigacao, Conn, adOpenKeyset, adLockOptimistic, adCmdText
239 - 'Inicia a atualização de RAMAIS_AGUA com todos os dados 239 + '2 - Inicia a atualização de RAMAIS_AGUA com todos os dados
240 If rsInsereRamaisAguaLigacao.EOF = False Then 'Tem que encontrar a linha em RAMAIS_AGUA que acabou de ser inserida 240 If rsInsereRamaisAguaLigacao.EOF = False Then 'Tem que encontrar a linha em RAMAIS_AGUA que acabou de ser inserida
241 volumeFaturado = IIf(IsNull(rsInsereRamaisAguaLigacao!VOL_FATURA), 0, rsInsereRamaisAguaLigacao!VOL_FATURA) 241 volumeFaturado = IIf(IsNull(rsInsereRamaisAguaLigacao!VOL_FATURA), 0, rsInsereRamaisAguaLigacao!VOL_FATURA)
242 numeroDaLigacaoComDV = rsInsereRamaisAguaLigacao!NRO_LIGACA 242 numeroDaLigacaoComDV = rsInsereRamaisAguaLigacao!NRO_LIGACA
@@ -246,7 +246,7 @@ Private Sub InsereLigacaoNoRamalSelecionado(object_id_ramalSelecionado As Long, @@ -246,7 +246,7 @@ Private Sub InsereLigacaoNoRamalSelecionado(object_id_ramalSelecionado As Long,
246 Conn.execute (strInsereLigacao) 246 Conn.execute (strInsereLigacao)
247 rsInsereRamaisAguaLigacao.Close 247 rsInsereRamaisAguaLigacao.Close
248 248
249 - ' 7 - Apaga NX GPS 249 + '3 - Apaga NX GPS
250 debugCodigoErro = "2" 250 debugCodigoErro = "2"
251 Set rsApagaLigacaoGpsCadastrada = New ADODB.Recordset 251 Set rsApagaLigacaoGpsCadastrada = New ADODB.Recordset
252 strApagaLigacaoGpsCadastrada = "SELECT NRO_LIGACA FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidorSelecionado) 252 strApagaLigacaoGpsCadastrada = "SELECT NRO_LIGACA FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidorSelecionado)
@@ -330,24 +330,39 @@ Private Sub InsereRamalLigacaoGPS(object_id_ligacaoGPS As Long, object_id_rede A @@ -330,24 +330,39 @@ Private Sub InsereRamalLigacaoGPS(object_id_ligacaoGPS As Long, object_id_rede A
330 dataCadastroRamal = Now 330 dataCadastroRamal = Now
331 objIdRamalTemporarioDoUsuario = strUser & dataCadastroRamal 331 objIdRamalTemporarioDoUsuario = strUser & dataCadastroRamal
332 strAdicionaNovoRamalAgua = "RAMAIS_AGUA" 332 strAdicionaNovoRamalAgua = "RAMAIS_AGUA"
333 -  
334 Set rsAdicionaNovoAtributoRamalAgua = New ADODB.Recordset 333 Set rsAdicionaNovoAtributoRamalAgua = New ADODB.Recordset
335 On Error GoTo Transacao_Erro 334 On Error GoTo Transacao_Erro
336 Conn.BeginTrans 335 Conn.BeginTrans
337 rsAdicionaNovoAtributoRamalAgua.Open strAdicionaNovoRamalAgua, Conn, adOpenKeyset, adLockOptimistic 336 rsAdicionaNovoAtributoRamalAgua.Open strAdicionaNovoRamalAgua, Conn, adOpenKeyset, adLockOptimistic
338 - rsAdicionaNovoAtributoRamalAgua.AddNew 'Cria uma nova linha na tabela RAMAIS_AGUA  
339 - rsAdicionaNovoAtributoRamalAgua.Fields("OBJECT_ID_").value = objIdRamalTemporarioDoUsuario 'Atualiza o OBJECT_ID_ da tabela RAMAIS_AGUA com o nome do usuário, data e hora (temporáriamente)  
340 - rsAdicionaNovoAtributoRamalAgua.Fields("OBJECT_ID_TRECHO").value = object_id_rede 'Atualiza o OBJECT_ID do trecho de rede de água em RAMAIS_AGUA com zero (temporariamente) 337 + rsAdicionaNovoAtributoRamalAgua.AddNew 'Cria uma nova linha na tabela RAMAIS_AGUA
  338 + rsAdicionaNovoAtributoRamalAgua.Fields("OBJECT_ID_").value = objIdRamalTemporarioDoUsuario 'Atualiza o OBJECT_ID_ da tabela RAMAIS_AGUA com o nome do usuário, data e hora (temporáriamente)
  339 + rsAdicionaNovoAtributoRamalAgua.Fields("OBJECT_ID_TRECHO").value = object_id_rede 'Atualiza o OBJECT_ID do trecho de rede de água em RAMAIS_AGUA com zero (temporariamente)
341 rsAdicionaNovoAtributoRamalAgua.Fields("DATA_LOG").value = dataCadastroRamal 340 rsAdicionaNovoAtributoRamalAgua.Fields("DATA_LOG").value = dataCadastroRamal
342 - rsAdicionaNovoAtributoRamalAgua.Update 'Atualiza no banco de dados a tabela RAMAIS_AGUA  
343 - 'FINALIZA RAMAIS_AGUA  
344 - idUnicoRamaisAgua = rsAdicionaNovoAtributoRamalAgua.Fields("ID").value 'Obtem o ID da nova linha inserida em RAMAIS_AGUA (que foi gerado automaticamente, para poder depois localizar este ramal e colocar os demais dados na tabela de atributos dele  
345 - rsAdicionaNovoAtributoRamalAgua.Close 'Termina de adicionar a linha do ramal de água com os dados temporários da mesma 341 + rsAdicionaNovoAtributoRamalAgua!USUARIO_LOG = strUser 'Salva o nome do usuário
  342 + rsAdicionaNovoAtributoRamalAgua.Update 'Atualiza no banco de dados a tabela RAMAIS_AGUA
  343 + rsAdicionaNovoAtributoRamalAgua.Close
346 Conn.CommitTrans 344 Conn.CommitTrans
  345 +
  346 + '2 - Atualiza os dados de RAMAIS_AGUA inclusive com o OBJECT_ID do trecho de rede e OBJECT_ID do ramal
347 On Error GoTo Trata_Erro 347 On Error GoTo Trata_Erro
348 -  
349 - '2 - Adiciona geometria da linha de ramal de água 348 + Set rsAtualizaDadosDoRamal = New ADODB.Recordset
  349 + strAtualizaObjIdRamal = "SELECT * FROM RAMAIS_AGUA WHERE OBJECT_ID_ = '" + objIdRamalTemporarioDoUsuario + "'"
350 debugCodigoErro = "1" 350 debugCodigoErro = "1"
  351 + On Error GoTo Transacao_Erro
  352 + Conn.BeginTrans
  353 + rsAtualizaDadosDoRamal.Open strAtualizaObjIdRamal, Conn, adOpenKeyset, adLockOptimistic, adCmdText
  354 + If rsAtualizaDadosDoRamal.EOF = False Then 'Tem que encontrar a linha em RAMAIS_AGUA que acabou de ser inserida
  355 + idUnicoRamaisAgua = rsAtualizaDadosDoRamal.Fields("ID").value 'Obtem o ID da nova linha inserida em RAMAIS_AGUA (que foi gerado automaticamente, para poder depois localizar este ramal e colocar os demais dados na tabela de atributos dele
  356 + rsAtualizaDadosDoRamal!Object_id_ = idUnicoRamaisAgua 'ID autonumérico da tabela Ramais 'Agora coloca o OBJECT_ID do ramal correto, o anterior tinha o nome do usuário-data-hora
  357 + rsAtualizaDadosDoRamal!USUARIO_LOG = strUser 'Salva o nome do usuário
  358 + rsAtualizaDadosDoRamal.Update
  359 + End If
  360 + rsAtualizaDadosDoRamal.Close
  361 + Conn.CommitTrans
  362 + On Error GoTo Trata_Erro
  363 +
  364 + '3 - Adiciona geometria da linha de ramal de água
  365 + debugCodigoErro = "2"
351 retornoPontoGPS = TeDatabase1.setCurrentLayer("NXGS_V_LIG_COMERCIAL_GPS") 366 retornoPontoGPS = TeDatabase1.setCurrentLayer("NXGS_V_LIG_COMERCIAL_GPS")
352 TeDatabase1.getCenterGeometry 0, stringObject_id_ligacaoGPS, TypeGeometry.points, coordX_pontoGPS, coordY_pontoGPS 367 TeDatabase1.getCenterGeometry 0, stringObject_id_ligacaoGPS, TypeGeometry.points, coordX_pontoGPS, coordY_pontoGPS
353 retornoPontoGPS = TeDatabase1.setCurrentLayer("WATERLINES") 368 retornoPontoGPS = TeDatabase1.setCurrentLayer("WATERLINES")
@@ -359,37 +374,17 @@ Private Sub InsereRamalLigacaoGPS(object_id_ligacaoGPS As Long, object_id_rede A @@ -359,37 +374,17 @@ Private Sub InsereRamalLigacaoGPS(object_id_ligacaoGPS As Long, object_id_rede A
359 retornoPontoGPS = TeDatabase1.setCurrentLayer("RAMAIS_AGUA") 374 retornoPontoGPS = TeDatabase1.setCurrentLayer("RAMAIS_AGUA")
360 retornoAdicionaLinhaRamal = TeDatabase1.addLine(idUnicoRamaisAgua, linhaRamalX(0), linhaRamalY(0), 2) 375 retornoAdicionaLinhaRamal = TeDatabase1.addLine(idUnicoRamaisAgua, linhaRamalX(0), linhaRamalY(0), 2)
361 376
362 - On Error GoTo Trata_Erro  
363 '4 - Adiciona geometria do ponto ao ramail 377 '4 - Adiciona geometria do ponto ao ramail
364 debugCodigoErro = "3" 378 debugCodigoErro = "3"
365 retornoPontoDoRamalInserido = TeDatabase1.addPoint(idUnicoRamaisAgua, coordX_pontoGPS, coordY_pontoGPS) 379 retornoPontoDoRamalInserido = TeDatabase1.addPoint(idUnicoRamaisAgua, coordX_pontoGPS, coordY_pontoGPS)
366 380
367 - ' 4 - Atualiza os dados de RAMAIS_AGUA inclusive com o OBJECT_ID do trecho de rede e OBJECT_ID do ramal  
368 - 'BOM, até agora ele criou uma linha em RAMAIS_AGUA, e inseriu as geometrias de linha (LINES7) e ponto (POINTS7) do ramal. Então tem agora que atualizar a linha recem inserida em RAMAIS_AGUA com os dados do ramal  
369 -  
370 - Set rsAtualizaDadosDoRamal = New ADODB.Recordset  
371 - strAtualizaObjIdRamal = "SELECT * FROM RAMAIS_AGUA WHERE OBJECT_ID_ = '" + objIdRamalTemporarioDoUsuario + "'"  
372 - debugCodigoErro = "4" 381 + '5 - Insere em RAMAIS_AGUA_LIGACAO a ligação selecionada pelo usuário
373 On Error GoTo Transacao_Erro 382 On Error GoTo Transacao_Erro
374 Conn.BeginTrans 383 Conn.BeginTrans
375 - rsAtualizaDadosDoRamal.Open strAtualizaObjIdRamal, Conn, adOpenKeyset, adLockOptimistic, adCmdText  
376 - 'Inicia a atualização de RAMAIS_AGUA com todos os dados  
377 - If rsAtualizaDadosDoRamal.EOF = False Then 'Tem que encontrar a linha em RAMAIS_AGUA que acabou de ser inserida  
378 - rsAtualizaDadosDoRamal!Object_id_ = idUnicoRamaisAgua 'ID autonumérico da tabela Ramais 'Agora coloca o OBJECT_ID do ramal correto, o anterior tinha o nome do usuário-data-hora  
379 - rsAtualizaDadosDoRamal!USUARIO_LOG = strUser 'Salva o nome do usuário  
380 - rsAtualizaDadosDoRamal.Update  
381 - End If  
382 - rsAtualizaDadosDoRamal.Close  
383 - Conn.CommitTrans  
384 - On Error GoTo Trata_Erro  
385 -  
386 - ' 6 - Insere em RAMAIS_AGUA_LIGACAO a ligação selecionada pelo usuário  
387 - On Error GoTo Transacao_Erro  
388 - Conn.BeginTrans  
389 - debugCodigoErro = "6" 384 + debugCodigoErro = "4"
390 Set rsInsereRamaisAguaLigacao = New ADODB.Recordset 385 Set rsInsereRamaisAguaLigacao = New ADODB.Recordset
391 strAbreConexaoInsereRamaisAguaLigacao = "SELECT NRO_LIGACA, VOL_FATURA FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidorSelecionado) 386 strAbreConexaoInsereRamaisAguaLigacao = "SELECT NRO_LIGACA, VOL_FATURA FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidorSelecionado)
392 - debugCodigoErro = "6 - Select: " & strAbreConexaoInsereRamaisAguaLigacao 387 + debugCodigoErro = "5 - Select: " & strAbreConexaoInsereRamaisAguaLigacao
393 rsInsereRamaisAguaLigacao.Open strAbreConexaoInsereRamaisAguaLigacao, Conn, adOpenKeyset, adLockOptimistic, adCmdText 388 rsInsereRamaisAguaLigacao.Open strAbreConexaoInsereRamaisAguaLigacao, Conn, adOpenKeyset, adLockOptimistic, adCmdText
394 'Inicia a atualização de RAMAIS_AGUA com todos os dados 389 'Inicia a atualização de RAMAIS_AGUA com todos os dados
395 If rsInsereRamaisAguaLigacao.EOF = False Then 'Tem que encontrar a linha em RAMAIS_AGUA que acabou de ser inserida 390 If rsInsereRamaisAguaLigacao.EOF = False Then 'Tem que encontrar a linha em RAMAIS_AGUA que acabou de ser inserida
@@ -401,20 +396,20 @@ Private Sub InsereRamalLigacaoGPS(object_id_ligacaoGPS As Long, object_id_rede A @@ -401,20 +396,20 @@ Private Sub InsereRamalLigacaoGPS(object_id_ligacaoGPS As Long, object_id_rede A
401 Conn.execute (strInsereLigacao) 396 Conn.execute (strInsereLigacao)
402 rsInsereRamaisAguaLigacao.Close 397 rsInsereRamaisAguaLigacao.Close
403 398
404 - ' 7 - Apaga NX GPS  
405 - debugCodigoErro = "7" 399 + '6 - Apaga NX GPS
  400 + debugCodigoErro = "6"
406 Set rsApagaLigacaoGpsCadastrada = New ADODB.Recordset 401 Set rsApagaLigacaoGpsCadastrada = New ADODB.Recordset
407 strApagaLigacaoGpsCadastrada = "SELECT NRO_LIGACA FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidorSelecionado) 402 strApagaLigacaoGpsCadastrada = "SELECT NRO_LIGACA FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidorSelecionado)
408 rsApagaLigacaoGpsCadastrada.Open strAbreConexaoInsereRamaisAguaLigacao, Conn, adOpenKeyset, adLockOptimistic, adCmdText 403 rsApagaLigacaoGpsCadastrada.Open strAbreConexaoInsereRamaisAguaLigacao, Conn, adOpenKeyset, adLockOptimistic, adCmdText
409 strApagaLigacaoGpsCadastrada = "DELETE FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidorSelecionado) 404 strApagaLigacaoGpsCadastrada = "DELETE FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidorSelecionado)
410 Conn.execute (strApagaLigacaoGpsCadastrada) 405 Conn.execute (strApagaLigacaoGpsCadastrada)
411 - debugCodigoErro = "8" 406 + debugCodigoErro = "7"
412 strApagaGeometriaDaLigacaoGpsCadastrada = "DELETE FROM POINTS331 WHERE object_id = " + CStr(object_id_consumidorSelecionado) 407 strApagaGeometriaDaLigacaoGpsCadastrada = "DELETE FROM POINTS331 WHERE object_id = " + CStr(object_id_consumidorSelecionado)
413 Conn.execute (strApagaGeometriaDaLigacaoGpsCadastrada) 408 Conn.execute (strApagaGeometriaDaLigacaoGpsCadastrada)
414 rsApagaLigacaoGpsCadastrada.Close 409 rsApagaLigacaoGpsCadastrada.Close
415 Conn.CommitTrans 410 Conn.CommitTrans
416 On Error GoTo Trata_Erro 411 On Error GoTo Trata_Erro
417 - debugCodigoErro = "9" 412 + debugCodigoErro = "8"
418 413
419 TCanvas.plotView 414 TCanvas.plotView
420 Exit Sub 415 Exit Sub
trunk/GeoSan.exe
View file @fb06bd0
No preview for this file type
trunk/GeoSan.vbp
  Diff comments   View file @fb06bd0
@@ -151,7 +151,7 @@ HelpContextID="0" @@ -151,7 +151,7 @@ HelpContextID="0"
151 CompatibleMode="0" 151 CompatibleMode="0"
152 MajorVer=7 152 MajorVer=7
153 MinorVer=4 153 MinorVer=4
154 -RevisionVer=0 154 +RevisionVer=1
155 AutoIncrementVer=0 155 AutoIncrementVer=0
156 ServerSupportFiles=0 156 ServerSupportFiles=0
157 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda." 157 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda."
trunk/Modules/Global.bas
  Diff comments   View file @fb06bd0
@@ -200,7 +200,7 @@ Public Sub Main() @@ -200,7 +200,7 @@ Public Sub Main()
200 End If 200 End If
201 'Configura a versão atual do GeoSan 201 'Configura a versão atual do GeoSan
202 Versao_Geo = App.Major & "." & App.Minor & "." & App.Revision 202 Versao_Geo = App.Major & "." & App.Minor & "." & App.Revision
203 - Versao_Geo = "07.04.00" 203 + Versao_Geo = "07.04.01"
204 glo.diretorioGeoSan = App.path 'salva globalmente o caminho onde encontra-se o GeoSan.exe 204 glo.diretorioGeoSan = App.path 'salva globalmente o caminho onde encontra-se o GeoSan.exe
205 SaveLoadGlobalData glo.diretorioGeoSan + "/controles/variaveisGlobais.txt", True 'salva em um arquivo todas as variáveis globais para poderem ser acessadas por outras aplicações 205 SaveLoadGlobalData glo.diretorioGeoSan + "/controles/variaveisGlobais.txt", True 'salva em um arquivo todas as variáveis globais para poderem ser acessadas por outras aplicações
206 connn = "" 206 connn = ""