Download as
Browse Code »

Commit 834b58dc482589c999518754b406fdc34cea8265

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

25-08-2017 - GeoSan 7.5.5 - Correção exportação para shape 

Foi realizada a correção na exportação dos consumidores para
o formato shape.
Adicionados os scripts para atualizar o banco de dados.
Adicionado o banco de dados modelo, atualizado.
Showing 12 changed files with 196 additions and 11 deletions   Show diff stats
db/SqlServer/20170824162400-Historico_modificacoes_banco_dados_geosan-v.7.4.0 - Cópia.txt 0 → 100644
  Diff comments   View file @834b58d
@@ -0,0 +1,173 @@ @@ -0,0 +1,173 @@
  1 +USE [nome_do_banco_de_dados]
  2 +GO
  3 +
  4 +/****** Object: Table [dbo].[GS_NOS] Script Date: 08/24/2017 16:07:17 ******/
  5 +SET ANSI_NULLS ON
  6 +GO
  7 +
  8 +SET QUOTED_IDENTIFIER ON
  9 +GO
  10 +
  11 +SET ANSI_PADDING ON
  12 +GO
  13 +
  14 +CREATE TABLE [dbo].[GS_NOS](
  15 + [object_id_] [nvarchar](50) NOT NULL,
  16 + [idtipo] [int] NULL,
  17 + [idsubtipo] [int] NULL,
  18 + [valor] [varchar](50) NULL,
  19 + [estado] [int] NULL,
  20 + [localiza] [int] NULL,
  21 + [cota] [float] NULL,
  22 + [notacao] [nvarchar](50) NULL,
  23 + [demanda] [float] NULL,
  24 + [datainst] [varchar](50) NULL,
  25 + [descric] [varchar](25) NULL,
  26 + [especif] [varchar](50) NULL,
  27 + [x] [float] NULL,
  28 + [y] [float] NULL
  29 +) ON [PRIMARY]
  30 +
  31 +GO
  32 +
  33 +SET ANSI_PADDING OFF
  34 +GO
  35 +
  36 +USE [nome_do_banco_de_dados]
  37 +GO
  38 +
  39 +/****** Object: Table [dbo].[GS_REDES] Script Date: 08/24/2017 16:09:36 ******/
  40 +SET ANSI_NULLS ON
  41 +GO
  42 +
  43 +SET QUOTED_IDENTIFIER ON
  44 +GO
  45 +
  46 +SET ANSI_PADDING ON
  47 +GO
  48 +
  49 +CREATE TABLE [dbo].[GS_REDES](
  50 + [object_id_] [nvarchar](255) NOT NULL,
  51 + [idtipo] [int] NULL,
  52 + [tiporede] [varchar](25) NULL,
  53 + [especifi] [varchar](100) NULL,
  54 + [altinic] [float] NULL,
  55 + [altfinal] [float] NULL,
  56 + [profinic] [float] NULL,
  57 + [proffin] [float] NULL,
  58 + [diamint] [varchar](25) NULL,
  59 + [diamext] [varchar](25) NULL,
  60 + [noinic] [int] NULL,
  61 + [nofinal] [int] NULL,
  62 + [espessur] [float] NULL,
  63 + [material] [int] NULL,
  64 + [matnome] [nvarchar](50) NOT NULL,
  65 + [comprim] [float] NULL,
  66 + [compcalc] [float] NULL,
  67 + [forneced] [int] NULL,
  68 + [forempre] [nvarchar](40) NOT NULL,
  69 + [localiza] [int] NULL,
  70 + [locanome] [nvarchar](25) NOT NULL,
  71 + [estado] [int] NULL,
  72 + [estnome] [nvarchar](25) NOT NULL,
  73 + [validinf] [int] NULL,
  74 + [rugosid] [float] NOT NULL,
  75 + [setor] [float] NOT NULL,
  76 + [datainst] [varchar](25) NULL,
  77 + [ladorua] [smallint] NULL,
  78 + [ladodesc] [varchar](50) NOT NULL,
  79 + [distdiv] [numeric](18, 2) NULL,
  80 + [problema] [smallint] NULL,
  81 + [usuario] [varchar](50) NULL,
  82 + [datausu] [varchar](50) NULL,
  83 + [data] [varchar](25) NOT NULL,
  84 + [fabrican] [numeric](18, 0) NULL,
  85 + [fabrnome] [nvarchar](40) NOT NULL,
  86 + [LINE_ID] [int] NULL,
  87 + [txtacm] [varchar](50) NULL,
  88 + [txtab] [varchar](50) NULL,
  89 + [angulol] [float] NULL,
  90 + [txtabl1] [varchar](50) NULL,
  91 + [txtabl2] [varchar](50) NULL
  92 +) ON [PRIMARY]
  93 +
  94 +GO
  95 +
  96 +SET ANSI_PADDING OFF
  97 +GO
  98 +
  99 +USE [nome_do_banco_de_dados]
  100 +GO
  101 +
  102 +/****** Object: Table [dbo].[GS_RAMAIS] Script Date: 08/24/2017 16:10:44 ******/
  103 +SET ANSI_NULLS ON
  104 +GO
  105 +
  106 +SET QUOTED_IDENTIFIER ON
  107 +GO
  108 +
  109 +SET ANSI_PADDING ON
  110 +GO
  111 +
  112 +CREATE TABLE [dbo].[GS_RAMAIS](
  113 + [object_id_] [nvarchar](255) NULL,
  114 + [objidtre] [nvarchar](255) NULL,
  115 + [codlog] [int] NULL,
  116 + [distTest] [numeric](18, 2) NULL,
  117 + [distLado] [numeric](18, 2) NULL,
  118 + [compram] [numeric](18, 2) NULL,
  119 + [profram] [numeric](18, 2) NULL,
  120 + [poslote] [int] NULL,
  121 + [id] [int] NOT NULL,
  122 + [datalog] [varchar](30) NULL,
  123 + [usulog] [varchar](30) NULL
  124 +) ON [PRIMARY]
  125 +
  126 +GO
  127 +
  128 +SET ANSI_PADDING OFF
  129 +GO
  130 +
  131 +USE [nome_do_banco_de_dados]
  132 +GO
  133 +
  134 +/****** Object: Table [dbo].[GS_CONSUMIDORES] Script Date: 08/24/2017 16:12:58 ******/
  135 +SET ANSI_NULLS ON
  136 +GO
  137 +
  138 +SET QUOTED_IDENTIFIER ON
  139 +GO
  140 +
  141 +CREATE TABLE [dbo].[GS_CONSUMIDORES](
  142 + [OBJECT_ID_] [nvarchar](250) NULL,
  143 + [NRO_LIG] [nvarchar](50) NULL,
  144 + [NROL_SDV] [nvarchar](50) NULL,
  145 + [INSCLOTE] [nvarchar](50) NULL,
  146 + [AUTO] [nvarchar](10) NULL,
  147 + [CONS_LPS] [nvarchar](24) NULL,
  148 + [TIPO] [nvarchar](20) NULL,
  149 + [COD_LOG] [nvarchar](30) NULL,
  150 + [ENDERECO] [nvarchar](250) NULL,
  151 + [NUM_CASA] [nvarchar](15) NULL,
  152 + [COMPLLOG] [nvarchar](60) NULL,
  153 + [BAIRRO] [nvarchar](150) NULL,
  154 + [HIDROM] [nvarchar](30) NULL,
  155 + [COD_CONS] [nvarchar](11) NULL,
  156 + [CODCONSDV] [nvarchar](11) NULL,
  157 + [CONSUM] [nvarchar](150) NULL,
  158 + [TEL_RES] [nvarchar](20) NULL,
  159 + [TEL_COM] [nvarchar](20) NULL,
  160 + [ECONOM] [nvarchar](10) NULL,
  161 + [DATAIMP] [nvarchar](30) NULL,
  162 + [DATAIMPE] [nvarchar](30) NULL,
  163 + [ROTALEIT] [nvarchar](50) NULL,
  164 + [GRUPOL] [nvarchar](10) NULL,
  165 + [ROTLEIT] [nvarchar](10) NULL,
  166 + [SEQLEI] [nvarchar](10) NULL,
  167 + [CONSFAT] [nvarchar](15) NULL,
  168 + [CONMED] [nvarchar](15) NULL,
  169 + [MES] [nvarchar](2) NULL,
  170 + [ANO] [nvarchar](2) NULL
  171 +) ON [PRIMARY]
  172 +
  173 +GO
