VERSION 5.00
Object = "{0F987290-56EE-11D0-9C43-00A0C90F29FC}#1.0#0"; "ActBar.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Object = "{B02F3647-766B-11CE-AF28-C3A2FBE76A13}#2.5#0"; "ss32x25.ocx"
Begin VB.MDIForm Ma0000 
   BackColor       =   &H8000000C&
   Caption         =   "Adam 3.1"
   ClientHeight    =   6615
   ClientLeft      =   615
   ClientTop       =   990
   ClientWidth     =   11610
   Icon            =   "Manejador.frx":0000
   LinkTopic       =   "MDIForm1"
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picbase 
      Align           =   1  'Align Top
      Height          =   495
      Left            =   0
      ScaleHeight     =   435
      ScaleWidth      =   11550
      TabIndex        =   1
      Top             =   0
      Visible         =   0   'False
      Width           =   11610
      Begin FPSpread.vaSpread sprTrabajo 
         Height          =   375
         Left            =   1920
         TabIndex        =   2
         Top             =   0
         Width           =   1575
         _Version        =   131077
         _ExtentX        =   2778
         _ExtentY        =   661
         _StockProps     =   64
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         MaxCols         =   1
         MaxRows         =   1
         SpreadDesigner  =   "Manejador.frx":030A
      End
      Begin VB.ListBox LstLlamadas 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   3840
         TabIndex        =   3
         Top             =   120
         Visible         =   0   'False
         Width           =   1455
      End
   End
   Begin ComctlLib.StatusBar sbarMa 
      Align           =   2  'Align Bottom
      Height          =   315
      Left            =   0
      TabIndex        =   0
      Top             =   6300
      Width           =   11610
      _ExtentX        =   20479
      _ExtentY        =   556
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   6
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            AutoSize        =   2
            Bevel           =   2
            Object.Width           =   1376
            MinWidth        =   92
            Picture         =   "Manejador.frx":0441
            Text            =   "Inicio"
            TextSave        =   "Inicio"
            Key             =   "m_inicio"
            Object.Tag             =   "t_inicio"
            Object.ToolTipText     =   "Menu inicio"
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            AutoSize        =   1
            Object.Width           =   13282
            MinWidth        =   7937
            Picture         =   "Manejador.frx":09FB
            Text            =   "Estatus general...."
            TextSave        =   "Estatus general...."
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   1
            AutoSize        =   2
            Enabled         =   0   'False
            Object.Width           =   1058
            MinWidth        =   1058
            TextSave        =   "CAPS"
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   2
            AutoSize        =   2
            Object.Width           =   1058
            MinWidth        =   1058
            TextSave        =   "NUM"
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel5 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   5
            AutoSize        =   2
            Object.Width           =   1482
            MinWidth        =   1411
            TextSave        =   "11:53 a.m."
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel6 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   6
            AutoSize        =   2
            Object.Width           =   1588
            MinWidth        =   1587
            TextSave        =   "18/03/2005"
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
      EndProperty
      MousePointer    =   99
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MouseIcon       =   "Manejador.frx":0D15
   End
   Begin MSComDlg.CommonDialog cmdiAyuda 
      Left            =   1080
      Top             =   5280
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin ActiveBarLibraryCtl.ActiveBar abTools 
      Left            =   870
      Top             =   4200
      _ExtentX        =   847
      _ExtentY        =   847
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Bands           =   "Manejador.frx":102F
   End
   Begin ComctlLib.ImageList iLMa 
      Left            =   120
      Top             =   5640
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      MaskColor       =   12632256
      _Version        =   327682
   End
End
Attribute VB_Name = "Ma0000"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Título: Manejador
'Módulo: MA0000
'versión: 1.0
'Fecha: 18/09/97
'Autor: Buendía González Julio Cesar
'---------------------------------------
'Descripción: Administra las instancias del proyecto
'---------------------------------------
Option Explicit
Public Mbnewmenu     As Boolean     'Si actualiza el menú
Public McoCGtc       As New Collection  'Almacena la informacion del arreglo Gtc
                                        'en forma de colección
'Public WithEvents MConexionRDO As rdoConnection      'Utilizada para el Asiento Contable
                                        

Sub PasaColeccionArreglo()
'Descripción: Traspasa los datos de la colección McoCGtc al arreglo Gtc
'Uso: PasaColeccionArreglo
'---------------------------------------

Dim i   As Integer      'Contador

For i = 1 To McoCGtc.Count
     Set Gtc(i).Ado = McoCGtc.Item(i).Ado
     Gtc(i).ihijas = McoCGtc.Item(i).ihijas
     Gtc(i).sAbreviaturaCia = McoCGtc.Item(i).sAbreviaturaCia
     Gtc(i).sCompania = McoCGtc.Item(i).sCompania
Next
    Set McoCGtc = Nothing

End Sub
Sub PasaArregloColeccion()
'Descripción: Traspasa los datos del arreglo Gtc a la colección McoCGtc
'Uso: PasaArregloColeccion
'---------------------------------------

Dim i   As Integer      'Contador

