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

dos ramais.

21-10-2016 - GeoSan 7.4.1 - Realizada alteração para corrigir melhorar a forma de atualização
dos ramais.
José Maria Villac Pinheiro · José Maria Villac Pinheiro
1 parent c5223c69
Showing 28 changed files with 37 additions and 42 deletions Show diff stats
install/GeoSan/SetupGeoSan-v.06.08.01.exe
install/GeoSan/SetupGeoSan-v.06.09.05.exe
install/GeoSan/SetupGeoSan-v.06.09.06.exe
install/GeoSan/SetupGeoSan-v.06.09.07.exe
install/GeoSan/SetupGeoSan-v.06.09.12.exe
install/GeoSan/SetupGeoSan-v.06.09.13.exe
install/GeoSan/SetupGeoSan-v.06.09.14.exe
install/GeoSan/SetupGeoSan-v.06.09.16.exe
install/GeoSan/SetupGeoSan-v.06.09.17.exe
install/GeoSan/SetupGeoSan-v.06.10.00.exe
install/GeoSan/SetupGeoSan-v.06.10.09.exe
install/GeoSan/SetupGeoSan-v.06.10.13.exe
install/GeoSan/SetupGeoSan-v.06.10.14.exe
install/GeoSan/SetupGeoSan-v.06.10.15.exe
install/GeoSan/SetupGeoSan-v.06.10.20.exe
install/GeoSan/SetupGeoSan-v.06.10.21.exe
install/GeoSan/SetupGeoSan-v.06.10.34.exe
install/GeoSan/SetupGeoSan-v.06.10.35.exe
install/GeoSan/SetupGeoSan-v.07.00.00.exe
install/GeoSan/SetupGeoSan-v.07.00.48.exe
 #define SetupBaseName   "SetupGeoSan-v."
-#define AppVersionFile  "07.04.00"
+#define AppVersionFile  "07.04.01"
  
 [Setup]
 AppName=GeoSan
@@ -236,7 +236,7 @@ Private Sub InsereLigacaoNoRamalSelecionado(object_id_ramalSelecionado As Long, 
         strAbreConexaoInsereRamaisAguaLigacao = "SELECT NRO_LIGACA, VOL_FATURA FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidoreSelecionado)
         debugCodigoErro = "1 - Select: " & strAbreConexaoInsereRamaisAguaLigacao
         rsInsereRamaisAguaLigacao.Open strAbreConexaoInsereRamaisAguaLigacao, Conn, adOpenKeyset, adLockOptimistic, adCmdText
-        'Inicia a atualização de RAMAIS_AGUA com todos os dados
+        '2 - Inicia a atualização de RAMAIS_AGUA com todos os dados
         If rsInsereRamaisAguaLigacao.EOF = False Then                         'Tem que encontrar a linha em RAMAIS_AGUA que acabou de ser inserida
             volumeFaturado = IIf(IsNull(rsInsereRamaisAguaLigacao!VOL_FATURA), 0, rsInsereRamaisAguaLigacao!VOL_FATURA)
             numeroDaLigacaoComDV = rsInsereRamaisAguaLigacao!NRO_LIGACA
@@ -246,7 +246,7 @@ Private Sub InsereLigacaoNoRamalSelecionado(object_id_ramalSelecionado As Long, 
         Conn.execute (strInsereLigacao)
         rsInsereRamaisAguaLigacao.Close
  
-        ' 7 - Apaga NX GPS
+        '3 - Apaga NX GPS
         debugCodigoErro = "2"
         Set rsApagaLigacaoGpsCadastrada = New ADODB.Recordset
         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
         dataCadastroRamal = Now
         objIdRamalTemporarioDoUsuario = strUser & dataCadastroRamal
         strAdicionaNovoRamalAgua = "RAMAIS_AGUA"
-
         Set rsAdicionaNovoAtributoRamalAgua = New ADODB.Recordset
         On Error GoTo Transacao_Erro
         Conn.BeginTrans
         rsAdicionaNovoAtributoRamalAgua.Open strAdicionaNovoRamalAgua, Conn, adOpenKeyset, adLockOptimistic
-        rsAdicionaNovoAtributoRamalAgua.AddNew                                       'Cria uma nova linha na tabela RAMAIS_AGUA
-        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)
-        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)
+        rsAdicionaNovoAtributoRamalAgua.AddNew                                                          'Cria uma nova linha na tabela RAMAIS_AGUA
+        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)
+        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)
         rsAdicionaNovoAtributoRamalAgua.Fields("DATA_LOG").value = dataCadastroRamal