0 \ No newline at end of file 174 \ No newline at end of file
db/SqlServer/20170825121900-GeoSanV7.05.05.bak 0 → 100644
View file @834b58d
No preview for this file type
db/SqlServer/20170825121900-Historico_modificacoes_banco_dados_GeoSanV7.05.05.txt 0 → 100644
  Diff comments   View file @834b58d
@@ -0,0 +1,7 @@ @@ -0,0 +1,7 @@
  1 +ALTER TABLE RAMAIS_AGUA_LIGACAO
  2 +ADD [NRO_LIGACAO_ANTIGO] [nvarchar](50) NULL,
  3 + [NRO_LIGSDV] [nvarchar](50) NULL]
  4 +
  5 +ALTER TABLE RAMAIS_AGUA_LIGACAO
  6 +ADD [DATA_LOG] [varchar](45) NULL,
  7 + [USUARIO_LOG] [varchar](30) NULL
0 \ No newline at end of file 8 \ No newline at end of file
install/GeraSetupGeoSan/ArquivosInstGeoSan/GeoSan.exe
View file @834b58d
No preview for this file type
install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss
  Diff comments   View file @834b58d
1 #define SetupBaseName "SetupGeoSan-v." 1 #define SetupBaseName "SetupGeoSan-v."
2 -#define AppVersionFile "07.05.04" 2 +#define AppVersionFile "07.05.05"
3 3
4 [Setup] 4 [Setup]
5 AppName=GeoSan 5 AppName=GeoSan
install/GeraSetupGeoSan/Output/SetupGeoSan-v.07.05.05.exe 0 → 100644
View file @834b58d
No preview for this file type
trunk/Controles/GEOSAN.INI
  Diff comments   View file @834b58d