For i = 1 To UBound(Gtc)
    
    Dim coObjetoConexion As New clsConexion   'Instancia de la clase clsConexion
    
    Set coObjetoConexion.Ado = Gtc(i).Ado
    coObjetoConexion.ihijas = Gtc(i).ihijas
    coObjetoConexion.lhDbc = Gtc(i).lhDbc
    coObjetoConexion.lhEnv = Gtc(i).lhEnv
    coObjetoConexion.lhstmt = Gtc(i).lhstmt
    coObjetoConexion.sAbreviaturaCia = Gtc(i).sAbreviaturaCia
    coObjetoConexion.sCompania = Gtc(i).sCompania
    
    McoCGtc.Add Item:=coObjetoConexion, Key:=CStr(i)
    
    Set coObjetoConexion = Nothing
Next

End Sub

Sub TraspasaConexion()
'Descripción: Asigna al arreglo Gtc las variables de conexión obtenidas,
'             cuando se genera una nueva conexión. Los valores son tomados
'             de la DLL NuevaConexion
'Uso: TraspasaConexion
'---------------------------------------

If GiMaxConexion > 1 Then
    If GiMaxConexion = UBound(Gtc) Then Exit Sub
End If

ReDim Preserve Gtc(GiMaxConexion%)

Gtc(Gicx).lhDbc = nuevaConexion.lhDbc
Gtc(Gicx).lhstmt = nuevaConexion.lhstmt
Gtc(Gicx).lhEnv = nuevaConexion.lhDbc
Set Gtc(Gicx).Ado = nuevaConexion.Ado
Gtc(Gicx).ihijas = 0
Gtc(Gicx).sCompania = GsCveCia
GsUsuario = GsUid
'Recupera la abreviatura de la compañía
Gtc(Gicx).Ado.SQL = "select abreviatura_cia from companias where compania = " + GAdam.ValorReal(RTrim(GsCveCia), 2)
Gtc(Gicx).Ado.SendSQL Gtc(Gicx).lhDbc, Gtc(Gicx).lhstmt
GsAbreviaturaCia = Gtc(Gicx).Ado.GetField(1)
Gtc(Gicx).sAbreviaturaCia = GsAbreviaturaCia

End Sub

Sub AdamIni()
'Descripción: Lee las opciones del Adam.ini
'Uso: AdamIni
'---------------------------------------

'Variables de almacenamiento temporal de valores
Dim sV  As String   'Valor encontrado del la función Get_Private_Profile_String
Dim iR  As Integer  'Respuesta de la función Get_Private_Profile_String

'Directorio de Ayudas
iR = GAdam.ReadPrivateProfileString("Paths", "Ayuda", "", sV, sArchivoIni)
If iR = 0 Then
   GsRutaAyuda = "c:\adam\ayudas\"
Else
   GsRutaAyuda = sV
End If

'Plataforma de Oracle
iR = GAdam.ReadPrivateProfileString("Plataformas", "so", "", sV, sArchivoIni)
If iR = 0 Then
   GsPlataforma = "winnt"
Else
   GsPlataforma = sV
End If

'Directorio de BMP
iR = GAdam.ReadPrivateProfileString("Paths", "bmp", "", sV, sArchivoIni)
If iR = 0 Then
   GsRutaBmp = "c:\adam\bmp\"
Else
   GsRutaBmp = sV
End If

'Directorio de ODBC.INI
iR = GAdam.ReadPrivateProfileString("ODBC", "ArchivoODBC", "", sV, sArchivoIni)
If iR = 0 Then
    GsRutaOdbc = ""
Else
    GsRutaOdbc = sV
End If

'Directorio de ODBC.INI
iR = GAdam.ReadPrivateProfileString("Paths", "exe", "", sV, sArchivoIni)
If iR = 0 Then
    GsRutaexe = ""
Else
    GsRutaexe = sV
End If

'Fuente de Datos ADAM.INI
iR = GAdam.ReadPrivateProfileString("Conexion", "Fuente_Datos", "", sV, sArchivoIni)
If iR = 0 Then
    GsFuenteDatos = ""
Else
    GsFuenteDatos = sV
End If

'Usuario
iR = GAdam.ReadPrivateProfileString("Conexion", "Usuario", "", sV, sArchivoIni)
If iR = 0 Then
    GsUsuario = ""
Else
    GsUsuario = sV
End If

'Nombre de base de datos
iR = GAdam.ReadPrivateProfileString("Conexion", "BD", "", sV, sArchivoIni)
If iR = 0 Then
    GsDbn = ""
Else
    GsDbn = sV
End If

'Idioma
iR = GAdam.ReadPrivateProfileString("Lenguaje", "Idioma", "", sV, sArchivoIni)
If iR = 0 Then
    GlIdioma = 0
Else
    GlIdioma = Val(sV)
End If

'Íconos
iR = GAdam.ReadPrivateProfileString("Menus", "niconos", "", sV, sArchivoIni)
If iR = 0 Then
    GiIconos = 0
Else
    GiIconos = Val(sV)
End If

'RutaTemporales
iR = GAdam.ReadPrivateProfileString("Paths", "Temporales", "", sV, sArchivoIni)
If iR = 0 Then
    GsRutaTemporales = 0
Else
    GsRutaTemporales = sV
    
End If

'Ruta Iconos paleta 256
iR = GAdam.ReadPrivateProfileString("Colores", "Bmp", "", sV, sArchivoIni)
If iR = 0 Then
    GsRutaPaleta = 0
