Software Público Brasileiro

VERSION 5.00
Object = "{9AB389E7-EAED-4DBF-941D-EB86ED1F9A76}#1.0#0"; "TeComConnection.dll"
Object = "{87AC6DA5-272D-40EB-B60A-F83246B1B8D7}#1.0#0"; "TeComDatabase.dll"
Object = "{C51C74EC-6107-4A01-8400-40B53BB20D42}#1.0#0"; "TeComExport.dll"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{1A397116-3057-40EE-9ECA-6FA4CC1E5FC3}#1.0#0"; "NexusPM4.ocx"
Object = "{2CCABA93-B681-4E7F-8047-BD4D623301BA}#1.0#0"; "TeComImport.dll"
Object = "{91488A85-7250-4842-8681-87818334B791}#1.0#0"; "NxViewManager2.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.1#0"; "mscomctl.ocx"
Begin VB.MDIForm FrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "  NEXUS - GeoSan - Tecnologia Terralib"
   ClientHeight    =   8445
   ClientLeft      =   225
   ClientTop       =   855
   ClientWidth     =   10035
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "FrmMain"
   StartUpPosition =   3  'Windows Default
   Tag             =   "0"
   WindowState     =   2  'Maximized
   Begin MSComctlLib.ImageList ImageList4 
      Left            =   3720
      Top             =   3960
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   24
      ImageHeight     =   24
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   28
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":013E
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0838
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0FB2
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":16AC
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1DA6
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":24A0
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2B9A
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":3294
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":398E
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":4088
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":4782
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":4E7C
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":5576
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":5C70
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":636A
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":6A64
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":715E
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":7858
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":7F52
            Key             =   ""
         EndProperty
         BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":864C
            Key             =   ""
         EndProperty
         BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":8D46
            Key             =   ""
         EndProperty
         BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":94C0
            Key             =   ""
         EndProperty
         BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":9BBA
            Key             =   ""
         EndProperty
         BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1A024
            Key             =   ""
         EndProperty
         BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2A48E
            Key             =   ""
         EndProperty
         BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2AC08
            Key             =   ""
         EndProperty
         BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2B302
            Key             =   ""
         EndProperty
         BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2B9FC
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComDlg.CommonDialog Cdl 
      Left            =   4305
      Top             =   2430
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.PictureBox pctSfondo 
      Align           =   4  'Align Right
      BorderStyle     =   0  'None
      Height          =   7515
      Left            =   6090
      ScaleHeight     =   7515
      ScaleWidth      =   3945
      TabIndex        =   1
      Top             =   510
      Width           =   3945
      Begin NxViewManager.ViewManager ViewManager1 
         Height          =   1095
         Left            =   600
         TabIndex        =   11
         Top             =   3960
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   1931
      End
      Begin TECOMEXPORTLibCtl.TeExport TeExport2 
         Left            =   2880
         OleObjectBlob   =   "frmMain.frx":2C0F6
         Top             =   1680
      End
      Begin TECOMIMPORTLibCtl.TeImport TeImport1 
         Left            =   2880
         OleObjectBlob   =   "frmMain.frx":2C11A
         Top             =   5160
      End
      Begin PManager4.Manager Manager1 
         Height          =   855
         Left            =   600
         TabIndex        =   10
         Top             =   1680
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   1508
      End
      Begin MSComDlg.CommonDialog cmmSalvaImg 
         Left            =   1590
         Top             =   7605
         _ExtentX        =   847
         _ExtentY        =   847
         _Version        =   393216
      End
      Begin VB.CommandButton cmdClose 
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   3660
         Picture         =   "frmMain.frx":2C13E
         Style           =   1  'Graphical
         TabIndex        =   8
         Top             =   0
         Width           =   285
      End
      Begin VB.PictureBox picSplitter 
         BackColor       =   &H00808080&
         BorderStyle     =   0  'None
         FillColor       =   &H00808080&
         Height          =   7200
         Left            =   2250
         ScaleHeight     =   3135.189
         ScaleMode       =   0  'User
         ScaleWidth      =   780
         TabIndex        =   2
         Top             =   -90
         Visible         =   0   'False
         Width           =   72
      End
      Begin VB.Frame FrameEscala 
         Height          =   615
         Left            =   240
         TabIndex        =   4
         Top             =   240
         Width           =   3675
         Begin VB.TextBox txtEscala 
            Height          =   285
            Left            =   1890
            TabIndex        =   5
            Top             =   210
            Width           =   1635
         End
         Begin VB.Label Label1 
            Caption         =   "Escala de Visualização:"
            Height          =   195
            Left            =   90
            TabIndex        =   6
            Top             =   240
            Width           =   1755
         End
      End
      Begin MSComctlLib.TabStrip TabStrip1 
         Height          =   315
         Left            =   240
         TabIndex        =   3
         Top             =   960
         Width           =   4095
         _ExtentX        =   7223
         _ExtentY        =   556
         MultiRow        =   -1  'True
         MultiSelect     =   -1  'True
         _Version        =   393216
         BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628} 
            NumTabs         =   2
            BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
               Caption         =   "Temas"
               ImageVarType    =   2
            EndProperty
            BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
               Caption         =   "Propriedades"
               ImageVarType    =   2
            EndProperty
         EndProperty
      End
      Begin TeComConnectionLibCtl.TeAcXConnection TeAcXConnection1 
         Left            =   2880
         OleObjectBlob   =   "frmMain.frx":2C4B0
         Top             =   2760
      End
      Begin TECOMDATABASELibCtl.TeDatabase TeDatabase1 
         Left            =   2760
         OleObjectBlob   =   "frmMain.frx":2C4D4
         Top             =   4080
      End
      Begin VB.Image imgSplitter 
         Height          =   7380
         Left            =   0
         MousePointer    =   9  'Size W E
         Top             =   0
         Width           =   150
      End
   End
   Begin MSComctlLib.StatusBar sbStatusBar 
      Align           =   2  'Align Bottom
      Height          =   420
      Left            =   0
      TabIndex        =   0
      Top             =   8025
      Width           =   10035
      _ExtentX        =   17701
      _ExtentY        =   741
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   5
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   8819
            MinWidth        =   8819
            Text            =   "Status"
            TextSave        =   "Status"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   2
            Object.Width           =   3519
            MinWidth        =   3528
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            AutoSize        =   2
            Object.Width           =   3519
            MinWidth        =   3528
            TextSave        =   "20:16"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   2
            Object.Width           =   3519
            MinWidth        =   3528
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
            Object.ToolTipText     =   "Distância"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar tbToolBar 
      Align           =   1  'Align Top
      Height          =   510
      Left            =   0
      TabIndex        =   7
      Top             =   0
      Width           =   10035
      _ExtentX        =   17701
      _ExtentY        =   900
      ButtonWidth     =   820
      ButtonHeight    =   794
      ImageList       =   "ImageList4"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   42
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "knew"
            Object.ToolTipText     =   "Novo"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "ksave"
            Object.ToolTipText     =   "Salvar"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kselection"
            Object.ToolTipText     =   "Selecionar"
            ImageIndex      =   3
            Style           =   1
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kplotview"
            Object.ToolTipText     =   "Atualizar"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "krecompose"
            Object.ToolTipText     =   "Recompor"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "mnuPoligono"
            Object.ToolTipText     =   "Poligono de Seleção"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "KFindCoordenadas"
            Object.ToolTipText     =   "Localizar Coordenada"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "KEncontraTexto"
            Object.ToolTipText     =   "Encontrar Textos"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "KEncontraConsumidor"
            Object.ToolTipText     =   "Encontrar Consumidores"
            ImageIndex      =   9
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kzoomarea"
            Object.ToolTipText     =   "Zoom Área"
            ImageIndex      =   10
            Style           =   1
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kpan"
            Object.ToolTipText     =   "Mover Visualização"
            ImageIndex      =   11
            Style           =   1
         EndProperty
         BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kundoview"
            Object.ToolTipText     =   "Voltar Visualização"
            ImageIndex      =   12
         EndProperty
         BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kredoview"
            Object.ToolTipText     =   "Avançar Visualização"
            ImageIndex      =   13
         EndProperty
         BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kzoomin"
            Object.ToolTipText     =   "Menos Zoom"
            ImageIndex      =   14
         EndProperty
         BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kzoomout"
            Object.ToolTipText     =   "Mais Zoom"
            ImageIndex      =   15
         EndProperty
         BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kdrawnetworkline"
            Object.ToolTipText     =   "Desenhar Rede"
            ImageIndex      =   16
            Style           =   1
         EndProperty
         BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kmovenetworknode"
            Object.ToolTipText     =   "Mover Componente com Rede"
            ImageIndex      =   17
            Style           =   1
         EndProperty
         BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kinsertnetworknode"
            Object.ToolTipText     =   "Desenhar Componente na Rede"
            ImageIndex      =   18
            Style           =   1
         EndProperty
         BeginProperty Button25 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Style           =   3
         EndProperty
         BeginProperty Button26 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Key             =   "kdrawtext"
            Object.ToolTipText     =   "Desenhar Texto - Amarração"
            ImageIndex      =   19
            Style           =   1
         EndProperty
         BeginProperty Button27 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Key             =   "kdrawline"
            Object.ToolTipText     =   "Desenhar Linha - Amarração"
            ImageIndex      =   20
         EndProperty
         BeginProperty Button28 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Key             =   "kdrawpoint"
            Object.ToolTipText     =   "Desenhar Ponto - Amarração"
            ImageIndex      =   21
         EndProperty
         BeginProperty Button29 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Style           =   3
         EndProperty
         BeginProperty Button30 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Object.Visible         =   0   'False
            Style           =   3
         EndProperty
         BeginProperty Button31 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kinsertdoc"
            Object.ToolTipText     =   "Inserir Documento(s)"
            ImageIndex      =   19
            Style           =   1
         EndProperty
         BeginProperty Button32 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kdrawramal"
            Object.ToolTipText     =   "Inserir Ramal"
            ImageIndex      =   20
         EndProperty
         BeginProperty Button33 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kdrawramalAuto"
            Object.ToolTipText     =   "Inserir ramal automaticamente"
            ImageIndex      =   27
         EndProperty
         BeginProperty Button34 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kdrawramalAddConsumer"
            Object.ToolTipText     =   "Adiciona um consumidor a um ramal"
            ImageIndex      =   28
         EndProperty
         BeginProperty Button35 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kMoveConsumidorGPS"
            Object.ToolTipText     =   "Mover Consumidor GPS"
            ImageIndex      =   25
         EndProperty
         BeginProperty Button36 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kdelete"
            Object.ToolTipText     =   "Excluir"
            ImageIndex      =   21
         EndProperty
         BeginProperty Button37 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "ksearchinnetwork"
            Object.ToolTipText     =   "Encontrar válvulas a partir da rede selecionada"
            ImageIndex      =   22
         EndProperty
         BeginProperty Button38 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Key             =   "ksearchattribute"
            Object.ToolTipText     =   "Pesquisa Geral"
         EndProperty
         BeginProperty Button39 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button40 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Key             =   "kdrawintersection"
         EndProperty
         BeginProperty Button41 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Key             =   "kConsumoLote"
            Object.ToolTipText     =   "Apresenta Consumo"
         EndProperty
         BeginProperty Button42 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Key             =   "kMoveVertice"
            Object.ToolTipText     =   "Mover Vértice"
         EndProperty
      EndProperty
      Begin VB.Timer Timer1 
         Left            =   3240
         Top             =   840
      End
      Begin MSComctlLib.ProgressBar ProgressBar1 
         Height          =   285
         Left            =   9120
         TabIndex        =   9
         Top             =   60
         Visible         =   0   'False
         Width           =   1890
         _ExtentX        =   3334
         _ExtentY        =   503
         _Version        =   393216
         Appearance      =   1
         Min             =   1e-4
         Scrolling       =   1
      End
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   4830
      Top             =   2370
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   31
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2C4F8
            Key             =   "new_window"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2C84A
            Key             =   "zoom_area"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2CB9C
            Key             =   "zoom_in"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2CEEE
            Key             =   "zoon_out"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2D240
            Key             =   "undo_view"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2D592
            Key             =   "redo_view"
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2D8E4
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2DE36
            Key             =   "delete"
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2E188
            Key             =   "save"
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2E4DA
            Key             =   "fit"
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2E82C
            Key             =   "insertramal"
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2EB7E
            Key             =   "foto"
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2EED0
            Key             =   "fonte"
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2F222
            Key             =   "fiti"
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2F574
            Key             =   "sair"
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2F8C6
            Key             =   "seta"
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2FC18
            Key             =   "world"
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2FF6A
            Key             =   "find_user"
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":302BC
            Key             =   "insert_point"
         EndProperty
         BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":3060E
            Key             =   "attach"
         EndProperty
         BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":30960
            Key             =   "draw_network"
         EndProperty
         BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":30CB2
            Key             =   "find_valvula"
         EndProperty
         BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":31004
            Key             =   "declivity"
         EndProperty
         BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":31356
            Key             =   "reflesh"
         EndProperty
         BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":316A8
            Key             =   "move_point"
         EndProperty
         BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":319FA
            Key             =   "pan"
         EndProperty
         BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":31D4C
            Key             =   "registro"
         EndProperty
         BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":3209E
            Key             =   "point"
         EndProperty
         BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":323F0
            Key             =   "point2"
         EndProperty
         BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":327BB
            Key             =   "line"
         EndProperty
         BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":32B0D
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList2 
      Left            =   5400
      Top             =   2370
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   32
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":32F5F
            Key             =   "new_window"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":332B1
            Key             =   "zoom_area"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":33603
            Key             =   "zoom_in"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":33955
            Key             =   "zoon_out"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":33CA7
            Key             =   "undo_view"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":33FF9
            Key             =   "redo_view"
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":3434B
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":3489D
            Key             =   "delete"
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":34BEF
            Key             =   "save"
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":34F41
            Key             =   "fit"
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":35293
            Key             =   "insertramal"
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":355E5
            Key             =   "foto"
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":35937
            Key             =   "fonte"
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":35C89
            Key             =   "fiti"
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":35FDB
            Key             =   "sair"
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":3632D
            Key             =   "seta"
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":3667F
            Key             =   "world"
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":369D1
            Key             =   "find_user"
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":36D23
            Key             =   "insert_point"
         EndProperty
         BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":37075
            Key             =   "attach"
         EndProperty
         BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":373C7
            Key             =   "draw_network"
         EndProperty
         BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":37719
            Key             =   "find_valvula"
         EndProperty
         BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":37A6B
            Key             =   "declivity"
         EndProperty
         BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":37DBD
            Key             =   "reflesh"
         EndProperty
         BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":3810F
            Key             =   "move_point"
         EndProperty
         BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":38461
            Key             =   "pan"
         EndProperty
         BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":387B3
            Key             =   "registro"
         EndProperty
         BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":38B05
            Key             =   "point"
         EndProperty
         BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":38E57
            Key             =   "point2"
         EndProperty
         BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":39222
            Key             =   "line"
         EndProperty
         BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":39574
            Key             =   ""
         EndProperty
         BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":399C6
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList3 
      Left            =   4320
      Top             =   3960
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   25
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":39FF0
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":3A453
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":3EFA5
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":41FF7
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":45049
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":4809B
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":4B0ED
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":4CF6F
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":4D38D
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":593DF
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":65431
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":71483
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":7D4D5
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":89527
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":95579
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":961CB
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":A221D
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":AE26F
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":BA2C1
            Key             =   ""
         EndProperty
         BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":C6313
            Key             =   ""
         EndProperty
         BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":D2365
            Key             =   ""
         EndProperty
         BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":D53B7
            Key             =   ""
         EndProperty
         BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":D57FB
            Key             =   ""
         EndProperty
         BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":D5C2F
            Key             =   ""
         EndProperty
         BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":D6068
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu Mnu_Arquive 
      Caption         =   "&Arquivo"
      Begin VB.Menu mnuExport 
         Caption         =   "Exportar"
         Begin VB.Menu mnuImagem 
            Caption         =   "Área Visualizada para Imagem"
         End
         Begin VB.Menu mnuExportLocalNos 
            Caption         =   "Localização de Nós com Cota"
         End
         Begin VB.Menu mnuExpAutoCad 
            Caption         =   "DXF"
         End
         Begin VB.Menu mnuExpCon 
            Caption         =   "Consumidores e Consumo"
         End
         Begin VB.Menu OdImport 
            Caption         =   "Novo DXF com OdImport"
            Visible         =   0   'False
         End
      End
      Begin VB.Menu mnusep01001 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuImport 
         Caption         =   "Importar"
         Begin VB.Menu mnuImportSIG 
            Caption         =   "SIG"
         End
         Begin VB.Menu mnuImportDXF 
            Caption         =   "DXF"
         End
         Begin VB.Menu mnuImpCotas 
            Caption         =   "Cotas"
         End
      End
      Begin VB.Menu mnusep011101 
         Caption         =   "-"
      End
      Begin VB.Menu mnuUpdate_Demand 
         Caption         =   "Atualizar Consumos e Distribuir Demandas"
      End
      Begin VB.Menu mnuExporta_GeoSan 
         Caption         =   "Exporta consumidores, redes, ramais e nós no formato .shp"
      End
      Begin VB.Menu mnuAtualizaCotas 
         Caption         =   "Atualiza todas as cotas de todos os nós"
      End
      Begin VB.Menu mnuAutoLogin 
         Caption         =   "Logar Automaticamente"
      End
      Begin VB.Menu mnuChangePassword 
         Caption         =   "Alterar Senha"
      End
      Begin VB.Menu mnuAtualizaNumCasaGps 
         Caption         =   "Atualizar números das casas dos coletores GPS"
      End
      Begin VB.Menu mnuFileClose 
         Caption         =   "Fechar"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFileBar0 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFileProperties 
         Caption         =   "Propriedades"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFileBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileExit 
         Caption         =   "Sair"
      End
   End
   Begin VB.Menu mnuEdit 
      Caption         =   "&Editar"
      Begin VB.Menu mnuSelect 
         Caption         =   "Selecionar"
      End
      Begin VB.Menu mnu_Reflesh 
         Caption         =   "Atualizar"
      End
      Begin VB.Menu mnuRecompose 
         Caption         =   "Recompor"
      End
      Begin VB.Menu mnuFileBar71 
         Caption         =   "-"
      End
      Begin VB.Menu mnuZoom 
         Caption         =   "Zoom Área"
         Shortcut        =   ^Z
      End
      Begin VB.Menu mnuMove 
         Caption         =   "Mover Visualização"
      End
      Begin VB.Menu mnuUndoView 
         Caption         =   "Voltar Visualização"
      End
      Begin VB.Menu mnuRedoView 
         Caption         =   "Avançar Visualização"
      End
      Begin VB.Menu mnuFileBar72 
         Caption         =   "-"
      End
      Begin VB.Menu mnuMinusZoom 
         Caption         =   "Menos Zoom"
      End
      Begin VB.Menu mnuMoreZoom 
         Caption         =   "Mais Zoom"
      End
      Begin VB.Menu mnuFileBar73 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuDeleteInc 
         Caption         =   "Excluir Pontos Inconcistentes"
         Visible         =   0   'False
      End
   End
   Begin VB.Menu mnuMapa 
      Caption         =   "&Mapa"
      Begin VB.Menu mnuDrawLineWater 
         Caption         =   "Desenhar Rede Água"
         Shortcut        =   ^L
      End
      Begin VB.Menu mnuMovePointWithLines 
         Caption         =   "Mover Componente c/ Rede"
      End
      Begin VB.Menu mnuDrawPointInLineWater 
         Caption         =   "Desenhar Componente na Rede"
         Shortcut        =   ^R
      End
      Begin VB.Menu mnuEditBar30 
         Caption         =   "-"
      End
      Begin VB.Menu mnuInsertDocs 
         Caption         =   "Inserir Documentos"
         Shortcut        =   ^D
      End
      Begin VB.Menu mnuEditBar80 
         Caption         =   "-"
      End
      Begin VB.Menu mnuDrawRamal 
         Caption         =   "Desenhar Ramal"
      End
      Begin VB.Menu mnusep1234 
         Caption         =   "-"
      End
      Begin VB.Menu mnuDeleteLineWater 
         Caption         =   "Excluir"
         Shortcut        =   ^X
      End
      Begin VB.Menu mnusep9999 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCalcArea 
         Caption         =   "Calcular Área (m²)"
      End
      Begin VB.Menu mnuCalibrarZoom 
         Caption         =   "Calibrar Zoom"
      End
      Begin VB.Menu mnuDesenhaPoligono 
         Caption         =   "Desenhar Poligono"
      End
      Begin VB.Menu mnuCarregaPoligono 
         Caption         =   "Carregar Polígono"
      End
      Begin VB.Menu mnuDefEscala 
         Caption         =   "Definir Escala"
      End
      Begin VB.Menu mnuFixaIcone 
         Caption         =   "Fixar Ícone"
      End
      Begin VB.Menu mnusep0001 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_Find_Object 
         Caption         =   "Encontrar Objeto"
      End
      Begin VB.Menu mnuEncontraTexto 
         Caption         =   "Encontrar Textos"
      End
      Begin VB.Menu mnuEncontraCoordenada 
         Caption         =   "Localizar Coordenadas"
      End
      Begin VB.Menu mnuLocConsumidores 
         Caption         =   "Localizar Consumidores"
      End
      Begin VB.Menu mnusep10000 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSalvaImgMapa 
         Caption         =   "Salvar Imagem"
         Begin VB.Menu mnuBitmap 
            Caption         =   "BMP"
         End
         Begin VB.Menu mnuGIF 
            Caption         =   "GIF"
         End
         Begin VB.Menu mnuJPG 
            Caption         =   "JPG"
         End
         Begin VB.Menu mnuPNG 
            Caption         =   "PNG"
         End
         Begin VB.Menu mnuTIF 
            Caption         =   "TIF"
         End
      End
   End
   Begin VB.Menu mnuCadastros 
      Caption         =   "&Cadastros"
      Begin VB.Menu mnuTypes 
         Caption         =   "Tipos"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSuppliers 
         Caption         =   "Fornecedores"
      End
      Begin VB.Menu mnuManufacters 
         Caption         =   "Fabricantes"
      End
   End
   Begin VB.Menu mnuRel 
      Caption         =   "Relatórios"
      Begin VB.Menu MnuRelWl 
         Caption         =   "Rede de Água"
      End
      Begin VB.Menu MnuRelSl 
         Caption         =   "Rede de Esgoto"
      End
      Begin VB.Menu mnuRelRegistros 
         Caption         =   "Válvulas"
      End
      Begin VB.Menu mnuRelComponentesAgua 
         Caption         =   "Componentes de Água"
      End
      Begin VB.Menu mnuRelComponentesEsgoto 
         Caption         =   "Componentes de Esgoto"
      End
   End
   Begin VB.Menu mnuAdmin 
      Caption         =   "Administrar"
      Begin VB.Menu mnuRemoverPlano 
         Caption         =   "Remover Plano"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuUsers 
         Caption         =   "Usuários"
      End
      Begin VB.Menu mnuSep113 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSelectDatabase 
         Caption         =   "Banco de Dados"
      End
      Begin VB.Menu s999999 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnudiagRede 
         Caption         =   "Diagnóstico de rede"
         Visible         =   0   'False
      End
      Begin VB.Menu mnusep 
         Caption         =   "-"
      End
      Begin VB.Menu mnuProdutividade 
         Caption         =   "Indicador de Produtividade"
         Begin VB.Menu mnuRedesAgua 
            Caption         =   "Redes de Água"
         End
         Begin VB.Menu mnuRamaisAgua 
            Caption         =   "Ligações de Água"
         End
         Begin VB.Menu mnusep1 
            Caption         =   "-"
         End
         Begin VB.Menu mnuRedesEsgoto 
            Caption         =   "Redes de Esgoto"
         End
      End
   End
   Begin VB.Menu mnuView 
      Caption         =   "&Janela"
      Begin VB.Menu mnuViewStatusBar 
         Caption         =   "Barra de Status"
         Checked         =   -1  'True
         Shortcut        =   ^B
      End
      Begin VB.Menu mnuViewToolbar 
         Caption         =   "Barra de Ferramentas"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuLayers 
         Caption         =   "Layers e Propriedades"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuSep016 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCalculaZNo 
         Caption         =   "Calcular Z Nó Enquanto Desenha"
      End
      Begin VB.Menu mnuMultProperteis 
         Caption         =   "Propriedades Multiplas"
      End
      Begin VB.Menu mnuLoadAttributeByReference 
         Caption         =   "Carregar Attributos por Referência"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnusep100 
         Caption         =   "-"
      End
      Begin VB.Menu mnuWindowCascade 
         Caption         =   "Cascata"
      End
      Begin VB.Menu mnuWindowTileHorizontal 
         Caption         =   "Alinhamento Horizontal"
      End
      Begin VB.Menu mnuWindowTileVertical 
         Caption         =   "Alinhamento Vertical"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "&Ajuda"
      Begin VB.Menu mnuHelpContents 
         Caption         =   "Conteúdo"
         Shortcut        =   ^H
         Visible         =   0   'False
      End
      Begin VB.Menu mnuHelpBar0 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuHelpAbout 
         Caption         =   "Sobre"
         Shortcut        =   {F1}
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private TCanvas As frmCanvas
Const sglSplitLimit = 0