-        rsAdicionaNovoAtributoRamalAgua.Update                                       'Atualiza no banco de dados a tabela RAMAIS_AGUA
-        'FINALIZA RAMAIS_AGUA
-        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
-        rsAdicionaNovoAtributoRamalAgua.Close                                        'Termina de adicionar a linha do ramal de água com os dados temporários da mesma
+        rsAdicionaNovoAtributoRamalAgua!USUARIO_LOG = strUser                                           'Salva o nome do usuário
+        rsAdicionaNovoAtributoRamalAgua.Update                                                          'Atualiza no banco de dados a tabela RAMAIS_AGUA
+        rsAdicionaNovoAtributoRamalAgua.Close
         Conn.CommitTrans
+
+        '2 - Atualiza os dados de RAMAIS_AGUA inclusive com o OBJECT_ID do trecho de rede e OBJECT_ID do ramal
         On Error GoTo Trata_Erro
-        
-        '2 - Adiciona geometria da linha de ramal de água
+        Set rsAtualizaDadosDoRamal = New ADODB.Recordset
+        strAtualizaObjIdRamal = "SELECT * FROM RAMAIS_AGUA WHERE OBJECT_ID_ = '" + objIdRamalTemporarioDoUsuario + "'"
         debugCodigoErro = "1"
+        On Error GoTo Transacao_Erro
+        Conn.BeginTrans
+        rsAtualizaDadosDoRamal.Open strAtualizaObjIdRamal, Conn, adOpenKeyset, adLockOptimistic, adCmdText
+        If rsAtualizaDadosDoRamal.EOF = False Then                         'Tem que encontrar a linha em RAMAIS_AGUA que acabou de ser inserida
+            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
+            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
+            rsAtualizaDadosDoRamal!USUARIO_LOG = strUser                   'Salva o nome do usuário
+            rsAtualizaDadosDoRamal.Update
+        End If
+        rsAtualizaDadosDoRamal.Close
+        Conn.CommitTrans
+        On Error GoTo Trata_Erro
+        
+        '3 - Adiciona geometria da linha de ramal de água
+        debugCodigoErro = "2"
         retornoPontoGPS = TeDatabase1.setCurrentLayer("NXGS_V_LIG_COMERCIAL_GPS")
         TeDatabase1.getCenterGeometry 0, stringObject_id_ligacaoGPS, TypeGeometry.points, coordX_pontoGPS, coordY_pontoGPS
         retornoPontoGPS = TeDatabase1.setCurrentLayer("WATERLINES")