Else
    GsRutaPaleta = sV
End If
'Si va a utilizar la paleta de 256 colores
iR = GAdam.ReadPrivateProfileString("Colores", "Paleta256", "", sV, sArchivoIni)
If iR = 0 Then
    GbPaleta256 = False
Else
    GbPaleta256 = sV
End If

'Variable para debug
iR = GAdam.ReadPrivateProfileString("Conexion", "Debug", "", sV, sArchivoIni)
If iR = 0 Then
    GiDebug = 0
Else
    GiDebug = CInt(sV)
End If



End Sub


Sub AsignaIconos()
'Descripción: Incluye los íconos más usuales al Imagelist
'Uso:AsignaIconos
'---------------------------------------

Dim ctlImgx As ListImage 'Variable de lista de imágenes
'Imágenes comunes para las formas
Set ctlImgx = iLMa.ListImages.Add(1, , LoadPicture(GsRutaBmp & "altag.bmp"))
Set ctlImgx = iLMa.ListImages.Add(2, , LoadPicture(GsRutaBmp & "renuevag.bmp"))
Set ctlImgx = iLMa.ListImages.Add(3, , LoadPicture(GsRutaBmp & "guardag.bmp"))
Set ctlImgx = iLMa.ListImages.Add(4, , LoadPicture(GsRutaBmp & "salidag.bmp"))
Set ctlImgx = iLMa.ListImages.Add(5, , LoadPicture(GsRutaBmp & "bajag.bmp"))
Set ctlImgx = iLMa.ListImages.Add(6, , LoadPicture(GsRutaBmp & "ordenag.bmp"))
Set ctlImgx = iLMa.ListImages.Add(7, , LoadPicture(GsRutaBmp & "aceptar.bmp"))
Set ctlImgx = iLMa.ListImages.Add(8, , LoadPicture(GsRutaBmp & "cancelar.bmp"))
Set ctlImgx = iLMa.ListImages.Add(9, , LoadPicture(GsRutaBmp & "selg.bmp"))
Set ctlImgx = iLMa.ListImages.Add(10, , LoadPicture(GsRutaBmp & "printg.bmp"))
Set ctlImgx = iLMa.ListImages.Add(11, , LoadPicture(GsRutaBmp & "adamen.bmp"))
                                 
End Sub

Private Sub abTools_BandOpen(ByVal Band As ActiveBarLibraryCtl.Band)

Dim frm     As Object      'Para barrer la colección forms
Dim coTool  As Tool     'Para usar en asignaciones del active bar
Dim bfNoSep As Boolean  'Para saber donde colocar el begin group
Dim i   As Integer      'Contador


If Band.Caption = "ventana" Then
    bfNoSep = False
    Band.Tools.RemoveAll
    Band.Tools.Insert -1, abTools.Tools("tloventanamosaico")
    Band.Tools.Insert -1, abTools.Tools("tloventanacascada")
    Band.Tools.Insert -1, abTools.Tools("tloventanaorganizar")
    Band.Tools.Insert -1, abTools.Tools("tloventanacerrar")
    abTools.Tools("tloventanamosaico").Caption = GAdam.sLoadStringRes(257 + GlIdioma)
    abTools.Tools("tloventanacascada").Caption = GAdam.sLoadStringRes(258 + GlIdioma)
    abTools.Tools("tloventanaorganizar").Caption = GAdam.sLoadStringRes(259 + GlIdioma)
    abTools.Tools("tloventanacerrar").Caption = GAdam.sLoadStringRes(260 + GlIdioma)
    
    i = 0
       
    For Each frm In Forms
      If TypeOf frm Is Form Then
        If Trim(frm.Name) <> Trim("Ma0000") Then
            i = i + 1
            Set coTool = Band.Tools.Add(20001, "miWList" & Trim(Str(i)))
            coTool.Caption = "&" & Trim(Str(i)) & " " & frm.Caption
            
            If Not bfNoSep Then
               coTool.BeginGroup = True
               bfNoSep = True
            End If
            If frm.Caption = ActiveForm.Caption Then
                coTool.SetPicture Index:=0, Picture:=LoadPicture(GsRutaBmp + "activw.ico"), Color:=&HC0C0C0
            End If
        End If
        'Debug.Print frm.Name
      End If
    Next
    abTools.RecalcLayout
End If
End Sub

Private Sub abTools_Click(ByVal Tool As ActiveBarLibraryCtl.Tool)

'Variables para el manejo del Copiar,Pegar,Cortar
Dim frmAxuliar  As Form         'Se le asigna la forma activa
Dim frm         As Object         'Ayuda a recorrer la colección de formas
Dim ctlauxiliar As Object       'Almacena el control activo de la pantalla
Dim icx         As Integer      'Guarda la conexión activa
Dim clsExport   As New ExportaDLL.ClaseExporta  'Instancia la DLL de exporta
Dim sAyuda      As String       'Ruta del archivo de ayuda
Dim iSeguridad  As Integer      'Validar la seguridad de la forma activa
Screen.MousePointer = 11

Dim svar As String 'Guarda el nombre de la herramienta

Select Case Tool.Name