Private mbMoving        As Boolean
Private mstrprevfunc    As String
Private msngStartX      As Single

Dim conee As TeAcXConnection
Dim Abertura As Integer
Dim teac As TeAcXConnection
Dim a1 As TeImport
Dim a2 As TeDatabase




Private Sub cmdClose_Click()

   pctSfondo.Visible = False: mnuLayers.Checked = False
   
End Sub




Private Sub imgSplitter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    msngStartX = X
    
    With imgSplitter
        picSplitter.Move .Left, .Top, .Width \ 2, .Height - 20
    End With
    
    picSplitter.Visible = True
    picSplitter.Height = pctSfondo.Height
    mbMoving = True
    
End Sub

Private Sub imgSplitter_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Dim sglPos As Single
    
    If mbMoving Then
        sglPos = X + imgSplitter.Left
        If sglPos < sglSplitLimit Then
        
            picSplitter.Left = sglSplitLimit
        ElseIf sglPos > Me.Width - sglSplitLimit Then
            picSplitter.Left = Me.Width - sglSplitLimit
        Else
            picSplitter.Left = sglPos
        End If
    End If
    
End Sub

Private Sub imgSplitter_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    pctSfondo.Width = pctSfondo.Width + msngStartX - X
    pctSfondo.Refresh
    picSplitter.Visible = False
    mbMoving = False
    MDIForm_Resize
    TabStrip1.Refresh
    