@@ -359,37 +374,17 @@ Private Sub InsereRamalLigacaoGPS(object_id_ligacaoGPS As Long, object_id_rede A
         retornoPontoGPS = TeDatabase1.setCurrentLayer("RAMAIS_AGUA")
         retornoAdicionaLinhaRamal = TeDatabase1.addLine(idUnicoRamaisAgua, linhaRamalX(0), linhaRamalY(0), 2)
  
-        On Error GoTo Trata_Erro
         '4 - Adiciona geometria do ponto ao ramail
         debugCodigoErro = "3"
         retornoPontoDoRamalInserido = TeDatabase1.addPoint(idUnicoRamaisAgua, coordX_pontoGPS, coordY_pontoGPS)
  
-        ' 4 - Atualiza os dados de RAMAIS_AGUA inclusive com o OBJECT_ID do trecho de rede e OBJECT_ID do ramal
-        '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
-        
-        Set rsAtualizaDadosDoRamal = New ADODB.Recordset
-        strAtualizaObjIdRamal = "SELECT * FROM RAMAIS_AGUA WHERE OBJECT_ID_ = '" + objIdRamalTemporarioDoUsuario + "'"
-        debugCodigoErro = "4"
+        '5 - Insere em RAMAIS_AGUA_LIGACAO a ligação selecionada pelo usuário
         On Error GoTo Transacao_Erro
         Conn.BeginTrans
-        rsAtualizaDadosDoRamal.Open strAtualizaObjIdRamal, Conn, adOpenKeyset, adLockOptimistic, adCmdText
-        'Inicia a atualização de RAMAIS_AGUA com todos os dados
-        If rsAtualizaDadosDoRamal.EOF = False Then                         'Tem que encontrar a linha em RAMAIS_AGUA que acabou de ser inserida
-            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
-            rsAtualizaDadosDoRamal!USUARIO_LOG = strUser                                           'Salva o nome do usuário
-            rsAtualizaDadosDoRamal.Update
-        End If
-        rsAtualizaDadosDoRamal.Close
-        Conn.CommitTrans
-        On Error GoTo Trata_Erro
-     
-        ' 6 - Insere em RAMAIS_AGUA_LIGACAO a ligação selecionada pelo usuário
-        On Error GoTo Transacao_Erro
-        Conn.BeginTrans
-        debugCodigoErro = "6"
+        debugCodigoErro = "4"
         Set rsInsereRamaisAguaLigacao = New ADODB.Recordset
         strAbreConexaoInsereRamaisAguaLigacao = "SELECT NRO_LIGACA, VOL_FATURA FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidorSelecionado)
-        debugCodigoErro = "6 - Select: " & strAbreConexaoInsereRamaisAguaLigacao
+        debugCodigoErro = "5 - Select: " & strAbreConexaoInsereRamaisAguaLigacao
         rsInsereRamaisAguaLigacao.Open strAbreConexaoInsereRamaisAguaLigacao, Conn, adOpenKeyset, adLockOptimistic, adCmdText
         'Inicia a atualização de RAMAIS_AGUA com todos os dados
         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
         Conn.execute (strInsereLigacao)
         rsInsereRamaisAguaLigacao.Close
  
-        ' 7 - Apaga NX GPS
-        debugCodigoErro = "7"
+        '6 - Apaga NX GPS
+        debugCodigoErro = "6"
         Set rsApagaLigacaoGpsCadastrada = New ADODB.Recordset
         strApagaLigacaoGpsCadastrada = "SELECT NRO_LIGACA FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidorSelecionado)
         rsApagaLigacaoGpsCadastrada.Open strAbreConexaoInsereRamaisAguaLigacao, Conn, adOpenKeyset, adLockOptimistic, adCmdText
         strApagaLigacaoGpsCadastrada = "DELETE FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidorSelecionado)
         Conn.execute (strApagaLigacaoGpsCadastrada)
-        debugCodigoErro = "8"
+        debugCodigoErro = "7"
         strApagaGeometriaDaLigacaoGpsCadastrada = "DELETE FROM POINTS331 WHERE object_id = " + CStr(object_id_consumidorSelecionado)
         Conn.execute (strApagaGeometriaDaLigacaoGpsCadastrada)
         rsApagaLigacaoGpsCadastrada.Close
         Conn.CommitTrans
         On Error GoTo Trata_Erro
-        debugCodigoErro = "9"
+        debugCodigoErro = "8"
  
         TCanvas.plotView
         Exit Sub
@@ -151,7 +151,7 @@ HelpContextID=&quot;0&quot;
 CompatibleMode="0"
 MajorVer=7
 MinorVer=4
-RevisionVer=0
+RevisionVer=1
 AutoIncrementVer=0
 ServerSupportFiles=0
 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda."
@@ -200,7 +200,7 @@ Public Sub Main()
     End If
     'Configura a versão atual do GeoSan
     Versao_Geo = App.Major & "." & App.Minor & "." & App.Revision
-    Versao_Geo = "07.04.00"
+    Versao_Geo = "07.04.01"
     glo.diretorioGeoSan = App.path                                                                  'salva globalmente o caminho onde encontra-se o GeoSan.exe
     SaveLoadGlobalData glo.diretorioGeoSan + "/controles/variaveisGlobais.txt", True                'salva em um arquivo todas as variáveis globais para poderem ser acessadas por outras aplicações
     connn = ""
1	1	#define SetupBaseName "SetupGeoSan-v."
2		-#define AppVersionFile "07.04.00"
	2	+#define AppVersionFile "07.04.01"
3	3
4	4	[Setup]
5	5	AppName=GeoSan
...	...
...	...	@@ -236,7 +236,7 @@ Private Sub InsereLigacaoNoRamalSelecionado(object_id_ramalSelecionado As Long,
236	236	strAbreConexaoInsereRamaisAguaLigacao = "SELECT NRO_LIGACA, VOL_FATURA FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidoreSelecionado)
237	237	debugCodigoErro = "1 - Select: " & strAbreConexaoInsereRamaisAguaLigacao
238	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	240	If rsInsereRamaisAguaLigacao.EOF = False Then 'Tem que encontrar a linha em RAMAIS_AGUA que acabou de ser inserida
241	241	volumeFaturado = IIf(IsNull(rsInsereRamaisAguaLigacao!VOL_FATURA), 0, rsInsereRamaisAguaLigacao!VOL_FATURA)
242	242	numeroDaLigacaoComDV = rsInsereRamaisAguaLigacao!NRO_LIGACA
...	...	@@ -246,7 +246,7 @@ Private Sub InsereLigacaoNoRamalSelecionado(object_id_ramalSelecionado As Long,
246	246	Conn.execute (strInsereLigacao)
247	247	rsInsereRamaisAguaLigacao.Close
248	248
249		- ' 7 - Apaga NX GPS
	249	+ '3 - Apaga NX GPS
250	250	debugCodigoErro = "2"
251	251	Set rsApagaLigacaoGpsCadastrada = New ADODB.Recordset
252	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	330	dataCadastroRamal = Now
331	331	objIdRamalTemporarioDoUsuario = strUser & dataCadastroRamal
332	332	strAdicionaNovoRamalAgua = "RAMAIS_AGUA"
333		-
334	333	Set rsAdicionaNovoAtributoRamalAgua = New ADODB.Recordset
335	334	On Error GoTo Transacao_Erro
336	335	Conn.BeginTrans
337	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	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	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	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	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	366	retornoPontoGPS = TeDatabase1.setCurrentLayer("NXGS_V_LIG_COMERCIAL_GPS")
352	367	TeDatabase1.getCenterGeometry 0, stringObject_id_ligacaoGPS, TypeGeometry.points, coordX_pontoGPS, coordY_pontoGPS
353	368	retornoPontoGPS = TeDatabase1.setCurrentLayer("WATERLINES")
...	...	@@ -359,37 +374,17 @@ Private Sub InsereRamalLigacaoGPS(object_id_ligacaoGPS As Long, object_id_rede A
359	374	retornoPontoGPS = TeDatabase1.setCurrentLayer("RAMAIS_AGUA")
360	375	retornoAdicionaLinhaRamal = TeDatabase1.addLine(idUnicoRamaisAgua, linhaRamalX(0), linhaRamalY(0), 2)
361	376
362		- On Error GoTo Trata_Erro
363	377	'4 - Adiciona geometria do ponto ao ramail
364	378	debugCodigoErro = "3"
365	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	382	On Error GoTo Transacao_Erro
374	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	385	Set rsInsereRamaisAguaLigacao = New ADODB.Recordset
391	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	388	rsInsereRamaisAguaLigacao.Open strAbreConexaoInsereRamaisAguaLigacao, Conn, adOpenKeyset, adLockOptimistic, adCmdText
394	389	'Inicia a atualização de RAMAIS_AGUA com todos os dados
395	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	396	Conn.execute (strInsereLigacao)
402	397	rsInsereRamaisAguaLigacao.Close
403	398
404		- ' 7 - Apaga NX GPS
405		- debugCodigoErro = "7"
	399	+ '6 - Apaga NX GPS
	400	+ debugCodigoErro = "6"
406	401	Set rsApagaLigacaoGpsCadastrada = New ADODB.Recordset
407	402	strApagaLigacaoGpsCadastrada = "SELECT NRO_LIGACA FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidorSelecionado)
408	403	rsApagaLigacaoGpsCadastrada.Open strAbreConexaoInsereRamaisAguaLigacao, Conn, adOpenKeyset, adLockOptimistic, adCmdText
409	404	strApagaLigacaoGpsCadastrada = "DELETE FROM NXGS_V_LIG_COMERCIAL_GPS WHERE object_id_331 = " + CStr(object_id_consumidorSelecionado)
410	405	Conn.execute (strApagaLigacaoGpsCadastrada)
411		- debugCodigoErro = "8"
	406	+ debugCodigoErro = "7"
412	407	strApagaGeometriaDaLigacaoGpsCadastrada = "DELETE FROM POINTS331 WHERE object_id = " + CStr(object_id_consumidorSelecionado)
413	408	Conn.execute (strApagaGeometriaDaLigacaoGpsCadastrada)
414	409	rsApagaLigacaoGpsCadastrada.Close
415	410	Conn.CommitTrans
416	411	On Error GoTo Trata_Erro
417		- debugCodigoErro = "9"
	412	+ debugCodigoErro = "8"
418	413
419	414	TCanvas.plotView
420	415	Exit Sub
...	...
...	...	@@ -151,7 +151,7 @@ HelpContextID="0"
151	151	CompatibleMode="0"
152	152	MajorVer=7
153	153	MinorVer=4
154		-RevisionVer=0
	154	+RevisionVer=1
155	155	AutoIncrementVer=0
156	156	ServerSupportFiles=0
157	157	VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda."
...	...
...	...	@@ -200,7 +200,7 @@ Public Sub Main()
200	200	End If
201	201	'Configura a versão atual do GeoSan
202	202	Versao_Geo = App.Major & "." & App.Minor & "." & App.Revision
203		- Versao_Geo = "07.04.00"
	203	+ Versao_Geo = "07.04.01"
204	204	glo.diretorioGeoSan = App.path 'salva globalmente o caminho onde encontra-se o GeoSan.exe
205	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	206	connn = ""
...	...