Case "tloconexionabrir", "tlbconectar"
    'Muestra la forma Ma0001
    Mbnewmenu = False
    nuevaConexion.Conexion GsRutaBmp, GsRutaOdbc, sArchivoIni, GsUsuario, GiMaxConexion, Gicx, GsCveCia, GsNomCia, GsUid, GsPwd, GsDsn, GsCancelar, Mbnewmenu, GiEncripta
        If GsCancelar = False And GiMaxConexion <> 0 Then TraspasaConexion
    GsCancelar = False
    Set nuevaConexion = Nothing
    If Mbnewmenu = True Then
        MAMenúPrincipal
        Ma0000.Caption = GsDsn & " / " & GsAbreviaturaCia & " - ADAM* FP"
    End If
    
Case "tloconexioncompañia", "tlbcambiocompañia"
    NuevaVentana 1
    icx = Gicx
    PasaArregloColeccion
    CambioCompañia.Cambio McoCGtc, GsRutaBmp, GsRutaOdbc, 1, GiVenMax, Gicx, GsCveCia, GsNomCia, GsAbreviaturaCia
    PasaColeccionArreglo
    Set CambioCompañia = Nothing
    Ma0000.Caption = GsDsn & " / " & GsAbreviaturaCia & " - ADAM* FP" '& GcModuloConst
        
Case "tloconexionsalir", "tlbsalir"
    MDIForm_QueryUnload False, 0

Case "tlbprincipal", "tlomenuprincipal"
    MAMenúPrincipal

Case "tloedicioncortar", "tlbcortar"
    If Screen.ActiveForm.Name = "Ma0000" Then Screen.MousePointer = 0: Exit Sub
    If TypeOf Screen.ActiveControl Is vaSpread Then
    'Checa nivel de seguridad
    iSeguridad = GAdam.iObtenNivSeguridad(Screen.ActiveForm.Name, GsUsuario, Gtc(Gicx).Ado)
    If iSeguridad <= 2 Then Screen.MousePointer = 0: Exit Sub
         Set ctlauxiliar = Screen.ActiveControl
         Set frmAxuliar = Screen.ActiveForm
         OLEAutSpread.Copiar ctlauxiliar, 1
         OLEAutSpread.Cortar ctlauxiliar, GbManejaBitacora, gObjBitacora
         Set ctlauxiliar = Nothing
    ElseIf InStr(1, Ma0000.ActiveForm.ActiveControl.Name, "UCT") > 0 Then
         If TypeOf Ma0000.ActiveForm.ActiveControl.ActiveCtrl Is vaSpread Then
            Set ctlauxiliar = Ma0000.ActiveForm.ActiveControl.ActiveCtrl
            Set gObjBitacora = Ma0000.ActiveForm.ActiveControl.Bitacora
            Set frmAxuliar = Screen.ActiveForm
            OLEAutSpread.Copiar ctlauxiliar, 1
            OLEAutSpread.Cortar ctlauxiliar, GbManejaBitacora, gObjBitacora
            Set gObjBitacora = Nothing
            Set ctlauxiliar = Nothing
         End If
    End If


Case "tloedicioncopiar", "tlbcopiar"
      If Screen.ActiveForm.Name = "Ma0000" Then Screen.MousePointer = 0: Exit Sub
      If TypeOf Screen.ActiveControl Is vaSpread Then
         Set ctlauxiliar = Screen.ActiveControl
         OLEAutSpread.Copiar ctlauxiliar, 1
         Set ctlauxiliar = Nothing
      End If
      If TypeOf Screen.ActiveControl Is F1Book Then
         Set ctlauxiliar = Screen.ActiveControl
         OLEAutSpread.Copiar ctlauxiliar, 2
         Set ctlauxiliar = Nothing
      End If
      If InStr(1, Ma0000.ActiveForm.ActiveControl.Name, "UCT") > 0 Then
         If TypeOf Ma0000.ActiveForm.ActiveControl.ActiveCtrl Is vaSpread Then
            Set ctlauxiliar = Ma0000.ActiveForm.ActiveControl.ActiveCtrl
            OLEAutSpread.Copiar ctlauxiliar, 1
            Set ctlauxiliar = Nothing
         End If
      End If

Case "tloedicionpegar", "tlbpegar"
    If Screen.ActiveForm.Name = "Ma0000" Then Screen.MousePointer = 0: Exit Sub
      If TypeOf Screen.ActiveControl Is vaSpread Then
         Set ctlauxiliar = Screen.ActiveControl
         Set frmAxuliar = Screen.ActiveForm
         OLEAutSpread.Pegar ctlauxiliar, GbManejaBitacora, gObjBitacora
         Set ctlauxiliar = Nothing
      End If
      
    If InStr(1, Ma0000.ActiveForm.ActiveControl.Name, "UCT") > 0 Then
        If TypeOf Ma0000.ActiveForm.ActiveControl.ActiveCtrl Is vaSpread Then
           Set ctlauxiliar = Ma0000.ActiveForm.ActiveControl.ActiveCtrl
           Set gObjBitacora = Ma0000.ActiveForm.ActiveControl.Bitacora
           Set frmAxuliar = Screen.ActiveForm
           OLEAutSpread.Pegar ctlauxiliar, GbManejaBitacora, gObjBitacora
           Set gObjBitacora = Nothing
           Set ctlauxiliar = Nothing
        End If
   End If


