diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 56add2947..3a33caa11 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -9518,15 +9518,15 @@ Partial Class Compras_Compras
                 Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
 
                 Select Case ConceptoContable
-                    Case 5
-                        IdCtaContable = 1244
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 5, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
-                            ErrorPrepoliza = True
-                        End If
-                        IdCtaContable = 1243
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, 205, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
-                            ErrorPrepoliza = True
-                        End If
+                    'Case 5
+                    '    IdCtaContable = 1244
+                    '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 5, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
+                    '        ErrorPrepoliza = True
+                    '    End If
+                    '    IdCtaContable = 1243
+                    '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, 205, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
+                    '        ErrorPrepoliza = True
+                    '    End If
                     Case 6
                         Dim CveProveedorConcepto As Integer = 0, CveAcreedor As Integer = 0, CveIE As Integer = 0, CveColectiva As Integer = 0, CveCreditoDetalle As Integer = 0
                         Dim ConceptoPersonal As String = "", Concepto As String = ""
@@ -9815,11 +9815,11 @@ Partial Class Compras_Compras
         BtnGuardar.Enabled = True
         UpFacturar.Update()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "CargaXML"
-
+
     Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String
         Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
         If o Is Nothing Then
@@ -10024,10 +10024,10 @@ Partial Class Compras_Compras
         'End Try
 
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "GV'S"
     Protected Sub GVAnticipos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVAnticipos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -10292,9 +10292,9 @@ Partial Class Compras_Compras
 
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "METODOS"
     Private Sub GeneraGlobalDT(data As Object)
         Dim ObjPS As New ClsProductosServicios
@@ -10727,66 +10727,66 @@ Partial Class Compras_Compras
 
         CargarUMAlias()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  ALGO DE AF QUE NUNCA SE USABA  "