@@ -11,7 +11,7 @@ CONSULTAR_LIGAÇÕES=NÃO @@ -11,7 +11,7 @@ CONSULTAR_LIGAÇÕES=NÃO
11 [RAMAISFILTRO] 11 [RAMAISFILTRO]
12 PESQUISA=INSCRIÇÃO 12 PESQUISA=INSCRIÇÃO
13 ATIVADO=SIM 13 ATIVADO=SIM
14 -VALOR=11638 14 +VALOR=12269
15 [EMAIL] 15 [EMAIL]
16 EMAILDESTINATARIO=tec@nexusbr.com 16 EMAILDESTINATARIO=tec@nexusbr.com
17 EMAILREMETENTE=NEXUS <tec@nexusbr.com> 17 EMAILREMETENTE=NEXUS <tec@nexusbr.com>
trunk/GeoSan.exe
View file @834b58d
No preview for this file type
trunk/GeoSan.vbp
  Diff comments   View file @834b58d
@@ -152,7 +152,7 @@ HelpContextID=&quot;0&quot; @@ -152,7 +152,7 @@ HelpContextID=&quot;0&quot;
152 CompatibleMode="0" 152 CompatibleMode="0"
153 MajorVer=7 153 MajorVer=7
154 MinorVer=5 154 MinorVer=5
155 -RevisionVer=4 155 +RevisionVer=5
156 AutoIncrementVer=0 156 AutoIncrementVer=0
157 ServerSupportFiles=0 157 ServerSupportFiles=0
158 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda." 158 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda."
trunk/GeoSan.vbw
  Diff comments   View file @834b58d
1 -Global = 78, 7, 1036, 696, C 1 +Global = 78, 7, 1036, 696,
2 calcDetecta = 0, 0, 0, 0, C 2 calcDetecta = 0, 0, 0, 0, C
3 FrmCreatTextForLayer = 0, 0, 0, 0, C, 132, 132, 1251, 864, C 3 FrmCreatTextForLayer = 0, 0, 0, 0, C, 132, 132, 1251, 864, C
4 frmAbout = 0, 0, 0, 0, C, 154, 154, 1273, 886, C 4 frmAbout = 0, 0, 0, 0, C, 154, 154, 1273, 886, C
@@ -65,7 +65,7 @@ frmEncontraConsumidor = 125, 125, 967, 575, C, 154, 154, 1273, 886, C @@ -65,7 +65,7 @@ frmEncontraConsumidor = 125, 125, 967, 575, C, 154, 154, 1273, 886, C
65 clsTeCanvas = 44, 44, 1163, 776, C 65 clsTeCanvas = 44, 44, 1163, 776, C
66 frmCadastroRamalAutoLote = 0, 0, 0, 0, C, 176, 176, 1295, 908, C 66 frmCadastroRamalAutoLote = 0, 0, 0, 0, C, 176, 176, 1295, 908, C
67 frmRelAvanComando = 0, 0, 0, 0, C, 198, 198, 1317, 930, C 67 frmRelAvanComando = 0, 0, 0, 0, C, 198, 198, 1317, 930, C
68 -GeosanExport = 3, 8, 1458, 983, C 68 +GeosanExport = 3, 8, 1458, 983,
69 Header = 250, 250, 1396, 881, C 69 Header = 250, 250, 1396, 881, C
70 clsAbreArquivo = 0, 0, 0, 0, C 70 clsAbreArquivo = 0, 0, 0, 0, C
71 CCoordIniFinLinha = 0, 0, 0, 0, C 71 CCoordIniFinLinha = 0, 0, 0, 0, C
trunk/Modules/Global.bas
  Diff comments   View file @834b58d