Case "tloherramsql", "tlbsql"
    NuevaVentana 1
    GvParametros(0) = 1
    Dim Fma0008 As New MA0008 'Instancia de la forma MA0008
    Load Fma0008
    If GbAError Then
       Unload Fma0008
       Set Fma0008 = Nothing
    Else
       Fma0008.Show
    End If

Case "tloherramgraph", "tlbgraph"
    MAHerramientasGraph

Case "tloherramreport", "tlbreport" 'Fast-Report
    If Not GoReporte Is Nothing Then: Screen.MousePointer = 0: Exit Sub
    MAFastReport
    
       
Case "tloherramexport", "tlbexport"
  Dim iObjeto As Integer   'Guarda el tipo de objeto
  Dim ObjActive As Object     'Objeto Seleccionado
    
    
    
    If Not GoReporte Is Nothing Then
        Set ObjActive = GoReporte
        iObjeto = 3
    ElseIf TypeOf Ma0000.ActiveForm.ActiveControl Is vaSpread Then
         Set ObjActive = Ma0000.ActiveForm.ActiveControl
         iObjeto = 1
    ElseIf TypeOf Ma0000.ActiveForm.ActiveControl Is F1Book Then
         Set ObjActive = Ma0000.ActiveForm.ActiveControl
         iObjeto = 2
    ElseIf InStr(1, Ma0000.ActiveForm.ActiveControl.Name, "UCT") > 0 Then
         If InStr(1, Ma0000.ActiveForm.ActiveControl.ActiveCtrl.Name, "spr") > 0 Then
            Set ObjActive = Ma0000.ActiveForm.ActiveControl.ActiveCtrl
            iObjeto = 1
         Else
            clsMsgbox.Mensaje "Requiere de un Texto Seleccionado para la Ejecución", mAceptar, 2, "ADAM", 1029 + GlIdioma
            Exit Sub
         End If
         
    ElseIf TypeOf Ma0000.ActiveForm.ActiveControl Is ActiveReport Then
         Set ObjActive = Ma0000.ActiveForm.ActiveControl
         iObjeto = 3
    Else
         clsMsgbox.Mensaje "Requiere de un Texto Seleccionado para la Ejecución", mAceptar, 2, "ADAM", 1029 + GlIdioma
         Exit Sub
    End If
    
   If iObjeto = 1 Then
     If ObjActive.MaxCols > 256 Then
         clsMsgbox.Mensaje "Esta tratando de enviar mas de 256 columnas, que son las permitidas por Excel", mAceptar, 2, "ADAM", 360 + GlIdioma
      End If
   End If
   
      clsExport.MAHerramientasExport ObjActive, Ma0000.sprTrabajo, Ma0000.hwnd, GsDsn$, iObjeto
      Set clsExport = Nothing
      Set ObjActive = Nothing

Case "tloventanamosaico"
    MAVentanaMosaico

Case "tloventanacascada"
     MAVentanaCascada

Case "tloventanaorganizar"
    MAVentanaOrganizarIconos

Case "tloventanacerrar"
    CierraHijas

Case "tloayudaindice"
 If Len(Dir(sAyuda, vbNormal)) > 0 Then
        cmdiAyuda.CancelError = True
        
        cmdiAyuda.HelpCommand = cdlHelpForceFile
        
        ' Índica que archivo de ayuda va a tomar
        cmdiAyuda.HelpFile = App.HelpFile
        ' Despliega la ayuda
        cmdiAyuda.ShowHelp
    Else
        clsMsgbox.Mensaje "El archivo de Ayuda no Existe", mAceptar, mInforma, "ADAM"
    End If
Case "tlbayuda"
  'sAyuda = GsRutaAyuda + "ayuda" + Trim(GsModulo) + ".hlp"
    If Len(Dir(sAyuda, vbNormal)) > 0 Then
        cmdiAyuda.CancelError = True
        
        cmdiAyuda.HelpCommand = cdlHelpForceFile
        
        ' Índica que archivo de ayuda va a tomar
        cmdiAyuda.HelpFile = App.HelpFile
        ' Despliega la ayuda
        cmdiAyuda.ShowHelp
    Else
        clsMsgbox.Mensaje "El archivo de Ayuda no Existe", mAceptar, mInforma, "ADAM"
    End If

Case "tloAcercade"
    MAAyudaAcerca

Case "tloCerrarconexion", "tlbcerrarconexion"
    
    NuevaVentana 1
    PasaArregloColeccion
    CambioCompañia.Cambio McoCGtc, GsRutaBmp, GsRutaOdbc, 3, GiVenMax, Gicx, GsCveCia, GsNomCia, GsAbreviaturaCia
    PasaColeccionArreglo
    Set CambioCompañia = Nothing
    

Case "tloconexionactiva", "tlbconexionactiva"
    
    NuevaVentana 1
    PasaArregloColeccion
    CambioCompañia.Cambio McoCGtc, GsRutaBmp, GsRutaOdbc, 2, GiVenMax, Gicx, GsCveCia, GsNomCia, GsAbreviaturaCia
    PasaColeccionArreglo
    Set CambioCompañia = Nothing
    
    Ma0000.Caption = Gtc(Gicx).Ado.DataSource & " / " & Gtc(Gicx).sAbreviaturaCia & " - ADAM* FP" '+ GcModuloConst
    
     
