Option Explicit On
Option Strict On

Imports System.Data
Imports System.Drawing
Imports Extensiones
'Imports Microsoft.Office.Interop.Excel
'Imports msExcel = Microsoft.Office.Interop.Excel
'Imports VBIDE

Partial Class AIMMGM_ConsultaCliente
    Inherits ClsPaginas

    Private Shared missing As Object = System.Reflection.Missing.Value

    'Configuración
    Private Property CveCliente As Integer
        Get
            Return ViewState("CveCliente").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveCliente") = value
        End Set
    End Property


    Private Property CveVentaDetalle As Integer
        Get
            Return ViewState("CveVentaDetalle").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveVentaDetalle") = value
        End Set
    End Property

    Private Property DtCompras As Data.DataTable
        Get
            Return CType(ViewState("DtCompras"), Data.DataTable)
        End Get
        Set(value As Data.DataTable)
            ViewState("DtCompras") = value
        End Set
    End Property



    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Session("FileUpload") = ""
            ViewState("Orden") = ""
            ViewState("ONombre") = "Nombre DESC"
            TxtFecha.Text = Now.ToShortDateString

            If Request("CveCliente") IsNot Nothing Then
                CveCliente = Request("CveCliente").ToString.ToEntero()
            Else
                CveCliente = UsuarioActual.CveCliente
            End If

            CveVentaDetalle = -1

            If UsuarioActual.CveUsuario = 136 Then
                imgP.Visible = False
                Lbl.Visible = False
            End If
         

            'cargo usuarios y verifico permisos

            'Configuración de Modalidad Update
            'BtnGuardar.Text = "Guardar"
            LtlTitulo.Text = "Portal del Cliente"
            Dim ObjClientes As New ClsClientes
            If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then

                If ObjClientes.DtResultados.Rows.Count > 0 Then


                    LtlTitulo.Text = "Portal del Cliente: " & ObjClientes.Nombre

                    CargaCompras(CveCliente)
                    CargaPagos(CveCliente)
                    DdlMetodoPago.DataSource = DirectCast(Application("GlobalDTMetodosPago"), Data.DataTable).FiltraParametros("CveMetodoPago IN (1,2,3,4,5)")
                    DdlMetodoPago.DataBind()

                    TxtNombre.Text = ObjClientes.Nombre
                    TxtNombreComercial.Text = ObjClientes.NombreComercial
                    TxtDireccion.Text = ObjClientes.Direccion
                    TxtNoExt.Text = ObjClientes.NoExt
                    TxtNoInt.Text = ObjClientes.NoInt
                    TxtColonia.Text = ObjClientes.Colonia
                    TxtLocalidad.Text = ObjClientes.Localidad
                    TxtCiudad.Text = ObjClientes.Ciudad
                    TxtEstado.Text = ObjClientes.Estado
                    TxtRFC.Text = ObjClientes.RFC
                    TxtCP.Text = ObjClientes.CP.ToString
                    TxtTelefono.Text = ObjClientes.Telefono
                    TxtContacto.Text = ObjClientes.Contacto
                    TxtEmail.Text = ObjClientes.Mail
                    TxtPagina.Text = ObjClientes.Pagina
                    TxtGiro.Text = ObjClientes.Giro
                    TxtProfesion.Text = ObjClientes.ConvenioCIE
                    TxtNumCtaPago.Text = ObjClientes.NumCtaPago
                    DdlMetodoPago.SelectedValue = ObjClientes.CveMetodoPago.ToString
                    BtnGuardar.Visible = True
                    HplComprar.Visible = True
                    HplComprar.NavigateUrl = String.Format("PopRegistro.aspx?CveCliente={0}&TB_iframe=true&height=450&width=980", CveCliente)
                    HplComprar.Target = "_blank"
                End If
            End If
            ObjClientes.Dispose()

            If UsuarioActual.CveRol.Contiene(1, 1022) Then

                GVMisCompras.Columns(4).Visible = True
                GVMisCompras.Columns(5).Visible = True
                GVMisCompras.Columns(6).Visible = True
                GVMisCompras.Columns(7).Visible = True
                GVMisCompras.Columns(8).Visible = True
                GvPagos.Columns(6).Visible = True
            End If

            'End If
        End If
    End Sub

    
    Private Sub CargaCompras(CveCliente As Integer)

        Dim DtDatosCompras As New Data.DataTable
        DtDatosCompras.Columns.Add("PS", Type.GetType("System.String"))
        DtDatosCompras.Columns.Add("Clasificacion", Type.GetType("System.String"))
        DtDatosCompras.Columns.Add("Obs", Type.GetType("System.String"))
        DtDatosCompras.Columns.Add("Fecha", Type.GetType("System.DateTime"))
        DtDatosCompras.Columns.Add("Total", Type.GetType("System.Double"))
        DtDatosCompras.Columns.Add("CveVentaDetalle", Type.GetType("System.Int32"))
        DtDatosCompras.Columns.Add("CveVenta", Type.GetType("System.Int32"))
        DtDatosCompras.Columns.Add("VentaMovs", Type.GetType("System.Int32")) 'registro el numero de movimientos detalle que tiene la venta, para saber si la elimino o solo la actualizo
        Dim TieneStand As Boolean = False
        Dim ObjClientes As New ClsClientes()
        If ObjClientes.GetHistorialVentas(CveCliente) Then
            If ObjClientes.DtResultados.Rows.Count > 0 Then
                Dim dt As Data.DataTable = ObjClientes.DtResultados
                Dim Venta As New ClsVentas
                Dim AIM As New ClsAIMMGM
                For Each dr As DataRow In dt.Rows

                    If AIM.GetVentas(CveCliente) Then
                        
                      
                        DtDatosCompras = AIM.DtResultados
                   
                    End If

                Next
                Venta.Dispose()
                GVMisCompras.DataSource = DtDatosCompras
                DtCompras = DtDatosCompras

                If DtDatosCompras.Rows.Count = 0 Then
                    CveVentaDetalle = DtDatosCompras.MIN("CveVentaDetalle").ToEntero
                Else
                    CveVentaDetalle = -1
                End If
            Else
                GVMisCompras.DataSource = Nothing
            End If
        Else
            GVMisCompras.DataSource = Nothing
        End If
        ObjClientes.Dispose()
        GVMisCompras.DataBind()

        'If TieneStand Then

        '    TxtImporte.ReadOnly = False
        'Else
        '    If DtCompras IsNot Nothing Then
        '        TxtImporte.Text = DtCompras.SUM("Total")
        '    End If

        'End If

    End Sub

    Private Sub CargaPagos(CveCliente As Integer)

        Dim Pagado As Double = 0
        Dim AIM As New ClsAIMMGM
        If AIM.GetPagos(CveCliente, -1) Then
            GvPagos.DataSource = AIM.DtResultados
            If AIM.DtResultados.Rows.Count > 0 Then
                Pagado = AIM.DtResultados.SUM("Importe")
            End If

        End If
        AIM.Dispose()
        GvPagos.DataBind()
        LblSaldo.Text = (DtCompras.SUM("Total") - Pagado).FormatoNumero
    End Sub

    'Private Sub CargaDatosCliente()
    '    Dim ObjClientes As New ClsClientes()
    '    If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, 43) Then
    '        If ObjClientes.DtResultados.Rows.Count > 0 Then
    '            'Campos para Modificación

    '            TxtNombre.Text = ObjClientes.Nombre
    '            TxtNombreComercial.Text = ObjClientes.NombreComercial
    '            TxtDireccion.Text = ObjClientes.Direccion
    '            TxtNoExt.Text = ObjClientes.NoExt
    '            TxtNoInt.Text = ObjClientes.NoInt
    '            TxtColonia.Text = ObjClientes.Colonia
    '            TxtLocalidad.Text = ObjClientes.Localidad
    '            TxtCiudad.Text = ObjClientes.Ciudad
    '            TxtEstado.Text = ObjClientes.Estado
    '            TxtRFC.Text = ObjClientes.RFC
    '            TxtCP.Text = ObjClientes.CP.ToString
    '            TxtTelefono.Text = ObjClientes.Telefono
    '            TxtContacto.Text = ObjClientes.Contacto
    '            TxtEmail.Text = ObjClientes.Mail
    '            TxtPagina.Text = ObjClientes.Pagina
    '            TxtGiro.Text = ObjClientes.Giro
    '            TxtNumCtaPago.Text = ObjClientes.NumCtaPago
    '            DdlMetodoPago.SelectedValue = ObjClientes.CveMetodoPago.ToString

    '        Else
    '            Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)

    '        End If
    '    End If
    '    ObjClientes.Dispose()
    'End Sub

    Protected Sub GVMisCompras_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GVMisCompras.RowCommand
        If e.CommandName = "Eliminar" Then
            Dim Retorno As Boolean = True
            'PARAMETROS:
            '0. CveVenta, 1. CveVentaDetalle, 2.Clasificacion, 3.MovimientosVentas, 4.Total
            Dim S As String() = e.CommandArgument.ToString.Split("|"c)

            Dim CveVenta, CveVentaDetalle, MovimientosVentas As Integer
            Dim Clasificacion As String
            Dim Total As Double = S(4).ToDouble
            CveVenta = S(0).ToEntero : CveVentaDetalle = S(1).ToEntero : Clasificacion = S(2).ToString : MovimientosVentas = S(3).ToEntero

            Dim Venta As New ClsVentas
            Dim AIM As New ClsAIMMGM(Venta.IniciaTransacSQL)
            Select Case Clasificacion
                Case "Stand"
                    'libero el stand
                    Retorno = AIM.LiberaStand(CveVentaDetalle)
                Case "Espacios Promocionales"
                    'libero publicidad
                    Retorno = AIM.LiberaPatrocinio(CveVentaDetalle)
            End Select

            If Retorno Then

                'se actualiza
                If Venta.RemoveVentasDetalle(CveVenta, CveVentaDetalle) Then

                    'NECESITO VERIFICAR SI ES STAND, O PATROCIONIO PARA LIBERAR LAS UBICACIONES
                    If Venta.GetVenta(CveVenta, 43) Then
                        Dim dr As DataRow = Venta.DtResultados.Rows(0)
                        Venta.UpdateVentas(dr("SubTotal").ToString.ToDouble - Total, 0, 0, dr("SubTotal").ToString.ToDouble - Total, 1, 1, dr("Fecha").ToString.ToDate, "", 43, CveVenta, "Rem")
                        Alert("El Registro ha sido eliminado", TipoMensaje.MsgInformacion)
                        If MovimientosVentas.ToEntero = 1 Then 'se cancela la venta en su totalidad
                            Venta.UpdateEstatusFactura(4, "", "", Now, CveVenta)
                        End If

                        Venta.Commit()
                        CargaCompras(CveCliente)
                    Else
                        Venta.RollBack()
                    End If

                Else
                    Venta.RollBack()
                End If



            Else
                Venta.RollBack()
            End If

            Venta.Dispose()
            AIM.Dispose()
        Else
            If e.CommandName = "Imprimir" Then
                Dim S As String() = e.CommandArgument.ToString.Split("|"c)
                Dim dt As New Data.DataTable
                dt.Columns.Add("Expositor", Type.GetType("System.String"))
                dt.Columns.Add("Empresa", Type.GetType("System.String"))
                dt.Columns.Add("Telefono", Type.GetType("System.String"))
                dt.Columns.Add("Correo", Type.GetType("System.String"))
                dt.Columns.Add("Pagina", Type.GetType("System.String"))
                dt.Columns.Add("CvePS", Type.GetType("System.Int32"))
                Dim dr As DataRow = dt.NewRow
                dr("Expositor") = S(0)
                dr("Empresa") = S(1)
                dr("Correo") = S(2)
                dr("Telefono") = S(3)
                dr("Pagina") = S(4)
                dr("CvePS") = S(5)
                dt.Rows.Add(dr)

                GeneraPDF(dt, 10)
            End If

        End If
    End Sub



    Private Function GeneraPDF(dtMovs As Data.DataTable, Opcion As Integer) As Boolean
        Dim Retorno As Boolean = False
        'Dim Excel As msExcel.Application = New msExcel.Application()
        'Dim VB_Module As VBComponent = Nothing
        'Excel.Visible = True
        'Excel.ScreenUpdating = True
        'Excel.DisplayAlerts = True
        'Dim pdfFileOut As String
        'Dim xlsxFileOut As String
        'Dim Ruta As String = String.Format("{0}\AIMMGM\Gafetes\", AppDomain.CurrentDomain.BaseDirectory)

        'If IO.File.Exists(Ruta & "FormatoAIMMGM.xlsx") Then

        '    IO.File.Copy(Ruta & "FormatoAIMMGM.xlsx", Ruta & "FormatoAIMMGM2.xlsx", True)
        'End If

        'Dim ArchivoBase As New System.IO.FileInfo(Ruta & "FormatoAIMMGM2.xlsx")
        'ArchivoBase.CopyTo(Ruta & "FormatoAIMMGM33.xlsx", True)
        ''Dim ArchivoTemp As New System.IO.FileInfo("c:\inetpub\wwwVentas\AIMMGM\Gafetes\FormatoAIMMGM3.xlsx")

        ''Dim ArchivoBase As New System.IO.FileInfo(String.Format("{0}Formatos\OrdenCompra.xlsm", UsuarioActual.Empresa.Ruta))
        ''If ArchivoBase.CopyTo(String.Format("{0}Formatos\OC-{1}.xlsm", UsuarioActual.Empresa.Ruta, pCveOrdenCompra), True) IsNot Nothing Then
        ''Dim ArchivoTemp As New System.IO.FileInfo(String.Format("{0}Formatos\OC-{1}.xlsm", UsuarioActual.Empresa.Ruta, pCveOrdenCompra))

        'Dim Libro As msExcel.Workbook = Excel.Workbooks.Open(Ruta & "FormatoAIMMGM33.xlsx", missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)
        'Libro.Activate()

        'Dim Hoja As msExcel.Worksheet = CType(Libro.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
        'Hoja.Visible = Microsoft.Office.Interop.Excel.XlSheetVisibility.xlSheetVisible
        'Hoja.Activate()
        'Try


        '    ' Hoja.Range("G1:G1").Value = FechaExpedicion.ToShortDateString
        '    'Hoja.Range("B3:B3").Value = PagueseA
        '    'Hoja.Range("G3:G3").Value = Importe.ToString("N2")
        '    ''Generales
        '    ''Hoja.Range("G2:G2").Value = Folio
        '    'Hoja.Range("B4:B4").Value = TextoImporte
        '    'Hoja.Range("B6:B6").Value = Observacion
        '    'Hoja.Range("C10:C10").Value = UsuarioRegistro
        '    'Hoja.Range("F6:F6").Value = SubProyecto


        '    Dim CeldaI As Integer = 2
        '    Dim CeldaF As Integer = 2
        '    Dim Top, Left As Single
        '    Dim CBB As String
        '    Left = 0
        '    Dim Imagen As Bitmap
        '    Dim i As Integer = 0

        '    For Each Row As DataRow In dtMovs.Rows
        '        'Cantidad
        '        'If Row("AplicaParaConcepto").ToString.ToEntero > 0 Then
        '        Hoja.Range("A" & CeldaF - 1 & ":A" & CeldaF - 1).RowHeight = 60
        '        Hoja.Range("A" & CeldaF & ":A" & CeldaF).RowHeight = 50
        '        Hoja.Range("A" & CeldaF & ":A" & CeldaF).Cells.VerticalAlignment = XlVAlign.xlVAlignCenter
        '        Hoja.Range("C" & CeldaF & ":C" & CeldaF).Cells.VerticalAlignment = XlVAlign.xlVAlignCenter
        '        Hoja.Range("A" & CeldaF & ":A" & CeldaF).Cells.HorizontalAlignment = XlHAlign.xlHAlignCenter
        '        Hoja.Range("C" & CeldaF & ":C" & CeldaF).Cells.HorizontalAlignment = XlHAlign.xlHAlignCenter
        '        'Hoja.Range("C" & CeldaF & ":C" & CeldaF).VerticalAlignment = Top
        '        Hoja.Range("A" & CeldaF & ":A" & CeldaF).ColumnWidth = 49
        '        Hoja.Range("B" & CeldaF & ":B" & CeldaF).ColumnWidth = 2
        '        Hoja.Range("C" & CeldaF & ":C" & CeldaF).ColumnWidth = 49
        '        Hoja.Range("A" & CeldaF & ":A" & CeldaF).Font.Size = 23
        '        Hoja.Range("C" & CeldaF & ":C" & CeldaF).Font.Size = 23
        '        Hoja.Range("A" & CeldaF & ":A" & CeldaF).Font.Bold = True
        '        Hoja.Range("C" & CeldaF & ":C" & CeldaF).Font.Bold = True
        '        Hoja.Range("A" & CeldaF & ":A" & CeldaF).WrapText = True
        '        Hoja.Range("C" & CeldaF & ":C" & CeldaF).WrapText = True
        '        Hoja.Range("A" & CeldaF & ":A" & CeldaF).Value = Row("Expositor").ToString.ToUpper()
        '        Hoja.Range("C" & CeldaF & ":C" & CeldaF).Value = Row("Expositor").ToString.ToUpper()
        '        'Unidad
        '        'If Row("AplicaParaConcepto").ToString.ToEntero > 0 Then 
        '        Hoja.Range("A" & CeldaF + 1 & ":A" & CeldaF + 1).RowHeight = 35
        '        Hoja.Range("A" & CeldaF + 1 & ":A" & CeldaF + 1).Value = If(Row("CvePS").ToString.ToEntero = 36976, "Estudiante", Row("Empresa").ToString)
        '        Hoja.Range("C" & CeldaF + 1 & ":C" & CeldaF + 1).Value = If(Row("CvePS").ToString.ToEntero = 36976, "Estudiante", Row("Empresa").ToString)
        '        Hoja.Range("A" & CeldaF + 1 & ":A" & CeldaF + 1).Font.Size = 13
        '        Hoja.Range("C" & CeldaF + 1 & ":C" & CeldaF + 1).Font.Size = 13
        '        Hoja.Range("A" & CeldaF + 1 & ":A" & CeldaF + 1).Cells.HorizontalAlignment = XlHAlign.xlHAlignCenter
        '        Hoja.Range("C" & CeldaF + 1 & ":C" & CeldaF + 1).Cells.HorizontalAlignment = XlHAlign.xlHAlignCenter

        '        Hoja.Range("A" & CeldaF + 1 & ":A" & CeldaF + 1).Cells.VerticalAlignment = XlVAlign.xlVAlignCenter
        '        Hoja.Range("C" & CeldaF + 1 & ":C" & CeldaF + 1).Cells.VerticalAlignment = XlVAlign.xlVAlignCenter
        '        Hoja.Range("A" & CeldaF + 1 & ":A" & CeldaF + 1).WrapText = True
        '        Hoja.Range("C" & CeldaF + 1 & ":C" & CeldaF + 1).WrapText = True
        '        'Concepto y Descripción
        '        'Hoja.Range("F" & CeldaF & ":F" & CeldaF).Value = If(Row("Cargo").ToString.ToDouble > 0, Row("Cargo").ToString.ToDouble.FormatoNumero, "")
        '        'P Unitario
        '        'Morro el precio unitario si va a ir?
        '        'Hoja.Range("G" & CeldaF & ":G" & CeldaF).Value = If(Row("Abono").ToString.ToDouble > 0, Row("Abono").ToString.ToDouble.FormatoNumero, "")
        '        Top = CSng(Hoja.Range("A" & (3 + CeldaF).ToString & ":C" & (4 + CeldaF).ToString).Top) - 18


        '        CBB = String.Format(Ruta & "\QR-{0}.jpg", i)


        '        Select Case Opcion

        '            Case 3
        '                Dim tam As Integer = 25

        '                If Row("Expositor").ToString.Length <= 15 Then
        '                    tam = 30
        '                End If

        '                Hoja.Range("A" & CeldaF & ":A" & CeldaF).Font.Size = tam
        '                Hoja.Range("C" & CeldaF & ":C" & CeldaF).Font.Size = tam
        '                Hoja.Range("A" & CeldaF & ":A" & CeldaF).RowHeight = 50 + 100
        '                'Hoja.Range("A" & CeldaF + 1 & ":A" & CeldaF + 1).RowHeight = Hoja.Range("A" & CeldaF + 1 & ":A" & CeldaF + 1).RowHeight - 10
        '                CeldaF = CeldaF + 35 ' 17
        '            Case 4, 5

        '                Hoja.Range("A" & CeldaF & ":A" & CeldaF).Font.Size = 35
        '                Hoja.Range("C" & CeldaF & ":C" & CeldaF).Font.Size = 35
        '                Hoja.Range("A" & CeldaF & ":A" & CeldaF).RowHeight = 50 + 100
        '                'Hoja.Range("A" & CeldaF + 1 & ":A" & CeldaF + 1).RowHeight = Hoja.Range("A" & CeldaF + 1 & ":A" & CeldaF + 1).RowHeight - 10
        '                CeldaF = CeldaF + 35 ' 17
        '            Case 6

        '                Hoja.Range("A" & CeldaF & ":A" & CeldaF).Font.Size = 30
        '                Hoja.Range("C" & CeldaF & ":C" & CeldaF).Font.Size = 30
        '                Hoja.Range("A" & CeldaF & ":A" & CeldaF).RowHeight = 50 + 100
        '                'Hoja.Range("A" & CeldaF + 1 & ":A" & CeldaF + 1).RowHeight = Hoja.Range("A" & CeldaF + 1 & ":A" & CeldaF + 1).RowHeight - 10
        '                CeldaF = CeldaF + 35 ' 17
        '            Case Else

        '                Imagen = GenerateQRCode(String.Format("{0}{4}|{1}|{2}|{3}", Row("Empresa"), Row("Expositor"), Row("Telefono"), Row("Correo"), If(Row("Pagina").ToString.Trim <> "", String.Format("({0})", Row("Pagina")), "")))

        '                Imagen.Save(CBB)

        '                Hoja.Shapes.AddPicture(CBB, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoCTrue, Left, Top, 62, 62)

        '                Hoja.Shapes.AddPicture(CBB, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoCTrue, Left + 278, Top, 62, 62)


        '                CeldaF = CeldaF + 39 ' 17
        '        End Select
        '        i += 1

        '        'If dtMovs.Rows.Count > 1 AndAlso CeldaF - CeldaI < dtMovs.Rows.Count - 1 Then
        '        '    CeldaF = CeldaF + 1
        '        '    Libro.Application.Run("AddRow", (CeldaF - 1).ToString, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing,
        '        '                         missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)
        '        '    Libro.Save()
        '        '    Libro.Application.DisplayAlerts = False
        '        '    Libro.Application.ScreenUpdating = False
        '        'End If

        '    Next
        '    Libro.Save()
        '    Libro.Application.DisplayAlerts = False
        '    Libro.Application.ScreenUpdating = False
        '    Dim AddedRow As Integer = CeldaF - CeldaI


        '    Dim EsVistaPrevia As Boolean = True

        '    xlsxFileOut = String.Format("Format{0}-{1}.xlsx", Opcion, Now.Ticks)

        '    'Exportar PDF
        '    pdfFileOut = String.Format("Format{0}-{1}.pdf", Opcion, Now.Ticks)
        '    Dim outputFileName As Object = Ruta & xlsxFileOut

        '    If IO.File.Exists(Ruta & "FormatoAIMMGM33.xlsx") Then
        '        IO.File.Copy(Ruta & "FormatoAIMMGM33.xlsx", outputFileName.ToString, True)
        '    End If

        '    Dim fileFormat As msExcel.XlFixedFormatType = msExcel.XlFixedFormatType.xlTypePDF
        '    'Libro.ExportAsFixedFormat(fileFormat, outputFileName, missing, missing, missing, missing, missing, missing, missing)



        '    Dim Descargas As New StringBuilder()
        '    Descargas.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/AIMMGM/Gafetes/{0}"">Impresion</a></li>", xlsxFileOut)
        '    'Descargas.AppendFormat("<li><a class=""Texto"" href=""/Contabilidad/Poliza.aspx?IdPoliza={0}"">Póliza</a></li>", pIDPoliza)
        '    ''Descargas.AppendFormat("<li><a class=""Texto"" href=""/Ventas/PopUpImprimir.aspx?CveVenta=" & pCveOrdenCompra & "&Ext=CadenaOriginal"">Cadena Original</a></li>", UsuarioActual.CveEmpresa, Folio)

        '    Alert("<br />La impresión se generó correctamente.<br /><br /><br />Descargas:<ul>" & Descargas.ToString & "</ul>", TipoMensaje.MsgInformacion)

        '    Retorno = True
        'Catch ex As Exception
        '    ' LblMsg.Text = ex.Message
        '    Alert("<br />La impresión no se generó correctamente.<br /><br /><br />" & ex.Message, TipoMensaje.MsgInformacion)

        'End Try

        'System.Runtime.InteropServices.Marshal.ReleaseComObject(Hoja)
        'Hoja = Nothing
        'Dim saveChanges As Object = msExcel.XlSaveAction.xlDoNotSaveChanges
        'CType(Libro, msExcel._Workbook).Close(saveChanges, missing, missing)
        'System.Runtime.InteropServices.Marshal.ReleaseComObject(Libro)
        'Libro = Nothing
        'Excel.Quit()
        'System.Runtime.InteropServices.Marshal.ReleaseComObject(Excel)
        'Excel = Nothing
        'GC.Collect()
        'GC.WaitForPendingFinalizers()

        'ArchivoTemp.Delete()

        Return Retorno
    End Function

    Private Function GenerateQRCode(Cadena As String) As Bitmap
        'Dim Encoder As New Gma.QrCodeNet.Encoding.QrEncoder(Gma.QrCodeNet.Encoding.ErrorCorrectionLevel.L)
        'Dim Code As Gma.QrCodeNet.Encoding.QrCode = Encoder.Encode(Cadena)
        'Dim TempBMP As New Bitmap(Code.Matrix.Width, Code.Matrix.Height)
        'For X As Integer = 0 To Code.Matrix.Width - 1
        '    For Y As Integer = 0 To Code.Matrix.Height - 1
        '        If Code.Matrix.InternalArray(X, Y) Then TempBMP.SetPixel(X, Y, Color.Black) Else TempBMP.SetPixel(X, Y, Color.White)
        '    Next
        'Next
        'Return TempBMP
        Return Nothing
    End Function


    Protected Sub GVMisCompras_RowEditing(ByVal sender As Object, ByVal e As GridViewEditEventArgs) Handles GVMisCompras.RowEditing

        GVMisCompras.EditIndex = e.NewEditIndex

        GVMisCompras.DataSource = DtCompras
        GVMisCompras.DataBind()
    End Sub

    Protected Sub GVMisCompras_RowUpdating(ByVal sender As Object, ByVal e As GridViewUpdateEventArgs) Handles GVMisCompras.RowUpdating

        Dim tCveVentaDetalle As Integer = e.Keys("CveVentaDetalle").ToString.ToEntero
        Dim Obs As String = GVMisCompras.Rows(e.RowIndex).FCTextBox("TxtObs").Text
        Dim AIM As New ClsAIMMGM

        If AIM.UpdateVentaDetalleReferencia(Obs, tCveVentaDetalle) Then
            GVMisCompras.EditIndex = -1
            CargaCompras(CveCliente)
        End If
        AIM.Dispose()

        GVMisCompras.DataSource = DtCompras
        GVMisCompras.DataBind()

    End Sub

    Protected Sub GVMisCompras_RowCancelingEdit(ByVal sender As Object, ByVal e As GridViewCancelEditEventArgs) Handles GVMisCompras.RowCancelingEdit

        GVMisCompras.EditIndex = -1

        GVMisCompras.DataSource = DtCompras
        GVMisCompras.DataBind()

    End Sub

    Protected Sub GVMisCompras_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVMisCompras.RowDataBound
        If e.Row.RowType = DataControlRowType.Footer Then
            Dim Imp As Double = CType(GVMisCompras.DataSource, Data.DataTable).SUM("Total")
            e.Row.FCLabel("LblTotal").Text = Imp.FormatoNumero()
        ElseIf e.Row.RowType = DataControlRowType.DataRow Then
            'If e.Row.DBCampo("Clasificacion") <> "Stand" Then e.Row.FCLiteral("LtlObs").Text = ""
        End If
    End Sub

    Protected Sub GvPagos_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvPagos.RowCommand
        If e.CommandName = "Eliminar" Then

            Dim CvePago As Integer = e.CommandArgument.ToString.ToEntero
            Dim AIM As New ClsAIMMGM()

            'se actualiza
            If AIM.RemovePago(CvePago) Then
                Alert("El Pago se ha eliminado", TipoMensaje.MsgInformacion)
                CargaPagos(CveCliente)
            End If

            AIM.Dispose()

        End If
    End Sub

    Protected Sub GvPagos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPagos.RowDataBound
        If e.Row.RowType = DataControlRowType.Footer Then
            Dim Imp As Double = CType(GvPagos.DataSource, Data.DataTable).SUM("Importe")
            e.Row.FCLabel("LblTotal").Text = Imp.FormatoNumero()
        ElseIf e.Row.RowType = DataControlRowType.DataRow Then

            If e.Row.DBCampo("Archivo") <> "" Then
                e.Row.FCHyperLink("ImgArchivo").NavigateUrl = String.Format("/Empresas/{0}/Documentos/{1}", UsuarioActual.CveEmpresa, e.Row.DBCampo("Archivo"))
            End If

            If e.Row.DBCampo("Pagado") = "True" AndAlso e.Row.DBCampo("Validado") = "False" Then
                e.Row.FCLiteral("LtlEstatus").Text = "Sin Validar"
            ElseIf e.Row.DBCampo("Validado") = "True" AndAlso e.Row.DBCampo("Facturado") = "False" Then
                e.Row.FCLiteral("LtlEstatus").Text = "Validado"
            ElseIf e.Row.DBCampo("Validado") = "True" AndAlso e.Row.DBCampo("Facturado") = "True" Then
                e.Row.FCLiteral("LtlEstatus").Text = "Facturado"
            Else
                e.Row.FCLiteral("LtlEstatus").Text = "Registrado"
            End If

            If e.Row.DBCampo("Validado") = "False" Then
                e.Row.FCImageButton("ImgEliminar").Visible = True
            End If

            If e.Row.DBCampo("xml") <> "" Then
                e.Row.FCHyperLink("ImgDownXML").NavigateUrl = String.Format("/Empresas/{0}/Compras/{1}", UsuarioActual.CveEmpresa, e.Row.DBCampo("XML"))
                e.Row.FCHyperLink("ImgDownXML").Visible = True
            End If

            If e.Row.DBCampo("pdf") <> "" Then
                e.Row.FCHyperLink("ImgDownPDF").NavigateUrl = String.Format("/Empresas/{0}/Compras/{1}", UsuarioActual.CveEmpresa, e.Row.DBCampo("PDF"))
                e.Row.FCHyperLink("ImgDownPDF").Visible = True
            End If

        End If
    End Sub

    Protected Sub BtnComprobante_Click(sender As Object, e As EventArgs) Handles BtnComprabante.Click


        'If Not FUComprobante.HasFile Then
        '    Alert("Ingrese por favor el comprobante")
        '    Exit Sub
        'End If
        If TxtImporte.Text.ToDouble <= 0 Then
            Alert("Ingrese un importe", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        If TxtImporte.Text.ToDouble > LblSaldo.Text.ToDouble Then
            Alert("Ingrese un importe menor al saldo", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        Dim AIM As New ClsAIMMGM
        If Not IO.Directory.Exists(String.Format("{0}\Empresas\{1}\Documentos", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa)) Then
            IO.Directory.CreateDirectory(String.Format("{0}\Empresas\{1}\Documentos", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa))
        End If

        Dim Cve As Integer = AIM.AddPago(CveCliente, CveVentaDetalle, TxtImporte.Text.ToDouble, 1, TxtFecha.Text.ToDate, IO.Path.GetExtension(FUComprobante.FileName), TxtObservaciones.Text.Trim, 9999, TxtAprobacion.Text.ToEntero)

        If Cve > 0 Then
            FUComprobante.SaveAs(String.Format("{0}/Empresas/{1}/Documentos/{2}{3}", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, Cve, IO.Path.GetExtension(FUComprobante.FileName)))
            Alert("Pago ingresado correctamente", TipoMensaje.MsgInformacion)
        End If
        AIM.Dispose()

        CargaPagos(CveCliente)
    End Sub

    Protected Sub BtnSubirLogo_Click(sender As Object, e As EventArgs) Handles BtnSubirLogo.Click
        If Not FULogo.HasFile Then
            Alert("Seleccione el logo de su empresa", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If
        'obtengo la clave de la publicidad
        If Not IO.Directory.Exists(String.Format("{0}\Empresas\{1}\Documentos", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa)) Then
            IO.Directory.CreateDirectory(String.Format("{0}\Empresas\{1}\Documentos", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa))
        End If

        Dim Logo As String
        Dim CvePublicidad As Integer
        Dim AIM As New ClsAIMMGM
        If AIM.GetPublicidad(CveCliente) Then
            If AIM.DtResultados.Rows.Count > 0 Then
                CvePublicidad = AIM.DtResultados.Rows(0)("CvePublicidad").ToString.ToEntero
                Logo = String.Format("Logo{0}{1}", CvePublicidad, IO.Path.GetExtension(FULogo.FileName))
                FULogo.SaveAs(String.Format("{0}/Empresas/{1}/Documentos/{2}", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, Logo))

                AIM.UpdateLogo(CvePublicidad, Logo)
                ImgLogo.ImageUrl = String.Format("/Empresas/{0}/Documentos/{1}", UsuarioActual.CveEmpresa, Logo)
            End If
        End If

        AIM.Dispose()
    End Sub

    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
        Dim ObjClientes As New ClsClientes()
        If CveCliente = -1 Then
            'If ObjClientes.AddCliente(TxtNombre.Text.Trim, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtLocalidad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim,
            '                          TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtEmail.Text.Trim, False, DdlSucursal.SelectedValue.ToEntero, TxtRetIVA.Text.ToDouble,
            '                          TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtNombreCorto.Text.Trim, TxtVendedor.Text.Trim, TxtPlazoCobranza.Text.Trim.ToEntero,
            '                          TxtSucursalCliente.Text.Trim, TxtRecepcionPago.Text.Trim, TxtTipoPago.Text.Trim, TxtCuentaContable.Text.Trim, DdlCtaContableClientes.SelectedValue.ToEntero,
            '                          DdlCtaContableAnticipos.SelectedValue.ToString.ToEntero, DdlCtaContableRetIVA.SelectedValue.ToString.ToEntero, DdlCtaContableRetISR.SelectedValue.ToString.ToEntero,
            '                          TxtConvenioCIE.Text.Trim, TxtFormaFacturacion.Text.Trim, TxtCodigo.Text.Trim, TxtLimiteCredito.Text.ToDouble, TxtNumCtaPago.Text.Trim,
            '                          DdlMetodoPago.SelectedValue.ToEntero, ChkAplicaFEMSA.Checked, TxtFEMSA_NumSociedad.Text.Trim,
            '                          TxtFEMSA_NumProveedor.Text.Trim, TxtFEMA_Mail.Text.Trim, ChkAplicaDetallista.Checked, TxtDet_GLNComprador.Text.Trim, TxtDet_Departamento.Text.Trim,
            '                          TxtDet_GLNVendedor.Text.Trim, TxtDet_NumProveedor.Text.Trim) Then
            '    Alert("El Cliente se guardó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/CatClientes.aspx""")
            'End If
        Else
            If ObjClientes.UpdateCliente(TxtNombre.Text.Trim, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtLocalidad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim,
                                         TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtEmail.Text.Trim, "-1", TxtPagina.Text.Trim, TxtGiro.Text.Trim, -1, False,
                               2069, 0, 0, False, True, "", -1, 0, "", "", "", "", -1, -1, -1, -1, TxtProfesion.Text.Trim, "", "", 0, TxtNumCtaPago.Text.Trim, DdlMetodoPago.SelectedValue.ToEntero, False, "", "", "", False, "", "", "", "", "", False, "", 0, CveCliente, UsuarioActual.CveEmpresa, "", False) Then
                'CargaDatos()

                Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
            End If
        End If
        ObjClientes.Dispose()
    End Sub

    Protected Sub LbPortal_Click(sender As Object, e As EventArgs) Handles LbPortal.Click
        ActivaPortal(CveCliente, TxtEmail.Text.Trim)
    End Sub


    Private Sub ActivaPortal(CveCliente As Integer, Correo As String)
        'guarda el nuevo usuario

        Dim Usr As New ClsSisUsuarios
        Dim CveUsr As Integer

        Dim Activa As Boolean = True

        If Usr.GetUsuariosPortal(-1, CveCliente, -1) Then
            If Usr.DtResultados.Rows.Count = 0 Then

                'lo ingreso 
                CveUsr = Usr.AddUsuarioPortal("Admin", "-acceso-", "Administrador", "", CveCliente, -1, True, True, True, True, True, True, True, True, True, True, 1, 0)
                'lo desactivo para que me pida la nueva contrase;a en el portal 
                If CveUsr > 0 Then
                    Usr.UpdateUsuarioPortal("Admin", "Administrador", "", True, True, True, True, True, True, True, True, True, True, False, ContraseñaPredeterminada, CveCliente, 0, CveUsr)
                End If
                Activa = True
            Else
                CveUsr = Usr.DtResultados.Rows(0)("CveUsuarioPortal").ToString.ToEntero
                If Usr.DtResultados.Rows(0)("Estatus").ToString = "0" Then
                    Activa = True 'sino esta activada la cuenta, sigue mandando la liga para activar
                Else
                    Activa = False
                End If

            End If
        End If


        Usr.Dispose()
        If CveUsr > 0 Then


            Dim Liga As String = "http://aimmgm.adsistemas.mx/AIMMGM/Portal.aspx"


            Dim LigaActivar As String = Liga & "?p=" & Extensiones.Encripta("CveU=" & CveUsr & "&Clave=" & CveCliente & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks)

            Dim strSQL As New StringBuilder
            strSQL.Append(" <html> ")
            strSQL.Append(" <head></head> ")
            strSQL.Append(" <body>  ")
            strSQL.Append(" <img src='http://expominson2014.com/CorreoEncabezado.jpg'><br /> ")
            strSQL.Append("  ")
            strSQL.Append(" <p class=MsoNormal style='margin-top:15.0pt;margin-right:0cm;margin-bottom: ")
            strSQL.Append(" 7.5pt;margin-left:0cm;line-height:normal;mso-outline-level:3'><b><span ")
            strSQL.Append(" style='font-size:14.5pt;font-family:""Century Gothic"",""sans-serif"";mso-fareast-font-family: ")
            strSQL.Append(" ""Times New Roman"";mso-bidi-font-family:""Times New Roman"";color:#2A4A7E; ")
            strSQL.Append(" mso-fareast-language:ES-MX'>SONORA 2014: Minería Moderna, Ejemplo de Industria ")
            strSQL.Append(" Responsable</span></b><b><span style='font-size:14.5pt;font-family:""Century Gothic"",""sans-serif""; ")
            strSQL.Append(" mso-fareast-font-family:""Times New Roman"";mso-bidi-font-family:""Times New Roman""; ")
            strSQL.Append(" color:#89BCDC;mso-fareast-language:ES-MX'><o:p></o:p></span></b></p> ")
            strSQL.Append(" <br> ")
            strSQL.Append(" <br> ")
            strSQL.Append(" <p class=MsoNormal style='margin-top:9.0pt;margin-right:0cm;margin-bottom:9.0pt; ")
            strSQL.Append(" margin-left:0cm;text-align:justify;line-height:normal'><span style='font-size: ")
            strSQL.Append(" 12.0pt;font-family:""Century Gothic"",""sans-serif"";mso-fareast-font-family:""Times New Roman""; ")
            strSQL.Append(" mso-bidi-font-family:""Times New Roman"";color:#2C2C25;mso-fareast-language:ES-MX'>Estimado ")
            strSQL.Append(" Socio y Amigo, Gracias por su asistencia, le brindamos la dirección al portal. ")
            strSQL.Append("  ")
            strSQL.Append("  ")
            strSQL.Append(" <br><br> ")
            If Activa Then strSQL.AppendFormat("<br>Haga click para activar su cuenta <a href='{0}' target='_blank'>Activar</a>", LigaActivar)
            strSQL.Append(" <br><br> ")
            strSQL.AppendFormat(" Dirección de acceso al Portal: <a href='{0}' target='_blank'>Portal AIMMGM</a> ", Liga)
            strSQL.Append(" <br><br> ")
            strSQL.Append(" Datos de acceso: ")
            strSQL.Append(" <br><br> ")
            strSQL.AppendFormat(" Clave Cliente: {0}", CveCliente)
            strSQL.Append(" <br><br> ")
            strSQL.Append(" Dentro del Portal usted tendrá acceso a visualizar el detalle de sus compras, subir la comprobación de sus pagos. ")
            strSQL.Append(" <br><br><table id=""TrPagoss"" width=""994px"" style='font-size:14.5pt;font-family:""Century Gothic"",""sans-serif"";mso-fareast-font-family: ")
            strSQL.Append(" ""Times New Roman"";mso-bidi-font-family:""Times New Roman"";color:#2A4A7E; ")
            strSQL.Append(" mso-fareast-language:ES-MX'> ")
            strSQL.Append("                              <tr> ")
            strSQL.Append("                                 <td colspan=""2"" style=""background-color:#5D7B9D; text-align: center; height: 20px;""> ")
            strSQL.Append("                                     Pagos-Transferencias Nacionales ")
            strSQL.Append("                                     <b></b> ")
            strSQL.Append("                                 </td> ")
            strSQL.Append("                             </tr> ")
            strSQL.Append("                             <tr> ")
            strSQL.Append("                                 <td  style=""width:275px;"">Banco:</td><td><b>Inbursa</b></td> ")
            strSQL.Append("                             </tr> ")
            strSQL.Append("                             <tr> ")
            strSQL.Append("                                 <td>Sucursal:</td><td><b>Nápoles 021</b></td> ")
            strSQL.Append("                             </tr> ")
            strSQL.Append("                             <tr> ")
            strSQL.Append("                                 <td>Cuenta:</td><td><b>50019145334</b></td> ")
            strSQL.Append("                             </tr> ")
            strSQL.Append("                             <tr> ")
            strSQL.Append("                                 <td>CLABE:</td><td><b>036180500191453345</b></td> ")
            strSQL.Append("                             </tr> ")
            strSQL.Append("                              <tr> ")
            strSQL.Append("                                 <td>Nombre del Beneficiario:</td><td><b>Asociación de Ingenieros de Minas, Metalurgistas y Geólogos de México A.C.</b></td> ")
            strSQL.Append("                             </tr> ")
            strSQL.Append("  ")
            strSQL.Append("                         </table> ")
            strSQL.Append("              <br/> ")
            strSQL.Append("                          <table id=""TrPagoss2"" width=""994px""style='font-size:14.5pt;font-family:""Century Gothic"",""sans-serif"";mso-fareast-font-family: ")
            strSQL.Append(" ""Times New Roman"";mso-bidi-font-family:""Times New Roman"";color:#2A4A7E; ")
            strSQL.Append(" mso-fareast-language:ES-MX'> ")
            strSQL.Append("                              <tr> ")
            strSQL.Append("                                 <td colspan=""2"" style=""background-color:#5D7B9D; text-align: center; height: 20px;""> ")
            strSQL.Append("                                    Pagos-Transferencias Internacionales ")
            strSQL.Append("                                     <b></b> ")
            strSQL.Append("                                 </td> ")
            strSQL.Append("                             </tr> ")
            strSQL.Append("                              <tr> ")
            strSQL.Append("                                 <td style=""width:275px;"">Moneda:</td><td><b>Dólares Americanos</b></td> ")
            strSQL.Append("                             </tr> ")
            strSQL.Append("                             <tr> ")
            strSQL.Append("                                 <td>Banco:</td><td><b>JPMorgan Chase Bank New York NY USA</b></td> ")
            strSQL.Append("                             </tr> ")
            strSQL.Append("                             <tr> ")
            strSQL.Append("                                 <td>Código Swift:</td><td><b>CHASUS33</b></td> ")
            strSQL.Append("                             </tr> ")
            strSQL.Append("                             <tr> ")
            strSQL.Append("                                 <td>Ruta Banco Receptor (ABA):</td><td><b>021 000 021</b></td> ")
            strSQL.Append("                             </tr> ")
            strSQL.Append("                               <tr> ")
            strSQL.Append("                                 <td>Nombre del Beneficiario:</td><td><b>Asociación de Ingenieros de Minas, Metalurgistas y Geólogos de México A.C. </b></td> ")
            strSQL.Append("                             </tr> ")
            strSQL.Append("                               <tr> ")
            strSQL.Append("                                 <td>Cuenta del Beneficiario:</td><td><b>50019145334</b></td> ")
            strSQL.Append("                             </tr> ")
            strSQL.Append("                             <tr> ")
            strSQL.Append("                                 <td>CLABE:</td><td><b>036180500191453345</b></td> ")
            strSQL.Append("                             </tr> ")
            strSQL.Append("                              <tr> ")
            strSQL.Append("                                 <td>Banco Beneficiario:</td><td><b>Banco Inbursa, S.A. México, D.F.</b></td> ")
            strSQL.Append("                             </tr> ")
            strSQL.Append("                              <tr> ")
            strSQL.Append("                                 <td>Nuestro Código Swift:</td><td><b>INBUMXMM</b></td> ")
            strSQL.Append("                             </tr> ")
            strSQL.Append("  ")
            strSQL.Append("                         </table> ")

            strSQL.Append(" </span></p> ")
            strSQL.Append(" </body> ")



            'Dim ObjMail As New ClsSisMail()
            Dim Emp As New Empresa
            Dim ObjEmp As New ClsSisEmpresas

            If ObjEmp.GetEmpresas(43, "-1", "-1", "-1", "-1") Then
                Emp = ObjEmp.Empresa
            End If
            ObjEmp.Dispose()

            'If ObjMail.Mandacorreo(Emp, Correo, If(Activa, "Activación de cuenta ExpominSon 2014", "Registro de Compra ExpominSon 2014"), "", "", {""}, strSQL.ToString) Then

            'End If
        End If


    End Sub

    Protected Sub ChkPagado_CheckedChanged(sender As Object, e As EventArgs)
        Dim Chk As WebControls.CheckBox = DirectCast(sender, WebControls.CheckBox)
        Dim gvr As GridViewRow = DirectCast(Chk.BindingContainer, GridViewRow)
        Dim Aim As New ClsAIMMGM

        Aim.AddUpdVentaDetallePagado(gvr.DataKey("CveVentaDetalle").ToString.ToEntero, Chk.Checked)
        Aim.Dispose()

    End Sub

    Protected Sub ChkImpreso_CheckedChanged(sender As Object, e As EventArgs)
        Dim Chk As WebControls.CheckBox = DirectCast(sender, WebControls.CheckBox)
        Dim gvr As GridViewRow = DirectCast(Chk.BindingContainer, GridViewRow)
        Dim Aim As New ClsAIMMGM

        Aim.AddUpdVentaDetalleImpreso(gvr.DataKey("CveVentaDetalle").ToString.ToEntero, Chk.Checked)
        Aim.Dispose()

    End Sub

    Sub DDlContratadoSelectedIndex_Changed(sender As Object, e As EventArgs)
        Dim DDl As WebControls.DropDownList = DirectCast(sender, WebControls.DropDownList)
        Dim gvr As GridViewRow = DirectCast(DDl.BindingContainer, GridViewRow)
        Dim Aim As New ClsAIMMGM

        Aim.AddUpdVentaDetalleComprobado(gvr.DataKey("CveVentaDetalle").ToString.ToEntero, DDl.SelectedValue.ToEntero)
        Aim.Dispose()


    End Sub

End Class