-    'Protected Sub GVAF_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowCreated
-    '    If e.Row.RowType = DataControlRowType.DataRow AndAlso (e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal) Then
-    '        e.Row.FCDropDownList("DdlTipoActivoFijo").DataSource = TmpDTTiposAF
-    '        e.Row.FCDropDownList("DdlTipoActivoFijo").DataBind()
-
-    '        e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataSource = Nothing
-    '        e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataBind()
-    '        e.Row.FCDropDownList("DdlSubTipoActivoFijo").Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-
-    '        e.Row.FCDropDownList("DdlAF").DataSource = Nothing
-    '        e.Row.FCDropDownList("DdlAF").DataBind()
-    '        e.Row.FCDropDownList("DdlAF").Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-    '    End If
-    'End Sub
-
-    'Protected Sub GVAF_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowDataBound
-    '    If e.Row.RowType = DataControlRowType.DataRow Then
-    '        If e.Row.RowIndex = 0 Then
-    '            e.Row.Cells(0).Width = Unit.Pixel(20)
-    '            e.Row.Cells(1).Width = Unit.Pixel(140)
-    '            e.Row.Cells(2).Width = Unit.Pixel(250)
-    '        End If
-
-    '        e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
-    '        e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
-    '        e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
-    '    End If
-    'End Sub
-
-    'Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs)
-    '    Dim Array() As String = Nothing
-    '    Dim DdlGVSubTipoAF As DropDownList = Nothing
-
-    '    Array = DirectCast(sender, DropDownList).ClientID.Split("_"c)
-    '    If Array.Length > 0 Then
-    '        DdlGVSubTipoAF = DirectCast(GVAF.Rows(Array(3).ToEntero).Controls(4).Controls(1), DropDownList)
-    '    End If
-
-    '    If DdlGVSubTipoAF IsNot Nothing Then CargaSubTipoAF(DirectCast(sender, DropDownList), DdlGVSubTipoAF)
-    'End Sub
-
-    'Protected Sub GvOCC2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOCC2.RowDataBound
-    '    If e.Row.RowType = DataControlRowType.DataRow Then
-
-    '        e.Row.Cells(0).Text = (e.Row.RowIndex + 1).ToString
-
-    '    End If
-    'End Sub
-
-    'Protected Sub chkFuncionariosEmpleados_CheckedChanged(sender As Object, e As EventArgs) Handles chkFuncionariosEmpleados.CheckedChanged
-    '    PnlPagoContado.Visible = Not chkFuncionariosEmpleados.Checked
-    '    PnlFuncionarioEmpleado.Visible = chkFuncionariosEmpleados.Checked
-    '    UPCondicionesPago.Update()
-    'End Sub
+    'Protected Sub GVAF_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowCreated
+    '    If e.Row.RowType = DataControlRowType.DataRow AndAlso (e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal) Then
+    '        e.Row.FCDropDownList("DdlTipoActivoFijo").DataSource = TmpDTTiposAF
+    '        e.Row.FCDropDownList("DdlTipoActivoFijo").DataBind()
+
+    '        e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataSource = Nothing
+    '        e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataBind()
+    '        e.Row.FCDropDownList("DdlSubTipoActivoFijo").Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+
+    '        e.Row.FCDropDownList("DdlAF").DataSource = Nothing
+    '        e.Row.FCDropDownList("DdlAF").DataBind()
+    '        e.Row.FCDropDownList("DdlAF").Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+    '    End If
+    'End Sub
+
+    'Protected Sub GVAF_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowDataBound
+    '    If e.Row.RowType = DataControlRowType.DataRow Then
+    '        If e.Row.RowIndex = 0 Then
+    '            e.Row.Cells(0).Width = Unit.Pixel(20)
+    '            e.Row.Cells(1).Width = Unit.Pixel(140)
+    '            e.Row.Cells(2).Width = Unit.Pixel(250)
+    '        End If
+
+    '        e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
+    '        e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
+    '        e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
+    '    End If
+    'End Sub
+
+    'Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs)
+    '    Dim Array() As String = Nothing
+    '    Dim DdlGVSubTipoAF As DropDownList = Nothing
+
+    '    Array = DirectCast(sender, DropDownList).ClientID.Split("_"c)
+    '    If Array.Length > 0 Then
+    '        DdlGVSubTipoAF = DirectCast(GVAF.Rows(Array(3).ToEntero).Controls(4).Controls(1), DropDownList)
+    '    End If
+
+    '    If DdlGVSubTipoAF IsNot Nothing Then CargaSubTipoAF(DirectCast(sender, DropDownList), DdlGVSubTipoAF)
+    'End Sub
+
+    'Protected Sub GvOCC2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOCC2.RowDataBound
+    '    If e.Row.RowType = DataControlRowType.DataRow Then
+
+    '        e.Row.Cells(0).Text = (e.Row.RowIndex + 1).ToString
+
+    '    End If
+    'End Sub
+
+    'Protected Sub chkFuncionariosEmpleados_CheckedChanged(sender As Object, e As EventArgs) Handles chkFuncionariosEmpleados.CheckedChanged
+    '    PnlPagoContado.Visible = Not chkFuncionariosEmpleados.Checked
+    '    PnlFuncionarioEmpleado.Visible = chkFuncionariosEmpleados.Checked
+    '    UPCondicionesPago.Update()
+    'End Sub
     Protected Sub BtnOCAceptar_Click(sender As Object, e As EventArgs) Handles BtnOCAceptar.Click
         'carga la OC
         Dim CveOC As Integer = -1
@@ -10823,45 +10823,45 @@ Partial Class Compras_Compras
 
         'UpnAF.Update()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "Estimaciones"