Case ""
    Screen.MousePointer = 0
    Exit Sub
    
Case Else 'En otro caso ejecuta la operación
    If Mid(Tool.Name, 1, 7) = "miWList" Then 'Si es lista de ventanas
        For Each frm In Forms
         If TypeOf frm Is Form Then
            If Trim(Mid(Tool.Caption, 3, Len(Tool.Caption) - 2)) = Trim(frm.Caption) Then
                frm.SetFocus
            End If
         End If
        Next
    Else 'Si no es lista de ventanas entonces es una operación
        svar = Tool.Name
        GiImgForma = Val(Mid(svar, 2, Len(svar) - 1))
        EjecutaOperacionADAM Trim(GOpcionesMenu(Val(Mid(svar, 2, Len(svar) - 1))).sEjecutaOperacion)
    End If

End Select
Screen.MousePointer = 0
sbarMa.Panels(2).Text = "Status General...."
End Sub

'Private Sub MConexionRDO_Connect(ByVal ErrorOccurred As Boolean)

'If ErrorOccurred Then
'    clsMsgbox.Mensaje "Error al crear la conexión RDO", mAceptar, mInforma, "ADAM"
'End If

'End Sub

'Private Sub MConexionRDO_QueryComplete(ByVal Query As RDO.rdoQuery, ByVal ErrorOccurred As Boolean)

'If ErrorOccurred Then
'    clsMsgbox.Mensaje "Error al ejecutar " + Query.SQL, mAceptar, mInforma, "ADAM"
'Else
'    clsMsgbox.Mensaje "Asiento Contable Terminado", mAceptar, mInforma, "ADAM"
'End If

'End Sub

Private Sub MDIForm_Load()
Dim sLinea          As String       'Almacena la cadena proveniente del proyecto de entrada
Dim i As Integer, j As Integer      'Contadores

Screen.MousePointer = 11
On Error GoTo Error_MDIForm_Load

'JCL
'compilar con:
'GcModuloConst = "NS"
'cuando haya command probar con:
GcModuloConst = "F1"
GsTitMsg = "ADAM FCO"

'Indica si no se han leído las opciones de menú principal
GbMinicio = False

'Lee las Rutas de acceso especifícadas en el ADAM.INI
AdamIni

abTools.Bands("Herramientas").DisplayHandles = False
abTools.Bands("Menú").DisplayHandles = False

'Asigna el manejo de colores a la barra de herramientas
abTools.ColorDepth = DD24BitColors
If GbPaleta256 Then
    abTools.ColorDepth = DD256Colors
    abTools.Bands("Herramientas").Tools("tlbconectar").SetPicture 0, LoadPicture(GsRutaPaleta & "conexcg.bmp"), &H8000000B
    abTools.Bands("Herramientas").Tools("tlbcambiocompañia").SetPicture 0, LoadPicture(GsRutaPaleta & "ciacg.bmp"), &H8000000B
    abTools.Bands("Herramientas").Tools("tlbprincipal").SetPicture 0, LoadPicture(GsRutaPaleta & "princcg.bmp"), &H8000000B
    abTools.Bands("Herramientas").Tools("tlbcortar").SetPicture 0, LoadPicture(GsRutaPaleta & "cortarcg.bmp"), &H8000000B
    abTools.Bands("Herramientas").Tools("tlbcopiar").SetPicture 0, LoadPicture(GsRutaPaleta & "copiarcg.bmp"), &H8000000B
    abTools.Bands("Herramientas").Tools("tlbpegar").SetPicture 0, LoadPicture(GsRutaPaleta & "pegarcg.bmp"), &H8000000B
    abTools.Bands("Herramientas").Tools("tlbsql").SetPicture 0, LoadPicture(GsRutaPaleta & "sqlcg.bmp"), &H8000000B
    abTools.Bands("Herramientas").Tools("tlbgraph").SetPicture 0, LoadPicture(GsRutaPaleta & "graphcg.bmp"), &H8000000B
    abTools.Bands("Herramientas").Tools("tlbreport").SetPicture 0, LoadPicture(GsRutaPaleta & "reportcg.bmp"), &H8000000B
    abTools.Bands("Herramientas").Tools("tlbexport").SetPicture 0, LoadPicture(GsRutaPaleta & "exportcg.bmp"), &H8000000B
    abTools.Bands("Herramientas").Tools("tlbayuda").SetPicture 0, LoadPicture(GsRutaPaleta & "helpcg.bmp"), &H8000000B
    abTools.Bands("Herramientas").Tools("tlbsalir").SetPicture 0, LoadPicture(GsRutaPaleta & "salircg.bmp"), &H8000000B
    abTools.Bands("Herramientas").Tools("tlbminicio").SetPicture 0, LoadPicture(GsRutaPaleta & "mnucg.bmp"), &H8000000B
    abTools.Bands("Herramientas").Tools("tlbcerrarconexion").SetPicture 0, LoadPicture(GsRutaPaleta & "cierracg.bmp"), &H8000000B
    abTools.Bands("Herramientas").Tools("tlbconexionactiva").SetPicture 0, LoadPicture(GsRutaPaleta & "activacg.bmp"), &H8000000B
End If
'Graba el estado actual de la barra de herramientas
abTools.save "Mabar.lyt", ""