@@ -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.05.04" 203 + Versao_Geo = "07.05.05"
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 = ""
trunk/classes/GeosanExport.cls
  Diff comments   View file @834b58d
@@ -347,19 +347,19 @@ Public Function InsereConsumidores() As Boolean @@ -347,19 +347,19 @@ Public Function InsereConsumidores() As Boolean
347 End If 347 End If
348 frm.Show , FrmMain 348 frm.Show , FrmMain
349 frm.ProgressBar1.Min = 0 349 frm.ProgressBar1.Min = 0
350 - str = "SELECT COUNT(*) FROM RAMAIS_AGUA_LIGACAO" 350 + str = "SELECT COUNT(*) FROM RAMAIS_AGUA_LIGACAO a"
351 rs.Open str, Conn, adOpenDynamic, adLockOptimistic 'abre a conexão 351 rs.Open str, Conn, adOpenDynamic, adLockOptimistic 'abre a conexão
352 frm.ProgressBar1.Max = rs.Fields(0) + 1000 352 frm.ProgressBar1.Max = rs.Fields(0) + 1000
353 rs.Close 353 rs.Close
354 354
355 'prepara a querie para ler todos os dados de um trecho de rede de água 355 'prepara a querie para ler todos os dados de um trecho de rede de água
356 - str = "select * from RAMAIS_AGUA_LIGACAO "  
357 - str = str + "inner join NXGS_V_LIG_COMERCIAL on Convert(varchar, Convert(bigint,RAMAIS_AGUA_LIGACAO.NRO_LIGACAO) / 10) = NXGS_V_LIG_COMERCIAL.NRO_LIGACAO_SEM_DV " 356 + str = "select * from RAMAIS_AGUA_LIGACAO a "
  357 + str = str + "inner join NXGS_V_LIG_COMERCIAL b on Convert(varchar, Convert(bigint,a.NRO_LIGACAO) / 10) = b.NRO_LIGACAO_SEM_DV "
358 'str = str + "inner join NXGS_V_LIG_COM_CONSUMO_MEDIO on NXGS_V_LIG_COM_CONSUMO_MEDIO.NRO_LIGACAO_SEM_DV = RAMAIS_AGUA_LIGACAO.NRO_LIGACAO /10" 358 'str = str + "inner join NXGS_V_LIG_COM_CONSUMO_MEDIO on NXGS_V_LIG_COM_CONSUMO_MEDIO.NRO_LIGACAO_SEM_DV = RAMAIS_AGUA_LIGACAO.NRO_LIGACAO /10"
359 logErro = "1 - " + str 359 logErro = "1 - " + str
360 rs.Open str, Conn, adOpenDynamic, adLockOptimistic 'abre a conexão 360 rs.Open str, Conn, adOpenDynamic, adLockOptimistic 'abre a conexão
361 Do While Not rs.EOF 361 Do While Not rs.EOF
362 - logErro = "6 - moveu para o próximo, object_id:" + rs.Fields("Object_id_").value 362 + logErro = "6a - moveu para o próximo, object_id:" + rs.Fields("Object_id_").value + " SQL: " + str
363 DoEvents 'para o VB poder escutar o timer e poder parar o processamento caso a tecla ESC tenha sido pressionada 363 DoEvents 'para o VB poder escutar o timer e poder parar o processamento caso a tecla ESC tenha sido pressionada
364 If varGlobais.pararExecucao = True Then 364 If varGlobais.pararExecucao = True Then
365 Screen.MousePointer = vbNormal 365 Screen.MousePointer = vbNormal
@@ -368,6 +368,7 @@ Public Function InsereConsumidores() As Boolean @@ -368,6 +368,7 @@ Public Function InsereConsumidores() As Boolean
368 InsereConsumidores = False 368 InsereConsumidores = False
369 Exit Function 369 Exit Function
370 End If 370 End If
  371 + logErro = "6b - moveu para o próximo, object_id:" + rs.Fields("Object_id_").value + " SQL: " + str