-
-    'Private Sub CargaDatosEstimaciones(pCveProveedor As Integer)
-    '    Dim Con As New ClsContratos
-    '    If Con.GetEstimaciones(pCveProveedor, -1, -1, -1, -1, 0, UsuarioActual.CveEmpresa) Then
-    '        GVEst.DataSource = Con.DtResultados
-    '        GVEst.DataBind()
-
-    '    End If
-    '    UPEstimaciones.Update()
-    '    Con.Dispose()
-    'End Sub
-
-    'Protected Sub GVEst_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVEst.RowDataBound
-    '    If e.Row.RowType = DataControlRowType.DataRow Then
-    '        If e.Row.RowIndex = 0 Then
-    '            e.Row.Cells(0).Width = Unit.Pixel(30)
-    '            e.Row.Cells(1).Width = Unit.Pixel(30) 'Seccion
-    '            e.Row.Cells(2).Width = Unit.Pixel(300) 'SubSeccion
-    '            e.Row.Cells(3).Width = Unit.Pixel(100) 'Cantidad
-    '        End If
-
-    '        If e.Row.DBCampo("RazonSocial") = "" Then
-    '            e.Row.CssClass = "Totales" : e.Row.Height = 25
-    '        ElseIf e.Row.DBCampo("Contrato") = "" Then
-    '            e.Row.CssClass = "SubTotales2" : e.Row.Height = 25
-    '        ElseIf e.Row.DBCampo("Seccion") = "" Then
-    '            e.Row.CssClass = "SubTotales" : e.Row.Height = 25
-    '        ElseIf e.Row.DBCampo("Clasificacion") = "" Then
-    '            e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
-    '        End If
-
-    '    End If
-    'End Sub
+
+    'Private Sub CargaDatosEstimaciones(pCveProveedor As Integer)
+    '    Dim Con As New ClsContratos
+    '    If Con.GetEstimaciones(pCveProveedor, -1, -1, -1, -1, 0, UsuarioActual.CveEmpresa) Then
+    '        GVEst.DataSource = Con.DtResultados
+    '        GVEst.DataBind()
+
+    '    End If
+    '    UPEstimaciones.Update()
+    '    Con.Dispose()
+    'End Sub
+
+    'Protected Sub GVEst_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVEst.RowDataBound
+    '    If e.Row.RowType = DataControlRowType.DataRow Then
+    '        If e.Row.RowIndex = 0 Then
+    '            e.Row.Cells(0).Width = Unit.Pixel(30)
+    '            e.Row.Cells(1).Width = Unit.Pixel(30) 'Seccion
+    '            e.Row.Cells(2).Width = Unit.Pixel(300) 'SubSeccion
+    '            e.Row.Cells(3).Width = Unit.Pixel(100) 'Cantidad
+    '        End If
+
+    '        If e.Row.DBCampo("RazonSocial") = "" Then
+    '            e.Row.CssClass = "Totales" : e.Row.Height = 25
+    '        ElseIf e.Row.DBCampo("Contrato") = "" Then
+    '            e.Row.CssClass = "SubTotales2" : e.Row.Height = 25
+    '        ElseIf e.Row.DBCampo("Seccion") = "" Then
+    '            e.Row.CssClass = "SubTotales" : e.Row.Height = 25
+    '        ElseIf e.Row.DBCampo("Clasificacion") = "" Then
+    '            e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
+    '        End If
+
+    '    End If
+    'End Sub
 #End Region
-
+
 #Region "  ALMACEN  "
     Private Sub CargaGvInv()
 
@@ -11178,11 +11178,11 @@ Partial Class Compras_Compras
 
         UpAlmacenEvidencia.Update()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "PESTAÑA INFORMACION GENERAL DE BANCO IE"
-
+
     Private Sub CargaTipoTransaccion()
         DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs'")
         DdlTipoTransaccion.DataBind()
@@ -11203,52 +11203,52 @@ Partial Class Compras_Compras
         DdlCuentaCaja.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveTipoCuenta = 1"))
         DdlCuentaCaja.DataBind()
         DdlCuentaCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "FINANCIAMIENTO - AC"