'Asigna la imágen a color que debe desplegar la barra de herramientas
abTools.Bands("Herramientas").Tools("tlbconectar").SetPicture 2, LoadPicture(GsRutaBmp & "conexc.bmp"), &H8000000B
abTools.Bands("Herramientas").Tools("tlbcambiocompañia").SetPicture 2, LoadPicture(GsRutaBmp & "ciac.bmp"), 0
abTools.Bands("Herramientas").Tools("tlbprincipal").SetPicture 2, LoadPicture(GsRutaBmp & "princc.bmp"), 0
abTools.Bands("Herramientas").Tools("tlbcortar").SetPicture 2, LoadPicture(GsRutaBmp & "cortarc.bmp"), 0
abTools.Bands("Herramientas").Tools("tlbcopiar").SetPicture 2, LoadPicture(GsRutaBmp & "copiarc.bmp"), 0
abTools.Bands("Herramientas").Tools("tlbpegar").SetPicture 2, LoadPicture(GsRutaBmp & "pegarc.bmp"), 0
abTools.Bands("Herramientas").Tools("tlbsql").SetPicture 2, LoadPicture(GsRutaBmp & "sqlc.bmp"), 0
abTools.Bands("Herramientas").Tools("tlbgraph").SetPicture 2, LoadPicture(GsRutaBmp & "graphc.bmp"), 0
abTools.Bands("Herramientas").Tools("tlbreport").SetPicture 2, LoadPicture(GsRutaBmp & "reportc.bmp"), 0
abTools.Bands("Herramientas").Tools("tlbexport").SetPicture 2, LoadPicture(GsRutaBmp & "exportc.bmp"), 0
abTools.Bands("Herramientas").Tools("tlbayuda").SetPicture 2, LoadPicture(GsRutaBmp & "helpc.bmp"), 0
abTools.Bands("Herramientas").Tools("tlbsalir").SetPicture 2, LoadPicture(GsRutaBmp & "salirc.bmp"), 0
abTools.Bands("Herramientas").Tools("tlbminicio").SetPicture 2, LoadPicture(GsRutaBmp & "mnuc.bmp"), 0
abTools.Bands("Herramientas").Tools("tlbcerrarconexion").SetPicture 2, LoadPicture(GsRutaBmp & "cierrac.bmp"), 0
abTools.Bands("Herramientas").Tools("tlbconexionactiva").SetPicture 2, LoadPicture(GsRutaBmp & "activac.bmp"), 0
GAdam.ObtenLabelObjeto abTools
GiCloseTodas = False
abTools.Tools("tloventanamosaico").Caption = GAdam.sLoadStringRes(257 + GlIdioma)
abTools.Tools("tloventanacascada").Caption = GAdam.sLoadStringRes(258 + GlIdioma)
abTools.Tools("tloventanaorganizar").Caption = GAdam.sLoadStringRes(259 + GlIdioma)
abTools.Tools("tloventanacerrar").Caption = GAdam.sLoadStringRes(260 + GlIdioma)
    
AsignaIconos

'Obtiene los colores de Windows
GAdam.ObtieneColores
'GLSPREADACTIVO = GAdam.GLSPREADACTIVO
'GLTEXTOACTIVO = GAdam.GLTEXTOACTIVO
'GLSPREADINACTIVO = GAdam.GLSPREADINACTIVO
'GLTEXTOINACTIVO = GAdam.GLTEXTOINACTIVO

'Redimensiona a cero el arreglo dinámico
ReDim GvParametros(0)
GiMaxConexion = 0
Set GAdam.BarraHerramientas = Ma0000.abTools

'Obtenemos parámetros necesarios para correr el programa
If Command$ = "" Then
    'Se obtiene un login y un password desde un input esto se deberá
    'quitar cuando se genere el programa de producción.
    Ma0000.Show
    GsCancelar = False

    'Muestra forma MA0001
    nuevaConexion.Conexion GsRutaBmp, GsRutaOdbc, sArchivoIni, GsUsuario, GiMaxConexion, Gicx, GsCveCia, GsNomCia, GsUid, GsPwd, GsDsn, GsCancelar, Mbnewmenu, GiEncripta

    If GsCancelar = False And GiMaxConexion <> 0 Then TraspasaConexion
    Set nuevaConexion = Nothing

    If GsCancelar Then
        End
    Else
        GcModuloConst = "F1"
       GsModulo = GcModuloConst
       GsDesModulo = "Fiscal de Colombia" 'GAdam.sLoadStringRes(GcDescripcionConst)  '"Capacitación"
    End If