371 'prepara textos já concatenados para redes longas e curtas 372 'prepara textos já concatenados para redes longas e curtas
372 obj_id = rs.Fields("Object_id_").value 373 obj_id = rs.Fields("Object_id_").value
373 FrmMain.sbStatusBar.Panels(2).Text = "Insere consumidor: " & obj_id 'apresenta na barra de status o andamento da inserção 374 FrmMain.sbStatusBar.Panels(2).Text = "Insere consumidor: " & obj_id 'apresenta na barra de status o andamento da inserção
@@ -378,13 +379,15 @@ Public Function InsereConsumidores() As Boolean @@ -378,13 +379,15 @@ Public Function InsereConsumidores() As Boolean
378 CONS_LPS = Replace(CStr(FormatNumber(IIf(IsNull(rs.Fields("CONSUMO_LPS").value), 0, rs.Fields("CONSUMO_LPS").value), 8)), ",", ".") 379 CONS_LPS = Replace(CStr(FormatNumber(IIf(IsNull(rs.Fields("CONSUMO_LPS").value), 0, rs.Fields("CONSUMO_LPS").value), 8)), ",", ".")
379 TIPOC = IIf(IsNull(rs.Fields("TIPO").value), "", rs.Fields("TIPO").value) 380 TIPOC = IIf(IsNull(rs.Fields("TIPO").value), "", rs.Fields("TIPO").value)
380 COD_LOG = IIf(IsNull(rs.Fields("COD_LOGRADOURO").value), "", rs.Fields("COD_LOGRADOURO").value) 381 COD_LOG = IIf(IsNull(rs.Fields("COD_LOGRADOURO").value), "", rs.Fields("COD_LOGRADOURO").value)
  382 + logErro = "6c - moveu para o próximo, object_id:" + rs.Fields("Object_id_").value + " SQL: " + str
381 ENDERECO = Replace(IIf(IsNull(rs.Fields("ENDERECO").value), "", rs.Fields("ENDERECO").value), Chr(39), " ") 383 ENDERECO = Replace(IIf(IsNull(rs.Fields("ENDERECO").value), "", rs.Fields("ENDERECO").value), Chr(39), " ")
382 NUM_CASA = IIf(IsNull(rs.Fields("NUM_CASA").value), "", rs.Fields("NUM_CASA").value) 384 NUM_CASA = IIf(IsNull(rs.Fields("NUM_CASA").value), "", rs.Fields("NUM_CASA").value)
383 COMPLLOG = Replace(IIf(IsNull(rs.Fields("COMPL_LOGRADOURO").value), "", rs.Fields("COMPL_LOGRADOURO").value), Chr(39), " ") 385 COMPLLOG = Replace(IIf(IsNull(rs.Fields("COMPL_LOGRADOURO").value), "", rs.Fields("COMPL_LOGRADOURO").value), Chr(39), " ")
384 BAIRRO = Replace(IIf(IsNull(rs.Fields("BAIRRO").value), "", rs.Fields("BAIRRO").value), Chr(39), " ") 386 BAIRRO = Replace(IIf(IsNull(rs.Fields("BAIRRO").value), "", rs.Fields("BAIRRO").value), Chr(39), " ")
385 HIDROM = IIf(IsNull(rs.Fields("HIDROMETRO").value), "", rs.Fields("HIDROMETRO").value) 387 HIDROM = IIf(IsNull(rs.Fields("HIDROMETRO").value), "", rs.Fields("HIDROMETRO").value)
386 COD_CONS = CStr(IIf(IsNull(rs.Fields("COD_CONSUMIDOR").value), "", rs.Fields("COD_CONSUMIDOR").value)) 388 COD_CONS = CStr(IIf(IsNull(rs.Fields("COD_CONSUMIDOR").value), "", rs.Fields("COD_CONSUMIDOR").value))
387 - CODCONSDV = CStr(IIf(IsNull(rs.Fields("COD_CONSUMIDOR_SEM_DV").value), "", rs.Fields("COD_CONSUMIDOR_SEM_DV").value)) 389 + CODCONSDV = CStr(IIf(IsNull(rs.Fields("COD_CONSUMIDOR_SEM_DV").value), "", rs.Fields("COD_CONSUMIDRO_SEM_DV").value))
  390 + logErro = "6d - moveu para o próximo, object_id:" + rs.Fields("Object_id_").value + " SQL: " + str