-    'Private Sub CreaDtAC()
-    '    DtAC = New DataTable
-    '    DtAC.Columns.Add("IdCuenta", GetType(String))
-    '    DtAC.Columns.Add("Cuenta", GetType(String))
-    '    DtAC.Columns.Add("Saldo", GetType(String))
-    'End Sub
-    'Protected Sub CargaGvAc(Optional datos As DataTable = Nothing)
-    '    If UsuarioActual.Empresa.UsaAC Then
-    '        GvAC.DataBind()
-    '        GvAC.DataSource = If(datos IsNot Nothing, datos, DtAC)
-    '        GvAC.DataBind()
-
-    '        Dim Total As Double = GvAC.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("PorDevengar").ToDouble)
-
-    '        Lbtotalsaldo.Text = Total.ToString.FormatoNumero
-    '        UPPM.Update()
-    '        PnlAC.Visible = True
-    '    End If
-    'End Sub
-
-    'Protected Sub CargaAC()
-    '    Dim Cont As New ClsContPAQi(UsuarioActual.Empresa)
-
-    '    If Cont.GetACSaldos(UsuarioActual.Empresa.EjercicioActual, 2) Then
-    '        DtAC = Cont.DtResultados.Copy.FiltraParametros("PorDevengar > 0")
-    '    Else
-    '        Alert("Ocurrio un error al cargar los Presupuestos. Por favor vuelva a cargar la pagina")
-    '    End If
-
-    '    Cont.Dispose()
-    'End Sub
-
-    'Protected Sub GvAC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvAC.RowDataBound
-    '    If e.Row.RowType = DataControlRowType.DataRow Then
-
-    '        e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", String.Format("ValidaImporte(this,{0});", e.Row.DBCampo("PorDevengar")))
-    '    End If
-    'End Sub
-
+    'Private Sub CreaDtAC()
+    '    DtAC = New DataTable
+    '    DtAC.Columns.Add("IdCuenta", GetType(String))
+    '    DtAC.Columns.Add("Cuenta", GetType(String))
+    '    DtAC.Columns.Add("Saldo", GetType(String))
+    'End Sub
+    'Protected Sub CargaGvAc(Optional datos As DataTable = Nothing)
+    '    If UsuarioActual.Empresa.UsaAC Then
+    '        GvAC.DataBind()
+    '        GvAC.DataSource = If(datos IsNot Nothing, datos, DtAC)
+    '        GvAC.DataBind()
+
+    '        Dim Total As Double = GvAC.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("PorDevengar").ToDouble)
+
+    '        Lbtotalsaldo.Text = Total.ToString.FormatoNumero
+    '        UPPM.Update()
+    '        PnlAC.Visible = True
+    '    End If
+    'End Sub
+
+    'Protected Sub CargaAC()
+    '    Dim Cont As New ClsContPAQi(UsuarioActual.Empresa)
+
+    '    If Cont.GetACSaldos(UsuarioActual.Empresa.EjercicioActual, 2) Then
+    '        DtAC = Cont.DtResultados.Copy.FiltraParametros("PorDevengar > 0")
+    '    Else
+    '        Alert("Ocurrio un error al cargar los Presupuestos. Por favor vuelva a cargar la pagina")
+    '    End If
+
+    '    Cont.Dispose()
+    'End Sub
+
+    'Protected Sub GvAC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvAC.RowDataBound
+    '    If e.Row.RowType = DataControlRowType.DataRow Then
+
+    '        e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", String.Format("ValidaImporte(this,{0});", e.Row.DBCampo("PorDevengar")))
+    '    End If
+    'End Sub
+
 #End Region
-
+
 #Region "TAB - PERSONAL"
     Private Sub CargaGvPersonal()
         GvPersonal.DataSource = TmpDT
@@ -11419,13 +11419,13 @@ Partial Class Compras_Compras
         Next
 
 
-    End Sub
-
-
-
-
+    End Sub
+
+
+
+
 #End Region
-
+
 #Region "TAB - ACTIVOS FIJOS -AF"
     Protected Sub CargarGvActivosFijos(sender As Object, e As EventArgs)
         Tab.ActiveTabIndex = 3