Else
    'Si el programa es llamado desde la entrada, se deberá realizar
    'La conexión en esta parte con los parámetros pasados a la misma

    sLinea = Command$
    'Un ejemplo de como se obtendrá la cadena sLinea es:
    'sLinea = "CA,Capacitación,ADAM,adamv3,ORANT,ADAM,ADAM Technologies S.A. de C.V.,ADAM Tec.,3.1,ADAM31"

    For i = 1 To 9
        j = InStr(sLinea, ",")
        Select Case i
            Case 1: GsModulo = Mid(sLinea, 1, j - 1)
            Case 2: GsDesModulo = Mid(sLinea, 1, j - 1)
            Case 3: GsUid = Mid(sLinea, 1, j - 1)
            Case 4: GsPwd = Mid(sLinea, 1, j - 1)
            Case 5: GsDsn = Mid(sLinea, 1, j - 1)
            Case 6: GsCveCia = Mid(sLinea, 1, j - 1)
            Case 7: GsNomCia = Mid(sLinea, 1, j - 1)
            Case 8: GsAbreviaturaCia = Mid(sLinea, 1, j - 1)
            Case 9: If j > 0 Then GsVer = Mid(sLinea, 1, j - 1) Else GsVer = sLinea: sLinea = ""
        End Select
        sLinea = Mid(sLinea, j + 1)
    Next i
    GsOper = sLinea
    'GsDbn = sLinea
   
    '********* ABRE LA CONEXIÓN ************
    GiMaxConexion% = GiMaxConexion% + 1
    ReDim Preserve Gtc(GiMaxConexion%)
    Gicx% = GiMaxConexion%
    Gtc(Gicx%).ihijas = 0
    
    If Not Gtc(GiMaxConexion%).Ado.OpenConEnv(Gtc(GiMaxConexion%).lhEnv, Gtc(GiMaxConexion%).lhDbc, Gtc(GiMaxConexion%).lhstmt, GsDsn$, GsUid$, GsPwd$) Then
        GiMaxConexion% = 0
        Set Gtc(Gicx%).Ado = Nothing
        ReDim Gtc(0)
        GoTo Error_MDIForm_Load
    End If
    '***************************************
    
    GsUid$ = Gtc(Gicx%).Ado.UserName
    Gtc(Gicx%).sAbreviaturaCia = GsAbreviaturaCia
    Gtc(Gicx%).sCompania = GsCveCia
End If
App.HelpFile = GsRutaAyuda + "ayuda" + Trim(GsModulo) + ".hlp"

If GsOper <> "" And Trim(GsOper) <> "ADAM31" Then
    GbExterno = True
    Ma0000.Hide
    EjecutaOperacionADAM GsOper
Else
    GbExterno = False

    'Crea la instancia
    NuevaVentana 1
    Dim Fma0003 As New MA0003 'Instancia de la forma MA0003
    Load Fma0003
    If GbAError Then
        Unload Fma0003
        Set Fma0003 = Nothing
    Else
        Fma0003.Show
    End If
     
    'Caption de la forma del manejador
    Me.Caption = GsDsn & " / " & GsAbreviaturaCia & " - ADAM*FCO" '& GcModuloConst
    
    'Crea menú inicio en herramientas
    Ma0000.abTools.Bands("Herramientas").Tools("tlbminicio").SubBand = "M"
    
    GiTipoNomina = GAdam.iParametroFolio(Gtc(Gicx%).Ado)
    GbMinicio = True
End If

Screen.MousePointer = 0

Exit Sub

Error_MDIForm_Load:
    Screen.MousePointer = 0
    clsMsgbox.Mensaje "Error " & Err.Number & Err.Description, mAceptar, mAdvierte, "ADAM"
    Unload Me
    End
    Set Ma0000 = Nothing
    Exit Sub
   
End Sub

Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If Button = 2 Then 'Si se pulsa botón derecho muestra popup
  Call Ma0000.abTools.Bands("M").TrackPopup(-1, -1)
 End If
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)


Dim iResp   As Integer  'Almacena valor de respuesta a msgbox
Dim lcx     As Long     'Contador
Dim j       As Integer  'Índices
Dim lExiste As Long     'Indica si existe esa conexión

Screen.MousePointer = 0

iResp = clsMsgbox.Mensaje("¿ Abandonar la sesión de ADAM ?", mAceptarCancelar, mConfirma, "ADAM", 4)

If iResp = 2 Then
  Cancel = True
Else
  CierraHijas
  lcx = UBound(Gtc)
   For j = 1 To lcx
     Gtc(j).Ado.CloseConnection Gtc(j).lhDbc, Gtc(j).lhstmt
     Set Gtc(j).Ado = Nothing
  Next j
  'Liberamos todas las posibles conexiones
  lExiste = FindWindow(vbNullString, "Microsoft System Information")
  'Cierra la ventana sysinfo si existe
  If lExiste <> 0 Then
     AppActivate "Microsoft System Information"
     SendKeys "%{F4}", True
  End If
  Set clsMsgbox = Nothing
  Set gObjBitacora = Nothing
  Set OLEAutSpread = Nothing
  Set GAdam = Nothing
  
'  If GcModuloConst = "CA" Or GcModuloConst = "SP" Then
'     MConexionRDO.Close
'     Set MConexionRDO = Nothing
'  End If
  
  Set Ma0000 = Nothing
  
  End
  
End If
End Sub

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

sbarMa.Panels(1).Bevel = sbrRaised 'Levanta el botón de inicio

End Sub

Private Sub sbarMA_PanelClick(ByVal Panel As ComctlLib.Panel)
If Panel = "Inicio" Then
    If sbarMa.Panels(1).Bevel = sbrInset Then
      sbarMa.Panels(2).Text = "Status General...."
    Else
     Screen.MousePointer = 0
     sbarMa.Panels(1).Bevel = sbrInset
     Call Ma0000.abTools.Bands("M").TrackPopup(-1, -1)
     sbarMa.Panels(1).Bevel = sbrRaised
    End If
End If
End Sub