388 CONSUM = Replace(IIf(IsNull(rs.Fields("CONSUMIDOR").value), "", rs.Fields("CONSUMIDOR").value), Chr(39), " ") 391 CONSUM = Replace(IIf(IsNull(rs.Fields("CONSUMIDOR").value), "", rs.Fields("CONSUMIDOR").value), Chr(39), " ")
389 TEL_RES = IIf(IsNull(rs.Fields("TEL_RES").value), "", rs.Fields("TEL_RES").value) 392 TEL_RES = IIf(IsNull(rs.Fields("TEL_RES").value), "", rs.Fields("TEL_RES").value)
390 TEL_COM = IIf(IsNull(rs.Fields("TEL_COM").value), "", rs.Fields("TEL_COM").value) 393 TEL_COM = IIf(IsNull(rs.Fields("TEL_COM").value), "", rs.Fields("TEL_COM").value)
@@ -392,9 +395,11 @@ Public Function InsereConsumidores() As Boolean @@ -392,9 +395,11 @@ Public Function InsereConsumidores() As Boolean
392 DATAIMP = CStr(IIf(IsNull(rs.Fields("DATA_IMPLANTACAO_AGUA").value), "", rs.Fields("DATA_IMPLANTACAO_AGUA").value)) 395 DATAIMP = CStr(IIf(IsNull(rs.Fields("DATA_IMPLANTACAO_AGUA").value), "", rs.Fields("DATA_IMPLANTACAO_AGUA").value))
393 DATAIMPE = CStr(IIf(IsNull(rs.Fields("DATA_IMPLANTACAO_ESGOTO").value), "", rs.Fields("DATA_IMPLANTACAO_ESGOTO").value)) 396 DATAIMPE = CStr(IIf(IsNull(rs.Fields("DATA_IMPLANTACAO_ESGOTO").value), "", rs.Fields("DATA_IMPLANTACAO_ESGOTO").value))
394 ROTALEIT = CStr(IIf(IsNull(rs.Fields("ROTA_LEITURA").value), "", rs.Fields("ROTA_LEITURA").value)) 397 ROTALEIT = CStr(IIf(IsNull(rs.Fields("ROTA_LEITURA").value), "", rs.Fields("ROTA_LEITURA").value))
  398 + logErro = "6e - moveu para o próximo, object_id:" + rs.Fields("Object_id_").value + " SQL: " + str
395 GRUPOL = CStr(IIf(IsNull(rs.Fields("GRUPO_LEITURA").value), "", rs.Fields("GRUPO_LEITURA").value)) 399 GRUPOL = CStr(IIf(IsNull(rs.Fields("GRUPO_LEITURA").value), "", rs.Fields("GRUPO_LEITURA").value))
396 ROTLEIT = CStr(IIf(IsNull(rs.Fields("ROTEIRO_LEITURA").value), "", rs.Fields("ROTEIRO_LEITURA").value)) 400 ROTLEIT = CStr(IIf(IsNull(rs.Fields("ROTEIRO_LEITURA").value), "", rs.Fields("ROTEIRO_LEITURA").value))
397 SEQLEI = CStr(IIf(IsNull(rs.Fields("SEQUENCIA_LEITURA").value), "", rs.Fields("SEQUENCIA_LEITURA").value)) 401 SEQLEI = CStr(IIf(IsNull(rs.Fields("SEQUENCIA_LEITURA").value), "", rs.Fields("SEQUENCIA_LEITURA").value))
  402 + logErro = "6f - moveu para o próximo, object_id:" + rs.Fields("Object_id_").value + " SQL: " + str
398 CONSFAT = "" 403 CONSFAT = ""
399 CONMED = "" 404 CONMED = ""
400 MESC = "" 405 MESC = ""