@@ -11655,58 +11655,58 @@ Partial Class Compras_Compras
     End Sub
     Protected Sub BtnAFMedida_Click(sender As Object, e As EventArgs)
         TmpDT(HdnIndexTmpDT.Value.ToEntero)("AFMedida") = HdnTxtAFMedida.Value
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "C O N T R A T O S"
-    'Protected Sub ImgBtnBuscarContrato_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnBuscarContrato.Click
-    '    If CveProveedor <= 0 Then
-    '        Alert("Debe de Seleccionar un proveedor")
-    '        Exit Sub
-    '    End If
-
-    '    RegistraScript(String.Format("AbrirVentana('/Contratos/PopUpBuscarContrato.aspx?V=VCCOMP',730,300,'N');"))
-    'End Sub
-
-    'Protected Sub CargaVContrato(sender As Object, e As EventArgs)
-    '    CargaVContrato2(HdnVCveContrato.Value)
-    'End Sub
-
-    'Protected Sub CargaVContrato2(CveContrato As String)
-    '    If TxtContrato.Text <> "" Then
-    '        Dim ObjContratos As New ClsContratos
-    '        Dim DTContratosTemp As DataTable = Nothing
-
-    '        GvContratos1.DataSource = TmpDT
-    '        GvContratos1.DataBind()
-    '        UPGVContratos1.Update()
-
-    '        Dim ArrayCveContratos As String() = HdnVCveContrato.Value.Split(New Char() {","c})
-    '        For i As Integer = 1 To ArrayCveContratos.Count
-    '            If ObjContratos.GetContratosDetalle(ArrayCveContratos(i - 1).ToEntero) Then
-    '                If IsNothing(DTContratosTemp) Then
-    '                    DTContratosTemp = ObjContratos.DtResultados.Copy
-    '                Else
-    '                    DTContratosTemp.Merge(ObjContratos.DtResultados)
-    '                End If
-    '            Else
-    '                Alert("Ocurrio un ERROR al cargar el Contrato")
-    '                DTContratosTemp.Rows.Clear()
-    '                Exit For
-    '            End If
-    '        Next
-
-    '        GvContratos2.DataSource = DTContratosTemp
-    '        GvContratos2.DataBind()
-    '        UPGVContratos2.Update()
-
-    '        ObjContratos.Dispose()
-    '    End If
-    'End Sub
+    'Protected Sub ImgBtnBuscarContrato_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnBuscarContrato.Click
+    '    If CveProveedor <= 0 Then
+    '        Alert("Debe de Seleccionar un proveedor")
+    '        Exit Sub
+    '    End If
+
+    '    RegistraScript(String.Format("AbrirVentana('/Contratos/PopUpBuscarContrato.aspx?V=VCCOMP',730,300,'N');"))
+    'End Sub
+
+    'Protected Sub CargaVContrato(sender As Object, e As EventArgs)
+    '    CargaVContrato2(HdnVCveContrato.Value)
+    'End Sub
+
+    'Protected Sub CargaVContrato2(CveContrato As String)
+    '    If TxtContrato.Text <> "" Then
+    '        Dim ObjContratos As New ClsContratos
+    '        Dim DTContratosTemp As DataTable = Nothing
+
+    '        GvContratos1.DataSource = TmpDT
+    '        GvContratos1.DataBind()
+    '        UPGVContratos1.Update()
+
+    '        Dim ArrayCveContratos As String() = HdnVCveContrato.Value.Split(New Char() {","c})
+    '        For i As Integer = 1 To ArrayCveContratos.Count
+    '            If ObjContratos.GetContratosDetalle(ArrayCveContratos(i - 1).ToEntero) Then
+    '                If IsNothing(DTContratosTemp) Then
+    '                    DTContratosTemp = ObjContratos.DtResultados.Copy
+    '                Else
+    '                    DTContratosTemp.Merge(ObjContratos.DtResultados)
+    '                End If
+    '            Else
+    '                Alert("Ocurrio un ERROR al cargar el Contrato")
+    '                DTContratosTemp.Rows.Clear()
+    '                Exit For
+    '            End If
+    '        Next
+
+    '        GvContratos2.DataSource = DTContratosTemp
+    '        GvContratos2.DataBind()
+    '        UPGVContratos2.Update()
+
+    '        ObjContratos.Dispose()
+    '    End If
+    'End Sub
 #End Region
-
+
 #Region "TAB ALMACEN - INVENTARIOS     ISRAEL PIÑA - 5 FEBRERO 2015"
-
+
     Protected Sub CalculaTotalPorDevengar()
         Dim total = TxtTotal.Text.ToDouble
         For Each Gvr As GridViewRow In GvInv.Rows
@@ -11720,10 +11720,10 @@ Partial Class Compras_Compras
 
     Protected Sub CambiaTotalDevengar(sender As Object, e As EventArgs)
         CalculaTotalPorDevengar()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "  AJUSTA IMPORTES  "
     Private Sub AjustaImporteUltimoConcepto(ImporteAjuste As Decimal, Optional EsCarga As Boolean = False)
         'Dim TempSubTotal = TxtSubTotal.Text.ToDouble
@@ -11822,9 +11822,9 @@ Partial Class Compras_Compras
         GvPS.DataBind()
         UpPS.Update()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "DDL'S"
     Protected Sub DdlCredito_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCredito.SelectedIndexChanged
         CargaCreditosDetalle(DdlCredito.SelectedValue.ToEntero)
@@ -12053,9 +12053,9 @@ Partial Class Compras_Compras
         RVDocumentoImporteFE.MaximumValue = saldo.ToString
         UPCondicionesPago.Update()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "CHK'S"
     Protected Sub RBLCajaChica_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLCajaChica.SelectedIndexChanged
         Select Case RBLCajaChica.SelectedValue
@@ -12277,9 +12277,9 @@ Partial Class Compras_Compras
         ElseIf RblRembolso.SelectedValue.ToEntero = 2 Then
             TrRembolsoCajaChica.Visible = True
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "ARMONIZACION CONTABLE -  AC - SIMPLIFICADO"
     Private Sub CargaPresupuestosEgresos(Optional CargaTodo As Boolean = True)
 