End Sub



Private Sub MDIForm_Activate()
   'MDIForm_Resize
End Sub
' Carrega o formulário principal. Rotina de entrada
'
'
Private Sub MDIForm_Load()
    Email.leConfiguracoesEmail                                  'lê as configurações de email para ele poder enviar mensagem de email para NEXUS caso ocorra um erro
    '''LoozeXP1.InitSubClassing
    Manager1.InitConn Conn, CInt(typeconnection)
    Manager1.GridVisibled False
    FrmMain.Timer1.Interval = 100                               'define o intervalo em que ele vai verificar se alguma tecla foi pressionada
    FrmMain.Timer1.Enabled = False                              'inicia com o timer desligado, só liga quando tiver cálculo intensivo
End Sub

Private Sub mnu_Find_Object_Click()
On Error GoTo Trata_Erro
   
   
   
   Dim Object_id_ As String, xmin As Double, ymin As Double, xmax As Double, ymax As Double
   
   Object_id_ = ""
   
   Object_id_ = InputBox("Informe o identificador do objeto", "Encontrar Objeto")
   
   If Trim(Object_id_) <> "" Then
      
      With ActiveForm.TCanvas
         .Normal
         If .addSelectObjectIds(Object_id_) = 1 Then
            .getSelectBox xmin, ymin, xmax, ymax
            .setWorld xmin - 1000, ymin - 1000, xmax + 1000, ymax + 1000
            .Select
            .setScale 1000
         Else
            MsgBox "Não foi encontrado a geometria referente ao atributo selecionado", vbExclamation
         End If
      End With
      
   End If
   
Trata_Erro:

If Err.Number = 0 Or Err.Number = 20 Then
   Resume Next
ElseIf Err.Number = 91 Then
    MsgBox "Não há mapa ativo.", vbInformation, "Geosan"
Else
   
   PrintErro CStr(Me.Name), "Private Sub mnu_Find_Object_Click", CStr(Err.Number), CStr(Err.Description), True
   
End If
   
End Sub

' Atualiza todas as cotas existentes com os valores da interpolação do MDT
'
'
'
Private Sub mnuAtualizaCotas_Click()
     Dim setaZs As New CAcertaZsDosNos
     
     varGlobais.pararExecucao = False               'indica que iniciará sem sem informar que deverá parar a execução
     FrmMain.Timer1.Enabled = True                  'habilita o timer
     setaZs.AtribuiZs                               'chama método para atualizar todas as cotas da cidade toda
     FrmMain.Timer1.Enabled = False                 'deshabilita o timer
End Sub

Private Sub mnuAtualizaNumCasaGps_Click()
    Dim consumidorGps As clsConsumidorControler
    Set consumidorGps = New clsConsumidorControler
    
    Call consumidorGps.AtualizaNumeroGpsCasas
End Sub

Private Sub mnuAutoLogin_Click()
   
   Close #1
   Open App.path & "\controles\AutoLogin.txt" For Output As #1
   Print #1, strUser
   Close #1
   MsgBox "Definido login automático para " & strUser, vbInformation, ""
   
End Sub



Private Sub mnuCalcArea_Click()
   
   ActiveForm.TCanvas.ToolTipText = ""
   
   ActiveForm.TCanvas.calculateArea
   
   
   
End Sub

Private Sub mnuCalibrarZoom_Click()
   Dim calibrazoom As New frmCalibrarZoom
   calibrazoom.Show 1
End Sub



Private Sub mnuEncontraCoordenada_Click()
On Error GoTo Trata_Erro
    Dim X As Double, Y As Double
   
    X = InputBox("Informe a Coordena X ")
    Y = InputBox("Informe a Coordena Y ")
    
    If X <> 0 And Y <> 0 Then
        ActiveForm.TCanvas.setWorld X - 50, Y - 50, X + 50, Y + 50
        ActiveForm.TCanvas.plotView
    End If

Trata_Erro:
If Err.Number = 0 Or Err.Number = 20 Then
   Resume Next

ElseIf Err.Number = 91 Or Err.Number = 13 Then
    'MsgBox "Não há mapa ativo.", vbInformation, "Geosan"
    Exit Sub
Else
   
   PrintErro CStr(Me.Name), "Public Function EncontraCoord()", CStr(Err.Number), CStr(Err.Description), True
   

End If

End Sub


Private Sub mnu_PatternCurves_Click()

   Dim frm As New frmEPANavegator
   
   frm.Init
   Set frm = Nothing
   
End Sub

Private Sub mnu_Reflesh_Click()

   tbToolBar_ButtonClick tbToolBar.Buttons("kplotview")
   
End Sub
' Exportação de consumidores
'
'
'
Private Sub mnuExpCon_Click()
    frmExportaConsumos.Show
End Sub
' Exporta a localização dos nós com as suas respectivas cotas
'
'
'
Private Sub mnuExportLocalNos_Click()
    On Error GoTo Trata_Erro
    Dim CAMINHO As String
    Dim rs As New ADODB.Recordset
    Dim TB_GEOMETRIA As String
    Dim a As String
    Dim b As String
    Dim c As String
    Dim d As String
    Dim e As String
    Dim f As String
    Dim g As String
    Dim h As String
    Dim i As String
    Dim j As String
    Dim k As String
    Dim l As String
    Dim nomeArquivo As New CArquivo                                                             'para o usuário selecionar onde será salvo o arquivo
        
    varGlobais.pararExecucao = False               'indica que iniciará sem sem informar que deverá parar a execução
    FrmMain.Timer1.Enabled = True                  'habilita o timer
    CAMINHO = nomeArquivo.SelecionaDiretorio                                                    'solicita ao usuário a seleção de um diretório
    CAMINHO = CAMINHO + "\" + nomeArquivo.prefixo + "LOCALIZAÇÃO_NOS_REDE_AGUA.txt"  'coloca um prefixo de data e hora em que o arquivo será gerado
    a = "geom_table"
    b = "te_representation"
    c = "geom_type"
    d = "layer_id"
    e = "te_layer"
    f = "name"
    g = "WATERCOMPONENTS"
    If frmCanvas.TipoConexao <> 4 Then
        'retornar a tabela de geometria de pontos
        rs.Open "SELECT GEOM_TABLE FROM TE_REPRESENTATION WHERE GEOM_TYPE = 4 AND LAYER_ID IN (SELECT LAYER_ID FROM TE_LAYER WHERE NAME = 'WATERCOMPONENTS')", Conn, adOpenDynamic, adLockReadOnly
        If rs.EOF = False Then
            TB_GEOMETRIA = rs!GEOM_TABLE
        Else
            MsgBox "Não foi encontrada a tabela de Geometrias.", vbInformation, ""
        Exit Sub
        End If
    Else
        'SELECT "geom_table" FROM "te_representation" WHERE "geom_type" = '4' AND "layer_id" IN (SELECT "layer_id" FROM "te_layer" WHERE "name" = 'WATERCOMPONENTS')
        rs.Open "SELECT " + """" + a + """" + " FROM " + """" + b + """" + " WHERE " + """" + c + """" + " = '4' AND " + """" + d + """" + " IN (SELECT " + """" + d + """" + " FROM " + """" + e + """" + " WHERE " + """" + f + """" + " = 'WATERCOMPONENTS')", Conn, adOpenDynamic, adLockOptimistic
        If rs.EOF = False Then
            TB_GEOMETRIA = rs!GEOM_TABLE
        Else
            MsgBox "Não foi encontrada a tabela de Geometrias.", vbInformation, ""
            Exit Sub
        End If
    End If
    rs.Close
    If frmCanvas.TipoConexao = 1 Then
        'SELECIONA DO BANCO DE DADOS O CÓDIGO DO NÓ, COORDENADAS E COTA ATUAL
        rs.Open "SELECT W.GROUNDHEIGHT AS " + """" + "COTA" + """" + ", LEN(P.OBJECT_ID) AS " + """" + "TAM" + """" + ", P.OBJECT_ID ,P.X,P.Y FROM " & TB_GEOMETRIA & " P JOIN WATERCOMPONENTS W ON P.OBJECT_ID = W.OBJECT_ID_ ORDER BY TAM, OBJECT_ID"
    ElseIf frmCanvas.TipoConexao = 2 Then
        rs.Open "SELECT W.GROUNDHEIGHT AS " + """" + "COTA" + """" + ", P.OBJECT_ID AS " + """" + "TAM" + """" + ", P.OBJECT_ID ,P.X,P.Y FROM " & TB_GEOMETRIA & " P JOIN WATERCOMPONENTS W ON P.OBJECT_ID = W.OBJECT_ID_ ORDER BY TAM, OBJECT_ID"
    Else
        a = "INITIALGROUNDHEIGHT"
        b = "object_id"
        c = "x"
        d = "y"
        e = "WATERCOMPONENTS"
        f = LCase(TB_GEOMETRIA)
        g = "OBJECT_ID_"
        rs.Open "SELECT " + """" + e + """" + "." + """" + a + """" + " AS " + """" + "COTA" + """" + ", " + """" + f + """" + "." + """" + b + """" + " AS " + """" + "TAM" + """" + ", " + """" + f + """" + "." + """" + b + """" + " ," + """" + f + """" + "." + """" + c + """" + ", " + """" + f + """" + "." + """" + d + """" + " FROM  " + """" + f + """" + " JOIN " + """" + e + """" + "ON" + """" + f + """" + "." + """" + b + """" + " = " + """" + e + """" + "." + """" + g + """" + " ORDER BY " + """" + "TAM" + """" + ", " + """" + b + """" + "", Conn, adOpenDynamic, adLockOptimistic
    End If
    Screen.MousePointer = vbHourglass
    Open CAMINHO For Output As #1
    Print #1, "IDENTIFICADOR;COORD_X;COORD_Y;COTA"
    Do While Not rs.EOF = True
        DoEvents                                                                'para o VB poder escutar o timer e poder parar o processamento caso a tecla ESC tenha sido pressionada
        If varGlobais.pararExecucao = True Then
            varGlobais.pararExecucao = False
            Screen.MousePointer = vbDefault
            FrmMain.Timer1.Enabled = False                                      'deshabilita o timer
            Close #1
            rs.Close
            Exit Sub
        End If
        FrmMain.sbStatusBar.Panels(2).Text = "Nó: " & rs!object_id              'mostra na barra de status o nó que está sendo exportado
        Print #1, rs!object_id & ";" & rs!X & ";" & rs!Y & ";" & rs!cota
        rs.MoveNext
    Loop
    Close #1
    rs.Close
    Screen.MousePointer = vbDefault
    FrmMain.Timer1.Enabled = False                                              'deshabilita o timer
    MsgBox "Arquivo exportado em " & CAMINHO & ".", vbInformation, "Exportação Concluída!"
    Exit Sub
    
Trata_Erro:
    If Err.Number = 0 Or Err.Number = 20 Then
        Resume Next
    Else
       Screen.MousePointer = vbDefault
       FrmMain.Timer1.Enabled = False                                           'deshabilita o timer
       ErroUsuario.Registra "FrmMain", "mnuExportLocalNos_Click", CStr(Err.Number), CStr(Err.Description), True, glo.enviaEmails
    End If
End Sub

Private Sub mnuBitmap_Click()
   SalvaImagem "BMP"
End Sub

Private Sub mnuLocConsumidores_Click()
   frmEncontraConsumidor.Show 1
End Sub

Private Sub mnuPNG_Click()
   SalvaImagem "PNG"
End Sub

Private Sub mnuGIF_Click()
   SalvaImagem "GIF"
End Sub

Private Sub mnuJPG_Click()
   SalvaImagem "JPG"
End Sub



Private Sub mnuTIF_Click()
   SalvaImagem "TIF"
End Sub

Private Function SalvaImagem(tipo As String)
On Error GoTo saida





If FrmMain.Tag = "0" Then
   
   MsgBox "É necessário um mapa para realizar esta função.", vbInformation, ""
   GoTo saida
End If

Dim TP As ImageType
Dim strCaminho As String
   
   'TP = "a"
   
   'PREPARA O FILTRO DO COMPONENTE DE LOCALIZAÇÃO DE ARQUIVOS
   If tipo = "BMP" Then
      Me.cmmSalvaImg.Filter = ".BMP|*.BMP"
      TP = 1 '= BMP
   ElseIf tipo = "GIF" Then
      Me.cmmSalvaImg.Filter = ".GIF|*.GIF"
      TP = 2 '= GIF
   ElseIf tipo = "JPG" Then
      Me.cmmSalvaImg.Filter = ".JPG|*.JPG"
      TP = 3 '= JPG
   ElseIf tipo = "PNG" Then
      Me.cmmSalvaImg.Filter = ".PNG|*.PNG"
      TP = 4 '= PNG
   ElseIf tipo = "TIF" Then
      Me.cmmSalvaImg.Filter = ".TIF|*.TIF"
      TP = 5 '= TIF
   End If
   
   'ABRE O CPMPONENTE DE LOCALIZAÇÃO DE ARQUIVOS
   Me.cmmSalvaImg.ShowOpen
   
   strCaminho = Me.cmmSalvaImg.FileName
         
   'SE NÃO FOI DEFINIDO UM CAMINHO, SAI DA FUNÇÃO
   If Trim(strCaminho) = "" Then
      GoTo saida
   End If
   
   'SALVA O ARQUIVO DE ACORDO COM O TIPO ESCOLHIDO
   'If tipo = "JPG" Then
      If TCanvas.TCanvas.saveImageToFile(strCaminho, TP) Then
         MsgBox "Imagem salva com sucesso!"

      Else
         MsgBox "Falha ao salvar imagem!"
      End If
   
saida:
   If Err.Number = 0 Or Err.Number = 20 Then
      Resume Next
   Else
      
      PrintErro CStr(Me.Name), "Private Function SalvaImagem(tipo As String)", CStr(Err.Number), CStr(Err.Description), True
      Err.Clear

   End If
End Function

Private Sub mnuFixaIcone_Click()
On Error GoTo Trata_Erro

    With ActiveForm.TCanvas
        
        If .fixedPoint = False Then
            .fixedPoint = True
            
            mnuFixaIcone.Checked = True
            
            Call WriteINI("MAPA", "FIXAR_ICONE", "SIM", App.path & "\CONTROLES\GEOSAN.INI")
            
        Else
            .fixedPoint = False
            mnuFixaIcone.Checked = False
            
            Call WriteINI("MAPA", "FIXAR_ICONE", "NAO", App.path & "\CONTROLES\GEOSAN.INI")
            
        End If
        .plotView
        
    End With
Trata_Erro:

End Sub


Private Sub mnuDefEscala_Click()
On Error GoTo Trata_Erro

   Dim Scala As String
   
   Scala = InputBox("Informe o valor: ", "Definição de Escala")
   
   If IsNumeric(Scala) Then
      canvasScale = CDbl(Scala)
   Else
      MsgBox "Valor inválido.", vbInformation, ""
   End If


Trata_Erro:
If Err.Number = 0 Or Err.Number = 20 Then
   Resume Next
Else
   MsgBox Err.Number & " - " & Err.Description
End If

End Sub


Private Sub mnuCalcularRede_Click()

   Dim MyComponents As String
   
   With ActiveForm.TCanvas
      If .getCurrentLayer = "WATERLINES" Then
         If .getSelectCount(2) > 0 Then
            If obtemRede(ActiveForm.TCanvas) = True Then
               openForm
            End If
         Else
            MsgBox "Selecione a rede a ser calculada", vbExclamation
         End If
      Else
         .setCurrentLayer "WATERLINES"
         MsgBox "Somente é possivel calcular a rede selecionando os tubos", vbExclamation
      End If
   End With

End Sub

Private Sub mnuChangePassword_Click()

    
    frmTrocaSenha.txtUsuario.Text = strUser
    frmTrocaSenha.txtUsuario.Locked = True
    frmTrocaSenha.Show 1

'   Set Sec = CreateObject("NSecurity.AppMode")
'   If Sec.OpenUserChangePwd(Conn, Usuario.UsrId) Then
'      MsgBox "Senha alterada com sucesso", vbInformation
'   End If
'   Set Sec = Nothing
'
End Sub

Private Sub mnuDeleteInc_Click()

   ActiveForm.CorrigeBug
   
End Sub

Private Sub mnuDeleteLineWater_Click()

   tbToolBar_ButtonClick tbToolBar.Buttons("kdelete")
   
End Sub

Private Sub mnuDrawLineWater_Click()

   tbToolBar_ButtonClick tbToolBar.Buttons("kdrawnetworkline")
   
End Sub

Private Sub mnuDrawPointInLineWater_Click()

   tbToolBar_ButtonClick tbToolBar.Buttons("kinsertnetworknode")
   
End Sub

Private Sub mnuDrawRamal_Click()

   tbToolBar_ButtonClick tbToolBar.Buttons("kdrawramal")
   
End Sub

Private Sub mnuEncontraTexto_Click()
    'frmCanvas.TimerSetWorld.Enabled = True
    frmEncontraTexto.Show 1
    
End Sub

Private Sub mnuExpAutoCad_Click()

    Dim frm As New FrmExport
   
    'Se nao houver canvas aberto não é possivel exportar nada...
    If FrmMain.Tag > 0 Then
        frm.Init Conn, ActiveForm.TCanvas, Me
    Else
        MsgBox "Não é possível exportar quando não existe uma área de trabalho do mapa.", vbInformation, "Atenção!"
    End If
   
    'Set frm = Nothing
   
End Sub

Private Sub mnuExpCRD_Click()
On Error GoTo mnuExpCRD_Click_err

   Shell App.path & "\Ferramentas\Exporte EPANet.exe", vbNormalFocus
   Exit Sub


mnuExpCRD_Click_err:
   MsgBox "Programa Exporte EPANet.exe não encontrado", vbExclamation, ""
   'Resume
End Sub

Private Sub mnuFileExit_Click()

   End
   Close
   
End Sub



Private Sub mnuGroups_Click()

   Set Sec = CreateObject("NSecurity.AppMode")
   Sec.OpenGroups Conn
   Set Sec = Nothing
   
End Sub

Private Sub mnuHelpAbout_Click()

   frmAbout.Show
   
End Sub

Private Sub mnuImagem_Click()

    'Se nao houver canvas aberto não é possivel exportar nada...
    If FrmMain.Tag > 0 Then
        With Cdl
           .FileName = ""
           .Filter = "Bitmap (*.bmp)|*.bmp | GIF (*.gif) | *.gif | JPG (*.jpg) | *.jpg | PNG (*.png) | *.png | TIF (*.tif) | *.tif"
           .ShowOpen
           If .FileName <> "" Then
              ActiveForm.TCanvas.saveImageToFile Cdl.FileName, .FilterIndex - 1
           End If
        End With
    Else
        MsgBox "Não é possível exportar quando não existe uma área de trabalho do mapa.", vbInformation, "Atenção!"
    End If
   
End Sub

Private Sub mnuImpCotas_Click()
   frmImportarCotas.Show 1
End Sub

Public Function Conecta()

Dim mPROVEDOR As String
Dim mSERVIDOR As String
Dim mPORTA As String
Dim mBANCO As String
Dim mUSUARIO As String
Dim Senha As String
Dim decriptada As String
If frmCanvas.TipoConexao <> 4 Then

   
   
   TeImport1.Provider = typeconnection
   TeImport1.connection = Conn
   
   TeDatabase1.Provider = typeconnection
   TeDatabase1.connection = Conn

Else




'Set teac = TeAcXConnection1
If frmCanvas.POSTB <> 10 Then
mSERVIDOR = ReadINI("CONEXAO", "SERVIDOR", App.path & "\CONTROLES\GEOSAN.ini")
mPORTA = ReadINI("CONEXAO", "PORTA", App.path & "\CONTROLES\GEOSAN.ini")
mBANCO = ReadINI("CONEXAO", "BANCO", App.path & "\CONTROLES\GEOSAN.ini")
mUSUARIO = ReadINI("CONEXAO", "USUARIO", App.path & "\CONTROLES\GEOSAN.ini")
Senha = ReadINI("CONEXAO", "SENHA", App.path & "\CONTROLES\GEOSAN.ini")
frmCanvas.FunDecripta (Senha)
decriptada = frmCanvas.Senha

'If TeAcXConnection1.Open = False Then

 TeAcXConnection1.Open mUSUARIO, decriptada, mBANCO, mSERVIDOR, mPORTA
 ' End If

 
 TeImport1.Provider = typeconnection
   TeImport1.connection = TeAcXConnection1.objectConnection_
   
   TeDatabase1.Provider = typeconnection
   TeDatabase1.connection = TeAcXConnection1.objectConnection_
  frmCanvas.POST2B (10)
'   Else
   
  '' a1.Provider = typeconnection
  ' a1.connection = teac.objectConnection_
   
  ' a2.Provider = typeconnection
  ' a2.connection = teac.objectConnection_
   End If
End If

End Function

Private Sub mnuImportDXF_Click()
   

  ' Set a1 = TeImport1
 ' Set a2 = TeDatabase1
   
Dim frm As New frmImportDxf

Conecta

   
        frm.Init Conn, TeImport1, TeDatabase1
   Set frm = Nothing
   'changeSelIntersectionPoint
End Sub

Private Sub mnuImportSIG_Click()
   
   Dim frm As New frmImportFile
   
   'Dim a1 As TeImport
  ' Dim a2 As TeDatabase
  ' Set a1 = TeImport1
 ' Set a2 = TeDatabase1
   

   
Conecta
   

      frm.Init Conn, TeImport1, TeDatabase1
   Set frm = Nothing
   
End Sub

Private Sub mnuInsertDocs_Click()

   tbToolBar_ButtonClick tbToolBar.Buttons("kinsertdoc")
   
End Sub

Private Sub mnuInsertLabel_Click()

   FrmCreatTextForLayer.Init
   
End Sub

Private Sub mnuLayers_Click()
   
   Dim rs As ADODB.Recordset
Dim a, b, c As String
   Set rs = New ADODB.Recordset
a = "USRLOG"
b = "USRFUN"
c = "SYSTEMUSERS"



   If frmCanvas.TipoConexao <> 4 Then
   rs.Open "SELECT USRLOG, USRFUN FROM SYSTEMUSERS WHERE USRLOG = '" & strUser & "' ORDER BY USRLOG", Conn, adOpenDynamic, adLockReadOnly
   Else
   rs.Open "SELECT " + """" + a + """" + "," + """" + b + """" + " FROM " + """" + c + """" + " WHERE " + """" + a + """" + " = '" & strUser & "' ORDER BY " + """" + a + """" + "", Conn, adOpenDynamic, adLockOptimistic
   End If
   If rs.EOF = False Then
      If rs!UsrFun = 4 Then  'VISUALIZADOR
         
         frmLoginTema.Show 1
                  
         'pctSfondo.Visible = True
      Else
      
         pctSfondo.Visible = Not mnuLayers.Checked
         mnuLayers.Checked = Not mnuLayers.Checked
      
      End If
   End If
   rs.Close
   

   
End Sub

Private Sub mnuLoadAttributeByReference_Click()

   mnuLoadAttributeByReference.Checked = Not mnuLoadAttributeByReference.Checked
   
End Sub

Private Sub mnuManufacters_Click()

   FrmManufactures.Show
   
End Sub

Private Sub mnuMinusZoom_Click()
 
   tbToolBar_ButtonClick tbToolBar.Buttons("kzoomin")
   
End Sub

Private Sub mnuMoreZoom_Click()

   tbToolBar_ButtonClick tbToolBar.Buttons("kzoomout")
   
End Sub

Private Sub mnuMove_Click()

   tbToolBar_ButtonClick tbToolBar.Buttons("kpan")
   
End Sub

Private Sub mnuMovePointWithLines_Click()

   tbToolBar_ButtonClick tbToolBar.Buttons("kmovenetworknode")
   
End Sub

Private Sub mnuMultProperteis_Click()

   mnuMultProperteis.Checked = Not mnuMultProperteis.Checked
   
End Sub
'Indica se é para calcular ou não a cota Z do nó enquanto estiver desenhando. Caso não exista o layer MDT ainda esta função é muito útil
'
Private Sub mnuCalculaZNo_Click()
    mnuCalculaZNo.Checked = Not mnuCalculaZNo.Checked
    If mnuCalculaZNo.Checked = True Then            'Indica se a aplicação deve calcular ou não o Z do nó enquanto o usuário está desenhando a rede
        varGlobais.deveCalcularZNo = True
    Else
        varGlobais.deveCalcularZNo = False
    End If
End Sub



Private Sub mnuRecompose_Click()
   tbToolBar_ButtonClick tbToolBar.Buttons("krecompose")
End Sub

Private Sub mnuRamaisAgua_Click()
    frmIndicProdutRamaisAgua.Show 1
End Sub

Private Sub mnuRedesAgua_Click()
    
    frmIndicProdutRedesDeAgua.TipoRede = "AGUA"
    frmIndicProdutRedesDeAgua.Show 1
    
    
End Sub

Private Sub mnuRedesEsgoto_Click()
    
    frmIndicProdutRedesDeAgua.TipoRede = "ESGOTO"
    frmIndicProdutRedesDeAgua.Show 1
    
End Sub

Private Sub mnuRedoView_Click()

   tbToolBar_ButtonClick tbToolBar.Buttons("kredoview")
   
End Sub

Private Sub mnuRelComponentesAgua_Click()

   GeraRelatorioHtm ComponentsRede, "watercomponents"
   
End Sub

Private Sub mnuRelComponentesEsgoto_Click()

   GeraRelatorioHtm ComponentsRede, "sewercomponents"
   
End Sub

Private Sub mnuRelComponentsWaterFilter_Click()

   GeraRelatorioHtm ComponentsRede, "watercomponents", True
   
End Sub

Private Sub mnuRelRegistros_Click()

   GeraRelatorioHtm RegistrosEstadoEstado, ""
   
End Sub

Private Sub MnuRelSl_Click()

   OpenReport "sewer"
   
End Sub

Private Sub MnuRelWl_Click()

   OpenReport "water"
   
End Sub

Private Sub mnuRemoverPlano_Click()

   FrmRemoverPlano.Show vbModal
   
End Sub

Private Sub mnuSELECT_Click()

   tbToolBar_ButtonClick tbToolBar.Buttons("kselection")
   
End Sub
' Redireciona para outro banco de dados geográfico, modificando a configuração do GEOSAN.INI
'
'
'
Private Sub mnuSELECTDatabase_Click()
    On Error GoTo Trata_Erro
    Dim cn As ADODB.connection, nC As Object
    
    'FrmConnection.Show (1)
    Set nC = CreateObject("NexusConnection.App")
    If nC.appNewRegistry(App.EXEName, cn) Then
        Conn.Close
        'Set Conn = cn
        'Shell App.path & "\" & App.EXEName & ".exe"
        MsgBox "Banco de dados redirecionado com sucesso." & Chr(13) & Chr(13) & "Reinicie o sistema para ativar.", vbInformation
        'Set cn = Nothing
        End
    End If
    Exit Sub
      
Trata_Erro:
    If Err.Number = 0 Or Err.Number = 20 Then
        Resume Next
    Else
       ErroUsuario.Registra "FrmMain", "mnuSELECTDatabase_Click", CStr(Err.Number), CStr(Err.Description), True, glo.enviaEmails
    End If
End Sub

Private Sub mnuSuppliers_Click()

   FrmSuppliers.Show
   
End Sub



Private Sub mnuTypes_Click()

   FrmSelectTypes.Init
   
End Sub

Private Sub mnuUndoView_Click()

   tbToolBar_ButtonClick tbToolBar.Buttons("kundoview")
   
End Sub
'Exporta as redes do GeoSan
'
'
Private Sub mnuExporta_GeoSan_Click()
    On Error GoTo Trata_Erro
    Dim retorno As Boolean
    Dim conexao As New ADODB.connection
    Dim diretorio As String                                                                                 'diretório para onde serão exportados os arquivos shape
    Dim prefixoArquivo As String                                                                            'prefixo com as datas, dos arquivos shp que serão exportados
    Dim nomeCompleto As String
    Dim nomeExportar As String
    Dim existemConsumidoresParaExportar As Boolean
  
    varGlobais.pararExecucao = False                            'indica que iniciará sem sem informar que deverá parar a execução
    diretorio = arquivo.SelecionaDiretorio
    If diretorio = "falhou" Then
        'MsgBox "Cancelada a seleção do diretório."
        Exit Sub
    End If
    prefixoArquivo = arquivo.prefixo
    nomeCompleto = diretorio + "\" + prefixoArquivo
    FrmMain.Timer1.Enabled = True                               'habilita o timer para permitir o usuário cancelar esta operação
    Screen.MousePointer = vbHourglass
    
    'exporta consumidores
    exp.InsereTabAtributoConsumidores
    exp.CriaTabelaConsumidores
    existemConsumidoresParaExportar = exp.InsereConsumidores    'insere os consumidores na tabela GS_CONSUMIDORES, para poder a partir dela exportar para shp
    If varGlobais.pararExecucao = True Then                     'usuário selecionou para parar tudo
        Exit Sub
    End If
    If existemConsumidoresParaExportar = True Then              'se a tabela GS_CONSUMIDORES foi preechida com todos os consumidores, exporta o shape.
        exp.AtivaExportacaoConsumidores
        conexao.Open Conn
        TeExport2.Provider = 1
        TeExport2.connection = conexao
        FrmMain.sbStatusBar.Panels(2).Text = "Criando shape de consumidores. Favor aguardar ..."            'mostra na barra de status o andamento da exportação
        nomeExportar = nomeCompleto & "gsConsumidores.shp"
        retorno = TeExport2.exportSHP(nomeExportar, "RAMAIS_AGUA", "GS_CONSUMIDORES")
        Screen.MousePointer = vbNormal
        If retorno Then
            'MsgBox "Exportação shape de ramais realizada com sucesso"
        Else
            MsgBox "Falha na exportação dos consumidores"
        End If
        conexao.Close
    Else
        ErroUsuario.Registra "FrmMain", "Exporta_Consumidores", CStr(Err.Number), CStr(Err.Description), False, glo.enviaEmails
    End If
    
    'exporta ramais
    exp.InsereTabAtributoRamais
    exp.CriaTabelaRamais
    exp.InsereRamais
    If varGlobais.pararExecucao = True Then                     'usuário selecionou para parar tudo
        Exit Sub
    End If
    exp.AtivaExportacaoRamais
    conexao.Open Conn
    TeExport2.Provider = 1
    TeExport2.connection = conexao
    FrmMain.sbStatusBar.Panels(2).Text = "Criando shape de ramais. Favor aguardar ..."                      'mostra na barra de status o andamento da exportação
    nomeExportar = nomeCompleto + "gsRamais.shp"
    retorno = TeExport2.exportSHP(nomeExportar, "RAMAIS_AGUA", "GS_RAMAIS")
    Screen.MousePointer = vbNormal
    If retorno Then
        'MsgBox "Exportação shape de ramais realizada com sucesso"
    Else
        MsgBox "Falha na exportação dos ramais."
    End If
    conexao.Close
        
    'prepara tabelas e atributos para exportar as redes
    exp.InsereTabAtributoRedes
    exp.CriaTabelaRedes
    exp.InsereRedes
    If varGlobais.pararExecucao = True Then                                                                 'usuário selecionou para parar tudo
        Exit Sub
    End If
    'exporta redes para o formato shape
    conexao.Open Conn
    TeExport2.Provider = 1
    TeExport2.connection = conexao
    FrmMain.sbStatusBar.Panels(2).Text = "Criando shape de redes. Favor aguardar ..."                       'mostra na barra de status o andamento da exportação
    nomeExportar = nomeCompleto + "gsRedes.shp"
    retorno = TeExport2.exportSHP(nomeExportar, "WATERLINES", "GS_REDES")
    Screen.MousePointer = vbNormal
    If retorno Then
        'MsgBox "Exportação shape de redes realizada com sucesso"
    Else
        MsgBox "Falha na exportação"
    End If
    conexao.Close
    
    'prepara tabelas e atributos para exportar os nós
    exp.InsereTabAtributoNos
    exp.CriaTabelaNos
    exp.InsereNos
    If varGlobais.pararExecucao = True Then                                                                 'usuário selecionou para parar tudo
        Exit Sub
    End If
    'exporta nós
    conexao.Open Conn
    TeExport2.Provider = 1
    TeExport2.connection = conexao
    exp.AtivaExportacaoNos
    FrmMain.sbStatusBar.Panels(2).Text = "Criando shape de nós. Favor aguardar ..."                         'mostra na barra de status o andamento da exportação
    nomeExportar = nomeCompleto + "gsNos.shp"
    retorno = TeExport2.exportSHP(nomeExportar, "WATERCOMPONENTS", "GS_NOS")
    exp.DesativaExportacaoNos
    Screen.MousePointer = vbNormal
    If retorno Then
        'MsgBox "Exportação dos nós realizada com sucesso"
    Else
        MsgBox "Falha na exportação"
    End If
    exp.AtivaRamaisGeoSan                                   'reativa te_representation, senão os ramais com os nós (ligações) não voltam a aparecer no GeoSan
    conexao.Close
    FrmMain.sbStatusBar.Panels(2).Text = "Exportação finalizada."
    FrmMain.Timer1.Enabled = False                          'deshabilita o timer
    Exit Sub
    
Trata_Erro:
    If Err.Number = 0 Or Err.Number = 20 Then
        Resume Next
    Else
        FrmMain.Timer1.Enabled = False                      'deshabilita o timer
        exp.AtivaRamaisGeoSan                               'reativa te_representation, senão os ramais com os nós (ligações) não voltam a aparecer no GeoSan
        ErroUsuario.Registra "FrmMain", "mnuExporta_GeoSan_Click", CStr(Err.Number), CStr(Err.Description), True, glo.enviaEmails
    End If
End Sub
' Atualiza os consumos médios nas ligações e distribui as demandas nos nós das redes
'
'
'
Private Sub mnuUpdate_Demand_Click()
    frmAtualizacaoConsumo.Show 1
End Sub

Private Sub mnuUsers_Click()

'   Set Sec = CreateObject("NSecurity.AppMode")
'   Sec.OpenUsers Conn
'   Set Sec = Nothing
   
   frmUserControle.Show 1
   'FrmUser.Show 1
   
End Sub



Private Sub mnuViewStatusBar_Click()

   sbStatusBar.Visible = Not mnuViewStatusBar.Checked
   mnuViewStatusBar.Checked = Not mnuViewStatusBar.Checked
   
End Sub

Private Sub mnuViewToolbar_Click()

   tbToolBar.Visible = Not mnuViewToolbar.Checked
   mnuViewToolbar.Checked = Not mnuViewToolbar.Checked
   
End Sub

Private Sub mnuWindowCascade_Click()

   Me.Arrange vbCascade
   
End Sub

Private Sub mnuWindowTileHorizontal_Click()

   Me.Arrange vbTileHorizontal
   
End Sub

Private Sub mnuWindowTileVertical_Click()

   Me.Arrange vbTileVertical
   
End Sub

Private Sub mnuZoom_Click()

   tbToolBar_ButtonClick tbToolBar.Buttons("kzoomarea")
   
End Sub

Private Sub OdImport_Click()
   
   Form1.Show 1
   
End Sub

Private Sub pctSfondo_Resize()

   SizeControls
   
End Sub

Private Sub MDIForm_Resize()

   SizeControls
   
End Sub
' Esta rotina controla a correta visualização do tamanho do gerenciador de propriedades, tree e itens perto dos mesmos
'
'
'
Public Sub SizeControls()
    On Error GoTo Trata_Erro
                                                                                        'a variável pctSfondo representa o lado esquerdo do gerenciador de propriedades
    With TabStrip1                                                                      'é a tab superior com as opções de tree e propriedades
        .Height = IIf(pctSfondo.Height < .Top, 100, pctSfondo.Height - .Top)
        .Width = IIf(pctSfondo.Width < .Left, 100, pctSfondo.Width - .Left)
    End With
    With Manager1                                                                       'gerenciador de propriedades
        .Width = IIf(pctSfondo.Width < .Left, 10, pctSfondo.Width - (.Left + 100))
        .Height = IIf(pctSfondo.Height < .Top, 10, pctSfondo.Height - (.Top + 100))
        .Resize pctSfondo.Width - 400, pctSfondo.Height - 1400
        .Top = 1340
        .Left = 300
    End With
    With ViewManager1                                                                   'gerenciador de tree
        .Width = IIf(pctSfondo.Width < .Left, 10, pctSfondo.Width - (.Left + 100))
        .Height = IIf(pctSfondo.Height < .Top, 10, pctSfondo.Height - (.Top + 100))
        .Top = 1350
        .Left = 300
    End With
    picSplitter.Height = pctSfondo.Height                                               'separador das duas colunas do gerenciador de propriedades
    imgSplitter.Height = pctSfondo.Height                                               'outro separador
    cmdClose.Left = pctSfondo.Width - 300                                               'ícone X de fechar
    cmdClose.Top = pctSfondo.Top - 350
    FrameEscala.Width = pctSfondo.Width - 300                                           'label da escala de visualização
    txtEscala.Width = pctSfondo.Width - 2350                                            'texto da escala de visualização
    Exit Sub
Trata_Erro:
    If Err.Number = 0 Or Err.Number = 20 Then
        Resume Next
    ElseIf Err.Number = 380 Then
        Exit Sub
    Else
        PrintErro CStr(Me.Name), "Public Sub SizeControls()", CStr(Err.Number), CStr(Err.Description), True
    End If
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)

On Error GoTo Trata_Erro
    
    
   If FrmMain.ViewManager1.mConn.State = 1 Then
      FrmMain.ViewManager1.mConn.Close
   End If
    
    If Conn.State = 1 Then
      Conn.Close
    End If
    

    Set Conn = Nothing
    'LoozeXP1.EndWinXPCSubClassing
    End
   
Trata_Erro:
    If Err.Number = 0 Or Err.Number = 20 Then
        Resume Next
    Else
    
         'PrintErro CStr(Me.Name), "Private Sub MDIForm_Unload", CStr(Err.Number), CStr(Err.Description), True
         
    
    End If

End Sub
' Opção do menu de ícones que abre uma janela de desenho de mapa.
' Entra nesta rotina quando o usuário seleciona a ícone de que deseja uma nova janela de desenho
'
'
'
Private Sub mnuOpen_Click()
    Set TCanvas = New frmCanvas
    TCanvas.Init Conn, usuario.UseName
End Sub





Private Sub TabStrip1_Click()

   If TabStrip1.SelectedItem.index = 2 Then
      Manager1.Visible = True
      'Tv.Visible = False
      ViewManager1.Visible = False
   Else
      Manager1.Visible = False
      'Tv.Visible = True
      ViewManager1.Visible = True
   End If
   
End Sub

' Monitoramento dos eventos da barra de ícones. Evento de clique na barra de ferramentas
' Fica aguardando o usuário selecionar uma das ícones na barra de menu de ícones
' Caso a janela de desenho (canvas) não estiver aberto, não faz nada ainda
' Caso esteja aberta a seleção da ícone
' Caso selecione que é para abrir uma nova janela de desenho (canvas), abre a mesma
'
' Button - botão que foi selecionado pelo usuário
'
Public Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
'If blnMonitorar = True Then
    On Error GoTo Trata_Erro
    Select Case Button.key
        Case "knew", ""
           mnuOpen_Click
        Case Else
           If Not ActiveForm Is Nothing Then
              If ActiveForm.Name = "frmCanvas" Then         'se o canvas de mapas está na tela
                  ActiveForm.Tb_SELECT Button.key           'indica a ativação do botão que foi selecionado
              End If
           End If
    End Select
    Exit Sub
Trata_Erro:
    If Err.Number = 0 Or Err.Number = 20 Then
        Resume Next
    ElseIf Err.Number = 91 Then
        Err.Clear
        Exit Sub
    Else
        PrintErro CStr(Me.Name), "Não está encontrando o botão a ser selecionado em Public Sub tbToolBar_ButtonClick()", CStr(Err.Number), CStr(Err.Description), True
    End If
End Sub
'Foi comentado pois não estava sendo utilizado.
'Também não chamava o frm1TePrinter



'Private Sub TePrinter_Click()
'
'   'frmPrint As New frm1TePrinter
'
'   frmTePrinter.Show 1
'
'
'End Sub
' Configura um timer para caso o usuário selecione a tecla ESC ele pare a execução
'
' varGlobais.pararExecucao - contem a informação que deve ser configurada na rotina que deseja-se cancelar a execução. Lembrando-se de colocar um Doevents antes. Veja o exemplo abaixo
' o intervalo do timer está definido no MDIForm_Load
'
'DoEvents                                                            'para o VB poder escutar o timer e poder parar o processamento caso a tecla ESC tenha sido pressionada
'If varGlobais.pararExecucao = True Then
'    varGlobais.pararExecucao = False
'    Screen.MousePointer = vbNormal
'    Exit Sub
'End If
'
' O timer deve ser habilitado antes de entrar na rotina que requer cálculo intensivo. Veja o exemplo abaixo:
'FrmMain.Timer1.Enabled = True                               'habilita o timer
'
Private Sub Timer1_Timer()
    If GetAsyncKeyState(VK_ESCAPE) Then
        MsgBox ("Comando cancelado.")
        varGlobais.pararExecucao = True
    End If
End Sub

Private Sub txtEscala_KeyPress(KeyAscii As Integer)

'AO RECEBER UM COMANDO ENTER, É FORÇADO UM LOST_FOCUS

If KeyAscii = 13 Then
   
   txtEscala_LostFocus
   
End If

End Sub

Private Sub txtEscala_LostFocus()

   If IsNumeric(Me.txtEscala.Text) = True Then
 
      canvasScale = CDbl(Me.txtEscala.Text)
   
   End If
   
End Sub


Private Sub ViewManager1_onReset(ViewName As String)
On Error GoTo Trata_Erro

   Dim a As Integer, LayerNameStr As String
   
   For a = 1 To tbToolBar.Buttons.count
      If tbToolBar.Buttons.Item(a).Style = tbrCheck Then
         tbToolBar.Buttons(a).value = tbrUnpressed
      End If
   Next
   
   
   strLayerAtivo = TCanvas.TCanvas.getCurrentLayer
   
   With Me.ActiveForm.TCanvas
      For a = 0 To .getLayersToSnapCount() - 1
         If .getLayerToSnap(a, LayerNameStr) = 1 Then
            .removeLayerToSnap LayerNameStr
         End If
      Next
   End With
   
   tbToolBar.Buttons("kselection").value = tbrPressed
   
   Me.ActiveForm.Caption = "Vista: " & ViewName
   sbStatusBar.Panels(1).Text = "Modo de seleção: Selecione um objeto do plano referente ao tema ativo"

Trata_Erro:
    If Err.Number = 0 Or Err.Number = 20 Then
        Resume Next
    Else
        
        PrintErro CStr(Me.Name), "Private Sub ViewManager1_onReset", CStr(Err.Number), CStr(Err.Description), True
        
        
    End If
End Sub

Private Sub mnuCarregaPoligono_Click()


On Error GoTo Trata_Erro

   Dim rs As ADODB.Recordset
   Dim strsql As String
   
   blnPoligonoVirtual = False
   Dim a, b, c, d, e, f As String
   Set rs = New ADODB.Recordset
a = "layer_id"
b = "geom_table"
c = "te_representation"
d = "geom_type"
e = "te_layer"
f = "name"




     If frmCanvas.TipoConexao <> 4 Then
   strsql = "SELECT TL.LAYER_ID,TL.NAME,TR.GEOM_TABLE FROM TE_LAYER TL INNER JOIN TE_REPRESENTATION TR ON TL.LAYER_ID = TR.LAYER_ID WHERE TR.GEOM_TYPE = 1 AND TL.NAME = '" & strLayerAtivo & "'"
   Else
   strsql = "SELECT " + """" + e + """" + "." + """" + a + """" + "," + """" + e + """" + "." + """" + f + """" + "," + """" + c + """" + "." + """" + b + """" + " FROM " + """" + e + """" + " INNER JOIN " + """" + c + """" + " ON " + """" + e + """" + "." + """" + a + """" + " = " + """" + c + """" + "." + """" + a + """" + " WHERE " + """" + c + """" + "." + """" + d + """" + " = '1' AND " + """" + e + """" + "." + """" + f + """" + "= '" & strLayerAtivo & "'"
   End If
   
   
   
'MsgBox "ARQUIVO DEBUG SALVO"
 'WritePrivateProfileString "A", "A", strsql, App.path & "\DEBUG.INI"
 
   rs.Open strsql, Conn, adOpenDynamic, adLockOptimistic
   
   If rs.EOF = False Then
   
a = "object_id"
b = LCase(rs!GEOM_TABLE)



      If frmCanvas.TipoConexao <> 4 Then
      strsql = "SELECT COUNT(OBJECT_ID) AS " + """" + "QTD" + """" + " FROM " & rs!GEOM_TABLE
      Else
      strsql = "SELECT COUNT(" + """" + a + """" + ") AS " + """" + "QTD" + """" + " FROM " + """" + b + """" + ""
      End If
      rs.Close
      rs.Open strsql, Conn, adOpenDynamic, adLockOptimistic
      If rs!qtd = 0 Then
         MsgBox "O plano ativo não possui polígonos.", vbInformation, ""
         rs.Close
         Exit Sub
      End If
      rs.Close
      Me.MousePointer = vbHourglass
      frmAtualizarSetores.Show 1
      Me.MousePointer = vbDefault
   
   Else
      MsgBox "O plano ativo não possui polígonos.", vbInformation, ""
      rs.Close
   End If
   
Trata_Erro:
    If Err.Number = 0 Or Err.Number = 20 Then
        Resume Next
    Else
         
         PrintErro CStr(Me.Name), "mnuCarregaPoligono_Click()", CStr(Err.Number), CStr(Err.Description), True
         
        
    End If

End Sub
' Permite o usuário desenhar um polígono que irá selecionar no mapa várias redes e consumidores para relatórios e exportação para o EPANET
'
'
''
Private Sub mnuDesenhaPoligono_Click()
    If ActiveForm.Name = "frmCanvas" Then
        ActiveForm.Tb_SELECT "mnuPoligono"
    End If
End Sub