@@ -12543,10 +12543,10 @@ Partial Class Compras_Compras
             EjercicioAC = Ejercicio
         End If
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "E V E N T O  -  B I T A C O R A"
     Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -12643,9 +12643,9 @@ Partial Class Compras_Compras
         End If
         ObjEventoBitacora.Dispose()
         GvEB.DataBind()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "    C O N T A B I L I D A D     "
     Protected Sub BtnDescontabilizar_Click(sender As Object, e As EventArgs)
         'Alert("Hola entre", TipoMensaje.MsgError)
@@ -13034,10 +13034,10 @@ Partial Class Compras_Compras
         If Not ErrorCompra Then
             CargaCompra()
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region " REEMBOLSOS NO USA AC "
     Protected Sub DdlPersonal2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPersonalReembolso.SelectedIndexChanged
         ViewState("CvePersonal") = DdlPersonalReembolso.SelectedValue
@@ -13051,13 +13051,13 @@ Partial Class Compras_Compras
             CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
         End If
         ViewState("CveCajaChica") = DdlCuentaCajaChicaReembolso.SelectedValue
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  ALMACEN   "
-
+
 #End Region
-
+
 #Region "  CONSIGNACIONES   "
     Protected Sub ChkConsignacion_CheckedChanged(sender As Object, e As EventArgs)
 
@@ -13327,13 +13327,13 @@ Partial Class Compras_Compras
         BtnGuardar.Enabled = True
         UpFacturar.Update()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "       *****   Devoluciones   INV  *****               "
-
-    '*se envia true si hubo un error*'
-
+
+    '*se envia true si hubo un error*'
+
     Private Function guardardevolucion(ObjInventario As ClsInventarios, CveCompra As Integer, subtotal As Double, Fecha As Date) As Boolean
         Dim ErrorMovInv As Boolean = False
         Dim CveAlmacen As Integer
@@ -13530,9 +13530,9 @@ Partial Class Compras_Compras
         ImgBtnBuscarOC.Visible = False
         UpParametros.Update()
         UpPSS.Update()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "   REFACTURACION   "
     Private Sub ValidaRefacturacion()
         If Not CveCompra > 0 AndAlso DdlTipoComprobante.SelectedValue = "Fac" And UsuarioActual.Empresa.CvePlataforma <> 2 Then
@@ -13766,10 +13766,10 @@ Partial Class Compras_Compras
         End If
 
         Return ErrorBitacora
-    End Function
-
+    End Function
+
 #End Region
-
+
 #Region "   CANCELAR COMPRA   "
     Private Sub ValidaCancelarCompra()
         If UsuarioActual.TienePermisoProceso(140) Then
@@ -14048,10 +14048,10 @@ Partial Class Compras_Compras
         DivValesCombustible.Visible = True
         RegistraScript(String.Format("$('#{0}').modal('show')", DivValesCombustible.ClientID))
         UPPValesCombustible.Update()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "  VALES COMBUSTIBLES  "
     Protected Sub BtnValesVincular_Click(sender As Object, e As EventArgs)
         IdVale = New List(Of Integer)
@@ -14071,9 +14071,9 @@ Partial Class Compras_Compras
             '    Alert(cve.ToString)
             'Next
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region " VINCULAR OC  "
     Private Sub InicializaOC()
         'BORRAR OC
@@ -15106,11 +15106,11 @@ Partial Class Compras_Compras
 
 
         Alert($"El concepto <b>{PS}</b> tiene especificada la cantidad <b>{Cantidad}</b> pero un costo de cero ($0). <br/><br/> <b>En caso de vincular la OC de esta manera la cantidad especificada sera considerada como recibida.</b> <br/><br/> De ser correcto Continue o de lo contrario rectifique.", TipoMensaje.MsgAdvertencia)
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "F L E T E S  Y  S E R V I C I O S"
-
+
     Public Sub CreaDTFacturas()
 
         Dim dt As New DataTable
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 79ce2c26b..be106ef2c 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -394,7 +394,7 @@ Partial Class Ventas_ClientesAbonar
     Private Function CargaCliente(tCveCliente As Integer, tCveMoneda As Integer) As Boolean
         Dim Retorno As Boolean = False
         Dim ObjCliente As New ClsClientes()
-        If ObjCliente.GetClientes(tCveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then
+        If ObjCliente.GetClientes(tCveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then
             If ObjCliente.DtResultados.Rows.Count > 0 Then
                 Retorno = True
                 CargaCuentas()