diff --git a/App_Code/ClsGPS.vb b/App_Code/ClsGPS.vb
index d19cb9541..6ef6a9114 100644
--- a/App_Code/ClsGPS.vb
+++ b/App_Code/ClsGPS.vb
@@ -3137,6 +3137,24 @@ Public Class ClsGPS
 
         Return Retorno
     End Function
+    Public Function ReporteUnidadesnoTransmitenGet(NoHoras As Integer, CveEstatus As Integer, CveCliente As Integer, Optional CveEmpresa As Integer = -1, Optional TipoDispositivo As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_GPS_ReporteUnidadesnoTransmitenGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@NoHoras", SqlDbType.Int).Value = NoHoras
+            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@TipoDispositivo", SqlDbType.Int).Value = TipoDispositivo
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los dispositivos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
     Public Function DispositivosGet(CveDispositivo As Integer, CveEstatus As Integer, CveCliente As Integer, Optional CveEmpresa As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_GPS_DispositivosGet")
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index b1a8ffaf3..148b96b30 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3821,6 +3821,8 @@ Public Class ClsPaginas
             PaginaDict.Add("/Inicio.aspx".ToUpper(), -1)
             PaginaDict.Add("/reporteador.aspx".ToUpper(), -1)
             PaginaDict.Add("/General/CATIEPSxEntidadFed.aspx".ToUpper(), 719)
+            PaginaDict.Add("/GPS/ReporteUnidadesnoTransmiten.aspx".ToUpper(), 917)
+
             PaginaDict.Add("/GPS/RepArrastre.aspx".ToUpper(), 718)
             PaginaDict.Add("/Ventas/RepConciliacionEmitidosSat.aspx".ToUpper(), -1)
             PaginaDict.Add("/Ventas/RepConciliacionSat.aspx".ToUpper(), 716)
diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb
index e378f3aae..61f35a5e7 100644
--- a/App_Code/LogicNominas.vb
+++ b/App_Code/LogicNominas.vb
@@ -256,7 +256,7 @@ Public Class LogicNominas
                 'subsidio al empleo
                 If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio
                     ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "002", ' codigo fijo, por ser referente a subsidio al empleo
-                                                                .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(), .Importe = Row("Importe").ToString().ToDecimal})
+                                                                .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(), .Importe = Row("Importe").ToString().ToDecimal, .Subsidiocausado = Row("Importe").ToString().ToDecimal().Abs()})
                 End If
             Next
         End If
@@ -286,7 +286,7 @@ Public Class LogicNominas
                 'subsidio al empleo
                 If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio
                     ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "002", ' codigo fijo, por ser referente a subsidio al empleo
-                                                                .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(), .Importe = Row("Importe").ToString().ToDecimal})
+                                                                .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(), .Importe = Row("Importe").ToString().ToDecimal(), .Subsidiocausado = Row("Importe").ToString().ToDecimal().Abs()})
                 End If
             Next
         End If
@@ -300,7 +300,13 @@ Public Class LogicNominas
 
                     If Row("CveSATConcepto").ToString() = "" Then cfdi.AddMsg(String.Format("Concepto No registrado ({0})", Row("Concepto").ToString())) : Exit For
                     Dim otrp = New CFDINominaOtrosPagos With {.TipoOtroPago = Row("SATCveConcepto").ToString(), .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(),
-                                                                         .Importe = Row("Importe").ToString().ToDecimal().Abs(), .Subsidiocausado = Row("ImporteGravado").ToString().ToDecimal().Abs()}
+                                                                         .Importe = Row("Importe").ToString().ToDecimal().Abs(), .Subsidiocausado = Row("Importe").ToString().ToDecimal().Abs()}
+                    If Row("SATCveConcepto").ToString().ToEntero() = 4 Then
+                        otrp.ejercicio = DateTime.Now.Year - 1
+                        otrp.SaldoAFavor = Row("ImporteValor").ToString().ToDecimal().Abs()
+                        otrp.RemanenteSalFav = Row("ImporteValor").ToString().ToDecimal().Abs() - Row("Importe").ToString().ToDecimal().Abs()
+                    End If
+
                     ObjOtrosPagos.Add(otrp)
 
 
@@ -316,6 +322,13 @@ Public Class LogicNominas
 
             Next
         End If
+        If CveRegimenContratacion.ToEntero() = 2 AndAlso ((ObjOtrosPagos.FirstOrDefault(Function(m) m.TipoOtroPago.ToEntero().Contiene(2, 7, 8))) Is Nothing) Then
+
+            ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "002", ' codigo fijo, por ser referente a subsidio al empleo
+                                                                .Clave = "D051", .Concepto = "Subs al Empleo acreditado", .Importe = 0D, .Subsidiocausado = 0D})
+
+        End If
+
         If ObjPercepciones IsNot Nothing AndAlso ObjPercepciones.Count > 0 Then cfdi.Nomina.Percepciones = ObjPercepciones
         If ObjHorasExtras IsNot Nothing AndAlso ObjHorasExtras.Count > 0 Then cfdi.Nomina.HorasExtras = ObjHorasExtras
         If ObjOtrosPagos IsNot Nothing AndAlso ObjOtrosPagos.Count > 0 Then cfdi.Nomina.OtrosPagos = ObjOtrosPagos
diff --git a/GPS/ReporteUnidadesnoTransmiten.aspx b/GPS/ReporteUnidadesnoTransmiten.aspx
new file mode 100644
index 000000000..4296af6eb
--- /dev/null
+++ b/GPS/ReporteUnidadesnoTransmiten.aspx
@@ -0,0 +1,92 @@
+<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="ReporteUnidadesnoTransmiten.aspx.cs" Inherits="GPS_ReporteUnidadesnoTransmiten" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Reporte de ultima conexión
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+
+
+    <asp:UpdatePanel UpdateMode="Conditional" ID="UpReporte" runat="server">
+        <ContentTemplate>
+            <div class="portlet solid grey-cascade portlet-filter" style="">
+                <div class="portlet-title portlet-filterT smalltitle " style="">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="BtnConsultar_Click" class="btn btn-primary" />
+                        <a href="javascript:;" class="expand"></a>
+                    </div>
+                    <div class="titlefiltros  caption">
+                        <div class="row">
+                            <div class="col-md-1 truncate">
+                                Tipo: 
+                            </div>
+                            <div class="col-md-3 ">
+                                <asp:DropDownList ID="DdltipoDispositivo" runat="server" CssClass="form-control input-sm select2me">
+                                    <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                    <asp:ListItem Text="Dispositivo GPS" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Smartphone" Value="2"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+
+                            <div class="col-md-1 truncate">
+                                Cliente:
+                            </div>
+                            <div class="col-md-2">
+                                <%--<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" UsaWebService="true" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="min-width: 100px;"></ADS:Dropdownlost>--%>
+                                <asp:DropDownList ID="DdlCliente" runat="server" CssClass="select2me form-control" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="100%">
+                                    <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+
+                            </div>
+                            <div class="col-md-1 truncate">
+                                Estatus: 
+                            </div>
+                            <div class="col-md-2">
+
+                                <asp:DropDownList ID="DdlEstatus" runat="server" CssClass="form-control input-sm select2me">
+                                    <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                    <asp:ListItem Selected="True" Text="Activo" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Inactivo" Value="0"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                        </div>
+                    </div>
+                </div>
+                <div class="portlet-body" style="display: none;">
+                    <asp:HiddenField ID="HdfVGrafica" ClientIDMode="Static" runat="server" />
+                </div>
+            </div>
+            <asp:GridView ID="GvDatosGPS" runat="server" GridLines="None" ShowFooter="true" DataKeyNames="CveDispositivo, CveModelo, CveProveedorComunicacionCuenta, Display"
+                CssClass="table table-striped table-advance table-hover Widthall" CellSpacing="0" Width="100%" AutoGenerateColumns="False" OnRowDataBound="GvDatosGPS_RowDataBound"
+                EmptyDataText="No se encontraron registros" ToolTip="Listado de Dispositivos">
+                <Columns>
+                    <asp:TemplateField HeaderText="#" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Center" ItemStyle-VerticalAlign="Middle" FooterStyle-VerticalAlign="Middle">
+                        <ItemTemplate>
+                            <asp:Label ID="Lblnumero" runat="server" Text=""></asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:BoundField DataField="TipoDispositivoDisplay" ItemStyle-Width="7%" HeaderText="Tipo Dispositivo" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="Cliente" ItemStyle-Width="25%" HeaderText="Cliente" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="Display" ItemStyle-Width="15%" HeaderText="Vehículo" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="Modelo" ItemStyle-Width="7%" HeaderText="Modelo" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="IMEI" ItemStyle-Width="10%" HeaderText="IMEI" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="NumeroTelefono" ItemStyle-Width="20%" HeaderText="Número Teléfono" ItemStyle-HorizontalAlign="Center" />
+                    <asp:BoundField DataField="Ultimaconexion" ItemStyle-Width="15%" HeaderText="Ultima conexión" ItemStyle-HorizontalAlign="Left" />
+
+                </Columns>
+            </asp:GridView>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
+
diff --git a/GPS/ReporteUnidadesnoTransmiten.aspx.cs b/GPS/ReporteUnidadesnoTransmiten.aspx.cs
new file mode 100644
index 000000000..b32f8e60f
--- /dev/null
+++ b/GPS/ReporteUnidadesnoTransmiten.aspx.cs
@@ -0,0 +1,95 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+using Extensiones;
+public partial class GPS_ReporteUnidadesnoTransmiten : ClsPaginas
+{
+    #region Propiedades
+    protected int CveCliente
+    {
+        get
+        {
+            if (ViewState["CveCliente"] == null) { return 0; }
+            else { return ViewState["CveCliente"].ToString().ToEntero(); }
+        }
+
+        set { ViewState["CveCliente"] = value; }
+    }
+    protected int CveEstatus
+    {
+        get
+        {
+            if (ViewState["CveEstatus"] == null) { return 0; }
+            else { return ViewState["CveEstatus"].ToString().ToEntero(); }
+        }
+
+        set { ViewState["CveEstatus"] = value; }
+    }
+    protected int TipoDispositivo
+    {
+        get
+        {
+            if (ViewState["TipoDispositivo"] == null) { return 0; }
+            else { return ViewState["TipoDispositivo"].ToString().ToEntero(); }
+        }
+
+        set { ViewState["TipoDispositivo"] = value; }
+    }
+    #endregion
+    protected void Page_Load(object sender, EventArgs e)
+    {
+        if (!IsPostBack)
+        {
+
+            DdlCliente.DataSource = get_GlobalDTCliente(UsuarioActual.CveEmpresa);
+            DdlCliente.DataBind();
+            CveCliente = -1;
+            CveEstatus = 1;
+            TipoDispositivo = -1;
+            cargaDispositivos();
+        }
+    }
+    public void cargaDispositivos()
+    {
+        GvDatosGPS.DataSource = null;
+        using (ClsGPS ObjGPS = new ClsGPS())
+        {
+            if (ObjGPS.ReporteUnidadesnoTransmitenGet(-1, CveEstatus, CveCliente, UsuarioActual.CveEmpresa, TipoDispositivo))
+            {
+                GvDatosGPS.DataSource = ObjGPS.DtResultados;
+            }
+        }
+        GvDatosGPS.DataBind();
+        /*
+         Dim ObjGPS As New ClsGPS
+        If ObjGPS.DispositivosGet(-1, Estatus, CveCliente) Then
+            GvDatosGPS.DataSource = ObjGPS.DtResultados
+        Else
+            GvDatosGPS.DataSource = Nothing
+        End If
+        ObjGPS.Dispose()
+        GvDatosGPS.DataBind()
+        UpDispositivos.Update()
+         */
+    }
+
+    protected void BtnConsultar_Click(object sender, EventArgs e)
+    {
+        CveEstatus = DdlEstatus.SelectedValue.ToEntero();
+        CveCliente = DdlCliente.SelectedValue.ToEntero(); CveCliente = CveCliente > 0 ? CveCliente : -1;
+        TipoDispositivo = DdltipoDispositivo.SelectedValue.ToEntero();
+        cargaDispositivos();
+    }
+
+    protected void GvDatosGPS_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if (e.Row.RowType == DataControlRowType.DataRow)
+        {
+            e.Row.VerticalAlign = VerticalAlign.Middle;
+            e.Row.FCLabel("Lblnumero").Text = (e.Row.RowIndex + 1).ToString();
+        }
+    }
+}
\ No newline at end of file
diff --git a/GPS/WizardDispositivos.aspx.cs b/GPS/WizardDispositivos.aspx.cs
index 7a86e9a01..d922d90dd 100644
--- a/GPS/WizardDispositivos.aspx.cs
+++ b/GPS/WizardDispositivos.aspx.cs
@@ -353,7 +353,11 @@ public partial class GPS_WizardDispositivos : ClsPaginas
         string icono = "rsz_11rsz_car";
         string Color = "#0088FF";
         string NumTelefono = ChkTipoLinea.Checked ? TxtTelefonoMovil.Text.Trim().Replace("(","").Replace(")","").Replace("-","").Replace(" ","") : "-1";
-
+        if(DdlMarca.SelectedValue =="19" && DevId.Length  != 16 )
+        {
+            continuar = false;
+            Alert("el IMEI y DEVID de los dispositivos concox debe ser igual a 16 dígitos.", ModExtensiones.TipoMensaje.MsgAdvertencia);
+        }
         if (continuar)
         {
             ClsGPS ObjGPS = new ClsGPS();
diff --git a/Nomina/ConceptoNomina.aspx.cs b/Nomina/ConceptoNomina.aspx.cs
index 3bbeb7283..6b4412482 100644
--- a/Nomina/ConceptoNomina.aspx.cs
+++ b/Nomina/ConceptoNomina.aspx.cs
@@ -258,11 +258,14 @@ public partial class Nomina_CatConcepto : ClsPaginas
     {
         if (UsuarioActual.Empresa.UsaContabilidad)
         {
-            ClsContPAQi ObjConta = new ClsContPAQi(UsuarioActual.Empresa);
-            if (ObjConta.GetCuentas(-1, "-1", 1))
+            using (ClsContPAQi ObjConta = new ClsContPAQi(UsuarioActual.Empresa))
             {
-                DdlCtaContable.DataSource = ObjConta.DtResultados;
-                DdlCtaContable.DataBind();
+
+                if (ObjConta.GetCuentas(-1, "-1", 1))
+                {
+                    DdlCtaContable.DataSource = ObjConta.DtResultados;
+                    DdlCtaContable.DataBind();
+                }
             }
 
             DdlCtaContable.Items.Insert(0, new ListItem("Seleccione", "-1"));
diff --git a/Nomina/Nomina2.aspx b/Nomina/Nomina2.aspx
index bfb472cd9..f3caa5362 100644
--- a/Nomina/Nomina2.aspx
+++ b/Nomina/Nomina2.aspx
@@ -67,10 +67,11 @@
         .isOnlyBisibleP td:nth-child(-n+3) a {
             color: #999;
         }
-        
+
         .isOnlyBisibleD td:nth-last-child(-n+3) a {
             color: #999;
         }
+
         .isOnlyBisibleO td:nth-last-child(-n+3) a {
             color: #999;
         }
@@ -137,7 +138,10 @@
     <asp:UpdatePanel ID="UpAccciones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LnkAutorizar" OnClick="LnkAutorizar_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Autorizar nómina</asp:LinkButton>
+                <asp:LinkButton ID="LnkAutorizar" Visible ="true" OnClick="LnkAutorizar_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Autorizar</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkRegistrarProvision" OnClick="LnkRegistrarProvision_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Registrar provisión</asp:LinkButton>
             </li>
             <li>
                 <asp:LinkButton ID="LnkCargaAsistenciaMasiva" OnClick="LnkCargaAsistenciaMasiva_Click" runat="server"><i class="fa fa-check" aria-hidden="true"></i>Carga masiva de Asistencia</asp:LinkButton>
@@ -166,6 +170,12 @@
             <li>
                 <asp:LinkButton ID="LnkDownArchivosSua" OnClick="LnkDownArchivosSua_Click" runat="server"><i class="fa fa-download"></i> Descargar Archivos SUA</asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton ID="LnkTimbrarTodos" Visible="true" OnClick="LnkTimbrarTodos_Click" runat="server"><i class="fa fa-bell"></i> Timbrar todos</asp:LinkButton>
+            </li>
+            <li>
+                <asp:HyperLink ID="HypPDFSTimbrados" NavigateUrl="#" runat="server"><i class="fa fa-download" aria-hidden="true"></i>PDF Timbrado</asp:HyperLink>
+            </li>
         </ContentTemplate>
         <Triggers>
             <asp:PostBackTrigger ControlID="LnkListaRaya" />
@@ -222,18 +232,20 @@
                     <div class="row">
                         <label class="col-md-1 ">Agrupador:</label>
                         <div class="col-md-1">
-                            <asp:DropDownList ID="DdlAgrupador" runat="server" Style="width: 100% !important;" CssClass="select2me">
-                                <asp:ListItem Text="Empresa" Value="1"></asp:ListItem>
-                                <asp:ListItem Text="Turno" Value="2"></asp:ListItem>
+                            <asp:DropDownList ID="DdlAgrupadorB" runat="server" Style="width: 100% !important;" CssClass="select2me">
+                                <asp:ListItem Text="Sin Agrupación" Value="-1" Selected="True"></asp:ListItem>
+                                <asp:ListItem Text="Centro de costos" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Departamento" Value="2"></asp:ListItem>
+                                <asp:ListItem Text="Turno" Value="3"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <asp:Label ID="LblProyecto" CssClass="col-md-1 " runat="server" Text="Proyecto:"></asp:Label> 
+                        <asp:Label ID="LblProyecto" CssClass="col-md-1 " runat="server" Text="Proyecto:"></asp:Label>
                         <div runat="server" id="divddlproyeto" class="col-md-2">
                             <asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" CssClass="select2me" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Style="width: 100% !important;" ValidationGroup="GrpGuardar">
                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <asp:Label ID="LblSubProyeccto" CssClass="col-md-1 " runat="server" Text="SubProyecto:"></asp:Label> 
+                        <asp:Label ID="LblSubProyeccto" CssClass="col-md-1 " runat="server" Text="SubProyecto:"></asp:Label>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="width: 100% !important;" ValidationGroup="GrpGuardar">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
@@ -273,15 +285,7 @@
                                 <asp:ListItem Text="Todos" Value="3"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        
-                        <label class="col-md-1 " style="line-height: 1;">Agrupador:</label>
-                        <div class="col-md-1">
-                            <asp:DropDownList ID="DdlAgrupadorB" runat="server" Style="width: 100% !important;" CssClass="select2me">
-                                <asp:ListItem Text="Sin Agrupación" Value="-1" Selected ="True"></asp:ListItem>
-                                <asp:ListItem Text="Centro de costos" Value="1"></asp:ListItem>
-                                <asp:ListItem Text="Departamento" Value="2"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
+                         
                     </div>
                 </div>
             </div>
@@ -453,7 +457,7 @@
 
                                         <asp:TemplateField>
                                             <ItemTemplate>
-                                                <div style="width: 100px; text-align: right;white-space: nowrap;padding-right: 10px;">
+                                                <div style="width: 100px; text-align: right; white-space: nowrap; padding-right: 10px;">
                                                     <asp:HyperLink ID="HypXml" Visible="false" NavigateUrl="#" runat="server">XML</asp:HyperLink>
                                                     <asp:HyperLink ID="HypPDF" Visible="false" NavigateUrl="#" runat="server"><i class="fa fa-ad-pdf"></i></asp:HyperLink>
                                                     <asp:LinkButton runat="server" ID="LnkTimbrar" CssClass="btn btn-circle btn-sm blue mysmallbtn" Text="<i class='fa fa-bell'></i>" OnClick="LnkTimbrar_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea Timbrar?" data-btn-ok-label="si" />
@@ -585,7 +589,8 @@
                             <div class="portlet-title">
                                 <div class="caption ">
                                     <i class="fa fa-user font-yellow-gold"></i>
-                                    <span class="caption-subject bold font-black uppercase">Trabajador :</span><asp:Label ID="LblEmpleado" runat="server" Text=""></asp:Label>
+                                    <span class="caption-subject bold font-black uppercase">Trabajador : </span>
+                                    <asp:Label ID="LblEmpleado" runat="server" Text=""></asp:Label>
                                 </div>
                                 <div class="tools">
                                     <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
@@ -593,92 +598,92 @@
                             </div>
                             <div class="portlet-body " style="padding: 0px;">
                                 <div class="row">
-                                    <div class="col-md-2 bold">No. trabajador</div>
-                                    <div class="col-md-3">
+                                    <div class="col-sm-3 bold">No. trabajador</div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblCodigoEmpleado" runat="server"></asp:Label>
                                     </div>
-                                    <div class="col-md-3 bold">Días trabajados</div>
-                                    <div class="col-md-4">
+                                    <div class="col-sm-3 bold">Días trabajados</div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblDiasLaborados" runat="server"></asp:Label>
                                     </div>
                                 </div>
                                 <div class="row">
-                                    <div class="col-md-2 bold">Salario diario</div>
-                                    <div class="col-md-3">
+                                    <div class="col-sm-3 bold">Salario diario</div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblSRSalarioDiario" runat="server"></asp:Label>
                                     </div>
-                                    <div class="col-md-3 bold">Salario Diario Integrado</div>
-                                    <div class="col-md-4">
+                                    <div class="col-sm-3 bold">Salario Diario Integrado</div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblSRSalarioDiarioIntegrado" runat="server"></asp:Label>
                                     </div>
                                 </div>
                                 <div class="row">
-                                    <div class="col-md-2 bold">Salario base cotización</div>
-                                    <div class="col-md-3">
+                                    <div class="col-sm-3 bold">Salario base cotización</div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblSRSbc" runat="server"></asp:Label>
                                     </div>
-                                    <div class="col-md-3 bold"></div>
-                                    <div class="col-md-4">
+                                    <div class="col-sm-3 bold"></div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="Label3" runat="server"></asp:Label>
                                     </div>
                                 </div>
                                 <div class="row">
-                                    <div class="col-md-2 bold">Puesto</div>
-                                    <div class="col-md-3">
+                                    <div class="col-sm-3 bold">Puesto</div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblSRPuesto" runat="server"></asp:Label>
                                     </div>
-                                    <div class="col-md-3 bold">Departamento </div>
-                                    <div class="col-md-4">
+                                    <div class="col-sm-3 bold">Departamento </div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblSRDepartamento" runat="server"></asp:Label>
                                     </div>
                                 </div>
                                 <div class="row">
-                                    <div class="col-md-2 bold">Afi IMSS </div>
-                                    <div class="col-md-3">
+                                    <div class="col-sm-3 bold">Afi IMSS </div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblNSS" runat="server"></asp:Label>
                                     </div>
-                                    <div class="col-md-3 bold">Faltas</div>
-                                    <div class="col-md-4">
+                                    <div class="col-sm-3 bold">Faltas</div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblDiasFaltados" runat="server"></asp:Label>
                                     </div>
                                 </div>
                                 <div class="row">
-                                    <div class="col-md-2 bold">R.F.C.</div>
-                                    <div class="col-md-3">
+                                    <div class="col-sm-3 bold">R.F.C.</div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblRFC" runat="server"></asp:Label>
                                     </div>
-                                    <div class="col-md-3 bold">Retardos</div>
-                                    <div class="col-md-4">
+                                    <div class="col-sm-3 bold">Retardos</div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblDiasRetardos" runat="server"></asp:Label>
                                     </div>
                                 </div>
                                 <div class="row">
-                                    <div class="col-md-2 bold">Curp</div>
-                                    <div class="col-md-3">
+                                    <div class="col-sm-3 bold">Curp</div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblCURP" runat="server"></asp:Label>
                                     </div>
-                                    <div class="col-md-3 bold">Días Vacaciones</div>
-                                    <div class="col-md-4">
+                                    <div class="col-sm-3 bold">Días Vacaciones</div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblDiasVacaciones" runat="server"></asp:Label>
                                     </div>
                                 </div>
                                 <div class="row">
-                                    <div class="col-md-2 bold">Tipo de Pago</div>
-                                    <div class="col-md-3">
+                                    <div class="col-sm-3 bold">Tipo de Pago</div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblTipoPeriodo" runat="server"></asp:Label>
                                     </div>
-                                    <div class="col-md-3 bold">Días Incapacidad</div>
-                                    <div class="col-md-4">
+                                    <div class="col-sm-3 bold">Días Incapacidad</div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblDiasIncapacidad" runat="server"></asp:Label>
                                     </div>
                                 </div>
                                 <div class="row">
-                                    <div class="col-md-2 bold">Fecha de Pago</div>
-                                    <div class="col-md-3">
+                                    <div class="col-sm-3 bold">Fecha de Pago</div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblFechaPagosrb" runat="server"></asp:Label>
                                     </div>
-                                    <div class="col-md-3 bold">Periodo del</div>
-                                    <div class="col-md-4">
+                                    <div class="col-sm-3 bold">Periodo del</div>
+                                    <div class="col-sm-3">
                                         <asp:Label ID="LblFecha" runat="server"></asp:Label>
                                     </div>
                                 </div>
@@ -1053,10 +1058,18 @@
 
                                                             <div class="row">
 
-                                                                <div class="col-md-3">Activo?</div>
-                                                                <div class="col-md-3">
+                                                                <div class="col-md-6">
+                                                                    <div class="form-group form-md-line-input form-md-floating-label input-iconright">
+                                                                        <asp:Label runat="server" Text="Cuenta contable" AssociatedControlID="DdlCtaContable"></asp:Label>
+                                                                        <asp:DropDownList ID="DdlCtaContable" runat="server" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="Id" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                                                    </div>
+                                                                </div>
+                                                                <div class="col-md-3">¿Activo? <br />
                                                                     <asp:CheckBox ID="ChkEstatus" CssClass="chksino " Text=" " runat="server" />
                                                                 </div>
+                                                                <div class="col-md-3">
+                                                                    
+                                                                </div>
                                                             </div>
 
                                                             <div class="text-right">
@@ -1682,13 +1695,13 @@
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Valor">
                                             <ItemTemplate>
-                                                <asp:Label ID="LtlValorP" runat="server" Text='<%# Eval("ValorP", "{0:##,###.##}") %>' ></asp:Label>
+                                                <asp:Label ID="LtlValorP" runat="server" Text='<%# Eval("ValorP", "{0:##,###.##}") %>'></asp:Label>
                                             </ItemTemplate>
                                             <ItemStyle HorizontalAlign="Right" Width="5%" />
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Importe">
                                             <ItemTemplate>
-                                                <asp:Label ID="LtlImporte" runat="server" Text='<%# Eval("ImporteP", "${0:N}") %>' ></asp:Label>
+                                                <asp:Label ID="LtlImporte" runat="server" Text='<%# Eval("ImporteP", "${0:N}") %>'></asp:Label>
                                                 <asp:LinkButton ID="LnkImporte" OnClick="LnkConcepto_Click" runat="server" Text='<%# Eval("ImporteP", "${0:N}") %>'></asp:LinkButton>
                                             </ItemTemplate>
                                             <ItemStyle HorizontalAlign="Right" Width="5%" />
@@ -1702,13 +1715,13 @@
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Valor">
                                             <ItemTemplate>
-                                                <asp:Label ID="LtlValorD" runat="server" Text='<%# Eval("ValorD", "{0:##,###.##}") %>' ></asp:Label>
+                                                <asp:Label ID="LtlValorD" runat="server" Text='<%# Eval("ValorD", "{0:##,###.##}") %>'></asp:Label>
                                             </ItemTemplate>
                                             <ItemStyle HorizontalAlign="Right" Width="5%" />
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Importe">
                                             <ItemTemplate>
-                                                <asp:Label ID="LtlImporteD" runat="server" Text='<%# Eval("ImporteD", "${0:N}") %>' ></asp:Label>
+                                                <asp:Label ID="LtlImporteD" runat="server" Text='<%# Eval("ImporteD", "${0:N}") %>'></asp:Label>
                                                 <asp:LinkButton ID="LnkImporteD" OnClick="LnkConceptoD_Click" runat="server" Text='<%# Eval("ImporteD", "${0:N}") %>'></asp:LinkButton>
                                             </ItemTemplate>
                                             <ItemStyle HorizontalAlign="Right" Width="5%" />
@@ -1722,13 +1735,13 @@
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Valor">
                                             <ItemTemplate>
-                                                <asp:Label ID="LtlValorO" runat="server" Text='<%# Eval("ValorO", "{0:##,###.##}") %>' ></asp:Label>
+                                                <asp:Label ID="LtlValorO" runat="server" Text='<%# Eval("ValorO", "{0:##,###.##}") %>'></asp:Label>
                                             </ItemTemplate>
                                             <ItemStyle HorizontalAlign="Right" Width="5%" />
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Importe">
                                             <ItemTemplate>
-                                                <asp:Label ID="LtlImporteO" runat="server" Text='<%# Eval("ImporteO", "${0:N}") %>' ></asp:Label>
+                                                <asp:Label ID="LtlImporteO" runat="server" Text='<%# Eval("ImporteO", "${0:N}") %>'></asp:Label>
                                                 <asp:LinkButton ID="LnkImporteO" OnClick="LnkConceptoD_Click" runat="server" Text='<%# Eval("ImporteO", "${0:N}") %>'></asp:LinkButton>
                                             </ItemTemplate>
                                             <ItemStyle HorizontalAlign="Right" Width="5%" />
@@ -2076,10 +2089,10 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
-    <asp:TextBox ID="TxtCvePeriodo"  CssClass="TxtCvePeriodo hidden" runat="server"></asp:TextBox>
+    <asp:TextBox ID="TxtCvePeriodo" CssClass="TxtCvePeriodo hidden" runat="server"></asp:TextBox>
     <asp:TextBox ID="TxtCvePersonal" CssClass="TxtCvePersonal hidden" runat="server"></asp:TextBox>
-    <asp:Button ID="BtnGeneratepdf"  CssClass="BtnGeneratepdf hidden" OnClick="BtnGeneratepdf_Click" UseSubmitBehavior="false" runat="server" Text="Button" />
-    <asp:Button ID="BtnGenerateXml"  CssClass="BtnGenerateXml hidden" OnClick="BtnGenerateXml_Click" UseSubmitBehavior="false" runat="server" Text="Button" />
+    <asp:Button ID="BtnGeneratepdf" CssClass="BtnGeneratepdf hidden" OnClick="BtnGeneratepdf_Click" UseSubmitBehavior="false" runat="server" Text="Button" />
+    <asp:Button ID="BtnGenerateXml" CssClass="BtnGenerateXml hidden" OnClick="BtnGenerateXml_Click" UseSubmitBehavior="false" runat="server" Text="Button" />
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
     <script>
diff --git a/Nomina/Nomina2.aspx.cs b/Nomina/Nomina2.aspx.cs
index 0bbe71068..18d6e5597 100644
--- a/Nomina/Nomina2.aspx.cs
+++ b/Nomina/Nomina2.aspx.cs
@@ -9,6 +9,8 @@ using System.Data;
 using System.Text;
 using static Extensiones.ModExtensiones;
 using System.Drawing;
+using iTextSharp.text.pdf;
+using System.IO;
 
 public partial class Nomina_Nomina2 : ClsPaginas
 {
@@ -343,7 +345,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
         FiltCveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero();
         FiltCveTurno = DdlTurno.SelectedValue.ToEntero();
         FiltCvePeriodo = DdlPeriodo.SelectedValue.ToEntero();
-        FiltAgrupador = DdlAgrupador.SelectedValue.ToEntero();
+        FiltAgrupador = 1;
+        HypPDFSTimbrados.Attributes.Add("onclick", string.Format("GETPDF({0},{1})", -1, FiltCvePeriodo));
         cargaDatos();
 
     }
@@ -833,6 +836,30 @@ public partial class Nomina_Nomina2 : ClsPaginas
             dt.AcceptChanges();
             dt = dt.FiltraParametros("", "CveDepartamento,Departamento,Codigo,Nombre");
         }
+        if (DdlAgrupadorB.SelectedValue == "3")
+        {
+
+            foreach (DataRow drow in dtempleados.FiltraParametros("CvePersonal > 0", "", new string[] { "CveTurno", "Turno" }).Rows)
+            {
+                DataRow dr = dt.NewRow();
+                filtrogrupo = (drow["CveTurno"] == DBNull.Value ? "CveTurno IS NULL AND CvePersonal>0 " : string.Format("CveTurno = {0} AND CvePersonal>0", drow["CveTurno"]));
+                foreach (DataRow row in dtConceptos.FiltraParametros("EsPadre = 1 ").Rows)
+                {
+                    int CveConcepto = row["CveConcepto"].ToString().ToEntero();
+                    dr[string.Format("V_{0}", CveConcepto)] = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), filtrogrupo);
+                }
+                dr["CveTurno"] = drow["CveTurno"];
+                dr["Turno"] = drow["Turno"];
+                dr["SumaPercepciones"] = dtempleados.SUM("SumaPercepciones", filtrogrupo);
+                dr["SumaDeducciones"] = dtempleados.SUM("SumaDeducciones", filtrogrupo);
+                dr["Total"] = dtempleados.SUM("Total", filtrogrupo);
+                dr["SumaObligaciones"] = dtempleados.SUM("SumaObligaciones", filtrogrupo);
+
+                dt.Rows.Add(dr);
+            }
+            dt.AcceptChanges();
+            dt = dt.FiltraParametros("", "CveDepartamento,Departamento,Codigo,Nombre");
+        }
         GvNominas.DataSource = dt;
         GvNominas.DataBind();
     }
@@ -904,8 +931,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 else
                 {
 
-                    e.Row.FCHyperLink("HypPDF").Attributes.Add("onclick", string.Format("GETPDF({0},{1})", cvePersonal, CvePeriodo));
-                    //e.Row.FindControl("HypPDF").Visible = true;
+                    e.Row.FCHyperLink("HypPDF").Attributes.Add("onclick", string.Format("GETPDF({0},{1})", -1, CvePeriodoSeleccionado));
+                    e.Row.FindControl("HypPDF").Visible = true;
                     e.Row.CssClass = "SubTotales";
                 }
                 e.Row.FindControl("LnkSobreRecibo").Visible = false;
@@ -917,6 +944,48 @@ public partial class Nomina_Nomina2 : ClsPaginas
     }
     #endregion
 
+    protected void LnkTimbrarTodos_Click(object sender, EventArgs e)
+    {
+        string msggral = "";
+        foreach (GridViewRow gvRow in GvNominas.Rows)
+        {
+            int CvePeriodo = gvRow.DataKey("CvePeriodo").ToEntero();
+            int CvePersonal = gvRow.DataKey("CvePersonal").ToEntero();
+            int CveNomina = gvRow.DataKey("CveNomina").ToEntero();
+            LinkButton LnkTimbrar = gvRow.FCLinkButton("LnkTimbrar");
+            if (CvePersonal > 0 && LnkTimbrar.Visible)
+            {
+                LogicNominas lognom = new LogicNominas();
+
+                string Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual);
+                if (Msg != null && Msg.Length > 0)
+                {
+                    msggral = string.Format("{0}<tr><td>{3}</td><td>{2}</td><td><pre>{1}</pre></td></tr>", msggral, Msg, gvRow.DataKey("Nombre"), gvRow.DataKey("Codigo"));
+                }
+                else
+                {
+                    ClsNominas ObjPeriodo = new ClsNominas();
+                    ObjPeriodo.CambiaEstatusPeriodo(CvePeriodo, (int)enumNominasEstatus.Timbrada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
+                    ObjPeriodo.Dispose();
+                    LnkTimbrar.Visible = false;
+                    gvRow.FindControl("ImgDelete").Visible = false;
+                    gvRow.FindControl("LnkCancelar").Visible = false;
+                    gvRow.FindControl("HypXml").Visible = true;
+                    gvRow.FindControl("HypPDF").Visible = true;
+
+                    gvRow.ForeColor = Color.Green;
+                }
+
+
+            }
+        }
+        if (msggral.Length > 0)
+        {
+
+            Alert(string.Format("Ocurrieron los siguientes errores <table class=\"table table-striped table-hover mysmallbtn\" ><tbody><tr><th>Código</th><th>Nombre</th><th>Error</th></tr>{0}</tbody></table>", msggral), TipoMensaje.MsgAdvertencia);
+        }
+        UpDatos.Update();
+    }
 
     protected void LnkTimbrar_Click(object sender, EventArgs e)
     {
@@ -925,7 +994,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
         int CvePeriodo = gvRow.DataKey("CvePeriodo").ToEntero();
         int CvePersonal = gvRow.DataKey("CvePersonal").ToEntero();
         int CveNomina = gvRow.DataKey("CveNomina").ToEntero();
-
         LogicNominas lognom = new LogicNominas();
 
         string Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual);
@@ -939,8 +1007,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
             Alert("Se ha timbrado correctamente");
             gvRow.FindControl("ImgDelete").Visible = false;
             gvRow.FindControl("LnkCancelar").Visible = false;
-
-            //gvRow.FCImage("ImgBandera").ImageUrl = "/Imagenes/flag_green.png";
+            gvRow.FindControl("HypXml").Visible = true;
+            gvRow.FindControl("HypPDF").Visible = true;
             gvRow.ForeColor = Color.Green;
             lnk.Visible = false; UpDatos.Update();
         }
@@ -1379,7 +1447,22 @@ public partial class Nomina_Nomina2 : ClsPaginas
     protected void LnkSobreRecibo_Click(object sender, EventArgs e)
     {
         GridViewRow gvrow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        if (DdlCtaContable.Items.Count == 0)
+        {
 
+            using (ClsContPAQi ObjConta = new ClsContPAQi(UsuarioActual.Empresa))
+            {
+
+                if (ObjConta.GetCuentas(-1, "-1", 1))
+                {
+                    DdlCtaContable.DataSource = ObjConta.DtResultados;
+                    DdlCtaContable.DataBind();
+                }
+            }
+
+            DdlCtaContable.Items.Insert(0, new ListItem("Seleccione", "-1"));
+            DdlCtaContable.SelectedValueExist("-1");
+        }
         string Nombre = gvrow.DataKey("Nombre").ToString();
         SRCvePersonal = gvrow.DataKey("CvePersonal").ToEntero();
         SRCvePeriodo = gvrow.DataKey("CvePeriodo").ToEntero();
@@ -2179,22 +2262,29 @@ public partial class Nomina_Nomina2 : ClsPaginas
             ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
             var libro = wb.AddWorksheet("Nomina");
             int column = 1;
-            libro.Cell(1, column).Value = " ";
-            libro.Cell(2, column).Value = "Codigo";
-            libro.Cell(3, column).Value = " ";
+            int filainicio = 3;
+            libro.Cell(filainicio + 1, column).Value = " ";
+            libro.Cell(filainicio + 2, column).Value = "Codigo";
+            libro.Cell(filainicio + 3, column).Value = " ";
             column++;
-            libro.Cell(1, column).Value = " ";
-            libro.Cell(2, column).Value = "Empleado";
-            libro.Cell(3, column).Value = " ";
+            libro.Cell(filainicio + 1, column).Value = " ";
+            libro.Cell(filainicio + 2, column).Value = "Empleado";
+            libro.Cell(filainicio + 3, column).Value = " ";
             libro.Column(column).Width = 35;
+            libro.Cell(1, 1).Value = "Empresa";
+            libro.Range(1, 2, 1, 4).Merge().Value = UsuarioActual.Empresa.Empresa;
+            libro.Cell(2, 1).Value = "período";
+            string periodo = DdlPeriodo.SelectedItem.Text;
+            periodo = periodo.Substring(0, (periodo.Length > 27 ? 27 : periodo.Length));
+            libro.Range(2, 2, 2, 4).Merge().Value = periodo;
 
             int iniciotipe = column;
             foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' AND EsPadre = 1 ").Rows)
             {
 
                 column++;
-                libro.Cell(2, column).Value = row["Concepto"].ToString();
-                libro.Cell(3, column).Value = row["Codigo"].ToString();
+                libro.Cell(filainicio + 2, column).Value = row["Concepto"].ToString();
+                libro.Cell(filainicio + 3, column).Value = row["Codigo"].ToString();
                 libro.Column(column).Width = 15;
                 if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
                 {
@@ -2203,12 +2293,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
             }
             column++;
-            libro.Range(2, column, 3, column).Merge().Value = "Percepciones";
+            libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Percepciones";
             libro.Column(column).Width = 15;
             if (iniciotipe < column)
             {
-                libro.Range(1, iniciotipe + 1, 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
-                libro.Range(1, iniciotipe + 1, 1, column).Merge().Value = "Percepciones";
+                libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
+                libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Percepciones";
             }
             iniciotipe = column;
 
@@ -2216,8 +2306,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
             foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 ").Rows)
             {
                 column++;
-                libro.Cell(2, column).Value = row["Concepto"].ToString();
-                libro.Cell(3, column).Value = row["Codigo"].ToString();
+                libro.Cell(filainicio + 2, column).Value = row["Concepto"].ToString();
+                libro.Cell(filainicio + 3, column).Value = row["Codigo"].ToString();
                 libro.Column(column).Width = 15;
                 if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
                 {
@@ -2227,26 +2317,26 @@ public partial class Nomina_Nomina2 : ClsPaginas
             }
 
             column++;
-            libro.Range(2, column, 3, column).Merge().Value = "Deducciones";
+            libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Deducciones";
             libro.Column(column).Width = 15;
 
             if (iniciotipe < column)
             {
-                libro.Range(1, iniciotipe + 1, 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
-                libro.Range(1, iniciotipe + 1, 1, column).Merge().Value = "Deducciones";
+                libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
+                libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Deducciones";
             }
 
             column++;
-            libro.Cell(1, column).Value = " ";
-            libro.Range(2, column, 3, column).Merge().Value = "Total";
+            libro.Cell(filainicio + 1, column).Value = " ";
+            libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Total";
             libro.Column(column).Width = 15;
             iniciotipe = column;
 
             foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'O' AND EsPadre = 1 ").Rows)
             {
                 column++;
-                libro.Cell(2, column).Value = row["Concepto"].ToString();
-                libro.Cell(3, column).Value = row["Codigo"].ToString();
+                libro.Cell(filainicio + 2, column).Value = row["Concepto"].ToString();
+                libro.Cell(filainicio + 3, column).Value = row["Codigo"].ToString();
                 libro.Column(column).Width = 15;
                 if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
                 {
@@ -2255,31 +2345,34 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
             }
             column++;
-            libro.Range(2, column, 3, column).Merge().Value = "Obligaciones";
+            libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Obligaciones";
             libro.Column(column).Width = 15;
 
 
             if (iniciotipe < column)
             {
-                libro.Range(1, iniciotipe + 1, 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
-                libro.Range(1, iniciotipe + 1, 1, column).Merge().Value = "Obligaciones";
+                libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
+                libro.Range(filainicio + 1, iniciotipe + 1, filainicio+1, column).Merge().Value = "Obligaciones";
             }
 
-            libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
-            libro.Row(2).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
-            libro.Row(3).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
-            libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(177, 160, 199));
-            libro.Row(2).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
-            libro.Row(3).Cell(1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
-            libro.Row(3).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+            //libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+            //libro.Row(2).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+            //libro.Row(3).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+            //libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(177, 160, 199));
+            //libro.Row(2).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+            //libro.Row(3).Cell(1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+            //libro.Row(3).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+            int maxnocolumn = column;
 
-            int Fila = 3;
+            int Fila = filainicio+3;
             int cveSupProyecto = -5;
             string subproyecto = "";
             int oldcveSupProyecto = -5;
             bool newsubproyecto = false;
             bool newsubproyectoTitulo = false;
-            foreach (DataRow erow in dtempleados.FiltraParametros("", "CveSubProyecto").Rows)
+            DataTable dtsr = dtempleados.FiltraParametros("", "CveSubProyecto");
+            dtsr.Rows.Add(dtsr.NewRow());
+            foreach (DataRow erow in dtsr.Rows)
             {
                 Fila++;
                 newsubproyecto = false; newsubproyectoTitulo = false;
@@ -2295,8 +2388,15 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 column = 1;
                 libro.Cell(Fila, column).Value = string.Format("'{0}", erow["Codigo"]);
                 column++;
-                if (newsubproyectoTitulo) { libro.Cell(Fila - 1, column).Value = subproyecto; }
-                if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = "Total"; }
+                if (newsubproyectoTitulo) {
+                    libro.Cell(Fila - 1, column).Value = subproyecto;
+                    libro.Range(Fila - 1, 1, Fila - 1, maxnocolumn).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(155, 194, 230));
+                }
+                if (newsubproyecto)
+                {
+                    libro.Cell(Fila - 3, column).Value = "Total";
+                    libro.Range(Fila - 3, 1, Fila - 3, maxnocolumn).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(155, 194, 230));
+                }
                 libro.Cell(Fila, column).Value = erow["Nombre"];
                 foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ").Rows)
                 {
@@ -2313,6 +2413,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 }
 
                 column++;
+                libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
                 libro.Cell(Fila, column).Value = erow["SumaPercepciones"];
                 if (newsubproyecto)
                 {
@@ -2333,6 +2434,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 }
 
                 column++;
+                libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
                 libro.Cell(Fila, column).Value = erow["SumaDeducciones"];
                 if (newsubproyecto)
                 {
@@ -2340,6 +2442,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 }
 
                 column++;
+                libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
                 libro.Cell(Fila, column).Value = erow["Total"];
                 if (newsubproyecto)
                 {
@@ -2359,6 +2462,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 }
 
                 column++;
+                libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
                 libro.Cell(Fila, column).Value = erow["SumaObligaciones"];
                 if (newsubproyecto)
                 {
@@ -2367,6 +2471,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
             }
 
 
+            libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+            libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+
             System.IO.Stream fs = new System.IO.MemoryStream();
             wb.SaveAs(fs);
             fs.Position = 0;
@@ -2382,7 +2489,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             Response.Buffer = true;
 
             Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet";
-            Response.AddHeader("content-disposition", string.Format("attachment;filename={0}.xlsx", "Nomina tabular"));
+            Response.AddHeader("content-disposition", string.Format("attachment;filename={0} {1}.xlsx", "Nomina tabular", periodo ));
             Response.BinaryWrite(memoryStream.ToArray());
             Response.End();
         }
@@ -4912,26 +5019,108 @@ public partial class Nomina_Nomina2 : ClsPaginas
         }
         else
         {
-            byte[] pdf2 = new byte[1];
-            bool notfirst = false;
+            List<byte[]> pdfs = new List<byte[]>();
+            //byte[] pdf2 = new byte[1];  bool notfirst = false;
             foreach (DataRow dr in dtempleados.Rows)
             {
-                if (notfirst)
+                CvePersonal = dr["CvePersonal"].ToString().ToEntero();
+                if (CvePersonal > 0)
                 {
+                    pdfs.Add(GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta));
 
-                    pdf2 = GeneraPDFNomina(dr["CvePersonal"].ToString().ToEntero(), CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta);
-                    byte[] newByteArray2 = pdf.Concat(pdf2).ToArray();
                 }
-                else
-                {
-                    pdf = GeneraPDFNomina(dr["CvePersonal"].ToString().ToEntero(), CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta);
-                }
-                notfirst = true;
+                //if (notfirst)
+                //{
+
+                //    pdf2 = GeneraPDFNomina(dr["CvePersonal"].ToString().ToEntero(), CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta);
+                //    byte[] newByteArray2 = pdf.Concat(pdf2).ToArray();
+                //}
+                //else
+                //{
+                //    pdf = GeneraPDFNomina(dr["CvePersonal"].ToString().ToEntero(), CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta);
+
+                //}
+                //notfirst = true;
             }
+            pdf = MergeFiles(pdfs);
         }
         ImprimirbytesPDF(pdf, nombre);
 
     }
+    public static byte[] MergeFiles(List<byte[]> sourceFiles)
+    {
+        string destinationFile;
+        try
+        {
+            using (MemoryStream ms = new MemoryStream())
+            {
+                int f = 0;
+                // we create a reader for a certain document
+                PdfReader reader = new PdfReader(sourceFiles[f]);
+                // we retrieve the total number of pages
+                int n = reader.NumberOfPages;
+                //Console.WriteLine("There are " + n + " pages in the original file.");
+                // step 1: creation of a document-object
+                iTextSharp.text.Document document = new iTextSharp.text.Document(reader.GetPageSizeWithRotation(1));
+                // step 2: we create a writer that listens to the document
+                //PdfWriter writer = PdfWriter.GetInstance(document, new FileStream(destinationFile, FileMode.Create));
+                PdfWriter writer = PdfWriter.GetInstance(document, ms);
+                // step 3: we open the document
+                document.Open();
+                PdfContentByte cb = writer.DirectContent;
+                PdfImportedPage page;
+                int rotation;
+                // step 4: we add content
+                while (f < sourceFiles.Count)
+                {
+                    int i = 0;
+                    while (i < n)
+                    {
+                        i++;
+                        document.SetPageSize(reader.GetPageSizeWithRotation(i));
+                        document.NewPage();
+                        page = writer.GetImportedPage(reader, i);
+                        rotation = reader.GetPageRotation(i);
+                        if (rotation == 90 || rotation == 270)
+                        {
+                            cb.AddTemplate(page, 0, -1f, 1f, 0, 0, reader.GetPageSizeWithRotation(i).Height);
+                        }
+                        else
+                        {
+                            cb.AddTemplate(page, 1f, 0, 0, 1f, 0, 0);
+                        }
+                        //Console.WriteLine("Processed page " + i);
+                    }
+                    f++;
+                    if (f < sourceFiles.Count)
+                    {
+                        reader = new PdfReader(sourceFiles[f]);
+                        // we retrieve the total number of pages
+                        n = reader.NumberOfPages;
+                        //Console.WriteLine("There are " + n + " pages in the original file.");
+                    }
+                }
+                // step 5: we close the document
+                document.Close();
+                return ms.ToArray();
+
+            }
+        }
+        catch (Exception e)
+        {
+            string strOb = e.Message;
+        }
+        return null;
+    }
+
+    public static int CountPageNo(string strFileName)
+    {
+        // we create a reader for a certain document
+        PdfReader reader = new PdfReader(strFileName);
+        // we retrieve the total number of pages
+        return reader.NumberOfPages;
+    }
+
 
     protected void BtnGenerateXml_Click(object sender, EventArgs e)
     {
@@ -4977,4 +5166,10 @@ public partial class Nomina_Nomina2 : ClsPaginas
         {
         }
     }
+
+
+    protected void LnkRegistrarProvision_Click(object sender, EventArgs e)
+    {
+
+    }
 }
\ No newline at end of file
diff --git a/RH/CalculoSBC.aspx b/RH/CalculoSBC.aspx
index 2e73d43d2..187788fa1 100644
--- a/RH/CalculoSBC.aspx
+++ b/RH/CalculoSBC.aspx
@@ -4,11 +4,11 @@
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
-        .GVCalculosSBC tr th:nth-child(n+6) {
+        .GVCalculosSBC tr th:nth-child(n+6):not(:nth-child(n+10)) {
             background-color: #a9a9e8 !important;
         }
 
-        .GVCalculosSBC tr th:nth-child(n+10) {
+        .GVCalculosSBC tr th:nth-child(n+10):not(:nth-child(n+13)) {
             background-color: #88d6cd !important;
         }
     </style>
@@ -84,6 +84,7 @@
                                 <th colspan="5"></th>
                                 <th colspan="4" style="background-color: #a9a9e8 !important;">Actual</th>
                                 <th colspan="3" style="background-color: #88d6cd !important;">Nuevo</th>
+                                <th></th>
                             </tr>
                         </table>
                         <asp:GridView ID="GVCalculosSBC" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVCalculosSBC" AutoGenerateColumns="False" data-tableheader="#tableheader"
@@ -187,6 +188,14 @@
                                         <asp:Label ID="lblsalarioDiarioSS" runat="server" Text='<%# Eval("SalarioDiarioSSNuevo","{0:N2}")%>'> </asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="center">
+                                    <HeaderTemplate>
+                                        Modificación
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblsalarioDiarioSS" runat="server" Text='<%# (Eval("SalarioDiarioSSNuevo", "{0:N2}") == Eval("SalarioDiarioSS", "{0:N2}") ? "NO" : "SI")  %>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
                             </Columns>
                         </asp:GridView>
                     </ContentTemplate>
diff --git a/RH/CalculoSBC.aspx.cs b/RH/CalculoSBC.aspx.cs
index 15374b256..ec3d7c0c8 100644
--- a/RH/CalculoSBC.aspx.cs
+++ b/RH/CalculoSBC.aspx.cs
@@ -39,13 +39,13 @@ public partial class RH_CalculoSBC :  ClsPaginas
         {
             if (ObjPersonal.GetMovimientosToSUA(UsuarioActual.CveEmpresa,"2021-01-01", "2021-02-28"))
             {
-                //01: MovtosAfil
-                concater = "";
-                foreach (var item in ObjPersonal.DtResultados.Select("Tipo=1"))
-                {
-                    MovtosAfil = string.Format("{0}{1}{2}", MovtosAfil, concater, item["Movtotxt"]);
-                    concater = "\\r\\n";
-                }
+                ////01: MovtosAfil
+                //concater = "";
+                //foreach (var item in ObjPersonal.DtResultados.Select("Tipo=1"))
+                //{
+                //    MovtosAfil = string.Format("{0}{1}{2}", MovtosAfil, concater, item["Movtotxt"]);
+                //    concater = "\\r\\n";
+                //}
 
                 //02: MovtosmodSalario 
                 concater = "";
@@ -55,16 +55,17 @@ public partial class RH_CalculoSBC :  ClsPaginas
                     MovtosmodSalario = string.Format("{0}{1}{2}", MovtosmodSalario, concater, item["Movtotxt"]);
                     concater = "\\r\\n";
                 }
-                //03: movtosBajas
-                concater = "";
-                foreach (var item in ObjPersonal.DtResultados.Select("Tipo=3"))
-                {
-                    movtosBajas = string.Format("{0}{1}{2}", movtosBajas, concater, item["Movtotxt"]);
-                    concater = "\\r\\n";
-                }
+                ////03: movtosBajas
+                //concater = "";
+                //foreach (var item in ObjPersonal.DtResultados.Select("Tipo=3"))
+                //{
+                //    movtosBajas = string.Format("{0}{1}{2}", movtosBajas, concater, item["Movtotxt"]);
+                //    concater = "\\r\\n";
+                //}
 
             }
-            RegistraScript(string.Format("SaveCsv(\"MovtosAfil.txt\", '{0}');SaveCsv(\"MovtosmodSalario.txt\", '{1}');SaveCsv(\"movtosBajas.txt\", '{2}');", MovtosAfil.Replace("'", "\\'"), MovtosmodSalario.Replace("'", "\\'"), movtosBajas.Replace("'", "\\'")));
+            RegistraScript(string.Format("SaveCsv(\"MovtosmodSalario.txt\", '{0}');", MovtosmodSalario));
+            //RegistraScript(string.Format("SaveCsv(\"MovtosAfil.txt\", '{0}');SaveCsv(\"MovtosmodSalario.txt\", '{1}');SaveCsv(\"movtosBajas.txt\", '{2}');", MovtosAfil.Replace("'", "\\'"), MovtosmodSalario.Replace("'", "\\'"), movtosBajas.Replace("'", "\\'")));
             RegistraScript("$('#DmodalGetSua').modal('hide');");
         }
     }
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 78c15c76b..aca994993 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -906,7 +906,7 @@
                                                 </div>
                                             </div>
                                             <div class="portlet-body form">
-                                            <%--    <div class="form-group form-md-line-input">
+                                                <%--    <div class="form-group form-md-line-input">
                                                     <asp:TextBox ID="TxtConvenioCIE" CssClass="form-control" runat="server" MaxLength="50" Enabled="false"></asp:TextBox>
                                                     <label for="<%= TxtConvenioCIE.ClientID.ToString()%>">Convenio CIE:</label>
                                                 </div>--%>
@@ -914,12 +914,12 @@
                                                     <asp:TextBox ID="TxtReferenciaFiscal" CssClass="form-control" runat="server" Enabled="false"></asp:TextBox>
                                                     <label for="<%= TxtReferenciaFiscal.ClientID.ToString()%>">Referencia:</label>
                                                 </div>
-                                             <%--   <div class="form-group form-md-line-input input-iconright">
+                                                <%--   <div class="form-group form-md-line-input input-iconright">
                                                     <asp:TextBox ID="TxtNumCtaPago" CssClass="form-control" runat="server" MaxLength="30" Enabled="false"></asp:TextBox>
                                                     <label for="<%= TxtNumCtaPago.ClientID.ToString()%>">Número de cuenta de Pago: </label>
                                                     <i></i>
                                                 </div>--%>
-                                               <%-- <div class="form-group form-md-line-input input-iconright">
+                                                <%-- <div class="form-group form-md-line-input input-iconright">
                                                     <asp:DropDownList ID="DdlMetodoPago" CssClass="form-control  select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPago" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar">
                                                         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                                     </asp:DropDownList>
@@ -3215,9 +3215,10 @@
                                         </Triggers>--%>
                                     </asp:UpdatePanel>
 
-                                    <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; width: 50%; float: right" align="left">
-                                        <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                    <div style="text-align:right;">
+                                       <span id="Contadorgps"><%=GvDatosGPS.Rows.Count %> </span> dispositivos
+                                        <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatosGPS.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatosGPS.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                                     </div>
                                 </div>
                             </div>
@@ -3225,8 +3226,15 @@
                                 <ContentTemplate>
                                     <asp:HiddenField ID="hdnArrayDispositivo" runat="server" Value="" ClientIDMode="Static" />
                                     <asp:Button ID="btnCargaArrayDisp" runat="server" Text="" Style="display: none" ClientIDMode="Static"></asp:Button>
-                                    <asp:GridView ID="GvDatos" runat="server" GridLines="None" ShowFooter="true" DataKeyNames="CveDispositivo, CveModelo, CveProveedorComunicacionCuenta, Display" CssClass="table table-striped table-advance table-hover Widthall" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Dispositivos">
+                                    <asp:GridView ID="GvDatosGPS" runat="server" GridLines="None" ShowFooter="true" DataKeyNames="CveDispositivo,CveModelo,CveProveedorComunicacionCuenta,Display,Modelo,IMEI"
+                                        CssClass="table table-striped table-advance table-hover Widthall" CellSpacing="0" Width="100%" AutoGenerateColumns="False"
+                                        EmptyDataText="No se encontraron registros" ToolTip="Listado de Dispositivos">
                                         <Columns>
+                                            <asp:TemplateField HeaderText="#" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Center" ItemStyle-VerticalAlign="Middle" FooterStyle-VerticalAlign="Middle">
+                                                <ItemTemplate>
+                                                    <asp:Label ID="Lblnumero" runat="server" Text=""></asp:Label>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
                                             <asp:BoundField DataField="TipoDispositivoDisplay" ItemStyle-Width="15%" HeaderText="Tipo Dispositivo" ItemStyle-HorizontalAlign="Left" />
                                             <asp:BoundField DataField="Display" ItemStyle-Width="15%" HeaderText="Vehículo" ItemStyle-HorizontalAlign="Left" />
                                             <asp:BoundField DataField="Modelo" ItemStyle-Width="10%" HeaderText="Modelo" ItemStyle-HorizontalAlign="Left" />
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index f65900d88..bce7ce491 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -9,9 +9,9 @@ Imports System.Data
 Imports System.Globalization
 
 Partial Class Clientes
-    Inherits ClsPaginas
-
-    'Configuración
+    Inherits ClsPaginas
+
+    'Configuración
 #Region "P R O P I E D A D E S"
     Private Const NumeroDecimales As Integer = 2
     Private CveVentaDeduccion As Integer
@@ -20,7 +20,7 @@ Partial Class Clientes
     Public ReadOnly Property RowStyle As TableItemStyle
     Private ReadOnly Property CveCliente As Integer
         Get
-            Return ViewState("CveCliente").ToString.ToEntero
+            Return ViewState("CveCliente").ToString().ToEntero()
         End Get
     End Property
     Private Property DTCuentasBancos As DataTable
@@ -50,7 +50,7 @@ Partial Class Clientes
 
     Private Property CveClientePersonalEntrega As Integer
         Get
-            Return ViewState("CveClientePersonalEntrega").ToString.ToEntero
+            Return ViewState("CveClientePersonalEntrega").ToString().ToEntero()
         End Get
         Set(value As Integer)
             ViewState("CveClientePersonalEntrega") = value
@@ -59,7 +59,7 @@ Partial Class Clientes
 
     Private Property Modalidad As String
         Get
-            Return ViewState("Modalidad").ToString
+            Return ViewState("Modalidad").ToString()
         End Get
         Set(value As String)
             ViewState("Modalidad") = value
@@ -68,7 +68,7 @@ Partial Class Clientes
 
     Private Property IdCtaCliente As String
         Get
-            Return If(IsNothing(ViewState("IdCtaCliente")), "", ViewState("IdCtaCliente").ToString)
+            Return If(IsNothing(ViewState("IdCtaCliente")), "", ViewState("IdCtaCliente").ToString())
         End Get
         Set(value As String)
             ViewState("IdCtaCliente") = value
@@ -77,7 +77,7 @@ Partial Class Clientes
     Private Property IdCtaAnticipos As String
         Get
 
-            Return If(IsNothing(ViewState("IdCtaAnticipos")), "", ViewState("IdCtaAnticipos").ToString)
+            Return If(IsNothing(ViewState("IdCtaAnticipos")), "", ViewState("IdCtaAnticipos").ToString())
         End Get
         Set(value As String)
             ViewState("IdCtaAnticipos") = value
@@ -85,7 +85,7 @@ Partial Class Clientes
     End Property
     Private Property IdCtaRetIVA As String
         Get
-            Return If(IsNothing(ViewState("IdCtaRetIVA")), "", ViewState("IdCtaRetIVA").ToString)
+            Return If(IsNothing(ViewState("IdCtaRetIVA")), "", ViewState("IdCtaRetIVA").ToString())
         End Get
         Set(value As String)
             ViewState("IdCtaRetIVA") = value
@@ -93,7 +93,7 @@ Partial Class Clientes
     End Property
     Private Property IdCtaFondoGarantia As String
         Get
-            Return If(IsNothing(ViewState("IdCtaFondoGarantia")), "", ViewState("IdCtaFondoGarantia").ToString)
+            Return If(IsNothing(ViewState("IdCtaFondoGarantia")), "", ViewState("IdCtaFondoGarantia").ToString())
         End Get
         Set(value As String)
             ViewState("IdCtaFondoGarantia") = value
@@ -101,7 +101,7 @@ Partial Class Clientes
     End Property
     Private Property IdCtaRetISR As String
         Get
-            Return If(IsNothing(ViewState("IdCtaRetISR")), "", ViewState("IdCtaRetISR").ToString)
+            Return If(IsNothing(ViewState("IdCtaRetISR")), "", ViewState("IdCtaRetISR").ToString())
         End Get
         Set(value As String)
             ViewState("IdCtaRetISR") = value
@@ -110,7 +110,7 @@ Partial Class Clientes
 
     Private Property CveCuentaBancaria As Integer
         Get
-            Return ViewState("CveCuentaBancaria").ToString.ToEntero
+            Return ViewState("CveCuentaBancaria").ToString().ToEntero()
         End Get
         Set(value As Integer)
             ViewState("CveCuentaBancaria") = value
@@ -122,7 +122,7 @@ Partial Class Clientes
             If ViewState("CveClienteSuc") Is Nothing Then
                 Return -1
             Else
-                Return ViewState("CveClienteSuc").ToString.ToEntero
+                Return ViewState("CveClienteSuc").ToString().ToEntero()
             End If
         End Get
         Set(value As Integer)
@@ -150,7 +150,7 @@ Partial Class Clientes
 
     Private Property IdCtaCompCliente As String
         Get
-            Return If(IsNothing(ViewState("IdCtaCompCliente")), "", ViewState("IdCtaCompCliente").ToString)
+            Return If(IsNothing(ViewState("IdCtaCompCliente")), "", ViewState("IdCtaCompCliente").ToString())
         End Get
         Set(value As String)
             ViewState("IdCtaCompCliente") = value
@@ -159,7 +159,7 @@ Partial Class Clientes
 
     Private Property ArrayDisp As String
         Get
-            Return If(IsNothing(ViewState("ArrayDisp")), "", ViewState("ArrayDisp").ToString)
+            Return If(IsNothing(ViewState("ArrayDisp")), "", ViewState("ArrayDisp").ToString())
         End Get
         Set(value As String)
             ViewState("ArrayDisp") = value
@@ -167,7 +167,7 @@ Partial Class Clientes
     End Property
     Private Property NombreDispositivo As String
         Get
-            Return If(IsNothing(ViewState("NombreDispositivo")), "", ViewState("NombreDispositivo").ToString)
+            Return If(IsNothing(ViewState("NombreDispositivo")), "", ViewState("NombreDispositivo").ToString())
         End Get
         Set(value As String)
             ViewState("NombreDispositivo") = value
@@ -176,7 +176,7 @@ Partial Class Clientes
 
     Private Property IdCtaCompAnticipo As String
         Get
-            Return If(IsNothing(ViewState("IdCtaCompAnticipo")), "", ViewState("IdCtaCompAnticipo").ToString)
+            Return If(IsNothing(ViewState("IdCtaCompAnticipo")), "", ViewState("IdCtaCompAnticipo").ToString())
         End Get
         Set(value As String)
             ViewState("IdCtaCompAnticipo") = value
@@ -188,7 +188,7 @@ Partial Class Clientes
             If ViewState("CveDireccionEnvio") Is Nothing Then
                 Return -1
             Else
-                Return ViewState("CveDireccionEnvio").ToString.ToEntero
+                Return ViewState("CveDireccionEnvio").ToString().ToEntero()
             End If
         End Get
         Set(value As Integer)
@@ -201,7 +201,7 @@ Partial Class Clientes
             If ViewState("CveCuentaEquipo") Is Nothing Then
                 Return -1
             Else
-                Return ViewState("CveCuentaEquipo").ToString.ToEntero
+                Return ViewState("CveCuentaEquipo").ToString().ToEntero()
             End If
         End Get
         Set(value As Integer)
@@ -212,7 +212,7 @@ Partial Class Clientes
 
     Private Property IdCtaMonedaExtranjera As String
         Get
-            Return If(IsNothing(ViewState("IdCtaMonedaExtranjera")), "", ViewState("IdCtaMonedaExtranjera").ToString)
+            Return If(IsNothing(ViewState("IdCtaMonedaExtranjera")), "", ViewState("IdCtaMonedaExtranjera").ToString())
         End Get
         Set(value As String)
             ViewState("IdCtaMonedaExtranjera") = value
@@ -221,7 +221,7 @@ Partial Class Clientes
 
     Private Property IdCtaMonedaExtranjeraAnticipos As String
         Get
-            Return If(IsNothing(ViewState("IdCtaMonedaExtranjeraAnticipos")), "", ViewState("IdCtaMonedaExtranjeraAnticipos").ToString)
+            Return If(IsNothing(ViewState("IdCtaMonedaExtranjeraAnticipos")), "", ViewState("IdCtaMonedaExtranjeraAnticipos").ToString())
         End Get
         Set(value As String)
             ViewState("IdCtaMonedaExtranjeraAnticipos") = value
@@ -242,7 +242,7 @@ Partial Class Clientes
             If ViewState("EstatusAnteriorCliente") Is Nothing Then
                 Return True
             Else
-                Return Boolean.Parse(ViewState("EstatusAnteriorCliente").ToString)
+                Return Boolean.Parse(ViewState("EstatusAnteriorCliente").ToString())
             End If
         End Get
         Set(value As Boolean)
@@ -263,7 +263,7 @@ Partial Class Clientes
             If ViewState("CveSucursal") Is Nothing Then
                 Return -1
             Else
-                Return ViewState("CveSucursal").ToString.ToEntero
+                Return ViewState("CveSucursal").ToString().ToEntero()
             End If
         End Get
         Set(value As Integer)
@@ -296,7 +296,7 @@ Partial Class Clientes
 
     Private Property CobranzaTelefono As String
         Get
-            CobranzaTelefono = ViewState("CobranzaTelefono").ToString
+            CobranzaTelefono = ViewState("CobranzaTelefono").ToString()
         End Get
         Set(value As String)
             ViewState("CobranzaTelefono") = value
@@ -304,7 +304,7 @@ Partial Class Clientes
     End Property
     Private Property CodigoCliente As String
         Get
-            CodigoCliente = ViewState("CodigoCliente").ToString
+            CodigoCliente = ViewState("CodigoCliente").ToString()
         End Get
         Set(value As String)
             ViewState("CodigoCliente") = value
@@ -347,7 +347,7 @@ Partial Class Clientes
             If ViewState("CveEmpresaCRM") Is Nothing Then
                 Return -1
             Else
-                Return ViewState("CveEmpresaCRM").ToString.ToEntero
+                Return ViewState("CveEmpresaCRM").ToString().ToEntero()
             End If
         End Get
         Set(value As Integer)
@@ -369,7 +369,7 @@ Partial Class Clientes
             If ViewState("CveEmpresaCRMUnificar") Is Nothing Then
                 Return -1
             Else
-                Return ViewState("CveEmpresaCRMUnificar").ToString.ToEntero
+                Return ViewState("CveEmpresaCRMUnificar").ToString().ToEntero()
             End If
         End Get
         Set(value As Integer)
@@ -455,7 +455,7 @@ Partial Class Clientes
     '        If ViewState("EstatusAnteriorCliente") Is Nothing Then
     '            Return True
     '        Else
-    '            Return Boolean.Parse(ViewState("EstatusAnteriorCliente").ToString)
+    '            Return Boolean.Parse(ViewState("EstatusAnteriorCliente").ToString())
     '        End If
     '    End Get
     '    Set(value As Boolean)
@@ -468,7 +468,7 @@ Partial Class Clientes
             If ViewState("CargoUsado") Is Nothing Then
                 Return True
             Else
-                Return Boolean.Parse(ViewState("CargoUsado").ToString)
+                Return Boolean.Parse(ViewState("CargoUsado").ToString())
             End If
         End Get
         Set(value As Boolean)
@@ -481,7 +481,7 @@ Partial Class Clientes
             If ViewState("BonificacionUsado") Is Nothing Then
                 Return True
             Else
-                Return Boolean.Parse(ViewState("BonificacionUsado").ToString)
+                Return Boolean.Parse(ViewState("BonificacionUsado").ToString())
             End If
         End Get
         Set(value As Boolean)
@@ -491,15 +491,15 @@ Partial Class Clientes
 
     Private Property linkDescargaPagare As String
         Get
-            Return If(IsNothing(ViewState("linkDescargaPagare")), "", ViewState("linkDescargaPagare").ToString)
+            Return If(IsNothing(ViewState("linkDescargaPagare")), "", ViewState("linkDescargaPagare").ToString())
         End Get
         Set(value As String)
             ViewState("linkDescargaPagare") = value
         End Set
-    End Property
-
+    End Property
+
 #End Region
-
+
 #Region "Documentacion"
     Private Property DTDocumentacion As DataTable
         Get
@@ -519,7 +519,7 @@ Partial Class Clientes
             If ViewState("Documentacion") Is Nothing Then
                 Return "-1"
             Else
-                Return ViewState("Documentacion").ToString
+                Return ViewState("Documentacion").ToString()
             End If
         End Get
         Set(value As String)
@@ -567,7 +567,7 @@ Partial Class Clientes
             If ViewState("FechaLimite") Is Nothing Then
                 Return Date.Now.AddDays(15)
             Else
-                Return ViewState("FechaLimite").ToString.ToDate
+                Return ViewState("FechaLimite").ToString().ToDate()
             End If
         End Get
         Set(value As Date)
@@ -592,7 +592,7 @@ Partial Class Clientes
             If ViewState("ObservacionDocumentacion") Is Nothing Then
                 Return ""
             Else
-                Return ViewState("ObservacionDocumentacion").ToString
+                Return ViewState("ObservacionDocumentacion").ToString()
             End If
         End Get
         Set(value As String)
@@ -604,34 +604,34 @@ Partial Class Clientes
             If ViewState("AdjuntoDocumentacion") Is Nothing Then
                 Return ""
             Else
-                Return ViewState("AdjuntoDocumentacion").ToString
+                Return ViewState("AdjuntoDocumentacion").ToString()
             End If
         End Get
         Set(value As String)
             ViewState("AdjuntoDocumentacion") = value
         End Set
-    End Property
-    'Private ReadOnly Property CvePersonal As Integer
-    '    Get
-    '        If ViewState("CvePersonal") Is Nothing Then
-    '            Return -1
-    '        Else
-    '            Return ViewState("CvePersonal").ToString.ToEntero
-    '        End If
-    '    End Get
-    'End Property
-
+    End Property
+    'Private ReadOnly Property CvePersonal As Integer
+    '    Get
+    '        If ViewState("CvePersonal") Is Nothing Then
+    '            Return -1
+    '        Else
+    '            Return ViewState("CvePersonal").ToString().Toentero()
+    '        End If
+    '    End Get
+    'End Property
+
 #End Region
-
-
-
+
+
+
 #Region " A C U M U L A D O R E S"
     Property CveVentaNota As Integer
         Get
             If ViewState("CveVentaNota") Is Nothing Then
                 Return 0
             Else
-                Return ViewState("CveVentaNota").ToString.ToEntero
+                Return ViewState("CveVentaNota").ToString().ToEntero()
             End If
         End Get
         Set(value As Integer)
@@ -645,7 +645,7 @@ Partial Class Clientes
             If ViewState("FolioNotaAcumulador") Is Nothing Then
                 Return 0
             Else
-                Return ViewState("FolioNotaAcumulador").ToString.ToEntero
+                Return ViewState("FolioNotaAcumulador").ToString().ToEntero()
             End If
         End Get
         Set(value As Integer)
@@ -658,16 +658,16 @@ Partial Class Clientes
                 Return ""
 
             Else
-                Return ViewState("SerieNotaAcumulador").ToString
+                Return ViewState("SerieNotaAcumulador").ToString()
             End If
         End Get
         Set(value As String)
             ViewState("SerieNotaAcumulador") = value
         End Set
-    End Property
-
+    End Property
+
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -727,7 +727,7 @@ Partial Class Clientes
                 TabCuentasEquipos.Visible = True
             End If
 
-            If UsuarioActual.Empresa.Funcionalidad(504).ToEntero > 0 Then
+            If UsuarioActual.Empresa.Funcionalidad(504).ToEntero() > 0 Then
                 If UsuarioActual.TienePermisoProceso(162) Then
                     ChkPermiteCredito.Enabled = True
                     TxtLimiteCreditoSucursal.Enabled = True
@@ -746,7 +746,7 @@ Partial Class Clientes
                 DivRetIVA.Visible = False
             End If
 
-            If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 Then
+            If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero() > 0 Then
                 'If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 AndAlso Not Request("CveCliente").Contiene("10450", "10460", "10458") Then
                 '    BtnGuardar.Enabled = False : BtnEliminar.Enabled = False : LbAgregarSucursal.Enabled = False : LbEnviarActivacionPortal.Enabled = False
                 '    Exit Sub
@@ -767,7 +767,7 @@ Partial Class Clientes
                     HplAddVenta.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveCliente={0}", CveCliente)
                     HplAddCotizacion.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveCliente={0}&Op=Cot", CveCliente)
                     'ImgAddObs.Attributes.Add("onclick", "javascript:PosicionaObjeto(this.id,'DivEventoBitacora',null,-250,-250); $('#DivEventoBitacora').show(1000); ")
-                    If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero
+                    If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero()
                     CargaDireccionesEnvio()
                     CargaAFAsignados()
 
@@ -803,7 +803,7 @@ Partial Class Clientes
                 End If
 
                 If Request("ATI") IsNot Nothing AndAlso IsNumeric(Request("ATI")) Then
-                    Tab.ActiveTabIndex = Request("ATI").ToEntero
+                    Tab.ActiveTabIndex = Request("ATI").ToEntero()
                 End If
                 'CargaCuentasyConceptos()
             Else
@@ -811,7 +811,7 @@ Partial Class Clientes
 
                 If UsuarioActual.Empresa.Funcionalidad(525) = "1" Then
                     Dim ObjClientes As New ClsClientes
-                    TxtCodigo.Text = ObjClientes.GetSiguienteCodigoCliente(UsuarioActual.CveEmpresa).ToString
+                    TxtCodigo.Text = ObjClientes.GetSiguienteCodigoCliente(UsuarioActual.CveEmpresa).ToString()
                     ObjClientes.Dispose()
                 End If
 
@@ -851,7 +851,7 @@ Partial Class Clientes
                 UpFiscalContable.Update()
             End If
 
-            If Request("CveEmpresaCRM") IsNot Nothing AndAlso IsNumeric(Request("CveEmpresaCRM")) AndAlso Request("CveEmpresaCRM").ToEntero > 0 Then
+            If Request("CveEmpresaCRM") IsNot Nothing AndAlso IsNumeric(Request("CveEmpresaCRM")) AndAlso Request("CveEmpresaCRM").ToEntero() > 0 Then
                 ViewState("CveEmpresaCRM") = Request("CveEmpresaCRM")
                 CargaDatosCRM()
             End If
@@ -892,8 +892,8 @@ Partial Class Clientes
 
             InicializaDevolverDinero()
 
-            TxtFechaICredito.Text = Now.AddYears(-2).ToShortDateString
-            TxtFechaFCredito.Text = Now.ToShortDateString
+            TxtFechaICredito.Text = Now.AddYears(-2).ToShortDateString()
+            TxtFechaFCredito.Text = Now.ToShortDateString()
 
 
 
@@ -910,8 +910,8 @@ Partial Class Clientes
         ChkPermiso5.Enabled = False
         ChkPermiso6.Enabled = False
 
-    End Sub
-
+    End Sub
+
 #Region "  PERMISOS PAGINAS  "
     Private Function PermiteGuardar() As Boolean
         Return UsuarioActual.TienePermisoProceso(192)
@@ -936,18 +936,18 @@ Partial Class Clientes
         TxtCorreoEntregaAlmacen.Enabled = False
         ChkCargoUsado.Enabled = False
         ChkBonificacionUsado.Enabled = False
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
-
+
+
 #Region "C A R G A S"
-
-
-
-
-
+
+
+
+
+
     Private Sub CreaDtPago()
         DtPagos = New DataTable
         DtPagos.Columns.Add("CveTipoMovimiento", GetType(String))
@@ -1091,11 +1091,11 @@ Partial Class Clientes
         DdlMonedaExtranjeraClientes.AutoPostBack = True
         DdlMonedaExtranjeraAnticipos.AutoPostBack = True
 
-        If UsuarioActual.Empresa.Funcionalidad(246).ToEntero > 0 Then
+        If UsuarioActual.Empresa.Funcionalidad(246).ToEntero() > 0 Then
             DdlCtaContableClientes.Attributes.Add("onclick", "CargaCuentas(1);")
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(237).ToEntero > 0 Then
+        If UsuarioActual.Empresa.Funcionalidad(237).ToEntero() > 0 Then
             DdlCtaContableAnticipos.Attributes.Add("onclick", "CargaCuentas(2);")
         End If
 
@@ -1103,13 +1103,13 @@ Partial Class Clientes
         'DdlCtaContableRetISR.Attributes.Add("onclick", "CargaCuentas(4);")
         'DdlCtaContableFondoGarantia.Attributes.Add("onclick", "CargaCuentas(5);")
 
-        If UsuarioActual.Empresa.Funcionalidad(248).ToEntero > 0 Then
+        If UsuarioActual.Empresa.Funcionalidad(248).ToEntero() > 0 Then
             DdlCtaContableCompClientes.Attributes.Add("onclick", "CargaCuentas(6);")
         End If
 
         DdlCtaContableCompAnticipos.Attributes.Add("onclick", "CargaCuentas(7);")
 
-        If UsuarioActual.Empresa.Funcionalidad(247).ToEntero > 0 Then
+        If UsuarioActual.Empresa.Funcionalidad(247).ToEntero() > 0 Then
             DdlMonedaExtranjeraClientes.Attributes.Add("onclick", "CargaCuentas(8);")
         End If
         DdlMonedaExtranjeraAnticipos.Attributes.Add("onclick", "CargaCuentas(9);")
@@ -1129,9 +1129,9 @@ Partial Class Clientes
 
         Select Case HdnCuenta.Value
             Case "1"
-                CargaDdlCuentasContables(DdlCtaContableClientes, 1)'UsuarioActual.Empresa.Funcionalidad(246).ToEntero
+                CargaDdlCuentasContables(DdlCtaContableClientes, 1)'UsuarioActual.Empresa.Funcionalidad(246).Toentero()
             Case "2"
-                CargaDdlCuentasContables(DdlCtaContableAnticipos, 1)' UsuarioActual.Empresa.Funcionalidad(237).ToEntero
+                CargaDdlCuentasContables(DdlCtaContableAnticipos, 1)' UsuarioActual.Empresa.Funcionalidad(237).Toentero()
             Case "3"
                 CargaDdlCuentasContables(DdlCtaContableRetIVA, -1)
             Case "4"
@@ -1139,13 +1139,13 @@ Partial Class Clientes
             Case "5"
                 CargaDdlCuentasContables(DdlCtaContableFondoGarantia, -1)
             Case "6"
-                CargaDdlCuentasContables(DdlCtaContableCompClientes, 1)'UsuarioActual.Empresa.Funcionalidad(248).ToEntero
+                CargaDdlCuentasContables(DdlCtaContableCompClientes, 1)'UsuarioActual.Empresa.Funcionalidad(248).Toentero()
             Case "7"
                 CargaDdlCuentasContables(DdlCtaContableCompAnticipos, -1)
             Case "8"
-                CargaDdlCuentasContables(DdlMonedaExtranjeraClientes, 1)'UsuarioActual.Empresa.Funcionalidad(247).ToEntero
+                CargaDdlCuentasContables(DdlMonedaExtranjeraClientes, 1)'UsuarioActual.Empresa.Funcionalidad(247).Toentero()
             Case "9"
-                CargaDdlCuentasContables(DdlMonedaExtranjeraAnticipos, 1) 'UsuarioActual.Empresa.Funcionalidad(542).ToEntero
+                CargaDdlCuentasContables(DdlMonedaExtranjeraAnticipos, 1) 'UsuarioActual.Empresa.Funcionalidad(542).Toentero()
         End Select
         UpFiscalContable.Update()
 
@@ -1160,8 +1160,8 @@ Partial Class Clientes
     '    ' Verifica si la empresas tienen las funcionalidades 246, 247 y 248
     '    Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
 
-    '    If UsuarioActual.Empresa.Funcionalidad(246).ToEntero > 0 Then
-    '        If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(246).ToEntero, "-1", 1) Then
+    '    If UsuarioActual.Empresa.Funcionalidad(246).Toentero() > 0 Then
+    '        If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(246).Toentero(), "-1", 1) Then
     '            DdlCtaContableClientes.Items.Clear()
     '            DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
     '            DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
@@ -1169,8 +1169,8 @@ Partial Class Clientes
     '        End If
     '    End If
 
-    '    If UsuarioActual.Empresa.Funcionalidad(247).ToEntero > 0 Then
-    '        If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(247).ToEntero, "-1", 1) Then
+    '    If UsuarioActual.Empresa.Funcionalidad(247).Toentero() > 0 Then
+    '        If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(247).Toentero(), "-1", 1) Then
     '            DdlMonedaExtranjeraClientes.Items.Clear()
     '            DdlMonedaExtranjeraClientes.Items.Add(New ListItem("Seleccione", "0"))
     '            DdlMonedaExtranjeraClientes.DataSource = ObjContabilidad.DtResultados
@@ -1178,8 +1178,8 @@ Partial Class Clientes
     '        End If
     '    End If
 
-    '    If UsuarioActual.Empresa.Funcionalidad(248).ToEntero > 0 Then
-    '        If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(248).ToEntero, "-1", 1) Then
+    '    If UsuarioActual.Empresa.Funcionalidad(248).Toentero() > 0 Then
+    '        If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(248).Toentero(), "-1", 1) Then
     '            DdlCtaContableCompClientes.Items.Clear()
     '            DdlCtaContableCompClientes.Items.Add(New ListItem("Seleccione", "0"))
     '            DdlCtaContableCompClientes.DataSource = ObjContabilidad.DtResultados
@@ -1277,56 +1277,56 @@ Partial Class Clientes
             DdlMonedaExtranjeraAnticipos.DataSource = Nothing
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(211).ToEntero > 0 Then
-            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(211).ToEntero) Then
+        If UsuarioActual.Empresa.Funcionalidad(211).ToEntero() > 0 Then
+            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(211).ToEntero()) Then
                 DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(212).ToEntero > 0 Then
-            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(212).ToEntero) Then
+        If UsuarioActual.Empresa.Funcionalidad(212).ToEntero() > 0 Then
+            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(212).ToEntero()) Then
                 DdlCtaContableAnticipos.DataSource = ObjContabilidad.DtResultados
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(213).ToEntero > 0 Then
-            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(213).ToEntero) Then
+        If UsuarioActual.Empresa.Funcionalidad(213).ToEntero() > 0 Then
+            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(213).ToEntero()) Then
                 DdlCtaContableRetIVA.DataSource = ObjContabilidad.DtResultados
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(214).ToEntero > 0 Then
-            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(214).ToEntero) Then
+        If UsuarioActual.Empresa.Funcionalidad(214).ToEntero() > 0 Then
+            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(214).ToEntero()) Then
                 DdlCtaContableRetISR.DataSource = ObjContabilidad.DtResultados
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(214).ToEntero > 0 Then
-            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(214).ToEntero) Then
+        If UsuarioActual.Empresa.Funcionalidad(214).ToEntero() > 0 Then
+            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(214).ToEntero()) Then
                 DdlCtaContableFondoGarantia.DataSource = ObjContabilidad.DtResultados
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(211).ToEntero > 0 Then
-            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(214).ToEntero) Then
+        If UsuarioActual.Empresa.Funcionalidad(211).ToEntero() > 0 Then
+            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(214).ToEntero()) Then
                 DdlCtaContableCompClientes.DataSource = ObjContabilidad.DtResultados
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(212).ToEntero > 0 Then
-            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(214).ToEntero) Then
+        If UsuarioActual.Empresa.Funcionalidad(212).ToEntero() > 0 Then
+            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(214).ToEntero()) Then
                 DdlCtaContableCompAnticipos.DataSource = ObjContabilidad.DtResultados
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(211).ToEntero > 0 Then
-            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(214).ToEntero) Then
+        If UsuarioActual.Empresa.Funcionalidad(211).ToEntero() > 0 Then
+            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(214).ToEntero()) Then
                 DdlMonedaExtranjeraClientes.DataSource = ObjContabilidad.DtResultados
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(212).ToEntero > 0 Then
-            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(214).ToEntero) Then
+        If UsuarioActual.Empresa.Funcionalidad(212).ToEntero() > 0 Then
+            If ObjContabilidad.GetCuentas(-1, "-1", 1, IdPadre:=UsuarioActual.Empresa.Funcionalidad(214).ToEntero()) Then
                 DdlMonedaExtranjeraAnticipos.DataSource = ObjContabilidad.DtResultados
             End If
         End If
@@ -1458,7 +1458,7 @@ Partial Class Clientes
                 'TxtPais.Text = ObjClientes.Pais
                 TxtRFC.Text = ObjClientes.RFC
 
-                TxtCP.Text = ObjClientes.CP.ToString
+                TxtCP.Text = ObjClientes.CP.ToString()
                 TxtTelefono.Text = ObjClientes.Telefono
                 TxtContacto.Text = ObjClientes.Contacto
                 TxtEmail.Text = ObjClientes.Mail
@@ -1466,40 +1466,40 @@ Partial Class Clientes
                 TxtNotificar.Text = ObjClientes.NotificarA
                 TxtPagina.Text = ObjClientes.Pagina
                 'TxtGiro.Text = ObjClientes.Giro
-                DdlPrecioLista.SelectedValue = ObjClientes.CvePrecioLista.ToString
+                DdlPrecioLista.SelectedValue = ObjClientes.CvePrecioLista.ToString()
                 TxtCC.Text = ObjClientes.NotificarA
                 ChkMail.Checked = ObjClientes.EnviarFactura
-                DdlTipoRetencion.SelectedValueExist(ObjClientes.DtResultados(0)("CveTipoRetencion").ToString)
+                DdlTipoRetencion.SelectedValueExist(ObjClientes.DtResultados(0)("CveTipoRetencion").ToString())
                 DdlTipoRetencion_SelectedIndexChanged(DdlTipoRetencion, EventArgs.Empty)
-                TxtRetIVA.Text = ObjClientes.RetIVA.ToString
-                TxtRetISR.Text = ObjClientes.RetISR.ToString
+                TxtRetIVA.Text = ObjClientes.RetIVA.ToString()
+                TxtRetISR.Text = ObjClientes.RetISR.ToString()
                 ChkRetIVAFletesAcarreos.Checked = ObjClientes.RetieneIVAFletes
-                DdlSubProyecto.SelectedValue = ObjClientes.CveSubProyecto.ToString
-                DdlZonaHoraria.SelectedValueExist(ObjClientes.DtResultados(0)("CveZonaHoraria").ToString)
+                DdlSubProyecto.SelectedValue = ObjClientes.CveSubProyecto.ToString()
+                DdlZonaHoraria.SelectedValueExist(ObjClientes.DtResultados(0)("CveZonaHoraria").ToString())
                 ChkEstado.Checked = ObjClientes.Estatus
                 EstatusAnteriorCliente = ObjClientes.Estatus
-                LblFechaCaptura.Text = ObjClientes.FechaIng.ToShortDateString
+                LblFechaCaptura.Text = ObjClientes.FechaIng.ToShortDateString()
                 LblUsuarioCapturo.Text = ObjClientes.Usuario
                 TxtNombreCorto.Text = ObjClientes.NombreCorto
-                DdlVendedor.SelectedValueExist(ObjClientes.Vendedor.ToString)
+                DdlVendedor.SelectedValueExist(ObjClientes.Vendedor.ToString())
                 'TxtVendedor.Text = ObjClientes.Vendedor
-                TxtPlazoCobranza.Text = ObjClientes.PlazoCobranza.ToString
-                TxtPlazoCobranzaRemision.Text = ObjClientes.PlazoCobranzaRemision.ToString
+                TxtPlazoCobranza.Text = ObjClientes.PlazoCobranza.ToString()
+                TxtPlazoCobranzaRemision.Text = ObjClientes.PlazoCobranzaRemision.ToString()
                 ' TxtSucursalCliente.Text = ObjClientes.Sucursal
                 'TxtRecepcionPago.Text = ObjClientes.RecepcionPagos
                 DdlTipoPago.SelectedValueExist(ObjClientes.TipoPago)
                 'TxtCuentaContable.Text = ObjClientes.CuentaContable
                 TxtExtension.Text = ObjClientes.TelefonoExtension
                 TxtTelefonoOtro.Text = ObjClientes.TelefonoOtros
-                IdCtaCliente = ObjClientes.IdCtaContClientes.ToString
-                IdCtaAnticipos = ObjClientes.IdCtaContAnticipos.ToString
-                IdCtaRetIVA = ObjClientes.IdCtaContRetIVA.ToString
-                IdCtaRetISR = ObjClientes.IdCtaContRetISR.ToString
-                IdCtaFondoGarantia = ObjClientes.IdCtaContFondoGarantia.ToString
-                'DdlMetodoPago.SelectedValue = ObjClientes.CveMetodoPago.ToString
+                IdCtaCliente = ObjClientes.IdCtaContClientes.ToString()
+                IdCtaAnticipos = ObjClientes.IdCtaContAnticipos.ToString()
+                IdCtaRetIVA = ObjClientes.IdCtaContRetIVA.ToString()
+                IdCtaRetISR = ObjClientes.IdCtaContRetISR.ToString()
+                IdCtaFondoGarantia = ObjClientes.IdCtaContFondoGarantia.ToString()
+                'DdlMetodoPago.SelectedValue = ObjClientes.CveMetodoPago.ToString()
                 TxtFormaFacturacion.Text = ObjClientes.FormaFacturacion
                 ChkPermiteCredito.Checked = ObjClientes.PermiteCredito
-                TxtLimiteCredito.Text = ObjClientes.LimiteCredito.FormatoNumero
+                TxtLimiteCredito.Text = ObjClientes.LimiteCredito.FormatoNumero()
                 ChkAplicaFEMSA.Checked = ObjClientes.AplicaFEMSA
                 TxtFEMSA_NumSociedad.Text = ObjClientes.FEMSA_NumSociedad
                 TxtFEMSA_NumProveedor.Text = ObjClientes.FEMSA_NumProveedor
@@ -1517,7 +1517,7 @@ Partial Class Clientes
                 TxtCobranzaContacto.Text = ObjClientes.CobranzaContacto
                 TxtCobranzaTelefono.Text = ObjClientes.CobranzaTelefono
                 ChkRequiereOC.Checked = ObjClientes.RequiereOC
-                ChkEsDistribuidor.Checked = Boolean.Parse(ObjClientes.DtResultados(0)("EsDistribuidor").ToString)
+                ChkEsDistribuidor.Checked = Boolean.Parse(ObjClientes.DtResultados(0)("EsDistribuidor").ToString())
                 CobranzaTelefono = ObjClientes.CobranzaTelefono
                 If CobranzaTelefono.Length = 10 Then
                     BtnCobranzaSMS.ToolTip = $"El mensaje SMS será enviado al número celular <b>{CobranzaTelefono}</b> <br> con #referencia ""<b>{If(UsuarioActual.CveEmpresa = 4, TxtNombreCorto.Text, CodigoCliente)}</b>"""
@@ -1532,21 +1532,21 @@ Partial Class Clientes
                 TxtUsuarioPortalFacturacion.Text = ObjClientes.UsuarioPortal
                 TxtContraseñaPortalFacturacion.Text = ObjClientes.ContraseñaPortal
 
-                IdCtaCompCliente = ObjClientes.IdCtaContComplementaria.ToString
-                IdCtaCompAnticipo = ObjClientes.IdCtaContCompAnticipos.ToString
+                IdCtaCompCliente = ObjClientes.IdCtaContComplementaria.ToString()
+                IdCtaCompAnticipo = ObjClientes.IdCtaContCompAnticipos.ToString()
 
-                IdCtaMonedaExtranjera = ObjClientes.IdCtaMonedaExtranjera.ToString
-                IdCtaMonedaExtranjeraAnticipos = ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString
+                IdCtaMonedaExtranjera = ObjClientes.IdCtaMonedaExtranjera.ToString()
+                IdCtaMonedaExtranjeraAnticipos = ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString()
 
                 ChkMuestraNombre.Checked = ObjClientes.ImprimeNombreSucursal
 
 
-                DdlUsoCFDI.SelectedValueExist(ObjClientes.CveUsoCFDI.ToString)
-                DdlMetodoPago33.SelectedValueExist(ObjClientes.CveMetodoPago33.ToString)
-                DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString)
+                DdlUsoCFDI.SelectedValueExist(ObjClientes.CveUsoCFDI.ToString())
+                DdlMetodoPago33.SelectedValueExist(ObjClientes.CveMetodoPago33.ToString())
+                DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString())
 
                 ChkDesglosarIEPS.Checked = ObjClientes.DesglosaIEPS
-                DdlCorporativo.SelectedValueExist(ObjClientes.CveClienteCorporativo.ToString)
+                DdlCorporativo.SelectedValueExist(ObjClientes.CveClienteCorporativo.ToString())
                 ChkCargoUsado.Checked = ObjClientes.CargoUsados
                 ChkBonificacionUsado.Checked = ObjClientes.BonificacionUsado
                 'COMERCIO EXTERIOR
@@ -1571,16 +1571,16 @@ Partial Class Clientes
                     End If
                 End If
 
-                HDLT.Value = If(ObjClientes.DtResultados(0)("LT").ToString = "", "0", ObjClientes.DtResultados(0)("LT").ToString)
-                HDLG.Value = If(ObjClientes.DtResultados(0)("LG").ToString = "", "0", ObjClientes.DtResultados(0)("LG").ToString)
+                HDLT.Value = If(ObjClientes.DtResultados(0)("LT").ToString() = "", "0", ObjClientes.DtResultados(0)("LT").ToString())
+                HDLG.Value = If(ObjClientes.DtResultados(0)("LG").ToString() = "", "0", ObjClientes.DtResultados(0)("LG").ToString())
 
                 DdlPais.SelectedValueExist(ObjClientes.CvePais)
                 CargaEstado()
 
 
-                CargaEstados(ObjClientes.DtResultados(0)("SATPais").ToString)
+                CargaEstados(ObjClientes.DtResultados(0)("SATPais").ToString())
 
-                DdlSATPais.SelectedValueExist(ObjClientes.DtResultados(0)("SATPais").ToString)
+                DdlSATPais.SelectedValueExist(ObjClientes.DtResultados(0)("SATPais").ToString())
                 DdlEstadoSAT.SelectedValueExist(ObjClientes.CveSATEstado)
 
 
@@ -1669,21 +1669,21 @@ Partial Class Clientes
                 TxtExtOtro.Text = ObjClientes.ExtOtros
 
 
-                If ObjClientes.IdCtaContClientes > 0 Then DdlCtaContableClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContClientes), ObjClientes.IdCtaContClientes.ToString)) : DdlCtaContableClientes.SelectedValue = ObjClientes.IdCtaContClientes.ToString
+                If ObjClientes.IdCtaContClientes > 0 Then DdlCtaContableClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContClientes), ObjClientes.IdCtaContClientes.ToString())) : DdlCtaContableClientes.SelectedValue = ObjClientes.IdCtaContClientes.ToString()
                 If ObjClientes.IdCtaContAnticipos > 0 Then
-                    DdlCtaContableAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContAnticipos), ObjClientes.IdCtaContAnticipos.ToString))
-                    DdlCtaContableAnticipos.SelectedValue = ObjClientes.IdCtaContAnticipos.ToString
+                    DdlCtaContableAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContAnticipos), ObjClientes.IdCtaContAnticipos.ToString()))
+                    DdlCtaContableAnticipos.SelectedValue = ObjClientes.IdCtaContAnticipos.ToString()
                 End If
-                If ObjClientes.IdCtaContRetISR > 0 Then DdlCtaContableRetISR.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetISR), ObjClientes.IdCtaContRetISR.ToString)) : DdlCtaContableRetISR.SelectedValue = ObjClientes.IdCtaContRetISR.ToString
-                If ObjClientes.IdCtaContRetIVA > 0 Then DdlCtaContableRetIVA.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetIVA), ObjClientes.IdCtaContRetIVA.ToString)) : DdlCtaContableRetIVA.SelectedValue = ObjClientes.IdCtaContRetIVA.ToString
-                If ObjClientes.IdCtaContFondoGarantia > 0 Then DdlCtaContableFondoGarantia.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContFondoGarantia), ObjClientes.IdCtaContFondoGarantia.ToString)) : DdlCtaContableFondoGarantia.SelectedValue = ObjClientes.IdCtaContFondoGarantia.ToString
+                If ObjClientes.IdCtaContRetISR > 0 Then DdlCtaContableRetISR.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetISR), ObjClientes.IdCtaContRetISR.ToString())) : DdlCtaContableRetISR.SelectedValue = ObjClientes.IdCtaContRetISR.ToString()
+                If ObjClientes.IdCtaContRetIVA > 0 Then DdlCtaContableRetIVA.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetIVA), ObjClientes.IdCtaContRetIVA.ToString())) : DdlCtaContableRetIVA.SelectedValue = ObjClientes.IdCtaContRetIVA.ToString()
+                If ObjClientes.IdCtaContFondoGarantia > 0 Then DdlCtaContableFondoGarantia.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContFondoGarantia), ObjClientes.IdCtaContFondoGarantia.ToString())) : DdlCtaContableFondoGarantia.SelectedValue = ObjClientes.IdCtaContFondoGarantia.ToString()
 
 
-                If ObjClientes.IdCtaContComplementaria > 0 Then DdlCtaContableCompClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContComplementaria), ObjClientes.IdCtaContComplementaria.ToString)) : DdlCtaContableCompClientes.SelectedValue = ObjClientes.IdCtaContComplementaria.ToString
-                If ObjClientes.IdCtaContCompAnticipos > 0 Then DdlCtaContableCompAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContCompAnticipos), ObjClientes.IdCtaContCompAnticipos.ToString)) : DdlCtaContableCompAnticipos.SelectedValue = ObjClientes.IdCtaContCompAnticipos.ToString
+                If ObjClientes.IdCtaContComplementaria > 0 Then DdlCtaContableCompClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContComplementaria), ObjClientes.IdCtaContComplementaria.ToString())) : DdlCtaContableCompClientes.SelectedValue = ObjClientes.IdCtaContComplementaria.ToString()
+                If ObjClientes.IdCtaContCompAnticipos > 0 Then DdlCtaContableCompAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContCompAnticipos), ObjClientes.IdCtaContCompAnticipos.ToString())) : DdlCtaContableCompAnticipos.SelectedValue = ObjClientes.IdCtaContCompAnticipos.ToString()
 
-                If ObjClientes.IdCtaMonedaExtranjera > 0 Then DdlMonedaExtranjeraClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaMonedaExtranjera), ObjClientes.IdCtaMonedaExtranjera.ToString)) : DdlMonedaExtranjeraClientes.SelectedValue = ObjClientes.IdCtaMonedaExtranjera.ToString
-                If ObjClientes.IdCtaMonedaExtranjeraAnticipos > 0 Then DdlMonedaExtranjeraAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaMonedaExtranjeraAnticipos), ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString)) : DdlMonedaExtranjeraAnticipos.SelectedValue = ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString
+                If ObjClientes.IdCtaMonedaExtranjera > 0 Then DdlMonedaExtranjeraClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaMonedaExtranjera), ObjClientes.IdCtaMonedaExtranjera.ToString())) : DdlMonedaExtranjeraClientes.SelectedValue = ObjClientes.IdCtaMonedaExtranjera.ToString()
+                If ObjClientes.IdCtaMonedaExtranjeraAnticipos > 0 Then DdlMonedaExtranjeraAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaMonedaExtranjeraAnticipos), ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString())) : DdlMonedaExtranjeraAnticipos.SelectedValue = ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString()
                 ActivarRegistroAutomatico()
 
                 '7eleven
@@ -1757,8 +1757,8 @@ Partial Class Clientes
                     DivProtletRegistrar.Visible = True
                 End If
 
-                TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString
-                TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString
+                TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString()
+                TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString()
 
                 CargarClientePersonalEntrega()
             Else
@@ -1792,20 +1792,20 @@ Partial Class Clientes
 
 
         watch.Stop()
-        'Alert(watch.ElapsedMilliseconds.ToString)
+        'Alert(watch.ElapsedMilliseconds.ToString())
 
         Return Retorno
     End Function
     Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1)
         Dim ObjClientes As New ClsClientes()
-        If ObjClientes.GetHistorialVentas(CveCliente, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
+        If ObjClientes.GetHistorialVentas(CveCliente, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then
             If ObjClientes.DtResultados.Rows.Count > 0 Then
                 'Carga Generales
-                LtlCantidad.Text = ObjClientes.DtResultados.Rows(0)("CountTotal").ToString.FormatoNumero(0)
-                LtlTotalVendido.Text = ObjClientes.DtResultados.Rows(0)("Total").ToString.FormatoNumero(2)
-                LtlMinima.Text = ObjClientes.DtResultados.Rows(0)("MIN_Total").ToString.FormatoNumero(2)
-                LtlPromedio.Text = ObjClientes.DtResultados.Rows(0)("AVG_Total").ToString.FormatoNumero(2)
-                LtlMaxima.Text = ObjClientes.DtResultados.Rows(0)("MAX_Total").ToString.FormatoNumero(2)
+                LtlCantidad.Text = ObjClientes.DtResultados.Rows(0)("CountTotal").ToString().FormatoNumero()(0)
+                LtlTotalVendido.Text = ObjClientes.DtResultados.Rows(0)("Total").ToString().FormatoNumero()(2)
+                LtlMinima.Text = ObjClientes.DtResultados.Rows(0)("MIN_Total").ToString().FormatoNumero()(2)
+                LtlPromedio.Text = ObjClientes.DtResultados.Rows(0)("AVG_Total").ToString().FormatoNumero()(2)
+                LtlMaxima.Text = ObjClientes.DtResultados.Rows(0)("MAX_Total").ToString().FormatoNumero()(2)
                 'Carga Grid
                 DTHistorialVentas = ObjClientes.DtResultados
                 GVHistorial.DataSource = ObjClientes.DtResultados
@@ -1823,7 +1823,7 @@ Partial Class Clientes
         Dim ObjMovtos As New ClsMovimientos()
         'Dim ObjClientesVentas As New ClsMovimientos
         'CxC Clientes
-        If ObjMovtos.GetCxCClienteDetalle(CveCliente, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, DdlSucursalCliente.SelectedValue.ToEntero) Then
+        If ObjMovtos.GetCxCClienteDetalle(CveCliente, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, DdlSucursalCliente.SelectedValue.ToEntero()) Then
             DtCxCActivas = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, OrdenVencimiento, FechaVencimiento")
             GvCxC.DataSource = DtCxCActivas
             'solo tomo los 10 ultimos mas el totalizador general
@@ -1849,7 +1849,7 @@ Partial Class Clientes
     End Function
     Private Sub CargaAnticipos(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1)
         Dim ObjMovtos As New ClsMovimientos()
-        If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
+        If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then
             DtClientesAnticipo = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0 ")
             GVAnticipos.DataSource = DtClientesAnticipo
             DtAnticipoHistorial = ObjMovtos.DtResultados.FiltraParametros("Saldo <= 0 ")
@@ -1904,9 +1904,9 @@ Partial Class Clientes
             Dim dr As DataRow = dtUsr.FiltroPrimero("Nombre = 'Admin'")
 
             If dr IsNot Nothing Then
-                HdnCveUsuarioPortalAdmin.Value = dr("CveUsuario").ToString
+                HdnCveUsuarioPortalAdmin.Value = dr("CveUsuario").ToString()
 
-                If Convert.ToBoolean(dr("Estatus").ToString) Then
+                If Convert.ToBoolean(dr("Estatus").ToString()) Then
                     LblUsuarioActivo.Text = "Si"
                     'divUsuariosPortal.Visible = True
                     HdnCveUsuarioPortalActivado.Value = "1"
@@ -1917,7 +1917,7 @@ Partial Class Clientes
 
             End If
 
-            If HdnCveUsuarioPortalActivado.Value.ToEntero > 0 Then
+            If HdnCveUsuarioPortalActivado.Value.ToEntero() > 0 Then
                 trEnviarActivacion.Visible = False
             End If
 
@@ -1994,11 +1994,11 @@ Partial Class Clientes
         DdlSucursalUsoCFDI.Items.Clear()
         DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica)
         DdlSucursalUsoCFDI.DataBind()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "V E R  M Á S"
-
+
     Protected Sub BtnVerMasVentas_Click(sender As Object, e As EventArgs)
         If BtnVerMasVentas.Text = "Ver Más" Then
             CargaHistorial(-1)
@@ -2028,16 +2028,16 @@ Partial Class Clientes
             CargaBancos(51)
             BtnVerMasBancos.Text = "Ver Más"
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "B A N C O S"
-    'CuentasxCobrar Activas (Pagos Recibidos)
+    'CuentasxCobrar Activas (Pagos Recibidos)
     Private Sub CargaBancos(Optional SelectTop As Integer = 51, Optional CveClienteSucursal As Integer = -1)
         Dim ObjMovtos As New ClsMovimientos()
         'CxC Activas
-        If ObjMovtos.GetClienteAbonos(CveCliente, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, SelectTop:=SelectTop) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then
+        If ObjMovtos.GetClienteAbonos(CveCliente, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero(), SelectTop:=SelectTop) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then
             GvBancos.DataSource = ObjMovtos.DtResultados
             DTCobrosRealizados = ObjMovtos.DtResultados
             DTCobrosRealizados.Rows.Remove(DTCobrosRealizados.Rows(0))
@@ -2057,18 +2057,18 @@ Partial Class Clientes
                     Dim ObjBancos As New ClsBancos
 
                     e.Row.Cells(0).Text = String.Format("{0} - {1}", e.Row.DBCampo("Banco"), e.Row.DBCampo("NumCuenta"))
-                    e.Row.FCLiteral("LtlFechaVenci").Text = e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString
+                    e.Row.FCLiteral("LtlFechaVenci").Text = e.Row.DBCampo("FechaDocumento").ToDate().ToShortDateString()
                     e.Row.FCHyperLink("HplCheque").Visible = True
-                    e.Row.FCLiteral("LtlImp").Text = e.Row.DBCampo("ImporteIE").FormatoNumero
+                    e.Row.FCLiteral("LtlImp").Text = e.Row.DBCampo("ImporteIE").FormatoNumero()
                     e.Row.FCLiteral("LtlMon").Text = e.Row.DBCampo("MonedaIE")
 
 
                     'HLSendMail.HRef = String.Format("javascript:$get('HdnCveIE').value='{0}';$get('HdnSerieFolio').value='{1}';$get('HdnFolioPago').value='{2}';$get('TxtParaMail').value='{3}';$('#ModalDivMail').modal();", e.Row.DBCampo("CveIE"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("FolioCobro"), TxtCobranzaCorreo.Text)
 
-                    If ObjBancos.GetComplementoPagos(-1, e.Row.DBCampo("CveIE").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) Then
+                    If ObjBancos.GetComplementoPagos(-1, e.Row.DBCampo("CveIE").ToString().ToEntero(), -1, UsuarioActual.CveEmpresa) Then
                         If ObjBancos.DtResultados.Rows.Count > 0 Then
-                            e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", ObjBancos.DtResultados(0)("CveComplementoPago").ToString, ObjBancos.DtResultados(0)("SerieFolio").ToString, ObjBancos.DtResultados(0)("CveIE").ToString)))
-                            e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", ObjBancos.DtResultados(0)("CveComplementoPago").ToString, ObjBancos.DtResultados(0)("SerieFolio").ToString, ObjBancos.DtResultados(0)("CveIE").ToString)))
+                            e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", ObjBancos.DtResultados(0)("CveComplementoPago").ToString(), ObjBancos.DtResultados(0)("SerieFolio").ToString(), ObjBancos.DtResultados(0)("CveIE").ToString())))
+                            e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", ObjBancos.DtResultados(0)("CveComplementoPago").ToString(), ObjBancos.DtResultados(0)("SerieFolio").ToString(), ObjBancos.DtResultados(0)("CveIE").ToString())))
 
                             e.Row.FCLinkButton("LnkSendMail").Visible = True
                         End If
@@ -2088,13 +2088,13 @@ Partial Class Clientes
 
     Protected Sub LnkSendMail_Click(sender As Object, e As EventArgs)
         Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-        HdnSerieFolioPago.Value = gvRow.DataKey("SerieFolioCP").ToString
+        HdnSerieFolioPago.Value = gvRow.DataKey("SerieFolioCP").ToString()
         TxtParaMail.Text = TxtCobranzaCorreo.Text
         UpSendMail.Update()
         RegistraScript("$('#ModalDivMail').modal('show');")
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "B T N ´ S"
     Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
         Dim ObjClientes As New ClsClientes()
@@ -2115,19 +2115,19 @@ Partial Class Clientes
                 Dim Asunto As String = ""
                 Dim TipoComprobante = ""
 
-                If HdnTipoDocto.Value.ToString = "Ing" Then TipoComprobante = "Factura"
-                If HdnTipoDocto.Value.ToString = "Egs" Then TipoComprobante = "Nota de Crédito"
-                If HdnTipoDocto.Value.ToString = "Dev" Then TipoComprobante = "Nota de Devolución"
-                If HdnTipoDocto.Value.ToString = "Rem" Then TipoComprobante = "Remisión"
-                If HdnTipoDocto.Value.ToString = "Cot" Then TipoComprobante = "Cotización"
-                If HdnTipoDocto.Value.ToString = "Ant" Then TipoComprobante = "Anticipo"
+                If HdnTipoDocto.Value.ToString() = "Ing" Then TipoComprobante = "Factura"
+                If HdnTipoDocto.Value.ToString() = "Egs" Then TipoComprobante = "Nota de Crédito"
+                If HdnTipoDocto.Value.ToString() = "Dev" Then TipoComprobante = "Nota de Devolución"
+                If HdnTipoDocto.Value.ToString() = "Rem" Then TipoComprobante = "Remisión"
+                If HdnTipoDocto.Value.ToString() = "Cot" Then TipoComprobante = "Cotización"
+                If HdnTipoDocto.Value.ToString() = "Ant" Then TipoComprobante = "Anticipo"
 
                 Dim DisplayName As String = ""
                 If UsuarioActual.CveEmpresa = 119 Then DisplayName = "Facturación Agroquímicos JAM"
 
                 Dim ObjVenta As New ClsVentas
                 Dim Dr As DataRow = Nothing
-                If ObjVenta.GetVenta(HdnCveVenta.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+                If ObjVenta.GetVenta(HdnCveVenta.Value.ToEntero(), UsuarioActual.CveEmpresa) Then
                     If ObjVenta.DtResultados.Rows.Count > 0 Then
                         Dr = ObjVenta.DtResultados.Rows(0)
                     End If
@@ -2139,11 +2139,11 @@ Partial Class Clientes
                     Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
                     Cuerpo = Cuerpo.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
                     Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
-                    Cuerpo = Cuerpo.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString)
+                    Cuerpo = Cuerpo.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString())
                     If Dr IsNot Nothing Then
-                        Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString.ToDate.ToShortDateString)
-                        Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString.FormatoNumero)
-                        Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString.ToDate.ToShortDateString)
+                        Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
+                        Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
+                        Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
                     End If
                 End If
 
@@ -2151,8 +2151,8 @@ Partial Class Clientes
                 If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
                     Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
                     Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
-                    Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto.Value.ToString)
-                    Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString)
+                    Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto.Value.ToString())
+                    Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString())
                 End If
 
                 If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso HdnTipoDocto.Value.Contiene("Ing", "Egs", "Ant", "Dev") Then
@@ -2181,7 +2181,7 @@ Partial Class Clientes
                         End If
 
                         Dim ObjVentas As New ClsVentas
-                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero)
+                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero())
                         ObjVentas.Dispose()
                     Else
                         Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
@@ -2209,7 +2209,7 @@ Partial Class Clientes
                         End If
 
                         Dim ObjVentas As New ClsVentas
-                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero)
+                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero())
                         ObjVentas.Dispose()
                     Else
                         Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
@@ -2236,7 +2236,7 @@ Partial Class Clientes
                         End If
 
                         Dim ObjVentas As New ClsVentas
-                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero)
+                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero())
                         ObjVentas.Dispose()
                     Else
                         Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
@@ -2275,7 +2275,7 @@ Partial Class Clientes
         Catch ex As Exception
             OnError("Ocurrió error al mandar MAIL", ex)
             Dim ObjVentas As New ClsVentas
-            ObjVentas.UpdateVentaMail(3, HdnCveVenta.Value.ToEntero)
+            ObjVentas.UpdateVentaMail(3, HdnCveVenta.Value.ToEntero())
             ObjVentas.Dispose()
         End Try
     End Sub
@@ -2283,7 +2283,7 @@ Partial Class Clientes
         Dim ObjMovtos As New ClsMovimientos()
 
 
-        If ObjMovtos.AddMovimiento(2, "Cli", CveCliente.ToString, HdnCveVentaAbono.Value, 1, 0, TxtCantidad.Text.Trim.ToDouble, Now, TxtFechaPago.Text.ToDate, TxtReferencia.Text.Trim, DdlCtaContableClientes.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        If ObjMovtos.AddMovimiento(2, "Cli", CveCliente.ToString(), HdnCveVentaAbono.Value, 1, 0, TxtCantidad.Text.Trim.ToDouble, Now, TxtFechaPago.Text.ToDate(), TxtReferencia.Text.Trim, DdlCtaContableClientes.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             Alert("El abono se guardó correctamente", TipoMensaje.MsgInformacion, "$get(""DivAddPago"").style.display=""none"";")
             CargaCxC()
             TxtCantidad.Text = ""
@@ -2297,12 +2297,12 @@ Partial Class Clientes
     End Sub
 
     Private Function AsignaCuentasAutomaticas(ObjClientes As ClsClientes) As Boolean
-        Dim IdCtaContableClientes As Integer = UsuarioActual.Empresa.Funcionalidad(246).ToEntero
-        Dim IdCtaContableAnticipos As Integer = UsuarioActual.Empresa.Funcionalidad(319).ToEntero
-        Dim IdCtaContableComplementaria As Integer = UsuarioActual.Empresa.Funcionalidad(320).ToEntero
-        Dim IdCtaContMonedaExtranjera As Integer = UsuarioActual.Empresa.Funcionalidad(331).ToEntero
-        Dim IdCtaContMonedaExtranjeraAnticipos As Integer = UsuarioActual.Empresa.Funcionalidad(332).ToEntero
-        Dim IdCtaContCompAnticipos As Integer = UsuarioActual.Empresa.Funcionalidad(333).ToEntero
+        Dim IdCtaContableClientes As Integer = UsuarioActual.Empresa.Funcionalidad(246).ToEntero()
+        Dim IdCtaContableAnticipos As Integer = UsuarioActual.Empresa.Funcionalidad(319).ToEntero()
+        Dim IdCtaContableComplementaria As Integer = UsuarioActual.Empresa.Funcionalidad(320).ToEntero()
+        Dim IdCtaContMonedaExtranjera As Integer = UsuarioActual.Empresa.Funcionalidad(331).ToEntero()
+        Dim IdCtaContMonedaExtranjeraAnticipos As Integer = UsuarioActual.Empresa.Funcionalidad(332).ToEntero()
+        Dim IdCtaContCompAnticipos As Integer = UsuarioActual.Empresa.Funcionalidad(333).ToEntero()
 
         If Not ObjClientes.VincularCuentasContables(IdCtaContableClientes, IdCtaContableAnticipos, 0, 0, CveCliente, IdCtaContableComplementaria, IdCtaContMonedaExtranjera, IdCtaContMonedaExtranjeraAnticipos, IdCtaContCompAnticipos) Then
             Return False
@@ -2317,43 +2317,43 @@ Partial Class Clientes
         End If
 
         If ChkAplicaComercioExterior.Checked Then
-            If Not DdlTipoOperacion.SelectedValue.ToEntero > 0 Then
+            If Not DdlTipoOperacion.SelectedValue.ToEntero() > 0 Then
                 Alert("Tiene que seleccionar un tipo de operacion para comercio exterior.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
 
-            If Not DdlClavePedimento.SelectedValue.ToEntero > 0 Then
+            If Not DdlClavePedimento.SelectedValue.ToEntero() > 0 Then
                 Alert("Tiene que seleccionar una clave de pedimento para comercio exterior.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
 
-            If Not DdlIncoterm.SelectedValue.ToEntero > 0 Then
+            If Not DdlIncoterm.SelectedValue.ToEntero() > 0 Then
                 Alert("Tiene que seleccionar un incoterm para comercio exterior.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
 
-            If Not DdlPais.SelectedValue.ToEntero > 0 Then
+            If Not DdlPais.SelectedValue.ToEntero() > 0 Then
                 Alert("Tiene que seleccionar un pais para comercio exterior.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
 
-            If Not DdlPais.SelectedValue.ToEntero > 0 Then
+            If Not DdlPais.SelectedValue.ToEntero() > 0 Then
                 Alert("Tiene que seleccionar un pais para comercio exterior.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
 
-            If (Not DdlEstado.SelectedValue.ToEntero > 0 And DdlEstado.Visible) Or (Not DdlEstado.Visible And TxtComExtEstado.Text = "") Then
+            If (Not DdlEstado.SelectedValue.ToEntero() > 0 And DdlEstado.Visible) Or (Not DdlEstado.Visible And TxtComExtEstado.Text = "") Then
                 Alert("Tiene que seleccionar un estado para comercio exterior.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
 
-            If DdlPais.SelectedValue.ToEntero = 151 Then
-                If Not DdlMunicipio.SelectedValue.ToEntero > 0 Then
+            If DdlPais.SelectedValue.ToEntero() = 151 Then
+                If Not DdlMunicipio.SelectedValue.ToEntero() > 0 Then
                     Alert("Tiene que seleccionar un municipio para comercio exterior si el pais es mexico.", TipoMensaje.MsgAdvertencia)
                     Exit Sub
                 End If
 
-                If Not DdlColonia.SelectedValue.ToEntero > 0 Then
+                If Not DdlColonia.SelectedValue.ToEntero() > 0 Then
                     Alert("Tiene que seleccionar una colonia para comercio exterior si el pais es mexico.", TipoMensaje.MsgAdvertencia)
                     Exit Sub
                 End If
@@ -2368,7 +2368,7 @@ Partial Class Clientes
         'End If
 
         'Dim rowcodigo As DataTable = GlobalDTCliente.FiltraParametros(String.Format("Codigo='{0}' AND CveEmpresa={1} ", TxtCodigo.Text.Trim, UsuarioActual.CveEmpresa))
-        'If (Not IsNothing(rowcodigo)) AndAlso (rowcodigo.Rows.Count > 0) AndAlso (rowcodigo.Rows(0)("CveCliente").ToString.ToEntero <> CveCliente) Then
+        'If (Not IsNothing(rowcodigo)) AndAlso (rowcodigo.Rows.Count > 0) AndAlso (rowcodigo.Rows(0)("CveCliente").ToString().Toentero() <> CveCliente) Then
         '    Alert(String.Format("ya existe un Cliente Con este Codigo '{0}'", TxtCodigo.Text.Trim), TipoMensaje.MsgAdvertencia)
         '    Exit Sub
         'End If
@@ -2386,7 +2386,7 @@ Partial Class Clientes
         If ChkJueves.Checked Then SBDiasPago.AppendFormat("1-") Else SBDiasPago.AppendFormat("0-")
         If ChkViernes.Checked Then SBDiasPago.AppendFormat("1-") Else SBDiasPago.AppendFormat("0-")
         If ChkSabado.Checked Then SBDiasPago.AppendFormat("1") Else SBDiasPago.AppendFormat("0")
-        DiasPago = SBDiasPago.ToString
+        DiasPago = SBDiasPago.ToString()
 
         'Dias de Revision
         Dim SBDiasRevision As New StringBuilder()
@@ -2397,96 +2397,96 @@ Partial Class Clientes
         If ChkRevJueves.Checked Then SBDiasRevision.AppendFormat("1-") Else SBDiasRevision.AppendFormat("0-")
         If ChkRevViernes.Checked Then SBDiasRevision.AppendFormat("1-") Else SBDiasRevision.AppendFormat("0-")
         If ChkRevSabado.Checked Then SBDiasRevision.AppendFormat("1") Else SBDiasRevision.AppendFormat("0")
-        DiasRevision = SBDiasRevision.ToString
+        DiasRevision = SBDiasRevision.ToString()
 
 
         Dim errorContPaq As Boolean = False
         Dim IdContPaqi As Integer = 0
-        Dim CodigoPersona As Integer = 0
-
-
+        Dim CodigoPersona As Integer = 0
+
+
 #Region "comentado"
-        'If UsuarioActual.Empresa.Funcionalidad(522).ToString = "1" Then
-
-        '    Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa)
-
-        '    If ObjContPaqi.GetPersona(TxtRFC.Text) Then
-
-        '        If ObjContPaqi.DtResultados.Rows.Count > 0 Then
-
-        '            IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("Id").ToString.ToEntero
-        '            CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero
-
-        '            Dim Cont_EsProveedor As Integer = If(Boolean.Parse(ObjContPaqi.DtResultados.Rows(0)("EsProveedor").ToString), 1, 0)
-        '            Dim Cont_Nombre As String = ObjContPaqi.DtResultados(0)("Nombre").ToString
-        '            Dim Cont_RFC As String = ObjContPaqi.DtResultados(0)("RFC").ToString
-
-        '            If ObjContPaqi.UpdatePersona(IdContPaqi, Cont_Nombre, Cont_RFC, 1, Cont_EsProveedor) Then
-        '                errorContPaq = False
-        '            Else
-        '                errorContPaq = True
-        '            End If
-
-        '        Else
-        '            If ObjContPaqi.AddPersona(TxtNombre.Text.Trim, TxtRFC.Text.Trim, 1, 0) Then
-
-        '                IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiPersona").ToString.ToEntero
-        '                CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero
-        '                errorContPaq = False
-        '            Else
-        '                errorContPaq = True
-        '            End If
-        '        End If
-        '    End If
-
-
-        '    If Not errorContPaq Then
-        '        Dim IdContPaqiCliente As Integer
-
-        '        If ObjContPaqi.GetCliente(-1, CodigoPersona) Then
-
-        '            If ObjContPaqi.DtResultados.Rows.Count > 0 Then
-
-        '                IdContPaqiCliente = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiClient").ToString.ToEntero
-
-        '                If ObjContPaqi.UpdateCliente(IdContPaqiCliente, CodigoPersona, CodigoPersona, "", "") Then
-        '                    errorContPaq = False
-        '                Else
-        '                    errorContPaq = True
-        '                End If
-        '            Else
-        '                If ObjContPaqi.AddCliente(CodigoPersona, CodigoPersona, "", "") Then
-        '                    errorContPaq = False
-        '                Else
-        '                    errorContPaq = True
-        '                End If
-        '            End If
-        '        Else
-        '            errorContPaq = True
-        '        End If
-        '    End If
-
-
-        '    If Not errorContPaq Then
-        '        ObjContPaqi.Commit()
-        '        ObjContPaqi.Dispose()
-        '    Else
-        '        ObjContPaqi.RollBack()
-        '        ObjContPaqi.Dispose()
-        '        Alert("Se presento un error al guardar en ContPAQi", TipoMensaje.MsgError)
-        '        Exit Sub
-        '    End If
-
-
-        'End If
+        'If UsuarioActual.Empresa.Funcionalidad(522).ToString() = "1" Then
+
+        '    Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa)
+
+        '    If ObjContPaqi.GetPersona(TxtRFC.Text) Then
+
+        '        If ObjContPaqi.DtResultados.Rows.Count > 0 Then
+
+        '            IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("Id").ToString().Toentero()
+        '            CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString().Toentero()
+
+        '            Dim Cont_EsProveedor As Integer = If(Boolean.Parse(ObjContPaqi.DtResultados.Rows(0)("EsProveedor").ToString()), 1, 0)
+        '            Dim Cont_Nombre As String = ObjContPaqi.DtResultados(0)("Nombre").ToString()
+        '            Dim Cont_RFC As String = ObjContPaqi.DtResultados(0)("RFC").ToString()
+
+        '            If ObjContPaqi.UpdatePersona(IdContPaqi, Cont_Nombre, Cont_RFC, 1, Cont_EsProveedor) Then
+        '                errorContPaq = False
+        '            Else
+        '                errorContPaq = True
+        '            End If
+
+        '        Else
+        '            If ObjContPaqi.AddPersona(TxtNombre.Text.Trim, TxtRFC.Text.Trim, 1, 0) Then
+
+        '                IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiPersona").ToString().Toentero()
+        '                CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString().Toentero()
+        '                errorContPaq = False
+        '            Else
+        '                errorContPaq = True
+        '            End If
+        '        End If
+        '    End If
+
+
+        '    If Not errorContPaq Then
+        '        Dim IdContPaqiCliente As Integer
+
+        '        If ObjContPaqi.GetCliente(-1, CodigoPersona) Then
+
+        '            If ObjContPaqi.DtResultados.Rows.Count > 0 Then
+
+        '                IdContPaqiCliente = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiClient").ToString().Toentero()
+
+        '                If ObjContPaqi.UpdateCliente(IdContPaqiCliente, CodigoPersona, CodigoPersona, "", "") Then
+        '                    errorContPaq = False
+        '                Else
+        '                    errorContPaq = True
+        '                End If
+        '            Else
+        '                If ObjContPaqi.AddCliente(CodigoPersona, CodigoPersona, "", "") Then
+        '                    errorContPaq = False
+        '                Else
+        '                    errorContPaq = True
+        '                End If
+        '            End If
+        '        Else
+        '            errorContPaq = True
+        '        End If
+        '    End If
+
+
+        '    If Not errorContPaq Then
+        '        ObjContPaqi.Commit()
+        '        ObjContPaqi.Dispose()
+        '    Else
+        '        ObjContPaqi.RollBack()
+        '        ObjContPaqi.Dispose()
+        '        Alert("Se presento un error al guardar en ContPAQi", TipoMensaje.MsgError)
+        '        Exit Sub
+        '    End If
+
+
+        'End If
 #End Region
-
+
         Dim LT As String = If(HDLT.Value.ToDouble <> 0, HDLT.Value, "0")
         Dim LG As String = If(HDLG.Value.ToDouble <> 0, HDLG.Value, "0")
 
         If CveCliente = -1 Then
             Dim ErrorAC As Boolean = False
-            Dim CtaCliente As Integer = DdlCtaContableClientes.SelectedValue.ToEntero
+            Dim CtaCliente As Integer = DdlCtaContableClientes.SelectedValue.ToEntero()
 
             ' si tiene la funcionalidad de la cuenta contable padre
             If UsuarioActual.Empresa.Funcionalidad(114) <> "" Then
@@ -2496,12 +2496,12 @@ Partial Class Clientes
                 ObjContaAC.IniciaTransacSQL()
                 'se registra la cuenta contable automaticamente
 
-                CtaCliente = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(114).ToEntero, TxtNombreComercial.Text.Trim, "A", 2)
+                CtaCliente = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(114).ToEntero(), TxtNombreComercial.Text.Trim, "A", 2)
 
                 If CtaCliente > 0 Then
                     ObjContaAC.Commit()
-                    DdlCtaContableClientes.Items.Add(New ListItem(TxtNombreComercial.Text.Trim, CtaCliente.ToString))
-                    DdlCtaContableClientes.SelectedValue = CtaCliente.ToString
+                    DdlCtaContableClientes.Items.Add(New ListItem(TxtNombreComercial.Text.Trim, CtaCliente.ToString()))
+                    DdlCtaContableClientes.SelectedValue = CtaCliente.ToString()
                     'MsgCuentaContable = String.Format("<br />Con la cuenta contable: {0}", NewCuenta)
 
                 Else
@@ -2516,13 +2516,13 @@ Partial Class Clientes
             End If
 
             'Si tiene contabilizacion automatica y la funcionalidad de carga cuenta automatica o UsaAC le agregamos automaticamente una cuenta al cliente
-            If UsuarioActual.Empresa.Funcionalidad(211).ToEntero > 0 AndAlso (UsuarioActual.Empresa.Funcionalidad(200).ToEntero > 0 Or UsuarioActual.Empresa.UsaAC) AndAlso DdlCtaContableClientes.SelectedValue.ToEntero < 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(211).ToEntero() > 0 AndAlso (UsuarioActual.Empresa.Funcionalidad(200).ToEntero() > 0 Or UsuarioActual.Empresa.UsaAC) AndAlso DdlCtaContableClientes.SelectedValue.ToEntero() < 1 Then
                 If Not AgregarCuentaContable(BtnActivaRegistroClientes, DdlCtaContableClientes) Then
                     ErrorProceso = True
                 End If
             End If
 
-            'Dim MetodoPago = DdlMetodoPago.SelectedValue.ToEntero
+            'Dim MetodoPago = DdlMetodoPago.SelectedValue.Toentero()
             'If UsuarioActual.Empresa.CvePlataforma = 3 Then
             '    MetodoPago = 1
             'End If
@@ -2531,22 +2531,22 @@ Partial Class Clientes
 
 
             If ObjClientes.AddCliente(TxtNombre.Text.Trim, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, DdlEstadoSAT.SelectedItem.Text.Trim, DdlSATPais.SelectedItem.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim, TxtTelefono.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
-                                    TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text.Trim, Giro, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble,
-                                    TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero, TxtPlazoCobranza.Text.Trim.ToEntero, TxtPlazoCobranzaRemision.Text.Trim.ToEntero,
-                                    DiasPago, DdlTipoPago.SelectedValue, DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero,
-                                    DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero,
-                                    DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableCompClientes.SelectedValue.ToEntero, DdlCtaContableCompClientes.SelectedItem.Text, DdlCtaContableCompAnticipos.SelectedValue.ToEntero, DdlCtaContableCompAnticipos.SelectedItem.Text,
+                                    TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text.Trim, Giro, DdlPrecioLista.SelectedValue.ToEntero(), ChkMail.Checked, TxtRetIVA.Text.ToDouble,
+                                    TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero(), TxtPlazoCobranza.Text.Trim.ToEntero(), TxtPlazoCobranzaRemision.Text.Trim.ToEntero(),
+                                    DiasPago, DdlTipoPago.SelectedValue, DdlCtaContableClientes.SelectedValue.ToEntero(), DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero(),
+                                    DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero(), DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero(), DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero(),
+                                    DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableCompClientes.SelectedValue.ToEntero(), DdlCtaContableCompClientes.SelectedItem.Text, DdlCtaContableCompAnticipos.SelectedValue.ToEntero(), DdlCtaContableCompAnticipos.SelectedItem.Text,
                                     TxtFormaFacturacion.Text.Trim, TxtCodigo.Text.Trim, TxtLimiteCredito.Text.ToDouble, 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, TxtProveedor.Text.Trim, ChkAplicaFord.Checked, TxtFordGSDB.Text.Trim,
-                                    TxtExtension.Text.Trim, TxtTelefonoOtro.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ChkPermiteCredito.Checked, DdlSubProyecto.SelectedValue.ToEntero, DdlCorporativo.SelectedValue.ToEntero,
-                                    CveClienteClasificacion:=DdlClasificacion.SelectedValue.ToEntero, CveUsuarioResponsable:=DdlResponsable.SelectedValue.ToEntero,
-                                    CveCondicionEntrega:=DdlCondicionesEntrega.SelectedValue.ToEntero, ImprimeNombreSucursal:=ChkMuestraNombre.Checked, CveZonaHoraria:=DdlZonaHoraria.SelectedValue.ToEntero, CobranzaContacto:=TxtCobranzaContacto.Text.Trim, CobranzaTelefono:=TxtCobranzaTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
+                                    TxtExtension.Text.Trim, TxtTelefonoOtro.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ChkPermiteCredito.Checked, DdlSubProyecto.SelectedValue.ToEntero(), DdlCorporativo.SelectedValue.ToEntero(),
+                                    CveClienteClasificacion:=DdlClasificacion.SelectedValue.ToEntero(), CveUsuarioResponsable:=DdlResponsable.SelectedValue.ToEntero(),
+                                    CveCondicionEntrega:=DdlCondicionesEntrega.SelectedValue.ToEntero(), ImprimeNombreSucursal:=ChkMuestraNombre.Checked, CveZonaHoraria:=DdlZonaHoraria.SelectedValue.ToEntero(), CobranzaContacto:=TxtCobranzaContacto.Text.Trim, CobranzaTelefono:=TxtCobranzaTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
                                     CobranzaExt:=TxtCobranzaExt.Text, CobranzaCorreo:=TxtCobranzaCorreo.Text.Trim, Horario:=TxtHorario.Text.Trim, PortalFacturacion:=TxtPortalFacturacion.Text.Trim, Documentacion:=TxtDocumentacion.Text.Trim, DiasEspecifico:=TxtDiasEspecifico.Text.Trim, UsuarioPortal:=TxtUsuarioPortalFacturacion.Text, ContraseñaPortal:=TxtContraseñaPortalFacturacion.Text,
-                                    DiasRevision:=DiasRevision, ObservacionRevsion:=TxtObsDiasRevision.Text.Trim, ReferenciaFiscal:=TxtReferenciaFiscal.Text.Trim, Celular:=TxtCelular.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ExtOtros:=TxtExtOtro.Text.Trim, CveUsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
-                                    CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, DesglosaIEPS:=ChkDesglosarIEPS.Checked, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero, CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero, CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero,
-                                    CvePais:=DdlPais.SelectedValue.ToEntero, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero, CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero, NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
+                                    DiasRevision:=DiasRevision, ObservacionRevsion:=TxtObsDiasRevision.Text.Trim, ReferenciaFiscal:=TxtReferenciaFiscal.Text.Trim, Celular:=TxtCelular.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ExtOtros:=TxtExtOtro.Text.Trim, CveUsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero(),
+                                    CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), DesglosaIEPS:=ChkDesglosarIEPS.Checked, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero(), CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero(), CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero(),
+                                    CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                     ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
-                                    TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero) Then
+                                    TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero()) Then
 
                 ViewState("CveCliente") = ObjClientes.CveCliente
 
@@ -2554,7 +2554,7 @@ Partial Class Clientes
                 'For Each gvr As GridViewRow In GvDocsVentas.Rows
                 '    If gvr.FCCheckBox("ChkDoc").Checked Then
 
-                '        objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").ToEntero, -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, Now, Observacion2:=gvr.FCTextBox("TxtObs2").Text, FechaVigencia:=gvr.FCTextBox("TxtFechaVigencia").Text.ToDate)
+                '        objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").Toentero(), -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, Now, Observacion2:=gvr.FCTextBox("TxtObs2").Text, FechaVigencia:=gvr.FCTextBox("TxtFechaVigencia").Text.ToDate())
 
                 '    End If
 
@@ -2567,16 +2567,16 @@ Partial Class Clientes
 
                 For Each GVR As GridViewRow In GvImpuestosLocales.Rows
                     If GVR.FCCheckBox("ChkDeduccion").Checked Then
-                        ObjClientes.AddClienteImpuestosLocales(CveCliente, GVR.DataKey("CveImpuestoLocal").ToEntero)
+                        ObjClientes.AddClienteImpuestosLocales(CveCliente, GVR.DataKey("CveImpuestoLocal").ToEntero())
                     End If
                 Next
 
                 For Each Row As DataRow In TempDTSucursales.Rows
                     If Not CveCliente > 0 Then
-                        If ObjClientes.AddSucursal(ObjClientes.CveCliente, Row("SucursalCliente").ToString, UsuarioActual.CveUsuario, Row("CiudadSucursal").ToString, Row("ColoniaSucursal").ToString, Row("CPSucursal").ToString, Row("DireccionSucursal").ToString, Row("EstadoSucursal").ToString, Row("LocalidadSucursal").ToString,
-                                                    Row("PaisSucursal").ToString, Row("NumExtSucursal").ToString, Row("NumIntSucursal").ToString, Row("TelefonoSucursal").ToString, Row("CorreoSucursal").ToString, Row("CorreoCotiziacionSucursal").ToString, Row("ContactoSucursal").ToString,
-                                                   Row("CveVendedorSucursal").ToString.ToEntero, Row("NumCuenta").ToString, Row("CveMetodoPago").ToString.ToEntero, Row("LimiteCredito").ToString.ToDecimal, Row("CveResponsableCobranza").ToString.ToEntero,
-                                                   Row("CveUsoCFDI").ToString.ToEntero, Row("CveFormaPago33").ToString.ToEntero, Row("CveMetodoPago33").ToString.ToEntero, LT:=Row("LT").ToString, LG:=Row("LG").ToString) Then
+                        If ObjClientes.AddSucursal(ObjClientes.CveCliente, Row("SucursalCliente").ToString(), UsuarioActual.CveUsuario, Row("CiudadSucursal").ToString(), Row("ColoniaSucursal").ToString(), Row("CPSucursal").ToString(), Row("DireccionSucursal").ToString(), Row("EstadoSucursal").ToString(), Row("LocalidadSucursal").ToString(),
+                                                    Row("PaisSucursal").ToString(), Row("NumExtSucursal").ToString(), Row("NumIntSucursal").ToString(), Row("TelefonoSucursal").ToString(), Row("CorreoSucursal").ToString(), Row("CorreoCotiziacionSucursal").ToString(), Row("ContactoSucursal").ToString(),
+                                                   Row("CveVendedorSucursal").ToString().ToEntero(), Row("NumCuenta").ToString(), Row("CveMetodoPago").ToString().ToEntero(), Row("LimiteCredito").ToString().ToDecimal(), Row("CveResponsableCobranza").ToString().ToEntero(),
+                                                   Row("CveUsoCFDI").ToString().ToEntero(), Row("CveFormaPago33").ToString().ToEntero(), Row("CveMetodoPago33").ToString().ToEntero(), LT:=Row("LT").ToString(), LG:=Row("LG").ToString()) Then
                         End If
                     End If
                 Next
@@ -2584,8 +2584,8 @@ Partial Class Clientes
                 If UsuarioActual.Empresa.CvePlataforma = 3 AndAlso Not ErrorProceso Then
                     Dim GPS As New ClsGPS
                     GPS.IniciaTransacSQL()
-                    For Each GvRow As GridViewRow In GvDatos.Rows
-                        If Not GPS.DispositivosClienteUpdate(GvRow.DataKey("CveDispositivo").ToString.ToEntero, ObjClientes.CveCliente) Then
+                    For Each GvRow As GridViewRow In GvDatosGPS.Rows
+                        If Not GPS.DispositivosClienteUpdate(GvRow.DataKey("CveDispositivo").ToString().ToEntero(), ObjClientes.CveCliente) Then
                             ErrorProceso = True
                         End If
                     Next
@@ -2626,29 +2626,29 @@ Partial Class Clientes
             End If
             Dim Giro As String = If(DdlClasificacion.SelectedValue.ToEntero() <> -1, DdlClasificacion.SelectedItem.Text, "")
             If ObjClientes.UpdateCliente(NombreCliente, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, DdlEstadoSAT.SelectedItem.Text.Trim, DdlSATPais.SelectedItem.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim,
-                                        TxtTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text, Giro, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked,
-                                        ChkEstado.Checked, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero, TxtPlazoCobranza.Text.Trim.ToEntero, TxtPlazoCobranzaRemision.Text.Trim.ToEntero, DiasPago, DdlTipoPago.SelectedValue,
-                                        DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero, DdlCtaContableAnticipos.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero,
-                                        DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableCompClientes.SelectedValue.ToEntero, DdlCtaContableCompClientes.SelectedItem.Text, DdlCtaContableCompAnticipos.SelectedValue.ToEntero, DdlCtaContableCompAnticipos.SelectedItem.Text,
-                                        DdlMonedaExtranjeraClientes.SelectedValue.ToEntero, DdlMonedaExtranjeraClientes.SelectedItem.Text, DdlMonedaExtranjeraAnticipos.SelectedValue.ToEntero, DdlMonedaExtranjeraAnticipos.SelectedItem.Text,
+                                        TxtTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text, Giro, DdlPrecioLista.SelectedValue.ToEntero(), ChkMail.Checked, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked,
+                                        ChkEstado.Checked, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero(), TxtPlazoCobranza.Text.Trim.ToEntero(), TxtPlazoCobranzaRemision.Text.Trim.ToEntero(), DiasPago, DdlTipoPago.SelectedValue,
+                                        DdlCtaContableClientes.SelectedValue.ToEntero(), DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero(), DdlCtaContableAnticipos.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero(), DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero(),
+                                        DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero(), DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableCompClientes.SelectedValue.ToEntero(), DdlCtaContableCompClientes.SelectedItem.Text, DdlCtaContableCompAnticipos.SelectedValue.ToEntero(), DdlCtaContableCompAnticipos.SelectedItem.Text,
+                                        DdlMonedaExtranjeraClientes.SelectedValue.ToEntero(), DdlMonedaExtranjeraClientes.SelectedItem.Text, DdlMonedaExtranjeraAnticipos.SelectedValue.ToEntero(), DdlMonedaExtranjeraAnticipos.SelectedItem.Text,
                                         TxtFormaFacturacion.Text.Trim, TxtCodigo.Text.Trim, TxtLimiteCredito.Text.ToDouble, 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, TxtProveedor.Text.Trim, ChkAplicaFord.Checked, TxtFordGSDB.Text.Trim, UsuarioActual.CveUsuario,
-                                        CveCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtExtension.Text.Trim, TxtTelefonoOtro.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ChkPermiteCredito.Checked, DdlSubProyecto.SelectedValue.ToEntero, DdlCorporativo.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificacion.SelectedValue.ToEntero, CveUsuarioResponsable:=DdlResponsable.SelectedValue.ToEntero,
-                                        CveCondicionEntrega:=DdlCondicionesEntrega.SelectedValue.ToEntero, ImprimeNombreSucursal:=ChkMuestraNombre.Checked, CveZonaHoraria:=DdlZonaHoraria.SelectedValue.ToEntero, CobranzaContacto:=TxtCobranzaContacto.Text.Trim, CobranzaTelefono:=TxtCobranzaTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), CobranzaExt:=TxtCobranzaExt.Text,
+                                        CveCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtExtension.Text.Trim, TxtTelefonoOtro.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ChkPermiteCredito.Checked, DdlSubProyecto.SelectedValue.ToEntero(), DdlCorporativo.SelectedValue.ToEntero(), CveClienteClasificacion:=DdlClasificacion.SelectedValue.ToEntero(), CveUsuarioResponsable:=DdlResponsable.SelectedValue.ToEntero(),
+                                        CveCondicionEntrega:=DdlCondicionesEntrega.SelectedValue.ToEntero(), ImprimeNombreSucursal:=ChkMuestraNombre.Checked, CveZonaHoraria:=DdlZonaHoraria.SelectedValue.ToEntero(), CobranzaContacto:=TxtCobranzaContacto.Text.Trim, CobranzaTelefono:=TxtCobranzaTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), CobranzaExt:=TxtCobranzaExt.Text,
                                         CobranzaCorreo:=TxtCobranzaCorreo.Text.Trim, Horario:=TxtHorario.Text.Trim, PortalFacturacion:=TxtPortalFacturacion.Text.Trim, Documentacion:=TxtDocumentacion.Text.Trim, DiasEspecifico:=TxtDiasEspecifico.Text.Trim, UsuarioPortal:=TxtUsuarioPortalFacturacion.Text, ContraseñaPortal:=TxtContraseñaPortalFacturacion.Text,
-                                        DiasRevision:=DiasRevision, ObservacionRevsion:=TxtObsDiasRevision.Text.Trim, ReferenciaFiscal:=TxtReferenciaFiscal.Text.Trim, Celular:=TxtCelular.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ExtOtros:=TxtExtOtro.Text.Trim, CveUsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, DesglosaIEPS:=ChkDesglosarIEPS.Checked,
-                                        AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero, CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero, CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero, CvePais:=DdlPais.SelectedValue.ToEntero, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero,
-                                        CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero, NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
+                                        DiasRevision:=DiasRevision, ObservacionRevsion:=TxtObsDiasRevision.Text.Trim, ReferenciaFiscal:=TxtReferenciaFiscal.Text.Trim, Celular:=TxtCelular.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ExtOtros:=TxtExtOtro.Text.Trim, CveUsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), DesglosaIEPS:=ChkDesglosarIEPS.Checked,
+                                        AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero(), CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero(), CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero(), CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(),
+                                        CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                         ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(),
                                         ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(),
-                                        RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero) Then
+                                        RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero()) Then
 
 
                 ObjClientes.LimpiaImpuestosLocales(CveCliente)
 
                 For Each GVR As GridViewRow In GvImpuestosLocales.Rows
                     If GVR.FCCheckBox("ChkDeduccion").Checked Then
-                        ObjClientes.AddClienteImpuestosLocales(CveCliente, GVR.DataKey("CveImpuestoLocal").ToEntero)
+                        ObjClientes.AddClienteImpuestosLocales(CveCliente, GVR.DataKey("CveImpuestoLocal").ToEntero())
                     End If
                 Next
 
@@ -2656,16 +2656,16 @@ Partial Class Clientes
 
                 'For Each gvr As GridViewRow In GvDocsVentas.Rows
                 '    'sino está registrada y se selecciona, se va a insertar
-                '    If gvr.DataKey("CveDocumentacionElectronica").ToEntero <= 0 Then
-                '        objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").ToEntero, -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, Now, Observacion2:=gvr.FCTextBox("TxtObs2").Text, FechaVigencia:=gvr.FCTextBox("TxtFechaVigencia").Text.ToDate)
+                '    If gvr.DataKey("CveDocumentacionElectronica").Toentero() <= 0 Then
+                '        objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").Toentero(), -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, Now, Observacion2:=gvr.FCTextBox("TxtObs2").Text, FechaVigencia:=gvr.FCTextBox("TxtFechaVigencia").Text.ToDate())
                 '    Else
                 '        ', Observacion2:=gvr.FCTextBox("TxtObs2").Text
-                '        objDoc.DocumentacionElectronicaUpdate(gvr.DataKey("CveDocumentacionElectronica").ToEntero, gvr.DataKey("CveDocumentacion").ToEntero, -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, gvr.DataKey("FechaLimite").ToDate, Observacion2:=gvr.FCTextBox("TxtObs2").Text, FechaVigencia:=gvr.FCTextBox("TxtFechaVigencia").Text.ToDate)
+                '        objDoc.DocumentacionElectronicaUpdate(gvr.DataKey("CveDocumentacionElectronica").Toentero(), gvr.DataKey("CveDocumentacion").Toentero(), -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, gvr.DataKey("FechaLimite").ToDate(), Observacion2:=gvr.FCTextBox("TxtObs2").Text, FechaVigencia:=gvr.FCTextBox("TxtFechaVigencia").Text.ToDate())
                 '    End If
 
                 '    'si ya estaba registrada y no se selecciona, se va a insertar
-                '    If gvr.DataKey("CveDocumentacionElectronica").ToEntero > 0 AndAlso Not gvr.FCCheckBox("ChkDoc").Checked Then
-                '        objDoc.DocumentacionElectronicaRemove(gvr.DataKey("CveDocumentacionElectronica").ToEntero, -1)
+                '    If gvr.DataKey("CveDocumentacionElectronica").Toentero() > 0 AndAlso Not gvr.FCCheckBox("ChkDoc").Checked Then
+                '        objDoc.DocumentacionElectronicaRemove(gvr.DataKey("CveDocumentacionElectronica").Toentero(), -1)
                 '    End If
 
                 'Next
@@ -2677,7 +2677,7 @@ Partial Class Clientes
                 If EstatusAnteriorCliente <> ChkEstado.Checked Then
 
                     Dim DTVendedor As New DataTable
-                    DTVendedor = GlobalDTVendedores(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(" CveVendedor =   " & DdlVendedor.SelectedValue.ToEntero)
+                    DTVendedor = GlobalDTVendedores(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(" CveVendedor =   " & DdlVendedor.SelectedValue.ToEntero())
 
                     Dim ObjVendedores As New ClsVtaVendedores
                     Dim DtVendedores As DataTable = Nothing
@@ -2687,17 +2687,17 @@ Partial Class Clientes
                     ObjVendedores.Dispose()
 
                     If DTVendedor.Rows.Count > 0 Then
-                        Dim _CorreoVendedor As String = DTVendedor(0)("Correo").ToString
+                        Dim _CorreoVendedor As String = DTVendedor(0)("Correo").ToString()
                         Dim _CorreoAsistente As String = ""
                         Dim _CorreoCoordinador As String = ""
 
-                        Dim CveSuperior As Integer = DTVendedor(0)("CveSuperior").ToString.ToEntero
+                        Dim CveSuperior As Integer = DTVendedor(0)("CveSuperior").ToString().ToEntero()
                         If DTVendedor.Rows.Count > 0 Then
-                            _CorreoAsistente = DtVendedores.FiltroPrimeroValor("Correo", "CveSuperior = " & DdlVendedor.SelectedValue.ToEntero)
+                            _CorreoAsistente = DtVendedores.FiltroPrimeroValor("Correo", "CveSuperior = " & DdlVendedor.SelectedValue.ToEntero())
                             _CorreoCoordinador = DtVendedores.FiltroPrimeroValor("Correo", "CveVendedor = " & CveSuperior)
                         End If
 
-                        If (_CorreoVendedor.Length > 0 Or _CorreoAsistente.Length > 0 Or _CorreoCoordinador.Length > 0) And UsuarioActual.Empresa.Funcionalidad(571).ToEntero > 0 Then
+                        If (_CorreoVendedor.Length > 0 Or _CorreoAsistente.Length > 0 Or _CorreoCoordinador.Length > 0) And UsuarioActual.Empresa.Funcionalidad(571).ToEntero() > 0 Then
 
                             Dim Asunto As String = ""
                             Dim Para As String = If(_CorreoVendedor.Length > 0, _CorreoVendedor & ";", "") & If(_CorreoAsistente.Length > 0, _CorreoAsistente & ";", "") & _CorreoCoordinador
@@ -2710,7 +2710,7 @@ Partial Class Clientes
                                 Asunto = "Desactivación de cliente " & TxtNombre.Text
                                 SBBody.Append(String.Format(" Por Medio de la presente se le notifica que el estatus del  cliente {0} ha sido desactivado.", TxtNombre.Text))
                             End If
-                            MandaCorreo(Asunto, Para + "", SBBody.ToString)
+                            MandaCorreo(Asunto, Para + "", SBBody.ToString())
                         End If
                     End If
 
@@ -2726,11 +2726,11 @@ Partial Class Clientes
         ObjClientes.Dispose()
         objDoc.Dispose()
         RecargaGlobal()
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+
 #Region "G L O B L A L"
     Private Sub RecargaGlobal()
         'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
@@ -2744,10 +2744,10 @@ Partial Class Clientes
         '    Application("GlobalDTCliente") = Objclientes.DtResultados
         'End If
         'Objclientes.Dispose()
-    End Sub
+    End Sub
 #End Region
-
-
+
+
 #Region "G R I D V I E W S"
     Protected Sub GVHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVHistorial.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -2823,7 +2823,7 @@ Partial Class Clientes
                 e.Row.Cells(9).Visible = True
                 e.Row.Cells(9).Font.Bold = True
                 Dim OBjClientes As New ClsClientes
-                If OBjClientes.GetVisitasCobranza(-1, e.Row.DBCampo("CveVenta").ToEntero, -1) Then
+                If OBjClientes.GetVisitasCobranza(-1, e.Row.DBCampo("CveVenta").ToEntero(), -1) Then
                     If OBjClientes.DtResultados.Rows.Count > 0 Then
                         e.Row.FCLinkButton("ImgVisitas").Visible = True
                         GvVisitas.DataSource = OBjClientes.DtResultados
@@ -2891,7 +2891,7 @@ Partial Class Clientes
                 If e.Row.DBCampo("Folio") = "N/D" Then
                     e.Row.FCLiteral("LtlFactura").Text = e.Row.DataKey("Folio")
                 Else
-                    If e.Row.DataKey("CveIE").ToString.ToEntero > 0 Then
+                    If e.Row.DataKey("CveIE").ToString().ToEntero() > 0 Then
                         e.Row.FCLiteral("LtlFactura").Text = String.Format("<a class=""Texto"" href=""/Bancos/IE.aspx?CveIE={0}"">{1}</a>", e.Row.DataKey("CveIE"), e.Row.DataKey("Folio"))
                     Else
                         e.Row.FCLiteral("LtlFactura").Text = String.Format("<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">{1}</a>", e.Row.DataKey("CveVenta"), e.Row.DataKey("Folio"))
@@ -2900,19 +2900,19 @@ Partial Class Clientes
             End If
 
             If UsuarioActual.TienePermisoProceso(247) Then
-                If CType(sender, GridView).ID = "GVAnticipos" And e.Row.DBCampo("CveVenta").ToEntero > 0 And e.Row.DBCampo("Tipo") = "NC" Then
-                    Dim Parametros = Encripta($"CveVenta={e.Row.DBCampo("CveVenta").ToEntero}&SerieFolio={e.Row.DBCampo("Folio")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveCliente={CveCliente}&Saldo={e.Row.DBCampo("Saldo")}&Original={e.Row.DBCampo("Original")}&CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}")
+                If CType(sender, GridView).ID = "GVAnticipos" And e.Row.DBCampo("CveVenta").ToEntero() > 0 And e.Row.DBCampo("Tipo") = "NC" Then
+                    Dim Parametros = Encripta($"CveVenta={e.Row.DBCampo("CveVenta").ToEntero()}&SerieFolio={e.Row.DBCampo("Folio")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveCliente={CveCliente}&Saldo={e.Row.DBCampo("Saldo")}&Original={e.Row.DBCampo("Original")}&CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}")
                     e.Row.FCHyperLink("HLDevolverDinero").Visible = True
                     e.Row.FCHyperLink("HLDevolverDinero").NavigateUrl = $"/Bancos/IE.aspx?Opcion=DevDinV&P={Parametros}"
                 End If
             End If
 
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "R H"
-
+
     Private Sub CargaPersonalAsignado()
         Dim ObjPersonal As New ClsRH
         If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, CveCliente, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
@@ -2949,7 +2949,7 @@ Partial Class Clientes
 
     Protected Sub BtnConsultarAsistencia_Click(sender As Object, e As System.EventArgs) Handles BtnConsultarAsistencia.Click
         Dim objpersonal As New ClsRH
-        If objpersonal.GetAsistencias(-1, CveCliente, -1, -1, -1, 1, txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim.ToDate, UsuarioActual.CveEmpresa) Then
+        If objpersonal.GetAsistencias(-1, CveCliente, -1, -1, -1, 1, txtFechaI.Text.Trim.ToDate(), txtFechaF.Text.Trim.ToDate(), UsuarioActual.CveEmpresa) Then
             GVAsistencia.DataSource = objpersonal.DtResultados.FiltraParametros("Fecha IS NOT NULL")
         Else
             GVAsistencia.DataSource = Nothing
@@ -2976,7 +2976,7 @@ Partial Class Clientes
             e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Left
             e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Left
 
-            If IsDate(e.Row.DBCampo("Fecha")) Then e.Row.FCLiteral("LtlFecha").Text = e.Row.DBCampo("Fecha").ToDate.ToShortDateString
+            If IsDate(e.Row.DBCampo("Fecha")) Then e.Row.FCLiteral("LtlFecha").Text = e.Row.DBCampo("Fecha").ToDate().ToShortDateString()
 
             If e.Row.DBCampo("SeModifico") = "0" Then
                 e.Row.BackColor = Drawing.Color.LightBlue
@@ -2985,9 +2985,9 @@ Partial Class Clientes
             End If
 
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "S U C U R S A L E S"
     Private Sub LbAgregarSucursal_Click(sender As Object, e As EventArgs) Handles LbAgregarSucursal.Click
         ChkEstatusSucursal.Checked = True
@@ -3039,8 +3039,8 @@ Partial Class Clientes
                 Dim Estatus As Boolean = ChkEstatusSucursal.Checked
 
                 If ObjCliente.UpdateSucursal(TxtNombreSucursal.Text.Trim, Estatus, CveCliente, CveClienteSuc, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim,
-                                             TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, DdlVendedorSucursal.SelectedValue.ToEntero, TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero, TxtLimiteCreditoSucursal.Text.ToDecimal, DdlResponsableSucursal.SelectedValue.ToEntero,
-                                              DdlSucursalUsoCFDI.SelectedValue.ToEntero, DdlSucursalFormaPago33.SelectedValue.ToEntero, DdlSucursalMetodoPago33.SelectedValue.ToEntero, LT:=LT, LG:=LG) Then
+                                             TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(),
+                                              DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG) Then
                     GVSucursales.EditIndex = -1
                     ViewState("DTSucursalesCliente") = ObjCliente.DtResultados
                     Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
@@ -3055,8 +3055,8 @@ Partial Class Clientes
 
             Else
                 If ObjCliente.AddSucursal(CveCliente, TxtNombreSucursal.Text.Trim, UsuarioActual.CveUsuario, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim,
-                                          DdlVendedorSucursal.SelectedValue.ToEntero, TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero, TxtLimiteCreditoSucursal.Text.ToDecimal, DdlResponsableSucursal.SelectedValue.ToEntero,
-                                           DdlSucursalUsoCFDI.SelectedValue.ToEntero, DdlSucursalFormaPago33.SelectedValue.ToEntero, DdlSucursalMetodoPago33.SelectedValue.ToEntero, LT:=LT, LG:=LG) Then
+                                          DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(),
+                                           DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG) Then
                     TxtNombreSucursal.Text = ""
                     TxtCiudadSucursal.Text = ""
                     TxtColoniaSucursal.Text = ""
@@ -3119,7 +3119,7 @@ Partial Class Clientes
 
         UpModalDivMapa.Update()
 
-    End Sub
+    End Sub
 #Region "G V  S U C U R S A L E S"
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVSucursales.RowDataBound
 
@@ -3144,7 +3144,7 @@ Partial Class Clientes
         Dim ObjCliente As New ClsClientes
 
         If CveCliente > 0 Then
-            If ObjCliente.RemoveSucursal(CveCliente, GVSucursales.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
+            If ObjCliente.RemoveSucursal(CveCliente, GVSucursales.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then
                 GVSucursales.EditIndex = -1
                 ViewState("DTSucursalesCliente") = ObjCliente.DtResultados
                 Alert("La Sucursal del Cliente se eliminó correctamente.", TipoMensaje.MsgInformacion)
@@ -3180,7 +3180,7 @@ Partial Class Clientes
 
         Me.Actualizar = True
         Me.DivRFCSucursal.Visible = False
-        Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString.ToEntero
+        Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString().ToEntero()
 
 
         Dim ObjCliente As New ClsClientes
@@ -3188,37 +3188,37 @@ Partial Class Clientes
         If ObjCliente.GetSucursales(CveCliente, CveClienteSuc) Then
 
             DivEstatusSucursal.Visible = True
-            TxtNombreSucursal.Text = ObjCliente.DtResultados.Rows(0)("SucursalCliente").ToString
-            ChkEstatusSucursal.Checked = If(ObjCliente.DtResultados.Rows(0)("Estatus").ToString = "Activo", True, False)
-            TxtCiudadSucursal.Text = ObjCliente.DtResultados.Rows(0)("Ciudad").ToString
-            TxtColoniaSucursal.Text = ObjCliente.DtResultados.Rows(0)("Colonia").ToString
-            TxtCPSucursal.Text = ObjCliente.DtResultados.Rows(0)("CP").ToString
-            TxtDireccionSucursal.Text = ObjCliente.DtResultados.Rows(0)("Direccion").ToString
-            TxtEstadoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Estado").ToString
-            TxtLocalidadSucursal.Text = ObjCliente.DtResultados.Rows(0)("Localidad").ToString
-            TxtPaisSucursal.Text = ObjCliente.DtResultados.Rows(0)("Pais").ToString
-            TxtNumExtSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoExt").ToString
-            TxtNumIntSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoInt").ToString
-            TxtTelefonoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Telefono").ToString
-            TxtRFCSucursal.Text = ObjCliente.DtResultados.Rows(0)("RFC").ToString
+            TxtNombreSucursal.Text = ObjCliente.DtResultados.Rows(0)("SucursalCliente").ToString()
+            ChkEstatusSucursal.Checked = If(ObjCliente.DtResultados.Rows(0)("Estatus").ToString() = "Activo", True, False)
+            TxtCiudadSucursal.Text = ObjCliente.DtResultados.Rows(0)("Ciudad").ToString()
+            TxtColoniaSucursal.Text = ObjCliente.DtResultados.Rows(0)("Colonia").ToString()
+            TxtCPSucursal.Text = ObjCliente.DtResultados.Rows(0)("CP").ToString()
+            TxtDireccionSucursal.Text = ObjCliente.DtResultados.Rows(0)("Direccion").ToString()
+            TxtEstadoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Estado").ToString()
+            TxtLocalidadSucursal.Text = ObjCliente.DtResultados.Rows(0)("Localidad").ToString()
+            TxtPaisSucursal.Text = ObjCliente.DtResultados.Rows(0)("Pais").ToString()
+            TxtNumExtSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoExt").ToString()
+            TxtNumIntSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoInt").ToString()
+            TxtTelefonoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Telefono").ToString()
+            TxtRFCSucursal.Text = ObjCliente.DtResultados.Rows(0)("RFC").ToString()
             DivRFCSucursal.Visible = Not String.IsNullOrEmpty(TxtRFCSucursal.Text.Trim())
-            TxtCorreoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Correo").ToString
-            TxtCorreoSucursalCotizacion.Text = ObjCliente.DtResultados(0)("CorreoCotizacion").ToString
-            TxtContactoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Contacto").ToString
-            DdlVendedorSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString)
-            DdlMetodoPagoSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString)
-            TxtNumeroCuenta.Text = ObjCliente.DtResultados.Rows(0)("NumCtaPago").ToString
-            LblUsuarioSucursal.Text = String.Format("Usuario Registró: {0}", ObjCliente.DtResultados.Rows(0)("Usuario").ToString)
-            LblFechaSucursal.Text = String.Format("Fecha de Registro: {0}", ObjCliente.DtResultados.Rows(0)("FechaIng").ToString.ToDate.ToShortDateString)
-            TxtLimiteCreditoSucursal.Text = ObjCliente.DtResultados.Rows(0)("LimiteCredito").ToString.FormatoNumero
-            DdlResponsableSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveResponsableCobranza").ToString)
+            TxtCorreoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Correo").ToString()
+            TxtCorreoSucursalCotizacion.Text = ObjCliente.DtResultados(0)("CorreoCotizacion").ToString()
+            TxtContactoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Contacto").ToString()
+            DdlVendedorSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString())
+            DdlMetodoPagoSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString())
+            TxtNumeroCuenta.Text = ObjCliente.DtResultados.Rows(0)("NumCtaPago").ToString()
+            LblUsuarioSucursal.Text = String.Format("Usuario Registró: {0}", ObjCliente.DtResultados.Rows(0)("Usuario").ToString())
+            LblFechaSucursal.Text = String.Format("Fecha de Registro: {0}", ObjCliente.DtResultados.Rows(0)("FechaIng").ToString().ToDate().ToShortDateString())
+            TxtLimiteCreditoSucursal.Text = ObjCliente.DtResultados.Rows(0)("LimiteCredito").ToString().FormatoNumero()
+            DdlResponsableSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveResponsableCobranza").ToString())
 
-            DdlSucursalUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString)
-            DdlSucursalMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString)
-            DdlSucursalFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString)
+            DdlSucursalUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString())
+            DdlSucursalMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString())
+            DdlSucursalFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString())
 
-            txtLg.Text = ObjCliente.DtResultados.Rows(0)("LG").ToString
-            txtLt.Text = ObjCliente.DtResultados.Rows(0)("LT").ToString
+            txtLg.Text = ObjCliente.DtResultados.Rows(0)("LG").ToString()
+            txtLt.Text = ObjCliente.DtResultados.Rows(0)("LT").ToString()
             HDMAPOP.Value = "2"
 
 
@@ -3241,18 +3241,18 @@ Partial Class Clientes
         Else
             CargaGrid("", 0)
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "G V  U S U A R I O S  P O R T A L"
     Protected Sub GvUsuariosPortal_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvUsuariosPortal.RowCommand
         If e.CommandName = "RestablecerContraseña" Then
-            Dim cveUsuarioPortal As Integer = e.CommandArgument.ToString.ToEntero
+            Dim cveUsuarioPortal As Integer = e.CommandArgument.ToString().ToEntero()
             Dim Usuario As New ClsSisUsuarios
             If Usuario.GetUsuariosPortal(cveUsuarioPortal, -1, -1) Then
                 Dim dr As DataRow = Usuario.DtResultados.FiltroPrimero("")
 
-                If Usuario.UpdateUsuarioPortal(dr("Usuario").ToString, dr("Nombre").ToString, dr("Correo").ToString, CType(dr("Estatus"), Boolean), ContraseñaPredeterminadaEncriptada, CveCliente, -1, cveUsuarioPortal, UsuarioActual.CveUsuario) Then
+                If Usuario.UpdateUsuarioPortal(dr("Usuario").ToString(), dr("Nombre").ToString(), dr("Correo").ToString(), CType(dr("Estatus"), Boolean), ContraseñaPredeterminadaEncriptada, CveCliente, -1, cveUsuarioPortal, UsuarioActual.CveUsuario) Then
 
                     GvUsuariosPortal.EditIndex = -1
                     ViewState("DTUsuariosCliente") = Usuario.DtResultados.FiltraParametros("Usuario <> 'Admin'")
@@ -3323,8 +3323,8 @@ Partial Class Clientes
         Dim Nombre As String = gvr.FCTextBox("TxtUsuarioPortalEdit").Text.Trim
         Dim Correo As String = gvr.FCTextBox("TxtCorreoUsuarioPortalEdit").Text.Trim
         Dim Estatus As Boolean = gvr.FCCheckBox("ChkEstatus").Checked
-        Dim CveUsuario As Integer = gvr.DataKey("CveUsuario").ToEntero
-        Dim pCveCliente As Integer = gvr.DataKey("CveCliente").ToEntero
+        Dim CveUsuario As Integer = gvr.DataKey("CveUsuario").ToEntero()
+        Dim pCveCliente As Integer = gvr.DataKey("CveCliente").ToEntero()
 
         Dim PermisoHistorialCompras As Boolean = gvr.FCCheckBox("ChkPermiso1").Checked
         Dim PermisoCxP As Boolean = gvr.FCCheckBox("ChkPermiso2").Checked
@@ -3395,9 +3395,9 @@ Partial Class Clientes
             CargaGrid("", 1)
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "O R D E N A M I E N T O"
     Private Sub CargaGrid(Orden As String, gvi As Integer)
         If gvi = 0 Then
@@ -3429,16 +3429,16 @@ Partial Class Clientes
             UPPUsuarios.Update()
         End If
 
-    End Sub
+    End Sub
 #End Region
-
-
+
+
 #End Region
-
+
 #Region "U S U A R I O S"
     Protected Sub LbSolicitudPortal_Click(sender As Object, e As EventArgs) Handles LbEnviarActivacionPortal.Click
         Dim ObjUsuario As New ClsSisUsuarios
-        Dim CveUsr As Integer = HdnCveUsuarioPortalAdmin.Value.ToEntero
+        Dim CveUsr As Integer = HdnCveUsuarioPortalAdmin.Value.ToEntero()
         Dim Usuario As String = TxtEmail.Text
         Dim NomUsuario As String = "Admin"
         Dim CorreoUsuario As String = TxtEmail.Text
@@ -3470,7 +3470,7 @@ Partial Class Clientes
                         ErrorUsuario = False
                     Next
                     If Not ErrorUsuario Then
-                        HdnCveUsuarioPortalAdmin.Value = CveUsr.ToString
+                        HdnCveUsuarioPortalAdmin.Value = CveUsr.ToString()
                         trDesactivarUsuario.Visible = True
                         trEnviarActivacion.Visible = False
                         LblUsuarioActivo.Text = "Si"
@@ -3491,7 +3491,7 @@ Partial Class Clientes
                     ErrorUsuario = False
                 Next
                 If Not ErrorUsuario Then
-                    HdnCveUsuarioPortalAdmin.Value = CveUsr.ToString
+                    HdnCveUsuarioPortalAdmin.Value = CveUsr.ToString()
                     trDesactivarUsuario.Visible = True
                     trEnviarActivacion.Visible = False
                     LblUsuarioActivo.Text = "Si"
@@ -3616,9 +3616,9 @@ Partial Class Clientes
         ChkPermiso5.Checked = False
         ChkPermiso6.Checked = False
         ChkPermiso7.Checked = False
-    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
@@ -3629,9 +3629,9 @@ Partial Class Clientes
                 e.Row.Cells(4).Width = Unit.Pixel(30)
             End If
 
-            If e.Row.DBCampo("Archivo").ToString <> "" Then
+            If e.Row.DBCampo("Archivo").ToString() <> "" Then
                 e.Row.FCLinkButton("LinkArchivo").Visible = True
-                e.Row.FCLinkButton("LinkArchivo").CommandArgument = String.Format("OI\{0}", e.Row.DBCampo("Archivo").ToString)
+                e.Row.FCLinkButton("LinkArchivo").CommandArgument = String.Format("OI\{0}", e.Row.DBCampo("Archivo").ToString())
                 ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LinkArchivo")) 'Registro un evento Postbacktrigger, que recargue toda la pagina para que funcione
             End If
 
@@ -3651,7 +3651,7 @@ Partial Class Clientes
 
         If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveCliente, -1, -1, -1, -1, -1) Then
             If filemove <> "" Then
-                filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("Empresas\{0}\OI", UsuarioActual.CveEmpresa))
+                filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString()), String.Format("Empresas\{0}\OI", UsuarioActual.CveEmpresa))
             End If
 
             GvEB.DataSource = ObjEventoBitacora.DtResultados
@@ -3700,7 +3700,7 @@ Partial Class Clientes
     End Sub
 
     Public Sub BtnAgregaCuentaContable(sender As Object, e As EventArgs) Handles BtnActivaRegistroClientes.Click, BtnActivaRegistroAnticipos.Click, BtnActivaRegistroIVA.Click, BtnActivaRegistroISR.Click
-        Dim CuentaContable = DirectCast(sender, Button).CommandArgument.ToString
+        Dim CuentaContable = DirectCast(sender, Button).CommandArgument.ToString()
         Dim Button = DirectCast(sender, Button)
         Select Case CuentaContable
             Case "Clientes"
@@ -3728,15 +3728,15 @@ Partial Class Clientes
 
         Dim CuentaPadre = -1
 
-        Select Case btn.CommandArgument.ToString
+        Select Case btn.CommandArgument.ToString()
             Case "Clientes"
-                CuentaPadre = UsuarioActual.Empresa.Funcionalidad(211).ToEntero
+                CuentaPadre = UsuarioActual.Empresa.Funcionalidad(211).ToEntero()
             Case "Anticipos"
-                CuentaPadre = UsuarioActual.Empresa.Funcionalidad(212).ToEntero
+                CuentaPadre = UsuarioActual.Empresa.Funcionalidad(212).ToEntero()
             Case "RetIVA"
-                CuentaPadre = UsuarioActual.Empresa.Funcionalidad(213).ToEntero
+                CuentaPadre = UsuarioActual.Empresa.Funcionalidad(213).ToEntero()
             Case "RetISR"
-                CuentaPadre = UsuarioActual.Empresa.Funcionalidad(214).ToEntero
+                CuentaPadre = UsuarioActual.Empresa.Funcionalidad(214).ToEntero()
 
         End Select
 
@@ -3754,7 +3754,7 @@ Partial Class Clientes
                 Dim row As DataRow = dt.Rows(0)
                 CtaCodigo = CStr(row("CtaCodigo"))
 
-                Select Case btn.CommandArgument.ToString
+                Select Case btn.CommandArgument.ToString()
                     Case "Clientes"
                         IdCtaContableClientes = IdCuentaContable
                     Case "Anticipos"
@@ -3784,7 +3784,7 @@ Partial Class Clientes
         If Not TieneError Then
             ObjContaAC.Commit()
             Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
-            ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString)
+            ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString())) : ddl.SelectedValueExist(IdCuentaContable.ToString())
             btn.Visible = False
             ddl.Width = 206
             ProcesoCorrecto = True
@@ -3805,30 +3805,30 @@ Partial Class Clientes
     Private Sub ActivarRegistroAutomatico()
 
         'Clientes
-        If DdlCtaContableClientes.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(211).ToEntero > 0 Then
+        If DdlCtaContableClientes.SelectedValue.ToEntero() <= 0 And UsuarioActual.Empresa.Funcionalidad(211).ToEntero() > 0 Then
             BtnActivaRegistroClientes.Visible = True
         End If
 
         'Anticipos
-        If DdlCtaContableAnticipos.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(212).ToEntero > 0 Then
+        If DdlCtaContableAnticipos.SelectedValue.ToEntero() <= 0 And UsuarioActual.Empresa.Funcionalidad(212).ToEntero() > 0 Then
             BtnActivaRegistroAnticipos.Visible = True
         End If
 
         'Ret IVA
-        If DdlCtaContableRetIVA.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(213).ToEntero > 0 Then
+        If DdlCtaContableRetIVA.SelectedValue.ToEntero() <= 0 And UsuarioActual.Empresa.Funcionalidad(213).ToEntero() > 0 Then
             BtnActivaRegistroIVA.Visible = True
         End If
 
         'Ret ISR
-        If DdlCtaContableRetISR.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(214).ToEntero > 0 Then
+        If DdlCtaContableRetISR.SelectedValue.ToEntero() <= 0 And UsuarioActual.Empresa.Funcionalidad(214).ToEntero() > 0 Then
             BtnActivaRegistroISR.Visible = True
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region " I M P R I M I R   P D F"
-
+
     Protected Sub ChkAntIXCNC_CheckedChanged(sender As Object, e As EventArgs)
         DdlTipoDocto.ClearSelection()
         If ChkAntIXCNC.Checked Then
@@ -3900,14 +3900,14 @@ Partial Class Clientes
         Dim TotalAnt As Double = 0
         Dim ContaIng As Integer = 0
         Dim ContaAnt As Integer = 0
-        Dim FechaCorte As Date = ("9999/01/01").ToDate
+        Dim FechaCorte As Date = ("9999/01/01").ToDate()
         Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM)
         Dim TipoDocto2 As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM(True))
-        Dim FechaVencimientoI As String = If(TxtFechaVICxP.Text = "", "-1", TxtFechaVICxP.Text).ToString
-        Dim FechaVencimientoF As String = If(TxtFechaVFCxP.Text = "", "-1", TxtFechaVFCxP.Text).ToString
+        Dim FechaVencimientoI As String = If(TxtFechaVICxP.Text = "", "-1", TxtFechaVICxP.Text).ToString()
+        Dim FechaVencimientoF As String = If(TxtFechaVFCxP.Text = "", "-1", TxtFechaVFCxP.Text).ToString()
 
         Dim ObjMovtos As New ClsMovimientos()
-        If ObjMovtos.GetCxCClienteDetalle(CveCliente, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, DdlSucursalCliente.SelectedValue.ToEntero) Then
+        If ObjMovtos.GetCxCClienteDetalle(CveCliente, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, DdlSucursalCliente.SelectedValue.ToEntero()) Then
             DtCxCFact = If(DdlTipoCuentasCxC.SelectedValue = "-1", ObjMovtos.DtResultados.FiltraParametros("", "TipoDocto").Copy, ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "TipoDocto"))
             'cargo los anticipos NC
             DtCxCFact.Columns.Add("SaldoAnticipo", GetType(Decimal))
@@ -3940,26 +3940,26 @@ Partial Class Clientes
 
         If DtCxCFact IsNot Nothing Then
             For Each Row As DataRow In DtCxCFact.FiltraParametros($"TipoDocto IN ({TipoDocto2})").Rows
-                If Row("TipoDocto").ToString = "Ing" Or Row("TipoDocto").ToString = "Rem" Or (Row("TipoDocto").ToString = "Ant" And Row("Saldo").ToString.ToDouble > 0) Then 'Ingresos
+                If Row("TipoDocto").ToString() = "Ing" Or Row("TipoDocto").ToString() = "Rem" Or (Row("TipoDocto").ToString() = "Ant" And Row("Saldo").ToString().ToDouble > 0) Then 'Ingresos
                     ContaIng = ContaIng + 1
-                    If Row("CveMoneda").ToString.ToEntero = 1 Then
-                        SaldoIngPesos = SaldoIngPesos + Row("Saldo").ToString.ToDouble
-                    ElseIf Row("CveMoneda").ToString.ToEntero = 2 Then
-                        SaldoIngDolares = SaldoIngDolares + Row("Saldo").ToString.ToDouble
-                        SaldoIngDolaresPesos = SaldoIngDolaresPesos + (Row("Saldo").ToString.ToDouble * Row("TipoCambio").ToString.ToDouble)
+                    If Row("CveMoneda").ToString().ToEntero() = 1 Then
+                        SaldoIngPesos = SaldoIngPesos + Row("Saldo").ToString().ToDouble
+                    ElseIf Row("CveMoneda").ToString().ToEntero() = 2 Then
+                        SaldoIngDolares = SaldoIngDolares + Row("Saldo").ToString().ToDouble
+                        SaldoIngDolaresPesos = SaldoIngDolaresPesos + (Row("Saldo").ToString().ToDouble * Row("TipoCambio").ToString().ToDouble)
                     End If
 
-                ElseIf (Row("TipoDocto").ToString = "Ant" And Row("Saldo").ToString.ToDouble = 0) Or Row("TipoDocto").ToString = "IxC" Or Row("TipoDocto").ToString = "NC" Or Row("TipoDocto").ToString = "Dev" Or Row("TipoDocto").ToString = "RNC" Then 'Anticipos, NC, IxC
+                ElseIf (Row("TipoDocto").ToString() = "Ant" And Row("Saldo").ToString().ToDouble = 0) Or Row("TipoDocto").ToString() = "IxC" Or Row("TipoDocto").ToString() = "NC" Or Row("TipoDocto").ToString() = "Dev" Or Row("TipoDocto").ToString() = "RNC" Then 'Anticipos, NC, IxC
                     ContaAnt = ContaAnt + 1
-                    If Row("CveMoneda").ToString.ToEntero = 1 Then
-                        If Row("TipoDocto").ToString = "Dev" Then
-                            SaldoAntPesos = SaldoAntPesos + Row("Saldo").ToString.ToDouble
+                    If Row("CveMoneda").ToString().ToEntero() = 1 Then
+                        If Row("TipoDocto").ToString() = "Dev" Then
+                            SaldoAntPesos = SaldoAntPesos + Row("Saldo").ToString().ToDouble
                         Else
-                            SaldoAntPesos = SaldoAntPesos + Row("SaldoAnticipo").ToString.ToDouble
+                            SaldoAntPesos = SaldoAntPesos + Row("SaldoAnticipo").ToString().ToDouble
                         End If
-                    ElseIf Row("CveMoneda").ToString.ToEntero = 2 Then
-                        SaldoAntDolares = SaldoAntDolares + Row("Saldo").ToString.ToDouble
-                        SaldoAntDolaresPesos = SaldoAntDolaresPesos + (Row("SaldoAnticipo").ToString.ToDouble * Row("TipoCambio").ToString.ToDouble)
+                    ElseIf Row("CveMoneda").ToString().ToEntero() = 2 Then
+                        SaldoAntDolares = SaldoAntDolares + Row("Saldo").ToString().ToDouble
+                        SaldoAntDolaresPesos = SaldoAntDolaresPesos + (Row("SaldoAnticipo").ToString().ToDouble * Row("TipoCambio").ToString().ToDouble)
                     End If
                 End If
             Next
@@ -4015,13 +4015,13 @@ Partial Class Clientes
             Dim lista = New List(Of CrystalParametro)
             Dim SaldoDisponible As String = "0.00"
             If TxtLimiteCredito.Text.ToDouble > 0 Then
-                SaldoDisponible = (TxtLimiteCredito.Text.ToDouble - DtCxCFact2.SUM("Saldo", "Tipo  = 'Act'").ToString.ToDouble).FormatoNumero
+                SaldoDisponible = (TxtLimiteCredito.Text.ToDouble - DtCxCFact2.SUM("Saldo", "Tipo  = 'Act'").ToString().ToDouble).FormatoNumero()
             End If
             lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
             lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text))
             lista.Add(New CrystalParametro("NombreCliente", LtlCliente.Text))
             lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI)))
-            lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF)))
+            lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString(), FF)))
             lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
             lista.Add(New CrystalParametro("DireccionCliente", String.Format("Calle {0} #{1} Colonia {2}", TxtDireccion.Text, If(TxtNoExt.Text = "", "S/N", TxtNoExt.Text), TxtColonia.Text)))
             lista.Add(New CrystalParametro("ClienteCP", TxtCP.Text))
@@ -4032,15 +4032,15 @@ Partial Class Clientes
             lista.Add(New CrystalParametro("LimiteCredito", TxtLimiteCredito.Text))
             lista.Add(New CrystalParametro("SaldoDisponible", SaldoDisponible))
 
-            lista.Add(New CrystalParametro("SaldoIngDolares", SaldoIngDolares.FormatoNumero))
-            lista.Add(New CrystalParametro("SaldoIngPesos", SaldoIngPesos.FormatoNumero))
-            lista.Add(New CrystalParametro("TotalIng", TotalIng.FormatoNumero))
-            lista.Add(New CrystalParametro("SaldoAntDolares", SaldoAntDolares.FormatoNumero))
-            lista.Add(New CrystalParametro("SaldoAntPesos", SaldoAntPesos.FormatoNumero))
-            lista.Add(New CrystalParametro("TotalAnt", TotalAnt.FormatoNumero))
+            lista.Add(New CrystalParametro("SaldoIngDolares", SaldoIngDolares.FormatoNumero()))
+            lista.Add(New CrystalParametro("SaldoIngPesos", SaldoIngPesos.FormatoNumero()))
+            lista.Add(New CrystalParametro("TotalIng", TotalIng.FormatoNumero()))
+            lista.Add(New CrystalParametro("SaldoAntDolares", SaldoAntDolares.FormatoNumero()))
+            lista.Add(New CrystalParametro("SaldoAntPesos", SaldoAntPesos.FormatoNumero()))
+            lista.Add(New CrystalParametro("TotalAnt", TotalAnt.FormatoNumero()))
             lista.Add(New CrystalParametro("ContaIng", ContaIng))
-            lista.Add(New CrystalParametro("ContaAnt", ContaAnt))
-             
+            lista.Add(New CrystalParametro("ContaAnt", ContaAnt))
+
             If Imagen.Exists Then
                 lista.Add(New CrystalParametro("LogoPath", logouri))
             Else
@@ -4090,7 +4090,7 @@ Partial Class Clientes
             lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text))
             lista.Add(New CrystalParametro("NombreCliente", LtlCliente.Text))
             lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI)))
-            lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF)))
+            lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString(), FF)))
             lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
             lista.Add(New CrystalParametro("DireccionCliente", String.Format("Calle {0} #{1} Colonia {2}", TxtDireccion.Text, If(TxtNoExt.Text = "", "S/N", TxtNoExt.Text), TxtColonia.Text)))
             lista.Add(New CrystalParametro("ClienteCP", TxtCP.Text))
@@ -4099,14 +4099,14 @@ Partial Class Clientes
             lista.Add(New CrystalParametro("ClienteTelefono", TxtTelefono.Text))
             lista.Add(New CrystalParametro("DiasCredito", TxtPlazoCobranza.Text))
             lista.Add(New CrystalParametro("LimiteCredito", TxtLimiteCredito.Text))
-            lista.Add(New CrystalParametro("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble).FormatoNumero))
+            lista.Add(New CrystalParametro("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble).FormatoNumero()))
 
-            lista.Add(New CrystalParametro("SaldoIngDolares", SaldoIngDolares.FormatoNumero))
-            lista.Add(New CrystalParametro("SaldoIngPesos", SaldoIngPesos.FormatoNumero))
-            lista.Add(New CrystalParametro("TotalIng", TotalIng.FormatoNumero))
-            lista.Add(New CrystalParametro("SaldoAntDolares", SaldoAntDolares.FormatoNumero))
-            lista.Add(New CrystalParametro("SaldoAntPesos", SaldoAntPesos.FormatoNumero))
-            lista.Add(New CrystalParametro("TotalAnt", TotalAnt.FormatoNumero))
+            lista.Add(New CrystalParametro("SaldoIngDolares", SaldoIngDolares.FormatoNumero()))
+            lista.Add(New CrystalParametro("SaldoIngPesos", SaldoIngPesos.FormatoNumero()))
+            lista.Add(New CrystalParametro("TotalIng", TotalIng.FormatoNumero()))
+            lista.Add(New CrystalParametro("SaldoAntDolares", SaldoAntDolares.FormatoNumero()))
+            lista.Add(New CrystalParametro("SaldoAntPesos", SaldoAntPesos.FormatoNumero()))
+            lista.Add(New CrystalParametro("TotalAnt", TotalAnt.FormatoNumero()))
             lista.Add(New CrystalParametro("ContaIng", ContaIng))
             lista.Add(New CrystalParametro("ContaAnt", ContaAnt))
 
@@ -4149,9 +4149,9 @@ Partial Class Clientes
             End Using
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "E N V I O   C O R R E O"
     Private Sub EnviaCorreo(Liga As String, LigaActivar As String)
 
@@ -4205,7 +4205,7 @@ Partial Class Clientes
             SBBody.Append("</div>")
             'Termino Cuerpo del correo
 
-            Dim Hilo As New System.Threading.Thread(Sub() MandaCorreo(Asunto, Para, SBBody.ToString))
+            Dim Hilo As New System.Threading.Thread(Sub() MandaCorreo(Asunto, Para, SBBody.ToString()))
             Hilo.Start()
             Alert("El correo se ha enviado correctamente a: " + TxtEmail.Text + ".", TipoMensaje.MsgInformacion)
         Catch ex As Exception
@@ -4219,11 +4219,11 @@ Partial Class Clientes
         a.GuardaLog()
         Dim Mail As New ClsSisMail()
         Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  COTIZACIONES  "
-
+
     Protected Sub BtnVerMasCot_Click(sender As Object, e As EventArgs)
         If BtnVerMasCot.Text = "Ver Más" Then
             CargaCotizaciones(-1)
@@ -4236,11 +4236,11 @@ Partial Class Clientes
     Private Function CargaCotizaciones(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         Dim ObjClientes As New ClsClientes()
-        If ObjClientes.GetCotizaciones(CveCliente, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
+        If ObjClientes.GetCotizaciones(CveCliente, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then
             If ObjClientes.DtResultados.Rows.Count > 0 Then
                 'Carga Generales
-                LtlCantidadCotizaciones.Text = ObjClientes.DtResultados.Rows(0)("CountTotal").ToString.FormatoNumero(2)
-                LtlFactorCotVentas.Text = If(LtlCantidad.Text.ToEntero > 0, (LtlCantidadCotizaciones.Text.ToEntero / LtlCantidad.Text.ToEntero).FormatoNumero, "0.00")
+                LtlCantidadCotizaciones.Text = ObjClientes.DtResultados.Rows(0)("CountTotal").ToString().FormatoNumero()(2)
+                LtlFactorCotVentas.Text = If(LtlCantidad.Text.ToEntero() > 0, (LtlCantidadCotizaciones.Text.ToEntero() / LtlCantidad.Text.ToEntero()).FormatoNumero(), "0.00")
                 'Carga Grid
                 GvCot.DataSource = ObjClientes.DtResultados
                 DtCotizaciones = ObjClientes.DtResultados
@@ -4293,13 +4293,13 @@ Partial Class Clientes
                 HLFacturar.HRef = $"/Ventas/Ventas.aspx?CveCotizacion={e.Row.DBCampo("CveVenta")}"
             End If
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "D I R E C C I O N   E N V I O "
     Public Sub Edit_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        CveDireccionEnvio = GvRow.DataKey("CveDireccionEnvio").ToEntero
+        CveDireccionEnvio = GvRow.DataKey("CveDireccionEnvio").ToEntero()
         TxtEnvioDireccion.Text = GvRow.DataKey("EnvioDireccion")
         TxtEnvioNoExt.Text = GvRow.DataKey("EnvioNoExt")
         TxtEnvioNoInt.Text = GvRow.DataKey("EnvioNoInt")
@@ -4310,8 +4310,8 @@ Partial Class Clientes
         'TxtDepartamento.Text = GvRow.DataKey("EnvioDepartamento")
         TxtEnvioCP.Text = GvRow.DataKey("EnvioCP")
         TxtEnvioTel.Text = GvRow.DataKey("EnvioTel")
-        ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString = "True", True, False)
-        If GvRow.DataKey("CveClienteSucursal").ToEntero > 0 Then DdlClienteSucursalEnvio.SelectedValueExist(GvRow.DataKey("CveClienteSucursal")) Else DdlClienteSucursalEnvio.SelectedValueExist("-1")
+        ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString() = "True", True, False)
+        If GvRow.DataKey("CveClienteSucursal").ToEntero() > 0 Then DdlClienteSucursalEnvio.SelectedValueExist(GvRow.DataKey("CveClienteSucursal")) Else DdlClienteSucursalEnvio.SelectedValueExist("-1")
         UpAddDireccion.Update()
         RegistraScript("$('#divAddDireccionEnvio').modal();")
     End Sub
@@ -4321,14 +4321,14 @@ Partial Class Clientes
         Dim Estatus = If(ChkEstatus.Checked, 1, 0)
 
         If CveDireccionEnvio < 0 Then
-            CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero, TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""))
+            CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""))
 
             If CveDireccionEnvio < 0 Then
                 TieneError = True
             End If
         Else
 
-            If Not ObjClientes.DireccionEnvioUpdate(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero, TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveDireccionEnvio, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", "")) Then
+            If Not ObjClientes.DireccionEnvioUpdate(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveDireccionEnvio, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", "")) Then
                 TieneError = True
             End If
 
@@ -4361,7 +4361,7 @@ Partial Class Clientes
         Dim ObjClientes As New ClsClientes
         Dim TieneError = False
 
-        Dim CveDireccionEnvio As Integer = GvDireccionesEnvio.Rows(e.RowIndex).DataKey("CveDireccionEnvio").ToEntero
+        Dim CveDireccionEnvio As Integer = GvDireccionesEnvio.Rows(e.RowIndex).DataKey("CveDireccionEnvio").ToEntero()
 
         If Not ObjClientes.DireccionEnvioRemove(CveDireccionEnvio) Then
             TieneError = True
@@ -4375,12 +4375,12 @@ Partial Class Clientes
         End If
 
         CargaDireccionesEnvio()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "  IMPORTAR SALDOS  "
-
+
     Private Sub HLImportarSaldos_Click(sender As Object, e As EventArgs) Handles HLImportarSaldos.Click
         CargaClientesImportarSaldos()
         RegistraScript(String.Format("$('#{0}').modal();", "DivImportarSaldos"))
@@ -4398,7 +4398,7 @@ Partial Class Clientes
     End Sub
     Private Sub ConsultarAnticiposSaldosClientes()
         Dim ObjMovtos As New ClsMovimientos()
-        If ObjMovtos.GetAnticiposNCIxCCliente(DdlClienteImportarSaldos.SelectedValue.ToEntero) Then
+        If ObjMovtos.GetAnticiposNCIxCCliente(DdlClienteImportarSaldos.SelectedValue.ToEntero()) Then
             GvImportarSaldos.DataSource = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0 AND Saldo > 0 AND CveIE > 0")
         Else
             GvImportarSaldos.DataSource = Nothing
@@ -4429,7 +4429,7 @@ Partial Class Clientes
         Dim TieneError = False
 
 
-        Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Clientes/ImportarSaldos", 53, TxtCantidad.Text.Trim.ToDouble, TxtCantidad.Text.Trim.ToDouble, 1, TxtFechaImportarSaldos.Text.ToDate, "Traspaso de saldos de anticipos", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Clientes/ImportarSaldos", 53, TxtCantidad.Text.Trim.ToDouble, TxtCantidad.Text.Trim.ToDouble, 1, TxtFechaImportarSaldos.Text.ToDate(), "Traspaso de saldos de anticipos", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         Dim IVA As Decimal = 0
         Dim Importe As Decimal = 0
         Dim ImporteAplicar As Decimal = 0
@@ -4437,11 +4437,11 @@ Partial Class Clientes
             For Each Gvr As GridViewRow In GvImportarSaldos.Rows
                 If Gvr.FCCheckBox("Chk").Checked AndAlso Gvr.FCTextBox("TxtImporte").Text.ToDouble > 0 Then
 
-                    Importe = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
-                    IVA = Importe / Gvr.DataKey("Original").ToString.ToDecimal * Gvr.DataKey("IVA").ToString.ToDecimal 'TOMA EN CUENTA EL IVA - CONCEPTO DIFERENTE
+                    Importe = Gvr.FCTextBox("TxtImporte").Text.ToDecimal()
+                    IVA = Importe / Gvr.DataKey("Original").ToString().ToDecimal() * Gvr.DataKey("IVA").ToString().ToDecimal() 'TOMA EN CUENTA EL IVA - CONCEPTO DIFERENTE
                     ImporteAplicar = -(Importe - IVA)
-                    If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, "Traspaso de saldos de anticipos", 92, "Traspaso de saldos de anticipos.IVA", Now, 0, -1, CveCliente:=Gvr.DataKey("CveCliente").ToString.ToEntero, CveIE:=Gvr.DataKey("CveIE").ToString.ToEntero, ImporteMX:=ImporteAplicar) Then
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, "Traspaso de saldos de anticipos", 66, "Traspaso de saldos de anticipos.IVA", Now, 0, -1, CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToString.ToEntero, ImporteMX:=ImporteAplicar) Then
+                    If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, "Traspaso de saldos de anticipos", 92, "Traspaso de saldos de anticipos.IVA", Now, 0, -1, CveCliente:=Gvr.DataKey("CveCliente").ToString().ToEntero(), CveIE:=Gvr.DataKey("CveIE").ToString().ToEntero(), ImporteMX:=ImporteAplicar) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, "Traspaso de saldos de anticipos", 66, "Traspaso de saldos de anticipos.IVA", Now, 0, -1, CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToString().ToEntero(), ImporteMX:=ImporteAplicar) Then
                             TieneError = True
                         End If
                     Else
@@ -4450,8 +4450,8 @@ Partial Class Clientes
 
                     If Not TieneError Then
                         If IVA > 0 Then
-                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -IVA, "Traspaso de saldos de anticipos.IVA", 61, "Traspaso de saldos de anticipos.IVA", Now, 0, -1, CveCliente:=Gvr.DataKey("CveCliente").ToString.ToEntero, CveIE:=Gvr.DataKey("CveIE").ToString.ToEntero, ImporteMX:=-IVA) Then
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, "Traspaso de saldos de anticipos. IVA", 61, "Traspaso de saldos de anticipos.IVA", Now, 0, -1, CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToString.ToEntero, ImporteMX:=IVA) Then
+                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -IVA, "Traspaso de saldos de anticipos.IVA", 61, "Traspaso de saldos de anticipos.IVA", Now, 0, -1, CveCliente:=Gvr.DataKey("CveCliente").ToString().ToEntero(), CveIE:=Gvr.DataKey("CveIE").ToString().ToEntero(), ImporteMX:=-IVA) Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, "Traspaso de saldos de anticipos. IVA", 61, "Traspaso de saldos de anticipos.IVA", Now, 0, -1, CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToString().ToEntero(), ImporteMX:=IVA) Then
                                     TieneError = True
                                 End If
                             Else
@@ -4486,9 +4486,9 @@ Partial Class Clientes
             e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("ChkSaldo(this,{0},{1});", e.Row.FCTextBox("TxtImporte").ClientID, e.Row.DBCampo("Saldo")))
             e.Row.FCTextBox("TxtImporte").Attributes.Add("onKeyUp", String.Format("CambiaSaldo({0},this,{1});", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo")))
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "Cuentas/Equipos"
     Public Sub BtnAgregarCtaEquipo_Click(sender As Object, e As EventArgs)
         HdnModalidad.Value = "I"
@@ -4509,21 +4509,21 @@ Partial Class Clientes
         objCuentasEquipos.IniciaTransacSQL()
 
         If HdnModalidad.Value = "I" Then
-            If Not objCuentasEquipos.AddCuentaEquipo(CveCliente, DdlTipoCuentaDetalle.SelectedValue.ToEntero, TxtIdentificador.Text.Trim, TxtNoSerie.Text.Trim, DdlClienteSucursal.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            If Not objCuentasEquipos.AddCuentaEquipo(CveCliente, DdlTipoCuentaDetalle.SelectedValue.ToEntero(), TxtIdentificador.Text.Trim, TxtNoSerie.Text.Trim, DdlClienteSucursal.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 TieneError = True
             End If
 
-            If Not GuardaCaracteristicas(HdnModalidad.Value.ToString, objCuentasEquipos.CveCuentaEquipo, objCuentasEquipos) Then
+            If Not GuardaCaracteristicas(HdnModalidad.Value.ToString(), objCuentasEquipos.CveCuentaEquipo, objCuentasEquipos) Then
                 TieneError = True
             End If
 
         ElseIf HdnModalidad.Value = "U" Then
 
-            If Not objCuentasEquipos.UpdateCuentaEquipo(TxtIdentificador.Text, TxtNoSerie.Text, True, DdlClienteSucursal.SelectedValue.ToEntero, CveCuentaEquipo) Then
+            If Not objCuentasEquipos.UpdateCuentaEquipo(TxtIdentificador.Text, TxtNoSerie.Text, True, DdlClienteSucursal.SelectedValue.ToEntero(), CveCuentaEquipo) Then
                 TieneError = True
             End If
 
-            If Not GuardaCaracteristicas(HdnModalidad.Value.ToString, CveCuentaEquipo, objCuentasEquipos) Then
+            If Not GuardaCaracteristicas(HdnModalidad.Value.ToString(), CveCuentaEquipo, objCuentasEquipos) Then
                 TieneError = True
             End If
 
@@ -4562,7 +4562,7 @@ Partial Class Clientes
     End Sub
     Private Sub BtnAgregarPS_Click(sender As Object, e As EventArgs) Handles BtnAgregarPS.Click
         Dim Objeto As New ClsGenerales
-        If Objeto.AddCuentaEquipoPS(DdlPS.SelectedValue.ToEntero, CveCuentaEquipo) Then
+        If Objeto.AddCuentaEquipoPS(DdlPS.SelectedValue.ToEntero(), CveCuentaEquipo) Then
             Alert("Se ha agregado correctamente.", TipoMensaje.MsgInformacion)
             CargaGridPS()
         End If
@@ -4583,7 +4583,7 @@ Partial Class Clientes
         Dim Objeto As New ClsGenerales()
 
         HdnModalidad.Value = "U"
-        CveCuentaEquipo = GvRow.DataKey("CveCuentaEquipo").ToString.ToEntero
+        CveCuentaEquipo = GvRow.DataKey("CveCuentaEquipo").ToString().ToEntero()
         TxtIdentificador.Text = GvRow.DataKey("CuentaEquipo")
         TxtNoSerie.Text = GvRow.DataKey("NoSerie")
         DdlTipoCuentaDetalle.SelectedValueExist(GvRow.DataKey("CveTipoCuentaEquipo"))
@@ -4624,7 +4624,7 @@ Partial Class Clientes
     Protected Sub GvCuentasEquipos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvCuentasEquipos.RowDeleting
         Dim Objeto As New ClsGenerales
         Dim TieneError = False
-        If Objeto.RemoveCuentaEquipo(GvCuentasEquipos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
+        If Objeto.RemoveCuentaEquipo(GvCuentasEquipos.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then
             Alert("La cuenta Equipo se eliminó correctamente.", TipoMensaje.MsgInformacion)
         Else
             TieneError = True
@@ -4640,8 +4640,8 @@ Partial Class Clientes
         Dim Objeto As New ClsGenerales
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
-        Dim CveCtaEq As Integer = GvRow.DataKey("CveCuentaEquipo").ToString.ToEntero
-        Dim CvePS As Integer = GvRow.DataKey("CvePS").ToString.ToEntero
+        Dim CveCtaEq As Integer = GvRow.DataKey("CveCuentaEquipo").ToString().ToEntero()
+        Dim CvePS As Integer = GvRow.DataKey("CvePS").ToString().ToEntero()
 
         If Objeto.RemoveCuentaEquipoPS(CvePS, CveCtaEq) Then
             Alert("El PS se eliminó correctamente.", TipoMensaje.MsgInformacion)
@@ -4670,15 +4670,15 @@ Partial Class Clientes
     End Sub
     Private Sub GvCuentasCaracteristicas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCuentasCaracteristicas.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-            Dim CveCaracteristicaTipo As Integer = e.Row.DataKey("CveCaracteristicaTipo").ToEntero
+            Dim CveCaracteristicaTipo As Integer = e.Row.DataKey("CveCaracteristicaTipo").ToEntero()
             Dim dtTemp As New DataTable
             Dim objCaracteristicas As New ClsGenerales
 
-            Dim CveCaracteristica As Integer = e.Row.DataKey("CveCaracteristica").ToEntero
-            Dim CveCaracteristicaValor As Integer = e.Row.DataKey("CveCaracteristicaValor").ToEntero
-            Dim CveCaracteristicaOpcion As Integer = e.Row.DataKey("CveCaracteristicaOpcion").ToEntero
+            Dim CveCaracteristica As Integer = e.Row.DataKey("CveCaracteristica").ToEntero()
+            Dim CveCaracteristicaValor As Integer = e.Row.DataKey("CveCaracteristicaValor").ToEntero()
+            Dim CveCaracteristicaOpcion As Integer = e.Row.DataKey("CveCaracteristicaOpcion").ToEntero()
             Dim CaracteristicaValor As String = e.Row.DataKey("CaracteristicaValor")
-            Dim Logitud As Integer = e.Row.DataKey("Longitud").ToString.ToEntero
+            Dim Logitud As Integer = e.Row.DataKey("Longitud").ToString().ToEntero()
 
             Dim DdlCarcateristicaOpcion As DropDownList = e.Row.FCDropDownList("DdlCarcateristicaOpcion")
             Dim TxtCuentaValor As TextBox = e.Row.FCTextBox("TxtCuentaValor")
@@ -4686,7 +4686,7 @@ Partial Class Clientes
             Dim chkCaracteristicaValor As CheckBox = e.Row.FCCheckBox("chkCaracteristicaValor")
 
             Dim Requerido As Integer
-            If e.Row.DataKey("Requerido").ToString.ToUpper = "TRUE" Then
+            If e.Row.DataKey("Requerido").ToString().ToUpper = "TRUE" Then
                 Requerido = 1
             Else
                 Requerido = 0
@@ -4752,7 +4752,7 @@ Partial Class Clientes
                     RdlCarcateristicaOpcion.DataBind()
 
                     If CveCaracteristicaValor <> -1 Then
-                        RdlCarcateristicaOpcion.SelectedValuesIfExist(CveCaracteristicaOpcion.ToString)
+                        RdlCarcateristicaOpcion.SelectedValuesIfExist(CveCaracteristicaOpcion.ToString())
                     End If
 
                     If Requerido = 1 Then
@@ -4803,12 +4803,12 @@ Partial Class Clientes
     End Sub
     Private Sub GvAddCuentaCaracteristica_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvAddCuentaCaracteristica.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-            Dim CveCaracteristicaTipo As Integer = e.Row.DataKey("CveCaracteristicaTipo").ToEntero
+            Dim CveCaracteristicaTipo As Integer = e.Row.DataKey("CveCaracteristicaTipo").ToEntero()
             Dim dtTemp As New DataTable
             Dim objCaracteristicas As New ClsGenerales
 
-            Dim CveCaracteristica As Integer = e.Row.DataKey("CveCaracteristica").ToEntero
-            Dim Logitud As Integer = e.Row.DataKey("Longitud").ToString.ToEntero
+            Dim CveCaracteristica As Integer = e.Row.DataKey("CveCaracteristica").ToEntero()
+            Dim Logitud As Integer = e.Row.DataKey("Longitud").ToString().ToEntero()
 
             Dim DdlCarcateristicaOpcion As DropDownList = e.Row.FCDropDownList("DdlCarcateristicaOpcion")
             Dim TxtCuentaValor As TextBox = e.Row.FCTextBox("TxtCuentaValor")
@@ -4820,7 +4820,7 @@ Partial Class Clientes
             End If
 
             Dim Requerido As Integer
-            If e.Row.DataKey("Requerido").ToString.ToUpper = "TRUE" Then
+            If e.Row.DataKey("Requerido").ToString().ToUpper = "TRUE" Then
                 Requerido = 1
             Else
                 Requerido = 0
@@ -4913,10 +4913,10 @@ Partial Class Clientes
     Private Function GuardaCaracteristicas(Modalidad As String, CveCuentaEquipo As Integer, ByRef ObjCarac As ClsGenerales) As Boolean
         Dim Retorno = False
 
-        If Modalidad.ToString = "I" Then
+        If Modalidad.ToString() = "I" Then
             For Each gvr As GridViewRow In GvAddCuentaCaracteristica.Rows
-                Dim CveCaracteristica As Integer = gvr.DataKey("CveCaracteristica").ToEntero
-                Dim CveCaracteristicaTipo As Integer = gvr.DataKey("CveCaracteristicaTipo").ToEntero
+                Dim CveCaracteristica As Integer = gvr.DataKey("CveCaracteristica").ToEntero()
+                Dim CveCaracteristicaTipo As Integer = gvr.DataKey("CveCaracteristicaTipo").ToEntero()
 
                 Dim _DdlCarcateristicaOpcion As DropDownList = gvr.FCDropDownList("DdlCarcateristicaOpcion")
                 Dim _TxtCaracteristicaOpcion As TextBox = gvr.FCTextBox("TxtCuentaValor")
@@ -4943,7 +4943,7 @@ Partial Class Clientes
                         Exit Select
                     Case 1
                         'drop
-                        CveCaracteristicaOpcion = _DdlCarcateristicaOpcion.SelectedValue.ToEntero
+                        CveCaracteristicaOpcion = _DdlCarcateristicaOpcion.SelectedValue.ToEntero()
 
                         If CveCaracteristicaOpcion > 0 Then
                             AgregaCaracteristica = True
@@ -4953,7 +4953,7 @@ Partial Class Clientes
                         Exit Select
                     Case 2
                         'radio
-                        CveCaracteristicaOpcion = _RdlCarcateristicaOpcion.SelectedValue.ToEntero
+                        CveCaracteristicaOpcion = _RdlCarcateristicaOpcion.SelectedValue.ToEntero()
 
                         If CveCaracteristicaOpcion > 0 Then
                             AgregaCaracteristica = True
@@ -4964,10 +4964,10 @@ Partial Class Clientes
                     Case 3
                         'Fecha txt Fecha
                         If _TxtCaracteristicaOpcion.Text.Trim.Length > 0 Then
-                            CaracteristicaValorDate = _TxtCaracteristicaOpcion.Text.Trim.ToDate
+                            CaracteristicaValorDate = _TxtCaracteristicaOpcion.Text.Trim.ToDate()
                             CaracteristicaValor = CaracteristicaValorDate.ToString("dd/MM/yyyy")
 
-                            If CaracteristicaValor.Trim.ToDate.ToString("dd/MM/yyyy").ToString.Length > 0 Then
+                            If CaracteristicaValor.Trim.ToDate().ToString("dd/MM/yyyy").ToString().Length > 0 Then
                                 AgregaCaracteristica = True
                             Else
                                 AgregaCaracteristica = False
@@ -4997,7 +4997,7 @@ Partial Class Clientes
                     Case 6
                         'txt numerico
                         'txt
-                        CaracteristicaValor = _TxtCaracteristicaOpcion.Text.ToEntero.ToString
+                        CaracteristicaValor = _TxtCaracteristicaOpcion.Text.ToEntero().ToString()
 
                         AgregaCaracteristica = True
                         Exit Select
@@ -5011,12 +5011,12 @@ Partial Class Clientes
                     End If
                 End If
             Next
-        ElseIf Modalidad.ToString = "U" Then
+        ElseIf Modalidad.ToString() = "U" Then
             For Each gvr As GridViewRow In GvCuentasCaracteristicas.Rows
-                Dim _CaracteristicaValor As Integer = gvr.DataKey("CaracteristicaValor").ToEntero
-                Dim _CveCaracteristica As Integer = gvr.DataKey("CveCaracteristica").ToEntero
-                Dim _CveCaracteristicaValor As Integer = gvr.DataKey("CveCaracteristicaValor").ToEntero
-                Dim _CveCaracteristicaTipo As Integer = gvr.DataKey("CveCaracteristicaTipo").ToEntero
+                Dim _CaracteristicaValor As Integer = gvr.DataKey("CaracteristicaValor").ToEntero()
+                Dim _CveCaracteristica As Integer = gvr.DataKey("CveCaracteristica").ToEntero()
+                Dim _CveCaracteristicaValor As Integer = gvr.DataKey("CveCaracteristicaValor").ToEntero()
+                Dim _CveCaracteristicaTipo As Integer = gvr.DataKey("CveCaracteristicaTipo").ToEntero()
 
                 Dim _DdlCarcateristicaOpcion As DropDownList = gvr.FCDropDownList("DdlCarcateristicaOpcion")
                 Dim _TxtCaracteristicaOpcion As TextBox = gvr.FCTextBox("TxtCuentaValor")
@@ -5035,16 +5035,16 @@ Partial Class Clientes
                         Exit Select
                     Case 1
                         'drop
-                        CveCaracteristicaOpcion = _DdlCarcateristicaOpcion.SelectedValue.ToEntero
+                        CveCaracteristicaOpcion = _DdlCarcateristicaOpcion.SelectedValue.ToEntero()
                         Exit Select
                     Case 2
                         'radio
-                        CveCaracteristicaOpcion = _RdlCarcateristicaOpcion.SelectedValue.ToEntero
+                        CveCaracteristicaOpcion = _RdlCarcateristicaOpcion.SelectedValue.ToEntero()
                         Exit Select
                     Case 3
                         'Fecha txt Fecha
                         If _TxtCaracteristicaOpcion.Text.Trim.Length > 0 Then
-                            CaracteristicaValorDate = _TxtCaracteristicaOpcion.Text.Trim.ToDate
+                            CaracteristicaValorDate = _TxtCaracteristicaOpcion.Text.Trim.ToDate()
                             CaracteristicaValor = CaracteristicaValorDate.ToString("dd/MM/yyyy")
                             Exit Select
                         End If
@@ -5063,7 +5063,7 @@ Partial Class Clientes
                     Case 6
                         'txt numerico
                         'txt
-                        CaracteristicaValor = _TxtCaracteristicaOpcion.Text.ToEntero.ToString
+                        CaracteristicaValor = _TxtCaracteristicaOpcion.Text.ToEntero().ToString()
                         Exit Select
                 End Select
 
@@ -5076,9 +5076,9 @@ Partial Class Clientes
         End If
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "GPS"
     Protected Sub btnCargaArrayDisp_Click(sender As Object, e As EventArgs) Handles btnCargaArrayDisp.Click
         If hdnArrayDispositivo.Value.Length > 0 Then
@@ -5091,12 +5091,12 @@ Partial Class Clientes
     Private Sub CargaDispositivos(Optional Estatus As Integer = 1)
         Dim ObjGPS As New ClsGPS
         If ObjGPS.DispositivosGet(-1, Estatus, CveCliente) Then
-            GvDatos.DataSource = ObjGPS.DtResultados
+            GvDatosGPS.DataSource = ObjGPS.DtResultados
         Else
-            GvDatos.DataSource = Nothing
+            GvDatosGPS.DataSource = Nothing
         End If
         ObjGPS.Dispose()
-        GvDatos.DataBind()
+        GvDatosGPS.DataBind()
         UpDispositivos.Update()
     End Sub
     Private Sub CargaGlobalDispositos()
@@ -5112,29 +5112,49 @@ Partial Class Clientes
 
         ObjGPS.Dispose()
     End Sub
-    Protected Sub GvDispositivos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+    Protected Sub GvDatosGPS_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosGPS.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-            e.Row.VerticalAlign = VerticalAlign.Middle
-            If e.Row.DBCampo("Estatus").ToString.ToEntero = 1 Then
+            e.Row.VerticalAlign = VerticalAlign.Middle
+            e.Row.FCLabel("Lblnumero").Text = (e.Row.RowIndex + 1).ToString()
+
+            If e.Row.DBCampo("Estatus").ToString().ToEntero() = 1 Then
                 e.Row.FCLabel("LblEstatus").Text = "Activo"
-                e.Row.FCLabel("LblEstatus").CssClass = "label label-success"
+                e.Row.FCLabel("LblEstatus").CssClass = "label label-success"
+                e.Row.FindControl("imgD").Visible = True
             Else
                 e.Row.FCLabel("LblEstatus").Text = "Inactivo"
-                e.Row.FCLabel("LblEstatus").CssClass = "label label-danger"
+                e.Row.FCLabel("LblEstatus").CssClass = "label label-danger"
+                e.Row.FindControl("imgD").Visible = False
+
             End If
-            e.Row.FCLinkButton("imgE").Attributes.Add("onclick", $"javascript:AbrirVentana('/GPS/WizardDispositivos.aspx?CveDispositivo={e.Row.DBCampo("CveDispositivo").ToString}&CveCliente={CveCliente}&EsPopup=1', 801, 701);")
+            e.Row.FCLinkButton("imgE").Attributes.Add("onclick", $"javascript:AbrirVentana('/GPS/WizardDispositivos.aspx?CveDispositivo={e.Row.DBCampo("CveDispositivo").ToString()}&CveCliente={CveCliente}&EsPopup=1', 801, 701);")
         End If
     End Sub
 
-    Protected Sub GvDispositivos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
-        Dim GPS As New ClsGPS
-        Dim CveDispositivo As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveDispositivo").ToEntero
-        If GPS.DispositivosDelete(CveDispositivo) Then
-            Alert("El Dispositivo se eliminó correctamente", TipoMensaje.MsgInformacion)
+    Protected Sub GvDatosGPS_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatosGPS.RowDeleting
+        Dim continuar As Boolean = False
+        Using GPS As New ClsGPS()
+            Using ObjBitacora As New ClsOIEventos(GPS.IniciaTransacSQL())
+                Dim CveDispositivo As Integer = GvDatosGPS.Rows(e.RowIndex).DataKey("CveDispositivo").ToEntero()
+                If GPS.DispositivosDelete(CveDispositivo) Then
+                    If ObjBitacora.AddEventoBitacora(String.Format("Se eliminó el dispositivo ""{1} - {2} - {0}""", GvDatosGPS.Rows(e.RowIndex).DataKey("Display"), GvDatosGPS.Rows(e.RowIndex).DataKey("Modelo"), GvDatosGPS.Rows(e.RowIndex).DataKey("IMEI")), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then
+                        continuar = True
+                    End If
+                End If
+                If continuar Then
+                    GPS.Commit()
+                    Alert("El Dispositivo se eliminó correctamente", TipoMensaje.MsgInformacion)
+                Else
+                    GPS.RollBack()
+                End If
+            End Using
+        End Using
+        If continuar Then
+            CargaDispositivos()
+            CargaGlobalDispositos()
+            CargaEventoBitacora()
+
         End If
-        GPS.Dispose()
-        CargaDispositivos()
-        CargaGlobalDispositos()
         UpDispositivos.Update()
     End Sub
     Private Sub CargaEmpresasUsuario(CveEmpresa As Integer)
@@ -5181,10 +5201,10 @@ Partial Class Clientes
         UpMoverDispositivo.Update()
         RegistraScript($"CargaModalMoverDispositivo({GvRow.DataKey("CveDispositivo")});")
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "Sucursales"
     Public Sub CreaDTSucursales()
 
@@ -5237,15 +5257,15 @@ Partial Class Clientes
         RowSucursal("CorreoCotiziacionSucursal") = TxtCorreoSucursalCotizacion.Text.Trim
         RowSucursal("ContactoSucursal") = TxtContactoSucursal.Text.Trim
         RowSucursal("NumCuenta") = TxtNumeroCuenta.Text
-        RowSucursal("CveVendedorSucursal") = DdlVendedorSucursal.SelectedValue.ToEntero
-        RowSucursal("CveMetodoPago") = DdlMetodoPagoSucursal.SelectedValue.ToEntero
+        RowSucursal("CveVendedorSucursal") = DdlVendedorSucursal.SelectedValue.ToEntero()
+        RowSucursal("CveMetodoPago") = DdlMetodoPagoSucursal.SelectedValue.ToEntero()
         RowSucursal("CveUsuario") = UsuarioActual.CveUsuario
-        RowSucursal("FechaIng") = Now.ToShortDateString
+        RowSucursal("FechaIng") = Now.ToShortDateString()
         RowSucursal("Usuario") = UsuarioActual.Usuario
 
-        RowSucursal("CveUsoCFDI") = DdlSucursalUsoCFDI.SelectedValue.ToEntero
-        RowSucursal("CveFormaPago33") = DdlSucursalFormaPago33.SelectedValue.ToEntero
-        RowSucursal("CveMetodoPago33") = DdlSucursalMetodoPago33.SelectedValue.ToEntero
+        RowSucursal("CveUsoCFDI") = DdlSucursalUsoCFDI.SelectedValue.ToEntero()
+        RowSucursal("CveFormaPago33") = DdlSucursalFormaPago33.SelectedValue.ToEntero()
+        RowSucursal("CveMetodoPago33") = DdlSucursalMetodoPago33.SelectedValue.ToEntero()
 
         RowSucursal("LT") = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0")
         RowSucursal("LG") = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
@@ -5268,17 +5288,17 @@ Partial Class Clientes
                 Dim Asunto As String = ""
                 Dim TipoComprobante = ""
 
-                If HdnTipoDocto2.Value.ToString = "Ing" Then TipoComprobante = "Factura"
-                If HdnTipoDocto2.Value.ToString = "Egs" Then TipoComprobante = "Nota de Crédito"
-                If HdnTipoDocto2.Value.ToString = "Dev" Then TipoComprobante = "Nota de Devolución"
-                If HdnTipoDocto2.Value.ToString = "Rem" Then TipoComprobante = "Remisión"
-                If HdnTipoDocto2.Value.ToString = "Cot" Then TipoComprobante = "Cotización"
-                If HdnTipoDocto2.Value.ToString = "Ant" Then TipoComprobante = "Anticipo"
+                If HdnTipoDocto2.Value.ToString() = "Ing" Then TipoComprobante = "Factura"
+                If HdnTipoDocto2.Value.ToString() = "Egs" Then TipoComprobante = "Nota de Crédito"
+                If HdnTipoDocto2.Value.ToString() = "Dev" Then TipoComprobante = "Nota de Devolución"
+                If HdnTipoDocto2.Value.ToString() = "Rem" Then TipoComprobante = "Remisión"
+                If HdnTipoDocto2.Value.ToString() = "Cot" Then TipoComprobante = "Cotización"
+                If HdnTipoDocto2.Value.ToString() = "Ant" Then TipoComprobante = "Anticipo"
 
 
                 Dim ObjVenta As New ClsVentas
                 Dim Dr As DataRow = Nothing
-                If ObjVenta.GetVenta(HdnCveVenta2.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+                If ObjVenta.GetVenta(HdnCveVenta2.Value.ToEntero(), UsuarioActual.CveEmpresa) Then
                     If ObjVenta.DtResultados.Rows.Count > 0 Then
                         Dr = ObjVenta.DtResultados.Rows(0)
                     End If
@@ -5290,11 +5310,11 @@ Partial Class Clientes
                     Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
                     Cuerpo = Cuerpo.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
                     Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
-                    Cuerpo = Cuerpo.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString)
+                    Cuerpo = Cuerpo.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString())
                     If Dr IsNot Nothing Then
-                        Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString.ToDate.ToShortDateString)
-                        Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString.FormatoNumero)
-                        Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString.ToDate.ToShortDateString)
+                        Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
+                        Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
+                        Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
                     End If
                 End If
 
@@ -5302,8 +5322,8 @@ Partial Class Clientes
                 If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
                     Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
                     Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
-                    Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto2.Value.ToString)
-                    Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString)
+                    Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto2.Value.ToString())
+                    Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString())
                 End If
 
                 If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso HdnTipoDocto2.Value.Contiene("Ing", "Egs") Then
@@ -5335,7 +5355,7 @@ Partial Class Clientes
                         End If
 
                         Dim ObjVentas As New ClsVentas
-                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta2.Value.ToEntero)
+                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta2.Value.ToEntero())
                         ObjVentas.Dispose()
                     Else
                         Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
@@ -5362,7 +5382,7 @@ Partial Class Clientes
                         End If
 
                         Dim ObjVentas As New ClsVentas
-                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta2.Value.ToEntero)
+                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta2.Value.ToEntero())
                         ObjVentas.Dispose()
                     Else
                         Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
@@ -5389,7 +5409,7 @@ Partial Class Clientes
                         End If
 
                         Dim ObjVentas As New ClsVentas
-                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta2.Value.ToEntero)
+                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta2.Value.ToEntero())
                         ObjVentas.Dispose()
                     Else
                         Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
@@ -5404,28 +5424,28 @@ Partial Class Clientes
         Catch ex As Exception
             OnError("Ocurrió error al mandar MAIL", ex)
             Dim ObjVentas As New ClsVentas
-            ObjVentas.UpdateVentaMail(3, HdnCveVenta2.Value.ToEntero)
+            ObjVentas.UpdateVentaMail(3, HdnCveVenta2.Value.ToEntero())
             ObjVentas.Dispose()
         End Try
     End Sub
 
     Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
-        If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
-            Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)
+        If DdlSubProyecto.SelectedValue.ToEntero() > 0 Then
+            Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).Rows(0)
             If Dr IsNot Nothing Then
-                If Dr("CvePrecioLista").ToString.ToEntero > 0 Then
-                    DdlPrecioLista.SelectedValueExist(Dr("CvePrecioLista").ToString)
+                If Dr("CvePrecioLista").ToString().ToEntero() > 0 Then
+                    DdlPrecioLista.SelectedValueExist(Dr("CvePrecioLista").ToString())
                 End If
             End If
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "G P S"
-
-
-
+
+
+
     Private Sub EnviaCorreoGPS(Liga As String, LigaActivar As String)
 
         Try
@@ -5480,7 +5500,7 @@ Partial Class Clientes
             SBBody.Append("</div>")
             'Termino Cuerpo del correo
 
-            Dim Hilo As New System.Threading.Thread(Sub() MandaCorreo(Asunto, Para, SBBody.ToString))
+            Dim Hilo As New System.Threading.Thread(Sub() MandaCorreo(Asunto, Para, SBBody.ToString()))
             Hilo.Start()
             Alert("El correo de activación se ha enviado correctamente a: " + TxtEmail.Text + ".", TipoMensaje.MsgInformacion)
         Catch ex As Exception
@@ -5496,11 +5516,11 @@ Partial Class Clientes
         End If
 
         ObjClientes.Dispose()
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "C O N T R A T O S"
     Private Sub CargaDatosContrato()
         If CveCliente <= 0 Then
@@ -5532,7 +5552,7 @@ Partial Class Clientes
 
     Private Sub GvDatosAvance_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosAvance.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.DBCampo("CveContrato").ToString.ToEntero = 0 Then
+            If e.Row.DBCampo("CveContrato").ToString().ToEntero() = 0 Then
                 e.Row.Cells(0).Text = "Total:"
                 e.Row.CssClass = "Totales white"
             End If
@@ -5541,15 +5561,15 @@ Partial Class Clientes
 
     Private Sub GvContratosClienteInactivos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvContratosClienteInactivos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.DBCampo("CveContrato").ToString.ToEntero = 0 Then
+            If e.Row.DBCampo("CveContrato").ToString().ToEntero() = 0 Then
                 e.Row.Cells(0).Text = "Total:"
                 e.Row.CssClass = "Totales white"
             End If
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "M E T O D O S "
     Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged
         If DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue <> "-1" Then
@@ -5581,11 +5601,11 @@ Partial Class Clientes
         GVHistorial.DataBind()
     End Sub
     Private Sub DdlSucursalCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSucursalCliente.SelectedIndexChanged
-        CargaCotizaciones(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
-        CargaHistorial(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
-        CargaCxC(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
-        CargaAnticipos(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
-        CargaBancos(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
+        CargaCotizaciones(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) 'listo
+        CargaHistorial(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) 'listo
+        CargaCxC(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) 'listo
+        CargaAnticipos(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) 'listo
+        CargaBancos(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) 'listo
 
         UpDatos.Update()
     End Sub
@@ -5598,7 +5618,7 @@ Partial Class Clientes
 
         For Each Dr As DataRow In DirectCast(ViewState("DTUsuariosCliente"), DataTable).Rows
             'se desactiva el usuario y se restablece la contraseña
-            If Not ObjUsuario.UpdateUsuarioPortal(Dr("Usuario").ToString, Dr("Nombre").ToString, Dr("Correo").ToString, False, ContraseñaPredeterminadaEncriptada, Dr("CveCliente").ToString.ToEntero, Dr("CveProveedor").ToString.ToEntero, Dr("CveUsuario").ToString.ToEntero, UsuarioActual.CveUsuario) Then
+            If Not ObjUsuario.UpdateUsuarioPortal(Dr("Usuario").ToString(), Dr("Nombre").ToString(), Dr("Correo").ToString(), False, ContraseñaPredeterminadaEncriptada, Dr("CveCliente").ToString().ToEntero(), Dr("CveProveedor").ToString().ToEntero(), Dr("CveUsuario").ToString().ToEntero(), UsuarioActual.CveUsuario) Then
                 ErrorUsuario = True
             End If
         Next
@@ -5640,11 +5660,11 @@ Partial Class Clientes
 
         Dim ObjMov As New ClsContabilidad
         ObjMov.IniciaTransacSQL()
-        Dim CvePrePoliza As Integer = ObjMov.AddPrePolizas("Cli", 2, TxtCantidad.Text.Trim.ToDouble, TxtCantidad.Text.Trim.ToDouble, 1, TxtFechaPago.Text.ToDate, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim CvePrePoliza As Integer = ObjMov.AddPrePolizas("Cli", 2, TxtCantidad.Text.Trim.ToDouble, TxtCantidad.Text.Trim.ToDouble, 1, TxtFechaPago.Text.ToDate(), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
         If CvePrePoliza > 0 Then
-            If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtCantidad.Text.ToDecimal, TxtReferencia.Text, 2, TxtReferencia.Text, Now, 0, -1, -1, CveVenta:=HdnCveVentaAbono.Value.ToEntero, CveCliente:=CveCliente) Then
-                If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCantidad.Text.ToDecimal, TxtReferencia.Text, 4, TxtReferencia.Text, Now, 0, -1, -1, CveVenta:=HdnCveVentaAbono.Value.ToEntero, CveCliente:=CveCliente) Then
+            If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtCantidad.Text.ToDecimal(), TxtReferencia.Text, 2, TxtReferencia.Text, Now, 0, -1, -1, CveVenta:=HdnCveVentaAbono.Value.ToEntero(), CveCliente:=CveCliente) Then
+                If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCantidad.Text.ToDecimal(), TxtReferencia.Text, 4, TxtReferencia.Text, Now, 0, -1, -1, CveVenta:=HdnCveVentaAbono.Value.ToEntero(), CveCliente:=CveCliente) Then
 
                 Else
                     MsgError = "no se pudo insertar el detalle de la póliza2"
@@ -5726,12 +5746,12 @@ Partial Class Clientes
     Private Sub SetValues()
         ViewState("Orden") = ""
         ViewState("OrdenUsuarios") = ""
-        TxtFechaPago.Text = Now.ToShortDateString
-        txtFechaI.Text = Now.ToShortDateString
-        txtFechaF.Text = Now.ToShortDateString
-        TxtFechaImportarSaldos.Text = Now.ToShortDateString
-        TxtFechaIUsados.Text = Now.FirstDayOfMonth.ToShortDateString
-        TxtFechaFUsados.Text = Now.LastDayOfMonth.ToShortDateString
+        TxtFechaPago.Text = Now.ToShortDateString()
+        txtFechaI.Text = Now.ToShortDateString()
+        txtFechaF.Text = Now.ToShortDateString()
+        TxtFechaImportarSaldos.Text = Now.ToShortDateString()
+        TxtFechaIUsados.Text = Now.FirstDayOfMonth.ToShortDateString()
+        TxtFechaFUsados.Text = Now.LastDayOfMonth.ToShortDateString()
         CobranzaTelefono = ""
         CodigoCliente = ""
 
@@ -5893,7 +5913,7 @@ Partial Class Clientes
             SBBody.Append("</div>")
             'Termino Cuerpo del correo
 
-            Dim Hilo As New System.Threading.Thread(Sub() MandaCorreo2(Asunto, Para, SBBody.ToString))
+            Dim Hilo As New System.Threading.Thread(Sub() MandaCorreo2(Asunto, Para, SBBody.ToString()))
             Hilo.Start()
             Alert("El correo se ha enviado correctamente a: " + TxtCorreoUsuarioPortal.Text + ".", TipoMensaje.MsgInformacion)
         Catch ex As Exception
@@ -5920,14 +5940,14 @@ Partial Class Clientes
         Dim StrSaldo As String = ""
 
         Dim ObjMovtos As New ClsMovimientos()
-        If ObjMovtos.GetCxCClienteDetalle(ViewState("CveCliente").ToString.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, -1) Then
+        If ObjMovtos.GetCxCClienteDetalle(ViewState("CveCliente").ToString().ToEntero(), "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, -1) Then
             DtCxC = If(DdlTipoCuentasCxC.SelectedValue = "-1", If(DdlTipoDocto.SelectedValue = "-1", ObjMovtos.DtResultados, ObjMovtos.DtResultados.FiltraParametros($"TipoDocto = '{DdlTipoDocto.SelectedValue}'")),
                     If(DdlTipoDocto.SelectedValue = "-1", ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act' ", "Moneda, OrdenVencimiento ,FechaVencimiento"), ObjMovtos.DtResultados.FiltraParametros($"Tipo = 'Act' AND TipoDocto = '{DdlTipoDocto.SelectedValue}'", "Moneda, OrdenVencimiento ,FechaVencimiento")))
 
             Dim Pesos As Double = DtCxC.SUM("Saldo", "CveMoneda = 1 and CveVenta > 0")
             Dim Dolares As Double = DtCxC.SUM("Saldo", "CveMoneda = 2 and CveVenta > 0")
-            If Pesos > 0 Then StrSaldo = $" $ {Pesos.FormatoNumero} pesos"
-            If Dolares > 0 Then StrSaldo = $"{StrSaldo} ${Dolares.FormatoNumero} dólares"
+            If Pesos > 0 Then StrSaldo = $" $ {Pesos.FormatoNumero()} pesos"
+            If Dolares > 0 Then StrSaldo = $"{StrSaldo} ${Dolares.FormatoNumero()} dólares"
             ObjMovtos.Dispose()
         Else
             DtCxC = Nothing
@@ -5959,13 +5979,13 @@ Partial Class Clientes
         End If
 
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "IMPRIMIR GVHistorial"
-
-
+
+
     Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs)
         Dim retorno As Byte() = Nothing
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -6044,21 +6064,21 @@ Partial Class Clientes
         ObjClientes.Dispose()
 
         Return retorno
-    End Function
-
-
+    End Function
+
+
 #End Region
-
+
 #Region "C O B R A N Z A"
     Public Sub Visitas_Click(sender As Object, e As EventArgs)
         RegistraScript(String.Format("$('#{0}').modal();", "DivVisitas"))
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "Usuarios"
     Protected Sub GvUsuarios_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvUsuarios.RowDeleting
-        Dim CveUsuario As Integer = GvUsuarios.Rows(e.RowIndex).DataKey("CveUsuario").ToEntero
+        Dim CveUsuario As Integer = GvUsuarios.Rows(e.RowIndex).DataKey("CveUsuario").ToEntero()
         Dim ObjUsuarios As New ClsSisUsuarios
         If ObjUsuarios.DeleteClienteUsuario(CveUsuario, CveCliente) Then
             Alert("El Usuario se eliminó correctamente", TipoMensaje.MsgInformacion)
@@ -6079,7 +6099,7 @@ Partial Class Clientes
 
     Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-            e.Row.FCLinkButton("imgE").Attributes.Add("onclick", $"javascript:AbrirVentana('/Sistemas/PopUpAddUsuario.aspx?CveUsuario={e.Row.DBCampo("CveUsuario").ToString}&CveCliente={CveCliente}', 801, 701);")
+            e.Row.FCLinkButton("imgE").Attributes.Add("onclick", $"javascript:AbrirVentana('/Sistemas/PopUpAddUsuario.aspx?CveUsuario={e.Row.DBCampo("CveUsuario").ToString()}&CveCliente={CveCliente}', 801, 701);")
             If UsuarioActual.Empresa.CvePlataforma = 1 Then
                 e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
                 e.Row.Cells(5).Visible = False
@@ -6090,12 +6110,12 @@ Partial Class Clientes
                 e.Row.Cells(5).Visible = False
             End If
         End If
-    End Sub
+    End Sub
 #End Region
-
-
+
+
 #Region "C U E N T A S - B A N C A R I A S"
-
+
     Private Sub CargaCuentasBancarias(Optional RecargaGlobal As Boolean = False)
 
         If CveCliente <= 0 Then Exit Sub
@@ -6179,7 +6199,7 @@ Partial Class Clientes
         Dim Estatus As Boolean
         If ChkEstatus2.Checked = True Then Estatus = True Else Estatus = False
 
-        AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta2.Text.Trim, TxtConvenioCIE2.Text.Trim, TxtReferencia2.Text.Trim, "", DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, Estatus)
+        AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta2.Text.Trim, TxtConvenioCIE2.Text.Trim, TxtReferencia2.Text.Trim, "", DdlMoneda.SelectedValue.ToEntero(), DdlMoneda.SelectedItem.Text, Estatus)
     End Sub
     Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String, CveMoneda As Integer, Moneda As String, Estatus As Boolean)
         Dim ObjCuentasBancos As New ClsGenerales
@@ -6224,7 +6244,7 @@ Partial Class Clientes
 
             If CveCliente > 0 Then
 
-                If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", False, Estatus, CveMoneda) Then
+                If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString().ToEntero(), NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", False, Estatus, CveMoneda) Then
                     DTCuentasBancos.Clear()
                     DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveCliente = {0}", CveCliente)))
                     Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
@@ -6268,8 +6288,8 @@ Partial Class Clientes
         TxtNumeroCuenta2.Text = ""
         TxtConvenioCIE2.Text = ""
         TxtReferencia2.Text = ""
-    End Sub
-
+    End Sub
+
 #Region "GRIDVIEW - CUENTAS BANCARIAS"
     Protected Sub GvBancosCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -6297,7 +6317,7 @@ Partial Class Clientes
         Dim ObjCuentasBancos As New ClsGenerales
 
         If CveCliente > 0 Then
-            If ObjCuentasBancos.RemoveCuentasDepositos(GvRow.DataKey("CveCuentaDeposito").ToEntero) Then
+            If ObjCuentasBancos.RemoveCuentasDepositos(GvRow.DataKey("CveCuentaDeposito").ToEntero()) Then
                 DTCuentasBancos.Clear()
                 DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveCliente = {0}", CveCliente)))
 
@@ -6325,10 +6345,10 @@ Partial Class Clientes
             GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing
 
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
     Private Sub CargaPSGridCuentasBancos()
         If CveCliente > 0 Then
             GvBancosCuentas.DataSource = DTCuentasBancos
@@ -6386,9 +6406,9 @@ Partial Class Clientes
         divestatus.Visible = True
         UpAddBancos.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias"))
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "C L I E N T E S   P A G O S  R E A L I Z A D O S   I M P R I M I R   P D F/Excel"
     Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkPagosClientesBancosExcel.Click
         GenerarPDF("Excel")
@@ -6404,7 +6424,7 @@ Partial Class Clientes
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("AgrupadoPor", String.Format("<b>Cliente: </b>{0}", TxtNombreComercial.Text)))
-        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime().ToShortDateString()))
 
         If Imagen.Exists Then
             params.Add(New ReportParameter("LogoPath", logouri))
@@ -6414,11 +6434,11 @@ Partial Class Clientes
         ImprimirPDF("Empresas\Grales\Formatos\RepClientesPagosBancos.rdlc", DTCobrosRealizados, params, "RepClientesPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
 
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "VENTAS"
-
+
     Public Function imprimirFacturaVenta(CveVenta As Integer) As Byte()
         Dim ObjVentas As New ClsVentas
         Dim Vta As Modelos.Factura = Nothing
@@ -6440,98 +6460,98 @@ Partial Class Clientes
             ' se rellenan los campos de  la factura
             Vta = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.Factura)
 
-            Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString
+            Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString()
             'se rellena la sucursal
             'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel)
             Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
             Vta.Cliente = New Modelos.ClienteModel
-            Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString
-            Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString
-            Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString
-            Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString
-            Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString
-            Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString
-            Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString
-            Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString
-            Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString
-            Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString
-            Vta.AtencionA = dtVentas(0)("AtencionA").ToString
-            Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString
-            Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString
-            Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString
-            Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
-            Vta.RefDocto = dtVentas(0)("Ref").ToString
-            Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
-            Vta.Version = dtVentas(0)("Version").ToString
+            Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString()
+            Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString()
+            Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString()
+            Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString()
+            Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString()
+            Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString()
+            Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString()
+            Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString()
+            Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString()
+            Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString()
+            Vta.AtencionA = dtVentas(0)("AtencionA").ToString()
+            Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString()
+            Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString()
+            Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString()
+            Vta.Cliente.Mail = dtVentas(0)("Mail").ToString()
+            Vta.RefDocto = dtVentas(0)("Ref").ToString()
+            Vta.CveVenta = dtVentas(0)("CveVenta").ToString().ToEntero()
+            Vta.Version = dtVentas(0)("Version").ToString()
 
-            Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString
-            Vta.DescripcionContrato = dtVentas(0)("DescripcionContrato").ToString
-            Vta.NumeroDescripcionContrato = If($"{dtVentas(0)("NumeroContrato").ToString} - {dtVentas(0)("NumeroLicitacion").ToString}" = " - ", "", $"{dtVentas(0)("NumeroContrato").ToString} {If(dtVentas(0)("NumeroLicitacion").ToString = "", "", $" - Licitación: {dtVentas(0)("NumeroLicitacion").ToString}")}")
+            Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString()
+            Vta.DescripcionContrato = dtVentas(0)("DescripcionContrato").ToString()
+            Vta.NumeroDescripcionContrato = If($"{dtVentas(0)("NumeroContrato").ToString()} - {dtVentas(0)("NumeroLicitacion").ToString()}" = " - ", "", $"{dtVentas(0)("NumeroContrato").ToString()} {If(dtVentas(0)("NumeroLicitacion").ToString() = "", "", $" - Licitación: {dtVentas(0)("NumeroLicitacion").ToString()}")}")
 
-            Vta.PedidoContrato = If(dtVentas(0)("PedidoContrato").ToString = "", Vta.NumeroDescripcionContrato, $"{dtVentas(0)("PedidoContrato").ToString} {If(Vta.NumeroDescripcionContrato = "", "", $" / {Vta.NumeroDescripcionContrato}") }")
-            'Vta.PedidoContrato = dtVentas(0)("PedidoContrato").ToString
+            Vta.PedidoContrato = If(dtVentas(0)("PedidoContrato").ToString() = "", Vta.NumeroDescripcionContrato, $"{dtVentas(0)("PedidoContrato").ToString()} {If(Vta.NumeroDescripcionContrato = "", "", $" / {Vta.NumeroDescripcionContrato}") }")
+            'Vta.PedidoContrato = dtVentas(0)("PedidoContrato").ToString()
 
             Vta.ClienteSucursal = New Modelos.SucursalModel
-            Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString
-            Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString
-            Vta.ClienteSucursal.NoInt = dtVentas(0)("SucClienteNoInt").ToString
-            Vta.ClienteSucursal.Colonia = dtVentas(0)("SucClienteColonia").ToString
-            Vta.ClienteSucursal.CP = dtVentas(0)("SucClienteCP").ToString
-            Vta.ClienteSucursal.Municipio = dtVentas(0)("SucClienteCiudad").ToString
-            Vta.ClienteSucursal.Estado = dtVentas(0)("SucClienteEstado").ToString
-            Vta.ClienteSucursal.Pais = dtVentas(0)("SucClientePais").ToString
-            Vta.ClienteSucursal.Localidad = dtVentas(0)("SucClienteLocalidad").ToString
-            Vta.ClienteSucursal.CorreoSucursal = dtVentas(0)("SucClienteCorreo").ToString
-            Vta.ClienteSucursal.TelefonoSucursal = dtVentas(0)("SucClienteTelefono").ToString
-            Vta.ClienteSucursal.Sucursal = dtVentas(0)("SucursalCliente").ToString
-            Vta.ClienteSucursal.ImprimeNombreSucursal = dtVentas(0)("ImprimeNombreSucursal").ToString
+            Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString()
+            Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString()
+            Vta.ClienteSucursal.NoInt = dtVentas(0)("SucClienteNoInt").ToString()
+            Vta.ClienteSucursal.Colonia = dtVentas(0)("SucClienteColonia").ToString()
+            Vta.ClienteSucursal.CP = dtVentas(0)("SucClienteCP").ToString()
+            Vta.ClienteSucursal.Municipio = dtVentas(0)("SucClienteCiudad").ToString()
+            Vta.ClienteSucursal.Estado = dtVentas(0)("SucClienteEstado").ToString()
+            Vta.ClienteSucursal.Pais = dtVentas(0)("SucClientePais").ToString()
+            Vta.ClienteSucursal.Localidad = dtVentas(0)("SucClienteLocalidad").ToString()
+            Vta.ClienteSucursal.CorreoSucursal = dtVentas(0)("SucClienteCorreo").ToString()
+            Vta.ClienteSucursal.TelefonoSucursal = dtVentas(0)("SucClienteTelefono").ToString()
+            Vta.ClienteSucursal.Sucursal = dtVentas(0)("SucursalCliente").ToString()
+            Vta.ClienteSucursal.ImprimeNombreSucursal = dtVentas(0)("ImprimeNombreSucursal").ToString()
 
             Vta.EnviarA = New Modelos.EnviarAModel
-            Vta.EnviarA.CveDireccionEnvio = dtVentas(0)("CveDireccionEnvio").ToString.ToEntero
-            Vta.EnviarA.EnvioDireccion = dtVentas(0)("EnvioDireccion").ToString
-            Vta.EnviarA.EnvioColonia = dtVentas(0)("EnvioColonia").ToString
-            Vta.EnviarA.EnvioCiudad = dtVentas(0)("EnvioCiudad").ToString
-            Vta.EnviarA.EnvioEstado = dtVentas(0)("EnvioEstado").ToString
-            Vta.EnviarA.EnvioCP = dtVentas(0)("EnvioCP").ToString
+            Vta.EnviarA.CveDireccionEnvio = dtVentas(0)("CveDireccionEnvio").ToString().ToEntero()
+            Vta.EnviarA.EnvioDireccion = dtVentas(0)("EnvioDireccion").ToString()
+            Vta.EnviarA.EnvioColonia = dtVentas(0)("EnvioColonia").ToString()
+            Vta.EnviarA.EnvioCiudad = dtVentas(0)("EnvioCiudad").ToString()
+            Vta.EnviarA.EnvioEstado = dtVentas(0)("EnvioEstado").ToString()
+            Vta.EnviarA.EnvioCP = dtVentas(0)("EnvioCP").ToString()
 
-            Vta.EnviarA.EnvioNoExt = dtVentas(0)("EnvioNoExt").ToString
-            Vta.EnviarA.EnvioNoInt = dtVentas(0)("EnvioNoInt").ToString
-            Vta.EnviarA.EnvioContacto = dtVentas(0)("EnvioContacto").ToString
-            'Vta.EnviarA.EnvioPedidoContrato = dtVentas(0)("EnvioPedidoContrato").ToString
+            Vta.EnviarA.EnvioNoExt = dtVentas(0)("EnvioNoExt").ToString()
+            Vta.EnviarA.EnvioNoInt = dtVentas(0)("EnvioNoInt").ToString()
+            Vta.EnviarA.EnvioContacto = dtVentas(0)("EnvioContacto").ToString()
+            'Vta.EnviarA.EnvioPedidoContrato = dtVentas(0)("EnvioPedidoContrato").ToString()
 
             'INE COMPLEMENTO
-            If dtVentas(0)("TipoComite").ToString <> "" Then
+            If dtVentas(0)("TipoComite").ToString() <> "" Then
                 Dim INE As New Modelos.ComplementoINE
-                INE.INETipoComite = dtVentas(0)("TipoComite").ToString
-                INE.INETipoProceso = dtVentas(0)("TipoProceso").ToString
-                INE.INEIdContabilidad = dtVentas(0)("IdContabilidad").ToString.ToEntero
+                INE.INETipoComite = dtVentas(0)("TipoComite").ToString()
+                INE.INETipoProceso = dtVentas(0)("TipoProceso").ToString()
+                INE.INEIdContabilidad = dtVentas(0)("IdContabilidad").ToString().ToEntero()
                 Vta.ComplementoINE = INE
             End If
 
 
             Dim DR As DataRow = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR)
+            If dtVentas(0)("SubTotal").ToString().ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString().ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR)
             DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR)
+            If dtVentas(0)("Descuento").ToString().ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString().ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR)
             DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR)
+            If dtVentas(0)("Amortizacion").ToString().ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString().ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR)
             DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR)
+            If dtVentas(0)("SubTotal").ToString().ToDouble <> (dtVentas(0)("SubTotal").ToString().ToDouble - dtVentas(0)("Descuento").ToString().ToDouble - dtVentas(0)("Amortizacion").ToString().ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString().ToDouble - dtVentas(0)("Descuento").ToString().ToDouble - dtVentas(0)("Amortizacion").ToString().ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR)
             DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("IVA").ToString.ToDouble >= 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR)
+            If dtVentas(0)("IVA").ToString().ToDouble >= 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString().ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR)
 
             'solo para eclipse, que muesre un subtotal debajo de IVA
-            If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR)
+            If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString().ToDouble - dtVentas(0)("Descuento").ToString().ToDouble - dtVentas(0)("Amortizacion").ToString().ToDouble) + dtVentas(0)("IVA").ToString().ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR)
             DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR)
+            If dtVentas(0)("RetIVA").ToString().ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString().ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR)
             DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR)
+            If dtVentas(0)("RetISR").ToString().ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString().ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR)
             DR = TmpDTImpuestos.NewRow()
 
-            If dtVentas(0)("IEPS").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IEPS" : DR("Importe") = dtVentas(0)("IEPS").ToString.ToDouble : DR("Orden") = 80 : TmpDTImpuestos.Rows.Add(DR)
+            If dtVentas(0)("IEPS").ToString().ToDouble <> 0 Then DR("ImpuestoLocal") = "IEPS" : DR("Importe") = dtVentas(0)("IEPS").ToString().ToDouble : DR("Orden") = 80 : TmpDTImpuestos.Rows.Add(DR)
             DR = TmpDTImpuestos.NewRow()
 
-            If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 100 : TmpDTImpuestos.Rows.Add(DR)
+            If dtVentas(0)("Total").ToString().ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString().ToDouble : DR("Orden") = 100 : TmpDTImpuestos.Rows.Add(DR)
             DR = TmpDTImpuestos.NewRow()
 
             If ObjVentas.GetVentaDetalle(CveVenta) Then 'Obtenemos el Detalle de la Oorden de Compra
@@ -6544,9 +6564,9 @@ Partial Class Clientes
                 If dtImpuesto.Rows.Count > 0 Then
                     For Each Row As DataRow In dtImpuesto.Rows
                         Dim Orden = 80
-                        If Row("Importe").ToString.ToDouble <> 0 Then
-                            DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
-                            DR("Importe") = Row("Importe").ToString.ToDouble
+                        If Row("Importe").ToString().ToDouble <> 0 Then
+                            DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString()
+                            DR("Importe") = Row("Importe").ToString().ToDouble
                             DR("Orden") = Orden
                             TmpDTImpuestos.Rows.Add(DR)
                             DR = TmpDTImpuestos.NewRow()
@@ -6570,30 +6590,30 @@ Partial Class Clientes
                 End Try
 
                 If DrIVA IsNot Nothing Then
-                    DrIVA("Importe") = DrIVA("Importe").ToString.ToDouble + dr1("ImporteIVA").ToString.ToDouble
+                    DrIVA("Importe") = DrIVA("Importe").ToString().ToDouble + dr1("ImporteIVA").ToString().ToDouble
                     TmpDTImpuestosIVAIEPS.AcceptChanges()
                 Else
                     Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow()
-                    If dr1("PorcentajeIVA").ToString.ToDouble >= 0 Then
-                        DR2("Impuesto") = "IVA" : DR2("tasa") = "16 %" : DR2("Importe") = dr1("ImporteIVA").ToString.ToDouble : DR2("Orden") = "1"
+                    If dr1("PorcentajeIVA").ToString().ToDouble >= 0 Then
+                        DR2("Impuesto") = "IVA" : DR2("tasa") = "16 %" : DR2("Importe") = dr1("ImporteIVA").ToString().ToDouble : DR2("Orden") = "1"
                         TmpDTImpuestosIVAIEPS.Rows.Add(DR2)
                         TmpDTImpuestosIVAIEPS.AcceptChanges()
                     End If
                 End If
 
                 Try
-                    DrIEPS = TmpDTImpuestosIVAIEPS.Select($"Impuesto = 'IEPS' AND tasa = '{dr1("PorcentajeIEPS").ToString.ToDouble * 100} %'")(0)
+                    DrIEPS = TmpDTImpuestosIVAIEPS.Select($"Impuesto = 'IEPS' AND tasa = '{dr1("PorcentajeIEPS").ToString().ToDouble * 100} %'")(0)
                 Catch ex As Exception
                     DrIEPS = Nothing
                 End Try
 
                 If DrIEPS IsNot Nothing Then
-                    DrIEPS("Importe") = DrIEPS("Importe").ToString.ToDouble + dr1("ImporteIEPS").ToString.ToDouble
+                    DrIEPS("Importe") = DrIEPS("Importe").ToString().ToDouble + dr1("ImporteIEPS").ToString().ToDouble
                     TmpDTImpuestosIVAIEPS.AcceptChanges()
                 Else
                     Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow()
-                    If dr1("PorcentajeIEPS").ToString.ToDouble > 0 Then
-                        DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", dr1("PorcentajeIEPS").ToString.ToDouble * 100, "%") : DR2("Importe") = dr1("ImporteIEPS").ToString.ToDouble : DR2("Orden") = If(dr1("PorcentajeIEPS").ToString = "0.03", "2", If(dr1("PorcentajeIEPS").ToString = "0.06", "3", If(dr1("PorcentajeIEPS").ToString = "0.07", "4", If(dr1("PorcentajeIEPS").ToString = "0.09", "5", ""))))
+                    If dr1("PorcentajeIEPS").ToString().ToDouble > 0 Then
+                        DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", dr1("PorcentajeIEPS").ToString().ToDouble * 100, "%") : DR2("Importe") = dr1("ImporteIEPS").ToString().ToDouble : DR2("Orden") = If(dr1("PorcentajeIEPS").ToString() = "0.03", "2", If(dr1("PorcentajeIEPS").ToString() = "0.06", "3", If(dr1("PorcentajeIEPS").ToString() = "0.07", "4", If(dr1("PorcentajeIEPS").ToString() = "0.09", "5", ""))))
                         TmpDTImpuestosIVAIEPS.Rows.Add(DR2)
                         TmpDTImpuestosIVAIEPS.AcceptChanges()
                     End If
@@ -6607,7 +6627,7 @@ Partial Class Clientes
             End If
 
             If UsuarioActual.CveEmpresa.Contiene(119) Then
-                If dtVentas(0)("TipoDocto").ToString.Contiene("Ing", "Ant", "Rem") Then
+                If dtVentas(0)("TipoDocto").ToString().Contiene("Ing", "Ant", "Rem") Then
                     'carga as notas de credito vinculadas
                     If ObjVentas.GetVentasAntNC(CveVenta, -1) Then
                         Vta.DtDocumentosRelacionados = ObjVentas.DtResultados
@@ -6615,7 +6635,7 @@ Partial Class Clientes
                     End If
                 End If
 
-                If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then
+                If dtVentas(0)("TipoDocto").ToString().Contiene("Egs", "Dev", "Ant") Then
                     If ObjVentas.GetVentasAntNC(-1, CveVenta) Then
                         Vta.DtDocumentosRelacionados = ObjVentas.DtResultados
                     End If
@@ -6624,7 +6644,7 @@ Partial Class Clientes
 
 
             'CFDI RELACIONADO
-            If dtVentas(0)("CveTipoRelacion").ToString.ToEntero > 0 Then
+            If dtVentas(0)("CveTipoRelacion").ToString().ToEntero() > 0 Then
                 Vta.Timbre.Comprobante.TipoComprobante = If(Vta.TipoDocto.Contiene("Ing", "Ant"), "I", If(Vta.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
                 If Vta.Timbre.Comprobante.TipoComprobante = "E" Then
                     If Vta.TipoDocto.Contiene("Egs") Then
@@ -6635,12 +6655,12 @@ Partial Class Clientes
                         Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
                         Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
                     End If
-                    Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString)
+                    Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString())
                 End If
                 ' cuando es refacturacoin es cfdirelacionado, con relacion 04
-                If Vta.Timbre.Comprobante.TipoComprobante = "I" AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then
+                If Vta.Timbre.Comprobante.TipoComprobante = "I" AndAlso (dtVentas(0)("Total").ToString().ToDouble = dtVentas(0)("TotalPadre").ToString().ToDouble) Then
                     Vta.Timbre.CFDIRelacionados.TipoRelacion = "04"
-                    Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString)
+                    Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString())
                     Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Refacturación de Ingreso"
                 End If
             End If
@@ -6649,10 +6669,10 @@ Partial Class Clientes
         ObjVentas.Dispose()
 
         Return PdfFactura(Vta)
-    End Function
-
+    End Function
+
 #End Region
-
+
 #Region "COMERCIO EXTERIOR"
     Public Sub CargaCombosComercioExterior()
 
@@ -6693,8 +6713,8 @@ Partial Class Clientes
 
     Private Sub CargaEstado()
         DdlEstado.Items.Clear()
-        If DdlPais.SelectedValue.ToEntero > 0 Then
-            DdlEstado.DataSource = GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlPais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString)
+        If DdlPais.SelectedValue.ToEntero() > 0 Then
+            DdlEstado.DataSource = GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString())
         End If
         DdlEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlEstado.DataBind()
@@ -6702,8 +6722,8 @@ Partial Class Clientes
 
     Private Sub CargaMunicipio()
         DdlMunicipio.Items.Clear()
-        If DdlEstado.SelectedValue.ToEntero > 0 Then
-            DdlMunicipio.DataSource = GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlPais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString).FiltraParametros($"CveEstado = {DdlEstado.SelectedValue.ToEntero}")(0)("ClaveSATEstado").ToString)
+        If DdlEstado.SelectedValue.ToEntero() > 0 Then
+            DdlMunicipio.DataSource = GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString()).FiltraParametros($"CveEstado = {DdlEstado.SelectedValue.ToEntero()}")(0)("ClaveSATEstado").ToString())
         End If
         DdlMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlMunicipio.DataBind()
@@ -6711,8 +6731,8 @@ Partial Class Clientes
 
     Private Sub CargaColonia()
         DdlColonia.Items.Clear()
-        If DdlMunicipio.SelectedValue.ToEntero > 0 Then
-            DdlColonia.DataSource = GlobalDTColonia(GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlPais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString).FiltraParametros($"CveEstado = {DdlEstado.SelectedValue.ToEntero}")(0)("ClaveSATEstado").ToString).FiltraParametros($"CveMunicipio = {DdlMunicipio.SelectedValue.ToEntero}")(0)("ClaveSATMunicipio").ToString)
+        If DdlMunicipio.SelectedValue.ToEntero() > 0 Then
+            DdlColonia.DataSource = GlobalDTColonia(GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString()).FiltraParametros($"CveEstado = {DdlEstado.SelectedValue.ToEntero()}")(0)("ClaveSATEstado").ToString()).FiltraParametros($"CveMunicipio = {DdlMunicipio.SelectedValue.ToEntero()}")(0)("ClaveSATMunicipio").ToString())
         End If
         DdlColonia.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlColonia.DataBind()
@@ -6766,12 +6786,12 @@ Partial Class Clientes
     End Sub
     Protected Sub DdlMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaColonia()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "D O C U M E N T A C I O N   "
-
+
     Private Sub CargaDocumentacionCliente()
         Dim objRH As New ClsEdocumentacion()
 
@@ -6794,17 +6814,17 @@ Partial Class Clientes
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
         Dim chkEstatus As CheckBox
-        CveDocumentacionElectronica = GvRow.DataKey("CveDocumentacionElectronica").ToString.ToEntero
-        CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToString.ToEntero
+        CveDocumentacionElectronica = GvRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero()
+        CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToString().ToEntero()
         Documentacion = GvRow.DataKey("Documentacion")
-        AdjuntoDocumentacion = GvRow.DataKey("Adjunto").ToString
+        AdjuntoDocumentacion = GvRow.DataKey("Adjunto").ToString()
 
         chkEstatus = GvRow.FCCheckBox("chkEstatus")
 
 
 
         ObservacionDocumentacion = GvRow.FCTextBox("TxtObservaciones").Text.Trim.ToUpper
-        FechaLimite = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate
+        FechaLimite = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate()
 
         AdjuntoDocumentacion = GvRow.DataKey("Adjunto")
 
@@ -6821,10 +6841,10 @@ Partial Class Clientes
 
         For Each dRow As GridViewRow In GvDocumentosCliente.Rows
 
-            Dim _CveDocumentacion As Integer = dRow.DataKey("CveDocumentacion").ToString.ToEntero
+            Dim _CveDocumentacion As Integer = dRow.DataKey("CveDocumentacion").ToString().ToEntero()
             Dim _Adjunto As String = dRow.DataKey("Adjunto")
             'Dim _Documentacion As String = dRow.DataKey("Documentacion")
-            Dim _CveDocumentacionElectronica As Integer = dRow.DataKey("CveDocumentacionElectronica").ToString.ToEntero
+            Dim _CveDocumentacionElectronica As Integer = dRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero()
             Dim _txtObservaciones As TextBox = dRow.FCTextBox("TxtObservaciones")
             Dim _TxtFechaLimite As TextBox = dRow.FCTextBox("TxtFechaLimite")
             Dim _TxtFechaVigencia As TextBox = dRow.FCTextBox("TxtFechaVigencia")
@@ -6836,12 +6856,12 @@ Partial Class Clientes
             Dim _FechaVigencia As Date
             Dim _FechaLimite As Date
 
-            Dim DiasLimite As Integer = dRow.DataKey("DiasLimite").ToString.ToEntero
-            Dim AplicaDiasLimite As Boolean = If(dRow.DataKey("AplicaDiasLimite").ToString = "1", True, False)
-            Dim AplicaFechaVencimiento As Boolean = If(dRow.DataKey("AplicaFechaVencimiento").ToString = "1", True, False)
+            Dim DiasLimite As Integer = dRow.DataKey("DiasLimite").ToString().ToEntero()
+            Dim AplicaDiasLimite As Boolean = If(dRow.DataKey("AplicaDiasLimite").ToString() = "1", True, False)
+            Dim AplicaFechaVencimiento As Boolean = If(dRow.DataKey("AplicaFechaVencimiento").ToString() = "1", True, False)
 
             If _TxtFechaVigencia.Text.Length = 10 Then
-                _FechaVigencia = _TxtFechaVigencia.Text.ToDate
+                _FechaVigencia = _TxtFechaVigencia.Text.ToDate()
             Else
                 _FechaVigencia = Nothing
             End If
@@ -6849,7 +6869,7 @@ Partial Class Clientes
             If Not AplicaDiasLimite Then
                 _FechaLimite = MinFecha
             Else
-                _FechaLimite = _TxtFechaLimite.Text.ToDate
+                _FechaLimite = _TxtFechaLimite.Text.ToDate()
             End If
 
             If Not AplicaFechaVencimiento Then
@@ -6962,10 +6982,10 @@ Partial Class Clientes
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim activo As Boolean = False
 
-        Dim _CveDocumentacionElectronica As Integer = GvRow.DataKey("CveDocumentacionElectronica").ToString.ToEntero
-        Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString.ToEntero
-        Dim _Adjunto As String = GvRow.DataKey("Adjunto").ToString
-        Dim _fechaLimite As Date = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate
+        Dim _CveDocumentacionElectronica As Integer = GvRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero()
+        Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero()
+        Dim _Adjunto As String = GvRow.DataKey("Adjunto").ToString()
+        Dim _fechaLimite As Date = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate()
 
         Dim obserbaciones As String = DirectCast(GvRow.FindControl("TxtObservaciones"), TextBox).Text
         'Dim DDLEstatus As DropDownList = DirectCast(GvRow.FindControl("DDLEstatus"), DropDownList)
@@ -7000,10 +7020,10 @@ Partial Class Clientes
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim activo As Boolean = False
 
-        Dim _CveDocumentacionElectronica As Integer = GvRow.DataKey("CveDocumentacionElectronica").ToString.ToEntero
-        Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString.ToEntero
-        Dim _Adjunto As String = GvRow.DataKey("Adjunto").ToString
-        Dim _fechaLimite As Date = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate
+        Dim _CveDocumentacionElectronica As Integer = GvRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero()
+        Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero()
+        Dim _Adjunto As String = GvRow.DataKey("Adjunto").ToString()
+        Dim _fechaLimite As Date = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate()
         Dim obserbaciones As String = DirectCast(GvRow.FindControl("TxtObservaciones"), TextBox).Text
         'Dim DDLEstatus As DropDownList = DirectCast(GvRow.FindControl("DDLEstatus"), DropDownList)
         Dim chkCompleto As CheckBox = DirectCast(GvRow.FindControl("chkEstatus"), CheckBox)
@@ -7115,7 +7135,7 @@ Partial Class Clientes
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString
+            Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString()
             Dim ImgDownLoadFormato As LinkButton = e.Row.FCLinkButton("ImgDownLoadFormato")
             'Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
             Dim LnkDownLoadDoc As LinkButton = e.Row.FCLinkButton("LnkDownLoadDoc")
@@ -7123,10 +7143,10 @@ Partial Class Clientes
             Dim txtFechaLimite As TextBox = e.Row.FCTextBox("TxtFechaLimite")
             Dim requerido As Boolean = If(e.Row.DBCampo("Requerido").ToUpper = "TRUE", True, False)
             Dim chkEstatus As CheckBox = e.Row.FCCheckBox("chkEstatus")
-            Dim documentacionFormato As String = e.Row.DBCampo("DocumentacionFormato").ToString
-            Dim Documentacion As String = e.Row.DBCampo("Documentacion").ToString
-            Dim _CveDocumentacion As Integer = e.Row.DBCampo("CveDocumentacion").ToString.ToEntero
-            Dim separado As Char() = ".".ToString.ToCharArray
+            Dim documentacionFormato As String = e.Row.DBCampo("DocumentacionFormato").ToString()
+            Dim Documentacion As String = e.Row.DBCampo("Documentacion").ToString()
+            Dim _CveDocumentacion As Integer = e.Row.DBCampo("CveDocumentacion").ToString().ToEntero()
+            Dim separado As Char() = ".".ToString().ToCharArray
             Dim array() As String = Adjunto.Split(separado)
             Dim extencion As String = ""
             Dim existeAdjunto As Boolean = False
@@ -7141,9 +7161,9 @@ Partial Class Clientes
 
             ' FechaVigencia
 
-            Dim DiasLimite As Integer = e.Row.DataKey("DiasLimite").ToString.ToEntero
-            Dim AplicaDiasLimite As Boolean = If(e.Row.DataKey("AplicaDiasLimite").ToString = "1", True, False)
-            Dim AplicaFechaVencimiento As Boolean = If(e.Row.DataKey("AplicaFechaVencimiento").ToString = "1", True, False)
+            Dim DiasLimite As Integer = e.Row.DataKey("DiasLimite").ToString().ToEntero()
+            Dim AplicaDiasLimite As Boolean = If(e.Row.DataKey("AplicaDiasLimite").ToString() = "1", True, False)
+            Dim AplicaFechaVencimiento As Boolean = If(e.Row.DataKey("AplicaFechaVencimiento").ToString() = "1", True, False)
 
             txtFechaLimite.Visible = If(AplicaDiasLimite, True, False)
             TxtFechaVigencia.Visible = If(AplicaFechaVencimiento, True, False)
@@ -7154,14 +7174,14 @@ Partial Class Clientes
             ' RegistraScript(scripMascara)
 
             If TxtFechaVigencia.Text.Length = 10 Then
-                TxtFechaVigencia.Text = TxtFechaVigencia.Text.ToDate.ToString("dd/MM/yyyy")
+                TxtFechaVigencia.Text = TxtFechaVigencia.Text.ToDate().ToString("dd/MM/yyyy")
             End If
 
             If array.Length > 0 Then
                 extencion = array(array.Length - 1)
             End If
 
-            If e.Row.DBCampo("Estatus").ToString.ToEntero = 1 Then
+            If e.Row.DBCampo("Estatus").ToString().ToEntero() = 1 Then
                 chkEstatus.Checked = True
             Else
                 chkEstatus.Checked = False
@@ -7175,7 +7195,7 @@ Partial Class Clientes
                 LnkDownLoadDoc.Visible = True
             End If
 
-            txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy")
+            txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString().ToDate().ToString("dd/MM/yyyy")
 
             If Adjunto.Trim.Length > 0 Or (Documentacion = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140) Then
 
@@ -7203,7 +7223,7 @@ Partial Class Clientes
                 ' ImgRequired.Text = " <a class='btn btn-circle btn-sm grey-salt' href='#' data-toggle='tooltip' title='No obligatorio' ><i class='fa fa-asterisk '></i></a>"
             End If
 
-            If UsuarioActual.TienePermisoProceso(248) And e.Row.DBCampo("Estatus").ToString.ToEntero = 1 And LnkDownLoadDoc.Visible Then
+            If UsuarioActual.TienePermisoProceso(248) And e.Row.DBCampo("Estatus").ToString().ToEntero() = 1 And LnkDownLoadDoc.Visible Then
                 e.Row.FCLinkButton("LnkGvDocumentosEliminar").Visible = True
             End If
 
@@ -7214,7 +7234,7 @@ Partial Class Clientes
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
-        Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString.ToEntero
+        Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero()
         Dim DocumentacionFormato As String = CveDocumentacion & "_" & GvRow.DataKey("DocumentacionFormato")
 
         DescarFormato(DocumentacionFormato)
@@ -7237,7 +7257,7 @@ Partial Class Clientes
 
         Dim objDoc As New clsGemBoxDocument(pathDesti)
         Dim objRH As New ClsRH
-        Dim FechaActual As String = Now.Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString & " del " & Now.Year.ToString()
+        Dim FechaActual As String = Now.Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & Now.Year.ToString()
 
 
         objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(-1, UsuarioActual.CveEmpresa)) ' Pendiente
@@ -7269,20 +7289,20 @@ Partial Class Clientes
     '        If objRH.PersonalReclutamientoGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString()))
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString()))
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString()))
 
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{RFC}", objRH.DtResultados(0)("RFC").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{RFC}", objRH.DtResultados(0)("RFC").ToString()))
 
 
 
@@ -7291,105 +7311,105 @@ Partial Class Clientes
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString()))
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString()))
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString()))
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString()))
 
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString()))
 
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString()))
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString()))
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString()))
 
 
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString()))
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString.ToDecimal.ToString("###,###,###.00")))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString().ToDecimal().ToString("###,###,###.00")))
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString()))
 
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString()))
 
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString()))
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString()))
 
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString()))
 
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString()))
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString()))
 
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString()))
 
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString()))
 
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString()))
 
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString()))
 
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString()))
 
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString()))
 
 
     '            'If Not IsDBNull(objRH.DtResultados(0)("CveSucursal")) Then
@@ -7399,45 +7419,45 @@ Partial Class Clientes
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString()))
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString()))
 
 
 
 
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString()))
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString()))
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString()))
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString()))
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString()))
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{FechaIngreso}", objRH.DtResultados(0)("FechaIngreso").ToString.ToDate.ToShortDateString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{FechaIngreso}", objRH.DtResultados(0)("FechaIngreso").ToString().ToDate().ToShortDateString()))
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString.ToDate.ToShortDateString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString().ToDate().ToShortDateString()))
 
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString()))
 
 
     '            ListaTagsDocumentost.Add(New TagsDocumentos("{CUIP}", ""))
     '            ListaTagsDocumentost.Add(New TagsDocumentos("{Denominacion}", ""))
 
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{FechaNacimiento}", objRH.DtResultados(0)("FechaNacimiento").ToString.ToDate.ToString("dd/MM/yyyy")))
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{FechaNacimiento}", objRH.DtResultados(0)("FechaNacimiento").ToString().ToDate().ToString("dd/MM/yyyy")))
 
 
     '            Dim fechaActual As String = " " & Now.Day & " del mes " & Now.Month & " del año " & Now.Year
@@ -7472,117 +7492,117 @@ Partial Class Clientes
     ''        If objRH.PersonalReclutamientoGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
 
     ''            If Not IsDBNull(objRH.DtResultados(0)("Nombres")) Then
-    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString))
+    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString()))
     ''            End If
 
     ''            If Not objRH.DtResultados(0)("APaterno") Is Nothing Then
 
-    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString))
+    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString()))
     ''            End If
 
     ''            If Not objRH.DtResultados(0)("AMaterno") Is Nothing Then
 
-    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString))
+    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString()))
     ''            End If
 
     ''            If Not objRH.DtResultados(0)("NombreCompleto") Is Nothing Then
 
-    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{NombreCompleto}", objRH.DtResultados(0)("NombreCompleto").ToString))
+    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{NombreCompleto}", objRH.DtResultados(0)("NombreCompleto").ToString()))
     ''            End If
 
     ''            If Not IsDBNull(objRH.DtResultados(0)("Estatura")) Then
 
-    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString))
+    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString()))
     ''            End If
 
     ''            If Not IsDBNull(objRH.DtResultados(0)("Peso")) Then
 
-    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString))
+    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString()))
     ''            End If
 
     ''            If Not IsDBNull(objRH.DtResultados(0)("LugarNacimiento")) Then
 
-    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString))
+    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString()))
     ''            End If
 
     ''            If Not IsDBNull(objRH.DtResultados(0)("Edad")) Then
 
-    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString))
+    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString()))
     ''            End If
 
     ''            If Not IsDBNull(objRH.DtResultados(0)("NombreTelEmergencia")) Then
 
-    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString))
+    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString()))
     ''            End If
 
     ''            If Not IsDBNull(objRH.DtResultados(0)("TipoSangre")) Then
 
-    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString))
+    ''                ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString()))
     ''            End If
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("Vivienda")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("Vivienda")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("ViviendaDueno")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("ViviendaDueno")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("CreditoInfonavit")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("CreditoInfonavit")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("RentaMensual")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString.ToDecimal.ToString("###,###,###.00")))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("RentaMensual")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString().ToDecimal().ToString("###,###,###.00")))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("TransportePublico")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("TransportePublico")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("TrabajadoAnteriormente")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("TrabajadoAnteriormente")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("ParientesEmpresa")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("ParientesEmpresa")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("AcusadoDelito")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("AcusadoDelito")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("AcusadoDelitoObservaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("AcusadoDelitoObservaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("Direccion")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("Direccion")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("Calle")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("Calle")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("Colonia")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("Colonia")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("CP")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("CP")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("Telefono")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("Telefono")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("Celular")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("Celular")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("Correo")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("Correo")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString()))
 
     ''            If Not IsDBNull(objRH.DtResultados(0)("CveSucursal")) Then
 
     ''                ' ListaTagsDocumentost.Add(New TagsDocumentos("{CveSucursal}", DDLSucursal4.Text))
     ''            End If
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("NumeroSS")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("NumeroSS")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("Licencia")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("Licencia")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("CartillaMilitar")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("CartillaMilitar")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("CURP")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("CURP")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("AutorizaAntidoping")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("AutorizaAntidoping")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("Observaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("Observaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("CredencialElector")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CredencialElector}", objRH.DtResultados(0)("CredencialElector").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("CredencialElector")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CredencialElector}", objRH.DtResultados(0)("CredencialElector").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("Sucursal")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Sucursal}", objRH.DtResultados(0)("Sucursal").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("Sucursal")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Sucursal}", objRH.DtResultados(0)("Sucursal").ToString()))
 
-    ''            If Not IsDBNull(objRH.DtResultados(0)("Puesto")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString))
+    ''            If Not IsDBNull(objRH.DtResultados(0)("Puesto")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString()))
 
     ''            'If Not IsDBNull(objRH.DtResultados(0)("InformacionFidedigno")) Then chkFidedigna4.Checked = objRH.DtResultados(0)("InformacionFidedigno")
-    ''            ListaTagsDocumentost.Add(New TagsDocumentos("{InformacionFidedigno}", objRH.DtResultados(0)("InformacionFidedigno").ToString))
+    ''            ListaTagsDocumentost.Add(New TagsDocumentos("{InformacionFidedigno}", objRH.DtResultados(0)("InformacionFidedigno").ToString()))
     ''        End If
 
     ''        If Not IsDBNull(objRH.DtResultados(0)("FechaNacimiento")) Then
-    ''            ListaTagsDocumentost.Add(New TagsDocumentos("{InformacionFidedigno}", objRH.DtResultados(0)("FechaNacimiento").ToString.ToDate.ToString("dd/MM/yyyy")))
+    ''            ListaTagsDocumentost.Add(New TagsDocumentos("{InformacionFidedigno}", objRH.DtResultados(0)("FechaNacimiento").ToString().ToDate().ToString("dd/MM/yyyy")))
     ''        End If
 
 
@@ -7602,12 +7622,12 @@ Partial Class Clientes
 
         RegistraScript("Download('" & baseUrl & "')")
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "D O C U M E N T O S  V E N T A S"
-
+
     Private Sub CargaDocumentosVenta(tCveCliente As Integer)
         Dim objInv As New ClsEdocumentacion
 
@@ -7633,7 +7653,7 @@ Partial Class Clientes
             For Each gvr As GridViewRow In GvDocsVentas.Rows
                 If gvr.FCCheckBox("ChkDoc").Checked Then
 
-                    If objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").ToEntero, -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, Now, Observacion2:=gvr.FCTextBox("TxtObs2").Text) <= 0 Then HuboError = True
+                    If objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").ToEntero(), -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, Now, Observacion2:=gvr.FCTextBox("TxtObs2").Text) <= 0 Then HuboError = True
 
                 End If
 
@@ -7642,16 +7662,16 @@ Partial Class Clientes
         Else
             For Each gvr As GridViewRow In GvDocsVentas.Rows
                 'sino está registrada y se selecciona, se va a insertar
-                If gvr.DataKey("CveDocumentacionElectronica").ToEntero <= 0 AndAlso gvr.FCCheckBox("ChkDoc").Checked Then
-                    If objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").ToEntero, -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, Now, Observacion2:=gvr.FCTextBox("TxtObs2").Text) <= 0 Then HuboError = True
+                If gvr.DataKey("CveDocumentacionElectronica").ToEntero() <= 0 AndAlso gvr.FCCheckBox("ChkDoc").Checked Then
+                    If objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").ToEntero(), -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, Now, Observacion2:=gvr.FCTextBox("TxtObs2").Text) <= 0 Then HuboError = True
                 Else
                     ', Observacion2:=gvr.FCTextBox("TxtObs2").Text
-                    If Not objDoc.DocumentacionElectronicaUpdate(gvr.DataKey("CveDocumentacionElectronica").ToEntero, gvr.DataKey("CveDocumentacion").ToEntero, -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, gvr.DataKey("FechaLimite").ToDate, Observacion2:=gvr.FCTextBox("TxtObs2").Text) Then HuboError = True
+                    If Not objDoc.DocumentacionElectronicaUpdate(gvr.DataKey("CveDocumentacionElectronica").ToEntero(), gvr.DataKey("CveDocumentacion").ToEntero(), -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, gvr.DataKey("FechaLimite").ToDate(), Observacion2:=gvr.FCTextBox("TxtObs2").Text) Then HuboError = True
                 End If
 
                 'si ya estaba registrada y no se selecciona, se va a insertar
-                If gvr.DataKey("CveDocumentacionElectronica").ToEntero > 0 AndAlso Not gvr.FCCheckBox("ChkDoc").Checked Then
-                    If Not objDoc.DocumentacionElectronicaRemove(gvr.DataKey("CveDocumentacionElectronica").ToEntero, -1) Then HuboError = True
+                If gvr.DataKey("CveDocumentacionElectronica").ToEntero() > 0 AndAlso Not gvr.FCCheckBox("ChkDoc").Checked Then
+                    If Not objDoc.DocumentacionElectronicaRemove(gvr.DataKey("CveDocumentacionElectronica").ToEntero(), -1) Then HuboError = True
                 End If
 
             Next
@@ -7675,10 +7695,10 @@ Partial Class Clientes
 
     Protected Sub BtnModalCXCDocumentoClienteUpload_Click(sender As Object, e As EventArgs) Handles BtnModalCXCDocumentoClienteUpload.Click
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim _CveDocumentacionElectronica As Integer = GvRow.DataKey("CveDocumentacion").ToEntero
-        Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToEntero
+        Dim _CveDocumentacionElectronica As Integer = GvRow.DataKey("CveDocumentacion").ToEntero()
+        Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToEntero()
         Dim _Obserbaciones As String = GvRow.FCTextBox("TxtObservaciones").Text.Trim
-        Dim _FechaLimite As Date = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate
+        Dim _FechaLimite As Date = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate()
 
         SubirComprobante(_CveDocumentacionElectronica, _CveDocumentacion, _Obserbaciones, _FechaLimite)
         'CargaDocs()
@@ -7753,9 +7773,9 @@ Partial Class Clientes
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim activo As Boolean = False
 
-        Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToEntero
-        Dim _Adjunto As String = GvRow.DataKey("Adjunto").ToString
-        Dim _fechaLimite As Date = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate
+        Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToEntero()
+        Dim _Adjunto As String = GvRow.DataKey("Adjunto").ToString()
+        Dim _fechaLimite As Date = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate()
 
         Dim observaciones As String = GvRow.FCTextBox("TxtObservaciones").Text ' DirectCast(GvRow.FindControl("TxtObservaciones"), TextBox).Text
         'Dim DDLEstatus As DropDownList = DirectCast(GvRow.FindControl("DDLEstatus"), DropDownList)
@@ -7766,23 +7786,23 @@ Partial Class Clientes
 
         Dim objRH As New ClsEdocumentacion
 
-        If Not GvRow.DataKey("CveDocumentacionElectronica").ToEntero = -1 Then
-            If objRH.DocumentacionElectronicaUpdate(GvRow.DataKey("CveDocumentacionElectronica").ToEntero, _CveDocumentacion, -1, CveCliente, -1, _Estatus, observaciones, _Adjunto, UsuarioActual.CveUsuario, GvRow.FCTextBox("TxtFechaLimite").Text.ToDate) Then
+        If Not GvRow.DataKey("CveDocumentacionElectronica").ToEntero() = -1 Then
+            If objRH.DocumentacionElectronicaUpdate(GvRow.DataKey("CveDocumentacionElectronica").ToEntero(), _CveDocumentacion, -1, CveCliente, -1, _Estatus, observaciones, _Adjunto, UsuarioActual.CveUsuario, GvRow.FCTextBox("TxtFechaLimite").Text.ToDate()) Then
                 Alert("Documento actualizado correctamente.", TipoMensaje.MsgInformacion)
             End If
         Else
-            If objRH.DocumentacionElectronicaAdd(_CveDocumentacion, -1, CveCliente, -1, _Estatus, observaciones, _Adjunto, UsuarioActual.CveUsuario, GvRow.FCTextBox("TxtFechaLimite").Text.ToDate) > 0 Then
+            If objRH.DocumentacionElectronicaAdd(_CveDocumentacion, -1, CveCliente, -1, _Estatus, observaciones, _Adjunto, UsuarioActual.CveUsuario, GvRow.FCTextBox("TxtFechaLimite").Text.ToDate()) > 0 Then
                 Alert("Documento actualizado correctamente.", TipoMensaje.MsgInformacion)
             End If
         End If
 
         objRH.Dispose()
 
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "PERSONA FISICA"
     Protected Sub LnkPersonaFisica_Click(sender As Object, e As EventArgs)
         RegistraScript("$('#DivModalPersonaFisica').modal();")
@@ -7807,9 +7827,9 @@ Partial Class Clientes
 
         ObjCliente.Dispose()
         UpDatos.Update()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "USUARIOS PLATAFORMA CLIENTE - 6 "
     Protected Sub CargaUsuariosPortalCliente()
         Dim objUsuario As ClsSisUsuarios = New ClsSisUsuarios
@@ -7818,19 +7838,19 @@ Partial Class Clientes
             GvUsuarios.DataBind()
         End If
         objUsuario.Dispose()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  DEVOLVER DINERO ANT/NC  "
     Private Sub InicializaDevolverDinero()
         If UsuarioActual.TienePermisoProceso(247) Then
             GVAnticipos.Columns(6).Visible = True
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "MODAL GRAFICA/PEDIDOS"
-
+
     Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
         If CargaDatatables() Then
             RegistraScript("$('#DivModalGrafica').modal('show')")
@@ -7841,7 +7861,7 @@ Partial Class Clientes
     Protected Sub LnkCancelar_Click(sender As Object, e As EventArgs)
         Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
         Dim ObjCliente As New ClsClientes
-        If ObjCliente.UpdateEstatusPedido(gvRow.DataKey("CveVenta").ToEntero, 17, -1, UsuarioActual.CveUsuario) Then
+        If ObjCliente.UpdateEstatusPedido(gvRow.DataKey("CveVenta").ToEntero(), 17, -1, UsuarioActual.CveUsuario) Then
             Alert("Cancelado correctamente.")
             CargaPedido()
         End If
@@ -7867,10 +7887,10 @@ Partial Class Clientes
         Dim CveU As Integer = 0
         Dim MsgAut As String = ""
 
-        If ObjCliente.UpdateEstatusPedido(gvRow.DataKey("CveVenta").ToEntero, 16, gvRow.FCTextBox("TxtDiasCredito").Text.ToEntero, UsuarioActual.CveUsuario) Then
-            CveU = gvRow.DataKey("CveUsuario").ToEntero
+        If ObjCliente.UpdateEstatusPedido(gvRow.DataKey("CveVenta").ToEntero(), 16, gvRow.FCTextBox("TxtDiasCredito").Text.ToEntero(), UsuarioActual.CveUsuario) Then
+            CveU = gvRow.DataKey("CveUsuario").ToEntero()
             MsgAut = String.Format(" Solicitud Autorizada {0} ", gvRow.DataKey("SerieFolio"))
-            'If Not ObjCliente.UpdateFechaPedido(gvRow.DataKey("CveVenta").ToEntero, gvRow.FCTextBox("TxtDiasCredito").Text.ToEntero) Then
+            'If Not ObjCliente.UpdateFechaPedido(gvRow.DataKey("CveVenta").Toentero(), gvRow.FCTextBox("TxtDiasCredito").Text.Toentero()) Then
             '    ErrorTrans = True
             'End If
         Else
@@ -7896,19 +7916,19 @@ Partial Class Clientes
 
     Private Function CargaDatatables() As Boolean
         Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetClienteVencido(CveCliente, UsuarioActual.CveEmpresa, TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate) Then
+        If ObjClientes.GetClienteVencido(CveCliente, UsuarioActual.CveEmpresa, TxtFechaICredito.Text.ToDate(), TxtFechaFCredito.Text.ToDate()) Then
             DtVencido = ObjClientes.DtResultados
         End If
 
-        If ObjClientes.GetRotacionCartera(CveCliente, UsuarioActual.CveEmpresa, TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate) Then
+        If ObjClientes.GetRotacionCartera(CveCliente, UsuarioActual.CveEmpresa, TxtFechaICredito.Text.ToDate(), TxtFechaFCredito.Text.ToDate()) Then
             DtRotacion = ObjClientes.DtResultados
         End If
 
-        If ObjClientes.GetClienteSaldoMensual(CveCliente, UsuarioActual.CveEmpresa, TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate) Then
+        If ObjClientes.GetClienteSaldoMensual(CveCliente, UsuarioActual.CveEmpresa, TxtFechaICredito.Text.ToDate(), TxtFechaFCredito.Text.ToDate()) Then
             DtSaldoMensual = ObjClientes.DtResultados
         End If
 
-        If ObjClientes.GetClienteComportamientoVentaMensual(CveCliente, UsuarioActual.CveEmpresa, TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate) Then
+        If ObjClientes.GetClienteComportamientoVentaMensual(CveCliente, UsuarioActual.CveEmpresa, TxtFechaICredito.Text.ToDate(), TxtFechaFCredito.Text.ToDate()) Then
             DtComportamientoVentas = ObjClientes.DtResultados
         End If
 
@@ -7929,9 +7949,9 @@ Partial Class Clientes
         Dim LimiteCredito As Double = 0
         If DtVencido.Rows.Count > 0 Then
             Saldo = DtVencido.SUM("Saldo")
-            LimiteCredito = DtVencido.Rows(0)("LimiteCredito").ToString.ToDouble
-            LblVencido.Text = DtVencido.SUM("Total", "DiasVencidos > 0").FormatoNumero
-            LblPorVencer.Text = DtVencido.SUM("Total", "DiasVencidos <= 0").FormatoNumero
+            LimiteCredito = DtVencido.Rows(0)("LimiteCredito").ToString().ToDouble
+            LblVencido.Text = DtVencido.SUM("Total", "DiasVencidos > 0").FormatoNumero()
+            LblPorVencer.Text = DtVencido.SUM("Total", "DiasVencidos <= 0").FormatoNumero()
         Else
             LimiteCredito = TxtLimiteCredito.Text.ToDouble
             LblVencido.Text = "0"
@@ -7943,9 +7963,9 @@ Partial Class Clientes
         For Each Dr As DataRow In DtVencido.Rows
             Dim Row As DataRow = Nothing
             Row = Dt.NewRow()
-            Row("value") = Dr("DiasVencidos").ToString
+            Row("value") = Dr("DiasVencidos").ToString()
             Dt.Rows.Add(Row)
-            If Dr("DiasVencidos").ToString.ToEntero > 0 And Dr("Saldo").ToString.ToDouble > 0 Then
+            If Dr("DiasVencidos").ToString().ToEntero() > 0 And Dr("Saldo").ToString().ToDouble > 0 Then
                 FactVencida = True
             End If
         Next
@@ -7960,7 +7980,7 @@ Partial Class Clientes
         Dt2.Columns.Add("saldo")
         Dim Row2 As DataRow = Nothing
         Row2 = Dt2.NewRow()
-        LtlLimiteCreditoModal.Text = LimiteCredito.FormatoNumero
+        LtlLimiteCreditoModal.Text = LimiteCredito.FormatoNumero()
         Row2("limite") = LimiteCredito - Saldo
         Row2("saldo") = Saldo
         Dt2.Rows.Add(Row2)
@@ -7970,11 +7990,11 @@ Partial Class Clientes
         RegistraScript($"CargaGraficaLimiteCredito({json2})", "33")
 
         If DtRotacion.Rows.Count > 0 Then
-            LblVentasModal.Text = DtRotacion.Rows(0)("Ventas").ToString.FormatoNumero
-            LblPagadoModal.Text = DtRotacion.Rows(0)("Pagado").ToString.FormatoNumero
-            LblRotacionModal.Text = DtRotacion.Rows(0)("Rotacion").ToString.FormatoNumero
-            LblDiasModal.Text = DtRotacion.Rows(0)("Dias").ToString.FormatoNumero
-            LblDiasCreditoModal.Text = DtRotacion.Rows(0)("DiasCredito").ToString.FormatoNumero
+            LblVentasModal.Text = DtRotacion.Rows(0)("Ventas").ToString().FormatoNumero()
+            LblPagadoModal.Text = DtRotacion.Rows(0)("Pagado").ToString().FormatoNumero()
+            LblRotacionModal.Text = DtRotacion.Rows(0)("Rotacion").ToString().FormatoNumero()
+            LblDiasModal.Text = DtRotacion.Rows(0)("Dias").ToString().FormatoNumero()
+            LblDiasCreditoModal.Text = DtRotacion.Rows(0)("DiasCredito").ToString().FormatoNumero()
         Else
             LblVentasModal.Text = "0"
             LblPagadoModal.Text = "0"
@@ -8005,13 +8025,13 @@ Partial Class Clientes
 
         Dim Cont As Integer = 1
         For Each Dr As DataRow In DtComportamientoVentas.Rows
-            Dt3.Columns.Add(Dr("Ano").ToString)
+            Dt3.Columns.Add(Dr("Ano").ToString())
             Dim Row4 As DataRow = Nothing
             Row4 = Dt4.NewRow()
             Row4("balloonText") = "Ventas [[category]]: [[value]]"
             Row4("bullet") = "round"
-            Row4("title") = Dr("Ano").ToString
-            Row4("valueField") = Dr("Ano").ToString
+            Row4("title") = Dr("Ano").ToString()
+            Row4("valueField") = Dr("Ano").ToString()
             Row4("fillAlphas") = 0
             Row4("hidden") = If(Cont > DtComportamientoVentas.Rows.Count - 3, False, True)
             Dt4.Rows.Add(Row4)
@@ -8043,29 +8063,29 @@ Partial Class Clientes
         Dim RowDiciembre As DataRow = Nothing
         RowDiciembre = Dt3.NewRow()
         For Each Dr As DataRow In DtComportamientoVentas.Rows
-            RowEnero(Dr("Ano").ToString) = Dr("Enero").ToString
+            RowEnero(Dr("Ano").ToString()) = Dr("Enero").ToString()
             RowEnero("mes") = "Enero"
-            RowFebrero(Dr("Ano").ToString) = Dr("Febrero").ToString
+            RowFebrero(Dr("Ano").ToString()) = Dr("Febrero").ToString()
             RowFebrero("mes") = "Febrero"
-            RowMarzo(Dr("Ano").ToString) = Dr("Marzo").ToString
+            RowMarzo(Dr("Ano").ToString()) = Dr("Marzo").ToString()
             RowMarzo("mes") = "Marzo"
-            RowAbril(Dr("Ano").ToString) = Dr("Abril").ToString
+            RowAbril(Dr("Ano").ToString()) = Dr("Abril").ToString()
             RowAbril("mes") = "Abril"
-            RowMayo(Dr("Ano").ToString) = Dr("Mayo").ToString
+            RowMayo(Dr("Ano").ToString()) = Dr("Mayo").ToString()
             RowMayo("mes") = "Mayo"
-            RowJunio(Dr("Ano").ToString) = Dr("Junio").ToString
+            RowJunio(Dr("Ano").ToString()) = Dr("Junio").ToString()
             RowJunio("mes") = "Junio"
-            RowJulio(Dr("Ano").ToString) = Dr("Julio").ToString
+            RowJulio(Dr("Ano").ToString()) = Dr("Julio").ToString()
             RowJulio("mes") = "Julio"
-            RowAgosto(Dr("Ano").ToString) = Dr("Agosto").ToString
+            RowAgosto(Dr("Ano").ToString()) = Dr("Agosto").ToString()
             RowAgosto("mes") = "Agosto"
-            RowSeptiembre(Dr("Ano").ToString) = Dr("Septiembre").ToString
+            RowSeptiembre(Dr("Ano").ToString()) = Dr("Septiembre").ToString()
             RowSeptiembre("mes") = "Septiembre"
-            RowOctubre(Dr("Ano").ToString) = Dr("Octubre").ToString
+            RowOctubre(Dr("Ano").ToString()) = Dr("Octubre").ToString()
             RowOctubre("mes") = "Octubre"
-            RowNoviembre(Dr("Ano").ToString) = Dr("Noviembre").ToString
+            RowNoviembre(Dr("Ano").ToString()) = Dr("Noviembre").ToString()
             RowNoviembre("mes") = "Noviembre"
-            RowDiciembre(Dr("Ano").ToString) = Dr("Diciembre").ToString
+            RowDiciembre(Dr("Ano").ToString()) = Dr("Diciembre").ToString()
             RowDiciembre("mes") = "Diciembre"
         Next
         Dt3.Rows.Add(RowEnero)
@@ -8096,13 +8116,13 @@ Partial Class Clientes
 
         Cont = 1
         For Each Dr As DataRow In DtSaldoMensual.Rows
-            Dt5.Columns.Add(Dr("Ano").ToString)
+            Dt5.Columns.Add(Dr("Ano").ToString())
             Dim Row6 As DataRow = Nothing
             Row6 = Dt6.NewRow()
             Row6("balloonText") = "Saldo [[category]]: [[value]]"
             Row6("bullet") = "round"
-            Row6("title") = Dr("Ano").ToString
-            Row6("valueField") = Dr("Ano").ToString
+            Row6("title") = Dr("Ano").ToString()
+            Row6("valueField") = Dr("Ano").ToString()
             Row6("fillAlphas") = 0
             Row6("hidden") = If(Cont > DtSaldoMensual.Rows.Count - 3, False, True)
             Dt6.Rows.Add(Row6)
@@ -8121,29 +8141,29 @@ Partial Class Clientes
         RowNoviembre = Dt5.NewRow()
         RowDiciembre = Dt5.NewRow()
         For Each Dr As DataRow In DtSaldoMensual.Rows
-            RowEnero(Dr("Ano").ToString) = Dr("Enero").ToString
+            RowEnero(Dr("Ano").ToString()) = Dr("Enero").ToString()
             RowEnero("mes") = "Enero"
-            RowFebrero(Dr("Ano").ToString) = Dr("Febrero").ToString
+            RowFebrero(Dr("Ano").ToString()) = Dr("Febrero").ToString()
             RowFebrero("mes") = "Febrero"
-            RowMarzo(Dr("Ano").ToString) = Dr("Marzo").ToString
+            RowMarzo(Dr("Ano").ToString()) = Dr("Marzo").ToString()
             RowMarzo("mes") = "Marzo"
-            RowAbril(Dr("Ano").ToString) = Dr("Abril").ToString
+            RowAbril(Dr("Ano").ToString()) = Dr("Abril").ToString()
             RowAbril("mes") = "Abril"
-            RowMayo(Dr("Ano").ToString) = Dr("Mayo").ToString
+            RowMayo(Dr("Ano").ToString()) = Dr("Mayo").ToString()
             RowMayo("mes") = "Mayo"
-            RowJunio(Dr("Ano").ToString) = Dr("Junio").ToString
+            RowJunio(Dr("Ano").ToString()) = Dr("Junio").ToString()
             RowJunio("mes") = "Junio"
-            RowJulio(Dr("Ano").ToString) = Dr("Julio").ToString
+            RowJulio(Dr("Ano").ToString()) = Dr("Julio").ToString()
             RowJulio("mes") = "Julio"
-            RowAgosto(Dr("Ano").ToString) = Dr("Agosto").ToString
+            RowAgosto(Dr("Ano").ToString()) = Dr("Agosto").ToString()
             RowAgosto("mes") = "Agosto"
-            RowSeptiembre(Dr("Ano").ToString) = Dr("Septiembre").ToString
+            RowSeptiembre(Dr("Ano").ToString()) = Dr("Septiembre").ToString()
             RowSeptiembre("mes") = "Septiembre"
-            RowOctubre(Dr("Ano").ToString) = Dr("Octubre").ToString
+            RowOctubre(Dr("Ano").ToString()) = Dr("Octubre").ToString()
             RowOctubre("mes") = "Octubre"
-            RowNoviembre(Dr("Ano").ToString) = Dr("Noviembre").ToString
+            RowNoviembre(Dr("Ano").ToString()) = Dr("Noviembre").ToString()
             RowNoviembre("mes") = "Noviembre"
-            RowDiciembre(Dr("Ano").ToString) = Dr("Diciembre").ToString
+            RowDiciembre(Dr("Ano").ToString()) = Dr("Diciembre").ToString()
             RowDiciembre("mes") = "Diciembre"
         Next
         Dt5.Rows.Add(RowEnero)
@@ -8163,13 +8183,13 @@ Partial Class Clientes
         RegistraScript($"CargaGraficaCompratamientoSaldoMensual({Dt5.ToJson},{Dt6.ToJson.Replace($"{Chr(34)}True{Chr(34)}", "true").Replace($"{Chr(34)}False{Chr(34)}", "false")})", "55")
 
         UPModalProd.Update()
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "TAB - COMPORTAMIENTO DE VENTAS"
-
+
     Private Sub CargaGrupo()
         DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
         DdlGrupo.Items.Insert(1, New ListItem("Clasificacion", "4"))
@@ -8274,7 +8294,7 @@ Partial Class Clientes
             DdlPSFiltro.SelectedValue = "-1"
         Else
             DdlPSFiltro.ddl.Items.Clear()
-            DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero)
+            DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero())
             DdlPSFiltro.ddl.DataBind()
             DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
         End If
@@ -8291,7 +8311,7 @@ Partial Class Clientes
     Private Sub CargaSubProyecto()
         DdlSubProyectoFiltro.Items.Clear()
         If DdlProyecto.SelectedValue <> "-1" Then
-            DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
+            DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1, 1)
             DdlSubProyectoFiltro.DataBind()
         End If
         DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -8299,7 +8319,7 @@ Partial Class Clientes
 
     Protected Sub DdlClasificacionFilto_SelectedIndexChanged(sender As Object, e As EventArgs)
         If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
-            DdlPSFiltro.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero)
+            DdlPSFiltro.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero())
             DdlPSFiltro.DataBind()
             DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
         Else
@@ -8312,14 +8332,14 @@ Partial Class Clientes
     Protected Sub GvComportamientoVenta_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            If DdlGrupo.SelectedValue.ToEntero = 20 Then
+            If DdlGrupo.SelectedValue.ToEntero() = 20 Then
 
-                If e.Row.DBCampo("PS").ToString = "" Then
+                If e.Row.DBCampo("PS").ToString() = "" Then
                     e.Row.CssClass = "Totales"
                 End If
             Else
-                If Not e.Row.DBCampo("CveVenta").ToEntero > 0 Then
-                    e.Row.Cells(5).Text = e.Row.DBCampo("Gpo").ToString
+                If Not e.Row.DBCampo("CveVenta").ToEntero() > 0 Then
+                    e.Row.Cells(5).Text = e.Row.DBCampo("Gpo").ToString()
                     e.Row.CssClass = "Totales"
 
                 End If
@@ -8334,13 +8354,13 @@ Partial Class Clientes
     Private Sub CargaGvComportamientoVenta()
         Dim ObjVentas As New ClsVentas()
         Dim FechaI, FechaF As Date
-        FechaI = If(IsDate(TxtFechaIFiltro.Text.Trim()), TxtFechaIFiltro.Text.ToDate, MinFecha)
-        FechaF = If(IsDate(TxtFechaFFiltro.Text.Trim()), TxtFechaFFiltro.Text.ToDate, MaxFecha)
+        FechaI = If(IsDate(TxtFechaIFiltro.Text.Trim()), TxtFechaIFiltro.Text.ToDate(), MinFecha)
+        FechaF = If(IsDate(TxtFechaFFiltro.Text.Trim()), TxtFechaFFiltro.Text.ToDate(), MaxFecha)
 
-        If ObjVentas.GetRepProductosServiciosDetalle(DdlProyecto.SelectedValue.ToEntero, DdlSubProyectoFiltro.SelectedValue.ToEntero, -1, DdlClasificacionFilto.SelectedValue.ToEntero,
-                                              DdlPSFiltro.SelectedValue.ToEntero, FechaI, FechaF, -1, MinFecha, MaxFecha, -1,
-                                              CveCliente, -1, DdlVendedorFiltro.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1,
-                                              UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:="Ing", GPO:=DdlGrupo.SelectedValue.ToEntero) Then
+        If ObjVentas.GetRepProductosServiciosDetalle(DdlProyecto.SelectedValue.ToEntero(), DdlSubProyectoFiltro.SelectedValue.ToEntero(), -1, DdlClasificacionFilto.SelectedValue.ToEntero(),
+                                              DdlPSFiltro.SelectedValue.ToEntero(), FechaI, FechaF, -1, MinFecha, MaxFecha, -1,
+                                              CveCliente, -1, DdlVendedorFiltro.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), -1,
+                                              UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:="Ing", GPO:=DdlGrupo.SelectedValue.ToEntero()) Then
             GvComportamientoVenta.DataSource = ObjVentas.DtResultados
         Else
             GvComportamientoVenta.DataSource = Nothing
@@ -8349,12 +8369,12 @@ Partial Class Clientes
         ObjVentas.Dispose()
         GvComportamientoVenta.DataBind()
         UpDatosComportamientoVenta.Update()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "DISPOSITIVOS"
-
+
     Protected Sub LnkMoverDispositivo_Click(sender As Object, e As EventArgs)
         Dim CveDispositivo As Integer = HdnCveDispositivoMover.Value.ToEntero()
         Dim CveCliente As Integer = DdlClienteDispositivo.SelectedValue.ToEntero()
@@ -8392,24 +8412,24 @@ Partial Class Clientes
         CargaEventoBitacora()
         NombreDispositivo = ""
         RegistraScript("$('#DivMoverDispositivo').modal('hide');")
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "CRM"
     Protected Sub CargaDatosCRM()
         Dim ObjCRM = New ClsCRM()
 
         If ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa, CveEmpresaCRM) And ObjCRM.DtResultados.Rows.Count > 0 Then
-            TxtNombre.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Empresa").ToString
-            TxtNombreComercial.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Empresa").ToString
-            TxtRFC.Text = ObjCRM.DtResultados.FiltroPrimeroValor("RFC").ToString
+            TxtNombre.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Empresa").ToString()
+            TxtNombreComercial.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Empresa").ToString()
+            TxtRFC.Text = ObjCRM.DtResultados.FiltroPrimeroValor("RFC").ToString()
 
-            TxtEmail.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Correo").ToString
-            TxtEmailCotizacion.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Correo").ToString
+            TxtEmail.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Correo").ToString()
+            TxtEmailCotizacion.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Correo").ToString()
 
-            DdlVendedor.SelectedValueExist(ObjCRM.DtResultados.FiltroPrimeroValor("CveVendedorAsignado").ToString)
-            DdlSubProyecto.SelectedValueExist(ObjCRM.DtResultados.FiltroPrimeroValor("CveSubProyecto").ToString)
+            DdlVendedor.SelectedValueExist(ObjCRM.DtResultados.FiltroPrimeroValor("CveVendedorAsignado").ToString())
+            DdlSubProyecto.SelectedValueExist(ObjCRM.DtResultados.FiltroPrimeroValor("CveSubProyecto").ToString())
         Else
             Alert("La empresa CRM solicitada no existe, porfavor verifique", TipoMensaje.MsgAdvertencia)
             CveEmpresaCRM = -1
@@ -8482,7 +8502,7 @@ Partial Class Clientes
         For Each row As GridViewRow In GvEmpresasCRM.Rows
             Dim chkSeleccionado As RadioButton = CType(row.FindControl("RBSeleccion"), RadioButton)
             If chkSeleccionado.Checked Then
-                CveEmpresaCRMUnificar = row.DataKey("CveEmpresaCRM").ToEntero
+                CveEmpresaCRMUnificar = row.DataKey("CveEmpresaCRM").ToEntero()
             End If
         Next
 
@@ -8495,9 +8515,9 @@ Partial Class Clientes
                 Alert("Se Unificó correctamente al Cliente con la Empresa CRM.")
             End If
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "PORCENTAJE PRECIO DE MARCAS"
     Private Sub LnkPorcentajeMarcas_Click(sender As Object, e As EventArgs) Handles LnkPorcentajeMarcas.Click
         RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajeMarcas"))
@@ -8571,18 +8591,18 @@ Partial Class Clientes
     End Sub
 
     Protected Sub LbAgregarMarca_Click(sender As Object, e As EventArgs) Handles LbAgregarMarca.Click
-        If txtPorcentaje.Text.ToDecimal > 0 And txtPorcentaje.Text.ToDecimal <= 100 And txtPorcentaje2.Text.ToDecimal >= 0 And txtPorcentaje2.Text.ToDecimal <= 100 And txtPorcentaje3.Text.ToDecimal >= 0 And txtPorcentaje3.Text.ToDecimal <= 100 Then
+        If txtPorcentaje.Text.ToDecimal() > 0 And txtPorcentaje.Text.ToDecimal() <= 100 And txtPorcentaje2.Text.ToDecimal() >= 0 And txtPorcentaje2.Text.ToDecimal() <= 100 And txtPorcentaje3.Text.ToDecimal() >= 0 And txtPorcentaje3.Text.ToDecimal() <= 100 Then
 
             Dim registro As DataRow = DTPorcentajePrecios.NewRow
 
             registro.Item("No") = DTPorcentajePrecios.Rows.Count + 1
-            registro.Item("CveMarca") = DdlMarcaPS.SelectedValue.ToEntero
+            registro.Item("CveMarca") = DdlMarcaPS.SelectedValue.ToEntero()
             registro.Item("Marca") = DdlMarcaPS.SelectedItem.Text
-            registro.Item("PorcentajeProducto") = txtPorcentaje.Text.ToDecimal
-            registro.Item("PorcentajeProducto2") = txtPorcentaje2.Text.ToDecimal
-            registro.Item("PorcentajeProducto3") = txtPorcentaje3.Text.ToDecimal
-            registro.Item("ProntoPago") = txtProntoPago.Text.ToDecimal
-            registro.Item("Plazo") = txtPlazo.Text.ToEntero
+            registro.Item("PorcentajeProducto") = txtPorcentaje.Text.ToDecimal()
+            registro.Item("PorcentajeProducto2") = txtPorcentaje2.Text.ToDecimal()
+            registro.Item("PorcentajeProducto3") = txtPorcentaje3.Text.ToDecimal()
+            registro.Item("ProntoPago") = txtProntoPago.Text.ToDecimal()
+            registro.Item("Plazo") = txtPlazo.Text.ToEntero()
             registro.Item("Estatus") = "I"
             DTPorcentajePrecios.Rows.Add(registro)
             CargaDTPorcentajePrecios(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' "))
@@ -8598,12 +8618,12 @@ Partial Class Clientes
         Dim lnkRemove As LinkButton = DirectCast(sender, LinkButton)
 
 
-        If DTPorcentajePrecios.Rows.Count > 0 And lnkRemove.CommandArgument.ToString.Length > 0 Then
+        If DTPorcentajePrecios.Rows.Count > 0 And lnkRemove.CommandArgument.ToString().Length > 0 Then
             Dim i As Integer
-            i = lnkRemove.CommandArgument.ToString.ToEntero
+            i = lnkRemove.CommandArgument.ToString().ToEntero()
             Dim Drs As DataRow() = DTPorcentajePrecios.Select(String.Format("No = {0}", i))
             If Drs.Count > 0 Then
-                If CveCliente > 0 AndAlso Drs(0)("CveMarca").ToString.ToEntero > 0 Then
+                If CveCliente > 0 AndAlso Drs(0)("CveMarca").ToString().ToEntero() > 0 Then
                     Drs(0)("Estatus") = "D"
                 Else
                     Drs(0).Delete()
@@ -8638,7 +8658,7 @@ Partial Class Clientes
         Dim Plazo As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtPlazoP").Text.ToDouble
 
         If PorcentajeProducto > 0 And PorcentajeProducto <= 100 And PorcentajeProducto2 >= 0 And PorcentajeProducto2 <= 100 And PorcentajeProducto3 >= 0 And PorcentajeProducto3 <= 100 Then
-            Dim No As Integer = GvM.Rows(e.RowIndex).DataKey("No").ToEntero
+            Dim No As Integer = GvM.Rows(e.RowIndex).DataKey("No").ToEntero()
 
             Dim Drs As DataRow() = DTPorcentajePrecios.Select(String.Format("No = {0}", No))
 
@@ -8648,7 +8668,7 @@ Partial Class Clientes
                 Drs(0)("PorcentajeProducto3") = PorcentajeProducto3
                 Drs(0)("ProntoPago") = ProntoPago
                 Drs(0)("Plazo") = Plazo
-                If Drs(0)("Estatus").ToString <> "I" Then
+                If Drs(0)("Estatus").ToString() <> "I" Then
                     Drs(0)("Estatus") = "U"
                 End If
             End If
@@ -8672,18 +8692,18 @@ Partial Class Clientes
 
         For Each Dr As DataRow In DTPorcentajePrecios.Rows
 
-            If Dr("Estatus").ToString <> "" Then
+            If Dr("Estatus").ToString() <> "" Then
 
-                If Dr("Estatus").ToString = "I" Then
-                    If Not ObjPS.AddPorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal, Dr("PorcentajeProducto2").ToString.ToDecimal, Dr("PorcentajeProducto3").ToString.ToDecimal, UsuarioActual.CveUsuario, Dr("ProntoPago").ToString.ToDecimal, Dr("Plazo").ToString.ToEntero) Then
+                If Dr("Estatus").ToString() = "I" Then
+                    If Not ObjPS.AddPorcentajeMarcas(CveCliente, Dr("CveMarca").ToString().ToEntero(), Dr("PorcentajeProducto").ToString().ToDecimal(), Dr("PorcentajeProducto2").ToString().ToDecimal(), Dr("PorcentajeProducto3").ToString().ToDecimal(), UsuarioActual.CveUsuario, Dr("ProntoPago").ToString().ToDecimal(), Dr("Plazo").ToString().ToEntero()) Then
                         TieneError = True
                     End If
-                ElseIf Dr("Estatus").ToString = "U" Then
-                    If Not ObjPS.UpdatePorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal, Dr("PorcentajeProducto2").ToString.ToDecimal, Dr("PorcentajeProducto3").ToString.ToDecimal, Dr("ProntoPago").ToString.ToDecimal, Dr("Plazo").ToString.ToEntero) Then
+                ElseIf Dr("Estatus").ToString() = "U" Then
+                    If Not ObjPS.UpdatePorcentajeMarcas(CveCliente, Dr("CveMarca").ToString().ToEntero(), Dr("PorcentajeProducto").ToString().ToDecimal(), Dr("PorcentajeProducto2").ToString().ToDecimal(), Dr("PorcentajeProducto3").ToString().ToDecimal(), Dr("ProntoPago").ToString().ToDecimal(), Dr("Plazo").ToString().ToEntero()) Then
                         TieneError = True
                     End If
-                ElseIf Dr("Estatus").ToString = "D" Then
-                    If Not ObjPS.RemovePorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero) Then
+                ElseIf Dr("Estatus").ToString() = "D" Then
+                    If Not ObjPS.RemovePorcentajeMarcas(CveCliente, Dr("CveMarca").ToString().ToEntero()) Then
                         TieneError = True
                     End If
                 End If
@@ -8701,9 +8721,9 @@ Partial Class Clientes
 
         ObjPS.Dispose()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "PORCENTAJE PRECIO DE PRODUCTOS"
     Private Sub LnkPorcentajePrecios_Click(sender As Object, e As EventArgs) Handles LnkPorcentajePrecios.Click
         RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajePrecios"))
@@ -8770,15 +8790,15 @@ Partial Class Clientes
     End Sub
 
     Protected Sub DdlProducto2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlProducto2.selectedindexchange
-        DdlProducto2IndexChange(DdlProducto2.SelectedValue.ToEntero, DdlProducto2)
+        DdlProducto2IndexChange(DdlProducto2.SelectedValue.ToEntero(), DdlProducto2)
     End Sub
     Private Sub DdlProducto2IndexChange(CvePSParametro As Integer, Ddl As ADServerControl.Dropdownlost)
         Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
 
         If drPS IsNot Nothing Then
-            Dim Precio = drPS("Precio").ToString.ToDouble
+            Dim Precio = drPS("Precio").ToString().ToDouble
             LbPrecioG.Text = Precio.FormatoNumero()
-            LbPrecioA.Text = ((Precio * TxtPorcentajePS.Text.ToDecimal) / 100).FormatoNumero
+            LbPrecioA.Text = ((Precio * TxtPorcentajePS.Text.ToDecimal()) / 100).FormatoNumero()
         End If
     End Sub
 
@@ -8811,16 +8831,16 @@ Partial Class Clientes
     Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
 
         If DdlProducto2.SelectedText <> "" Then
-            If TxtPorcentajePS.Text.ToDecimal >= 0 And TxtPorcentajePS.Text.ToDecimal <= 100 Then
+            If TxtPorcentajePS.Text.ToDecimal() >= 0 And TxtPorcentajePS.Text.ToDecimal() <= 100 Then
 
                 Dim registro As DataRow = DTPorcentajePrecios.NewRow
 
                 registro.Item("No") = DTPorcentajePrecios.Rows.Count + 1
-                registro.Item("CvePS") = DdlProducto2.SelectedValue.ToEntero
+                registro.Item("CvePS") = DdlProducto2.SelectedValue.ToEntero()
                 registro.Item("Producto") = DdlProducto2.SelectedText
-                registro.Item("PrecioG") = LbPrecioG.Text.ToDecimal
-                registro.Item("PrecioA") = LbPrecioG.Text.ToDecimal * TxtPorcentajePS.Text.ToDecimal / 100
-                registro.Item("PorcentajeProducto") = TxtPorcentajePS.Text.ToDecimal
+                registro.Item("PrecioG") = LbPrecioG.Text.ToDecimal()
+                registro.Item("PrecioA") = LbPrecioG.Text.ToDecimal() * TxtPorcentajePS.Text.ToDecimal() / 100
+                registro.Item("PorcentajeProducto") = TxtPorcentajePS.Text.ToDecimal()
                 registro.Item("Estatus") = "I"
                 DTPorcentajePrecios.Rows.Add(registro)
                 CargaDTPorcentajePrecios2(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' "))
@@ -8839,12 +8859,12 @@ Partial Class Clientes
         Dim lnkRemove As LinkButton = DirectCast(sender, LinkButton)
 
 
-        If DTPorcentajePrecios.Rows.Count > 0 And lnkRemove.CommandArgument.ToString.Length > 0 Then
+        If DTPorcentajePrecios.Rows.Count > 0 And lnkRemove.CommandArgument.ToString().Length > 0 Then
             Dim i As Integer
-            i = lnkRemove.CommandArgument.ToString.ToEntero
+            i = lnkRemove.CommandArgument.ToString().ToEntero()
             Dim Drs As DataRow() = DTPorcentajePrecios.Select(String.Format("No = {0}", i))
             If Drs.Count > 0 Then
-                If CveCliente > 0 AndAlso Drs(0)("CvePS").ToString.ToEntero > 0 Then
+                If CveCliente > 0 AndAlso Drs(0)("CvePS").ToString().ToEntero() > 0 Then
                     Drs(0)("Estatus") = "D"
                 Else
                     Drs(0).Delete()
@@ -8875,14 +8895,14 @@ Partial Class Clientes
         Dim PorcentajeProducto As Double = GvP.Rows(e.RowIndex).FCTextBox("TxtPorcentajeP").Text.ToDouble
 
         If PorcentajeProducto >= 0 And PorcentajeProducto <= 100 Then
-            Dim No As Integer = GvP.Rows(e.RowIndex).DataKey("No").ToEntero
+            Dim No As Integer = GvP.Rows(e.RowIndex).DataKey("No").ToEntero()
 
             Dim Drs As DataRow() = DTPorcentajePrecios.Select(String.Format("No = {0}", No))
 
             If Drs.Count > 0 Then
                 Drs(0)("PorcentajeProducto") = PorcentajeProducto
-                Drs(0)("PrecioA") = Drs(0)("PrecioG").ToString.ToDouble * PorcentajeProducto / 100
-                If Drs(0)("Estatus").ToString <> "I" Then
+                Drs(0)("PrecioA") = Drs(0)("PrecioG").ToString().ToDouble * PorcentajeProducto / 100
+                If Drs(0)("Estatus").ToString() <> "I" Then
                     Drs(0)("Estatus") = "U"
                 End If
             End If
@@ -8906,18 +8926,18 @@ Partial Class Clientes
 
         For Each Dr As DataRow In DTPorcentajePrecios.Rows
 
-            If Dr("Estatus").ToString <> "" Then
+            If Dr("Estatus").ToString() <> "" Then
 
-                If Dr("Estatus").ToString = "I" Then
-                    If Not ObjPS.AddPorcentajeProductos(CveCliente, Dr("CvePS").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal, UsuarioActual.CveUsuario) Then
+                If Dr("Estatus").ToString() = "I" Then
+                    If Not ObjPS.AddPorcentajeProductos(CveCliente, Dr("CvePS").ToString().ToEntero(), Dr("PorcentajeProducto").ToString().ToDecimal(), UsuarioActual.CveUsuario) Then
                         TieneError = True
                     End If
-                ElseIf Dr("Estatus").ToString = "U" Then
-                    If Not ObjPS.UpdatePorcentajeProductos(CveCliente, Dr("CvePS").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal) Then
+                ElseIf Dr("Estatus").ToString() = "U" Then
+                    If Not ObjPS.UpdatePorcentajeProductos(CveCliente, Dr("CvePS").ToString().ToEntero(), Dr("PorcentajeProducto").ToString().ToDecimal()) Then
                         TieneError = True
                     End If
-                ElseIf Dr("Estatus").ToString = "D" Then
-                    If Not ObjPS.RemovePorcentajeProductos(CveCliente, Dr("CvePS").ToString.ToEntero) Then
+                ElseIf Dr("Estatus").ToString() = "D" Then
+                    If Not ObjPS.RemovePorcentajeProductos(CveCliente, Dr("CvePS").ToString().ToEntero()) Then
                         TieneError = True
                     End If
                 End If
@@ -8938,13 +8958,13 @@ Partial Class Clientes
     End Sub
 
     Protected Sub BtnCambiaPorcentaje_Click(sender As Object, e As EventArgs)
-        DdlProducto2IndexChange(DdlProducto2.SelectedValue.ToEntero, DdlProducto2)
-    End Sub
+        DdlProducto2IndexChange(DdlProducto2.SelectedValue.ToEntero(), DdlProducto2)
+    End Sub
 #End Region
-
+
 #Region " A C U M U L A D O R E S"
-
-
+
+
     Protected Sub LnkFacturaUsadosCargos_Click(sender As Object, e As EventArgs)
         'CveVentaNota = 0
 
@@ -8953,12 +8973,12 @@ Partial Class Clientes
 
         'For Each GvRow As GridViewRow In GvAcum.Rows
 
-        '    If GvRow.DataKey("CveConcepto").ToEntero = 1 And GvRow.FCCheckBox("ChkCargo").Checked Then
-        '        Cargos = Cargos + GvRow.DataKey("ImporteCargo").ToDecimal
+        '    If GvRow.DataKey("CveConcepto").Toentero() = 1 And GvRow.FCCheckBox("ChkCargo").Checked Then
+        '        Cargos = Cargos + GvRow.DataKey("ImporteCargo").ToDecimal()
         '    End If
         'Next
 
-        'Dim CvePS As Integer = UsuarioActual.Empresa.Funcionalidad(534).ToEntero 'CvePS Distruibuidor Cargo Nota
+        'Dim CvePS As Integer = UsuarioActual.Empresa.Funcionalidad(534).Toentero() 'CvePS Distruibuidor Cargo Nota
         'Dim CveUnidadMedida As Integer
         'Dim CveClasificacion As Integer
 
@@ -8966,8 +8986,8 @@ Partial Class Clientes
 
         '    If Cargos > 0 Then
 
-        '        CveUnidadMedida = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("CveUnidadMedida").ToString.ToEntero
-        '        CveClasificacion = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("CveClasificacion").ToString.ToEntero
+        '        CveUnidadMedida = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("CveUnidadMedida").ToString().Toentero()
+        '        CveClasificacion = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("CveClasificacion").ToString().Toentero()
         '        Iva = Cargos * 0.16D
 
         '        If GenerarNotaCredito(CvePS, 1, CveUnidadMedida, Cargos, Iva, "Clientes/Usados", CveClasificacion) Then
@@ -9002,20 +9022,20 @@ Partial Class Clientes
         'Dim Iva As Decimal = 0D
 
         'For Each GvRow As GridViewRow In GvAcum.Rows
-        '    If GvRow.DataKey("CveConcepto").ToEntero = 1 And GvRow.FCCheckBox("ChkBonificacion").Checked Then
-        '        Bonificacion = Bonificacion + GvRow.DataKey("ImporteBonificacion").ToDecimal
+        '    If GvRow.DataKey("CveConcepto").Toentero() = 1 And GvRow.FCCheckBox("ChkBonificacion").Checked Then
+        '        Bonificacion = Bonificacion + GvRow.DataKey("ImporteBonificacion").ToDecimal()
         '    End If
         'Next
 
 
-        'Dim CvePS As Integer = UsuarioActual.Empresa.Funcionalidad(534).ToEntero 'CvePS Distruibuidor Bonificación Nota
+        'Dim CvePS As Integer = UsuarioActual.Empresa.Funcionalidad(534).Toentero() 'CvePS Distruibuidor Bonificación Nota
         'Dim CveUnidadMedida As Integer
         'Dim CveClasificacion As Integer
         'If CvePS > 0 Then
         '    If Bonificacion > 0 Then
 
-        '        CveUnidadMedida = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("CveUnidadMedida").ToString.ToEntero
-        '        CveClasificacion = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("CveClasificacion").ToString.ToEntero
+        '        CveUnidadMedida = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("CveUnidadMedida").ToString().Toentero()
+        '        CveClasificacion = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("CveClasificacion").ToString().Toentero()
         '        Iva = Bonificacion * 0.16D
 
         '        If GenerarNotaCredito(CvePS, 2, CveUnidadMedida, Bonificacion, Iva, "Clientes/Usados", CveClasificacion) Then
@@ -9062,7 +9082,7 @@ Partial Class Clientes
         If DTSucursales.Rows.Count > 0 Then
 
             If ObjFolios.GetFolios("RNC", UsuarioActual.CveEmpresa) Then
-                Dim CveSubProyecto As Integer = DTSucursales.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
+                Dim CveSubProyecto As Integer = DTSucursales.FiltroPrimeroValor("CveSubProyecto", "").ToEntero()
                 Dim DT As DataTable
                 If CveSubProyecto > 0 Then
                     DT = ObjFolios.DtResultados.FiltraParametros(" Estado = 'Activo' AND LEN(Serie) > 0 AND CveSubProyecto =  " & CveSubProyecto)
@@ -9071,8 +9091,8 @@ Partial Class Clientes
                 End If
 
                 If DT.Rows.Count > 0 Then
-                    FolioNotaAcumulador = DT.Rows(0)("FActual").ToString.ToEntero
-                    SerieNotaAcumulador = DT.Rows(0)("Serie").ToString
+                    FolioNotaAcumulador = DT.Rows(0)("FActual").ToString().ToEntero()
+                    SerieNotaAcumulador = DT.Rows(0)("Serie").ToString()
                     Respuesta = True
                 End If
 
@@ -9089,7 +9109,7 @@ Partial Class Clientes
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            If e.Row.DataKey("CveConcepto").ToEntero = 1 Then
+            If e.Row.DataKey("CveConcepto").ToEntero() = 1 Then
 
                 Dim FacturadoCargo As Boolean = Boolean.Parse(e.Row.DataKey("FacturadoCargo"))
                 Dim FacturadoBonificacion As Boolean = Boolean.Parse(e.Row.DataKey("FacturadoBonificacion"))
@@ -9143,7 +9163,7 @@ Partial Class Clientes
             Dim ObjAcum As New ClsAcumuladores
             Dim ImporteCargo As Decimal = 0D
 
-            If ObjAcum.DistribuidorMovtosGet(CveCliente, UsuarioActual.CveEmpresa, TxtFechaIUsados.Text.ToDate, TxtFechaFUsados.Text.ToDate, CveConcepto:=DdlConceptoUsado.SelectedValue.ToEntero()) Then
+            If ObjAcum.DistribuidorMovtosGet(CveCliente, UsuarioActual.CveEmpresa, TxtFechaIUsados.Text.ToDate(), TxtFechaFUsados.Text.ToDate(), CveConcepto:=DdlConceptoUsado.SelectedValue.ToEntero()) Then
                 GvAcum.DataSource = ObjAcum.DtResultados
             End If
 
@@ -9314,10 +9334,10 @@ Partial Class Clientes
         DrPS("IEPSPorcentaje") = 0
 
         'verifica si tiene ventaminima
-        If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString.ToDecimal > 0 Then
+        If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString().ToDecimal() > 0 Then
             'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15...
-            If Cantidad Mod DrPS("VentaMinima").ToString.ToDecimal <> 0 Then
-                Alert(String.Format("El producto se vende solo en cantidades de {0}", DrPS("VentaMinima").ToString))
+            If Cantidad Mod DrPS("VentaMinima").ToString().ToDecimal() <> 0 Then
+                Alert(String.Format("El producto se vende solo en cantidades de {0}", DrPS("VentaMinima").ToString()))
                 Return False
             End If
         End If
@@ -9334,7 +9354,7 @@ Partial Class Clientes
         Row("Consec") = TmpDT.Rows.Count + 1
 
         Row("PS") = DrPS("PS")
-        Row("CodigoPS") = DrPS("PSCodigo").ToString
+        Row("CodigoPS") = DrPS("PSCodigo").ToString()
         Row("CveTipoPS") = DrPS("CveTipoPS")
         Row("CveTipoInvPS") = DrPS("Inv_CveMetodoInventario")
         Row("CveTamaño") = DrPS("CveTamaño")
@@ -9345,7 +9365,7 @@ Partial Class Clientes
         Row("PorcentajeIVA") = PorcentajeIVA
 
         Row("IVA") = Row("PorcentajeIVA")
-        Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
+        Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString().ToDecimal() * TotalCalculableImpuestos, NumeroDecimales)
 
 
         Row("ImporteRetIVA") = 0
@@ -9353,7 +9373,7 @@ Partial Class Clientes
         Row("PorcentajeRetIVA") = 0
         Row("PorcentajeRetISR") = 0
         Row("PorcentajeIEPS") = DrPS("IEPSPorcentaje")
-        Row("ImporteIEPS") = Math.Round(DrPS("IEPSPorcentaje").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
+        Row("ImporteIEPS") = Math.Round(DrPS("IEPSPorcentaje").ToString().ToDecimal() * TotalCalculableImpuestos, NumeroDecimales)
         Row("IEPS") = Row("ImporteIEPS")
         Row("Descuento") = Math.Round(Descuento, NumeroDecimales)
         Row("TipoDescuento") = 0
@@ -9394,19 +9414,19 @@ Partial Class Clientes
 
         For Each GvRow As GridViewRow In GvAcum.Rows
             If Tipo = 1 Then
-                If GvRow.DataKey("CveConcepto").ToEntero = 1 And GvRow.FCCheckBox("ChkCargo").Checked Then
-                    SubTotal = SubTotal + GvRow.DataKey("ImporteCargo").ToDecimal
+                If GvRow.DataKey("CveConcepto").ToEntero() = 1 And GvRow.FCCheckBox("ChkCargo").Checked Then
+                    SubTotal = SubTotal + GvRow.DataKey("ImporteCargo").ToDecimal()
                 End If
             ElseIf Tipo = 2 Then
-                If GvRow.DataKey("CveConcepto").ToEntero = 1 And GvRow.FCCheckBox("ChkBonificacion").Checked Then
-                    SubTotal = SubTotal + GvRow.DataKey("ImporteBonificacion").ToDecimal
+                If GvRow.DataKey("CveConcepto").ToEntero() = 1 And GvRow.FCCheckBox("ChkBonificacion").Checked Then
+                    SubTotal = SubTotal + GvRow.DataKey("ImporteBonificacion").ToDecimal()
                 End If
             End If
 
-            CveSubProyecto = GvRow.DataKey("CveSubProyecto").ToEntero
+            CveSubProyecto = GvRow.DataKey("CveSubProyecto").ToEntero()
         Next
 
-        Dim CvePS As Integer = UsuarioActual.Empresa.Funcionalidad(534).ToEntero 'CvePS Distruibuidor Bonificación Nota
+        Dim CvePS As Integer = UsuarioActual.Empresa.Funcionalidad(534).ToEntero() 'CvePS Distruibuidor Bonificación Nota
         Dim CveUnidadMedida As Integer = 0
         Dim CveClasificacion As Integer = 0
         Dim UnidadMedida As String = ""
@@ -9417,11 +9437,11 @@ Partial Class Clientes
             If SubTotal > 0 Then
                 Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).Rows(0)
                 If Dr IsNot Nothing Then
-                    CveUnidadMedida = Dr("CveUnidadMedida").ToString.ToEntero
-                    CveClasificacion = Dr("CveClasificacion").ToString.ToEntero
-                    PS = Dr("PSCodigo").ToString
-                    UnidadMedida = Dr("UnidadMedida").ToString
-                    Clasificacion = Dr("Clasificacion").ToString
+                    CveUnidadMedida = Dr("CveUnidadMedida").ToString().ToEntero()
+                    CveClasificacion = Dr("CveClasificacion").ToString().ToEntero()
+                    PS = Dr("PSCodigo").ToString()
+                    UnidadMedida = Dr("UnidadMedida").ToString()
+                    Clasificacion = Dr("Clasificacion").ToString()
                 End If
                 PorcentajeIVA = 0.16D
                 IVA = SubTotal * PorcentajeIVA
@@ -9430,7 +9450,7 @@ Partial Class Clientes
 
         TmpDT.Rows.Clear()
         TmpDT.AcceptChanges()
-        AgregarProductoServicio(1, CveUnidadMedida, UnidadMedida, CveClasificacion, Clasificacion, CvePS, PS, "Clientes/Usados", SubTotal, 0, -1, "", DdlSubProyecto.SelectedValue.ToEntero,
+        AgregarProductoServicio(1, CveUnidadMedida, UnidadMedida, CveClasificacion, Clasificacion, CvePS, PS, "Clientes/Usados", SubTotal, 0, -1, "", DdlSubProyecto.SelectedValue.ToEntero(),
                                 DdlSubProyecto.SelectedItem.Text, PorcentajeIVA:=PorcentajeIVA)
 
         Dim Folio As Integer = -1
@@ -9465,21 +9485,21 @@ Partial Class Clientes
 
         ObjFactura.Fecha = Now
         ObjFactura.CvePrePoliza = -1
-        'ObjFactura.CveMetodoPago = DdlMetodoPago.SelectedValue.ToEntero
+        'ObjFactura.CveMetodoPago = DdlMetodoPago.SelectedValue.Toentero()
         'ObjFactura.MetodoPago = DdlMetodoPago.SelectedItem.Text
         'ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago.SelectedValue}")
-        ObjFactura.FechaVencimiento = TxtFechaPago.Text.ToDate
+        ObjFactura.FechaVencimiento = TxtFechaPago.Text.ToDate()
 
-        ObjFactura.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero
-        ObjFactura.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero > 0, DdlMetodoPago33.SelectedItem.Text, "")
+        ObjFactura.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero()
+        ObjFactura.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero() > 0, DdlMetodoPago33.SelectedItem.Text, "")
         ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}")
 
-        ObjFactura.CveFormaPago33 = DdlFormaPago33.SelectedValue.ToEntero
-        ObjFactura.FormaPago33 = If(DdlFormaPago33.SelectedValue.ToEntero > 0, DdlFormaPago33.SelectedItem.Text, "")
+        ObjFactura.CveFormaPago33 = DdlFormaPago33.SelectedValue.ToEntero()
+        ObjFactura.FormaPago33 = If(DdlFormaPago33.SelectedValue.ToEntero() > 0, DdlFormaPago33.SelectedItem.Text, "")
         ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {DdlFormaPago33.SelectedValue}")
 
-        ObjFactura.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero
-        ObjFactura.UsoCFDI = If(DdlUsoCFDI.SelectedValue.ToEntero > 0, DdlUsoCFDI.SelectedItem.Text, "")
+        ObjFactura.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero()
+        ObjFactura.UsoCFDI = If(DdlUsoCFDI.SelectedValue.ToEntero() > 0, DdlUsoCFDI.SelectedItem.Text, "")
         ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
 
         ObjFactura.UsuarioCreo = UsuarioActual.Nombre
@@ -9537,14 +9557,14 @@ Partial Class Clientes
         ObjFactura.NumeroPersonas = 0
         ObjFactura.CveContrato = -1
 
-        ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero
+        ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero()
         ObjFactura.Entrega = ""
         ObjFactura.Vigencia = Now
 
         ObjFactura.CveVentaPadre = -1
 
-        ObjFactura.CveVendedor = DdlVendedor.SelectedValue.ToEntero
-        If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
+        ObjFactura.CveVendedor = DdlVendedor.SelectedValue.ToEntero()
+        If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
             DdlVendedor.Enabled = False
         End If
 
@@ -9599,7 +9619,7 @@ Partial Class Clientes
 
         Dim UsadosBonificacion As List(Of Integer) = New List(Of Integer)
         For Each GvRow As GridViewRow In GvAcum.Rows
-            Dim CveMovto As Integer = GvRow.DataKey("CveMovto").ToEntero
+            Dim CveMovto As Integer = GvRow.DataKey("CveMovto").ToEntero()
             If (Tipo = 1 And GvRow.FCCheckBox("ChkCargo").Checked) Or (Tipo = 2 And GvRow.FCCheckBox("ChkBonificacion").Checked) Then
                 UsadosBonificacion.Add(CveMovto)
             End If
@@ -9618,496 +9638,496 @@ Partial Class Clientes
 
         ' ObjFactura.Timbre = PreParaTimbre(ObjFactura)
 
-    End Sub
-
-    'Private Sub PrepararTimbrado(ByRef FM As Modelos.FemsaFactura, ByRef TmpDT7Eleven As DataTable, ByRef TmpDTComplementosTimbrado As DataTable)
-    '    FM.AplicaFEMSA = ChkAplicaFEMSA.Checked
-    '    FM.FEMSA_NumSociedad = ""
-    '    FM.FEMSA_NumProveedor = ""
-    '    FM.FEMSA_Mail = ""
-    '    FM.FEMSA_Version = "".ToEntero
-    '    FM.FEMSA_NumPedido = "".ToEntero
-    '    FM.FEMSA_NumEntrada = ""
-    '    FM.FEMSA_NumRemision = ""
-    '    FM.FEMSA_NumSocio = ""
-    '    FM.FEMSA_CentroCosto = ""
-    '    FM.FEMSA_IPeriodoLiquidacion = ""
-    '    FM.FEMSA_FPeriodoLiquidacion = ""
-    '    FM.FEMSA_CodRetencion1 = ""
-    '    FM.FEMSA_CodRetencion2 = ""
-
-    '    TmpDT7Eleven.Columns.Add("sevenElevenNumProveedor")
-    '    TmpDT7Eleven.Columns.Add("sevenElevenFolio")
-    '    TmpDT7Eleven.Columns.Add("sevenElevenTienda")
-    '    TmpDT7Eleven.Columns.Add("sevenElevenFecha")
-
-    '    Dim Row As DataRow = TmpDT7Eleven.NewRow
-    '    Row("sevenElevenNumProveedor") = ""
-    '    Row("sevenElevenFolio") = ""
-    '    Row("sevenElevenTienda") = ""
-    '    Row("sevenElevenFecha") = ""
-
-    '    TmpDT7Eleven.Rows.Add(Row)
-
-    '    TmpDTComplementosTimbrado.Columns.Add("CveComplemento")
-    '    TmpDTComplementosTimbrado.Columns.Add("IdContabilidad")
-    '    TmpDTComplementosTimbrado.Columns.Add("TipoProceso")
-    '    TmpDTComplementosTimbrado.Columns.Add("TipoAmbito")
-    '    TmpDTComplementosTimbrado.Columns.Add("Entidad")
-
-    '    Dim Row2 As DataRow = TmpDTComplementosTimbrado.NewRow
-    '    Row2("CveComplemento") = -1
-    '    Row2("IdContabilidad") = -1
-    '    Row2("TipoProceso") = -1
-    '    Row2("TipoAmbito") = -1
-    '    Row2("Entidad") = -1
-
-    '    TmpDTComplementosTimbrado.Rows.Add(Row2)
-    'End Sub
-
-    'Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre
-    '    Dim Timbre As New CFDITimbre
-    '    Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
-    '    Timbre.Comprobante.Folio = Obj.Folio.ToString
-    '    Timbre.Comprobante.Serie = Obj.Serie
-    '    Timbre.Comprobante.Fecha = Obj.FechaCP
-    '    Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
-    '    Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
-    '    Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
-    '    Timbre.Comprobante.Subtotal = Obj.SubTotal
-    '    Timbre.Comprobante.Descuentos = Obj.Descuento
-    '    Timbre.Comprobante.Moneda = Obj.MonedaSAT
-    '    Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
-    '    Timbre.Comprobante.Total = Obj.Total
-
-    '    Try
-    '        Obj.SetSubProyecto(Me)
-    '        Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
-    '    Catch ex As Exception
-
-    '    End Try
-
-    '    Timbre.Comprobante.Confirmacion = ""
-
-    '    Timbre.Receptor.RFC = Obj.Cliente.RFC
-    '    Timbre.Receptor.Nombre = Obj.Cliente.Nombre
-    '    Timbre.Receptor.ResidenciaFiscal = ""
-    '    Timbre.Receptor.NumeroRegistroTributario = ""
-    '    Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
-
-
-    '    If Obj.CveTipoRelacion > 0 Then
-    '        Select Case Obj.CveTipoRelacion
-    '            Case 1
-    '                Timbre.CFDIRelacionados.TipoRelacion = "01"
-    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "01-Nota de Crédito aplicada a Ingreso"
-    '            Case 2
-    '                Timbre.CFDIRelacionados.TipoRelacion = "02"
-    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "02-Nota de débito de los documentos relacionados"
-    '            Case 3
-    '                Timbre.CFDIRelacionados.TipoRelacion = "03"
-    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "03-Devolución aplicada a Ingreso"
-    '            Case 4
-    '                Timbre.CFDIRelacionados.TipoRelacion = "04"
-    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "04-Refacturación de Ingreso"
-    '            Case 7
-    '                Timbre.CFDIRelacionados.TipoRelacion = "07"
-    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "07-CFDI por aplicación de anticipo"
-    '            Case 8
-    '                Timbre.CFDIRelacionados.TipoRelacion = "08"
-    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "08-Factura generada por pagos en parcialidades  "
-    '            Case 9
-    '                Timbre.CFDIRelacionados.TipoRelacion = "09"
-    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "09-Factura generada por pagos diferidos"
-
-    '        End Select
-    '    End If
-
-    '    Dim totSubTotal As Decimal = Obj.SubTotal
-    '    Dim totIVA As Decimal = Obj.IVA
-    '    Dim totRetIVA As Decimal = Obj.RetIVA
-    '    Dim totRetISR As Decimal = Obj.RetISR
-    '    Dim TasaRetIVA As Decimal = 0
-    '    Dim TasaRetISR As Decimal = 0
-    '    Dim i As Integer = 1
-
-    '    'detalles
-    '    Dim tPS As String = ""
-
-    '    For Each drr As DataRow In Obj.DtDetalle.Rows
-    '        If drr("PS").ToString.Length = 1 Then
-    '            tPS = drr("Obs").ToString
-    '        Else
-    '            If drr("PS").ToString.Length = 0 Then
-    '                tPS = ""
-    '            Else
-    '                tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
-    '            End If
-    '        End If
-    '        'condicionante, especial
-    '        If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" ' les comentan que no debe de ir la etiqueta de "unidad" en el producto
-
-    '        Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal,
-    '                                                    .Descripcion = tPS,
-    '                                                    .ValorUnitario = drr("PU").ToString.ToDecimal,
-    '                                                    .Importe = drr("TotalImporte").ToString.ToDecimal,
-    '                                                    .Descuento = drr("Descuento").ToString.ToDecimal,
-    '                                                    .Unidad = drr("UM").ToString,
-    '                                                    .ClaveUnidad = drr("SATClaveUM").ToString,
-    '                                                    .ClaveProdServ = drr("SATClaveProdServ").ToString,
-    '                                                    .Noidentificacion = drr("Noidentificacion").ToString,
-    '                                                    .CuentaPredial = drr("CuentaPredial").ToString}
-    '        'verifica suma subtotales
-    '        If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'proceso de ajusta de decimales
-    '            concepto.Importe = totSubTotal
-    '        End If
-    '        totSubTotal = totSubTotal - concepto.Importe
-
-    '        'siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura
-    '        ' If drr("ImporteIVA").ToString.ToDouble > 0 Then
-
-    '        'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos
-    '        If Timbre.Comprobante.Total > 0 Then
-    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
-    '        End If
-
-    '        If drr("ImporteIEPS").ToString.ToDouble > 0 Then
-    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIEPS").ToString.ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString.ToDecimal})
-    '        End If
-
-    '        If drr("ImporteRetIVA").ToString.ToDouble > 0 Then 'si hay retenciones
-    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetIVA, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString.ToDecimal})
-    '        End If
-
-    '        If drr("ImporteRetISR").ToString.ToDouble > 0 Then 'retención de ISR
-    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetISR, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString.ToDecimal})
-    '        End If
-
-    '        Timbre.Conceptos.Add(concepto)
-    '        i += 1
-    '    Next
-
-    '    Return Timbre
-    'End Function
-
-    'Private Function GenerarNotaCredito(CvePS As Integer, Tipo As Integer, CveUnidadMedida As Integer, Importe As Decimal, Iva As Decimal, Descripcion As String, CveClasificacion As Integer) As Boolean
-
-    '    Dim Respuesta As Boolean = False
-
-    '    Dim ObjVentas As New ClsVentas
-    '    Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL())
-    '    Dim ObjAcum As New ClsAcumuladores(ObjVentas.IniciaTransacSQL())
-
-    '    Dim ErrorVentas As Boolean = False
-    '    Dim SubTotal As Decimal = Importe
-    '    Dim Total As Decimal = Importe + Iva
-
-    '    Dim RetIVA As Decimal = 0
-    '    Dim RetISR As Decimal = 0
-    '    Dim TipoCambio As Decimal = 0
-    '    Dim FechaVencimiento As Date = Now
-    '    Dim fecha As Date = Now
-
-    '    Dim Folio As Integer = 0
-    '    Dim Serie As String = ""
-
-    '    If FolioNotaCredito() Then
-    '        Folio = FolioNotaAcumulador
-    '        Serie = SerieNotaAcumulador
-    '    End If
-
-    '    Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero
-
-    '    Dim CveVenta As Integer
-
-    '    If Folio > 0 Then
-
-    '        Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas($"Clientes/{Descripcion}", 1, Total, Total, 1, fecha, "Nota de crédito por Cargo", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-
-    '        If ObjVentas.AddVenta("Egs", Folio, CveCliente.ToEntero, -1, SubTotal, 0, 0, Iva, RetIVA, RetISR, Total, 1, TipoCambio,
-    '                   0, 0, 0, FechaVencimiento, fecha, "", "", fecha, -1, "", "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, -1, 0, CvePrePoliza,
-    '                  UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=CveSubProyecto, CveSubProyectoEjecucion:=CveSubProyecto) Then
-
-    '            CveVenta = ObjVentas.CveVenta
-
-    '            If CveVenta > 0 Then
-    '                If ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, 0.16, SubTotal * 0.16, Descripcion, 0, 0, -1, 0) Then
-
-    '                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, Folio.ToString, 150, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, ImporteMX:=SubTotal, CveSubProyecto:=CveSubProyecto) Then
-    '                        ErrorVentas = True
-    '                    End If
-    '                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio.ToString, 12, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total) Then
-    '                        ErrorVentas = True
-    '                    End If
-    '                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Iva, Folio.ToString, 13, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Iva) Then
-    '                        ErrorVentas = True
-    '                    End If
-
-    '                    If Not ErrorVentas Then
-    '                        For Each GvRow As GridViewRow In GvAcum.Rows
-    '                            Dim CveMovto As Integer = GvRow.DataKey("CveMovto").ToEntero
-
-    '                            If (Tipo = 1 And GvRow.FCCheckBox("ChkCargo").Checked) Or (Tipo = 2 And GvRow.FCCheckBox("ChkBonificacion").Checked) Then
-
-    '                                If ObjAcum.DistribuidorActualizarFacturados(CveMovto, UsuarioActual.CveEmpresa, Tipo, CveVenta) Then
-    '                                    Respuesta = True
-    '                                    ErrorVentas = False
-    '                                    CveVentaNota = CveVenta
-    '                                Else
-    '                                    Respuesta = False
-    '                                    ErrorVentas = True
-    '                                    CveVentaNota = 0
-    '                                    Exit For
-    '                                End If
-
-    '                            End If
-    '                        Next
-    '                    End If
-
-
-    '                    If Not ErrorVentas Then
-    '                        Alert($"Nota de crédito generada correctamente <a href='./Ventas.aspx?CveVenta={CveVenta}' >{Serie}-{Folio}</a>")
-    '                    End If
-
-
-    '                Else
-    '                    ErrorVentas = True
-    '                End If
-    '            Else
-    '                ErrorVentas = True
-    '            End If
-
-    '        Else
-    '            ErrorVentas = True
-    '        End If
-    '    Else
-    '        Alert("No se pudo obtener el Folio.", TipoMensaje.MsgError)
-    '    End If
-
-
-
-    '    If ErrorVentas Then
-    '        ObjVentas.RollBack()
-    '    Else
-
-    '        ObjVentas.Commit()
-    '        CargaUsados()
-
-    '        'Dim DtDetallesVenta As New DataTable
-
-    '        'If ObjVentas.GetVentaDetalle(CveVenta) Then
-
-    '        '    DtDetallesVenta = ObjVentas.DtResultados
-    '        '    'CreaObjetosVenta(CveVenta, Serie, Folio, SubTotal, Iva, DtDetallesVenta)
-
-    '        '    ObjFactura.Timbre = PreParaTimbre(ObjFactura, ObjFactura.CveSubProyecto)
-
-    '        '    Dim ObjTimbrado As New Timbrado
-    '        '    Dim SeTimbro As Boolean = False
-
-    '        '    SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
-
-    '        '    If SeTimbro Then
-    '        '        Alert("Se timbro correctamente")
-    '        '    Else
-    '        '        Alert("No se pudo timbrar,  intente mas tarde.", TipoMensaje.MsgError)
-    '        '    End If
-
-    '        'Else
-    '        '    Alert("No se pudo timbrar, no se pudieron obtener los detalles de la venta.", TipoMensaje.MsgError)
-    '        'End If
-
-    '    End If
-
-
-
-    '    ObjVentas.Dispose()
-    '    Return Respuesta
-
-    'End Function
-    'Private Function generaNC(CveVenta As Integer, ByRef ObjVentas As ClsVentas, ByVal factura As Modelos.Factura) As List(Of Object)
-
-    '    Dim Obj As New List(Of Object)
-    '    Dim CveVentaNueva As Integer = ObjVentas.CveVenta
-    '    Dim BanderaGeneraNC As Boolean = False
-    '    If UsuarioActual.CveEmpresa.Contiene(1, 119) Then BanderaGeneraNC = True
-
-    '    If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
-    '        If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
-    '            Dim drv As DataRow = ObjVentas.DtResultados.Rows(0)
-    '            Dim TmpDTconceptos As DataTable = Nothing
-
-    '            ''CargaCliente
-
-    '            Dim CveCliente As Integer = drv("CveCliente").ToString.ToEntero
-    '            If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 AndAlso Not CveCliente.Contiene(10450, 10460, 10458) Then
-    '                Return Nothing
-    '            ElseIf UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 21 AndAlso Not CveCliente.Contiene(27448) Then
-    '                Return Nothing
-    '            End If
-    '            factura.TipoDocto = drv("TipoDocto").ToString
-    '            factura.Serie = drv("Serie").ToString
-    '            factura.FechaEjecucion = drv("FechaEjecucion").ToString.ToDateTime
-    '            factura.Fecha = drv("Fecha").ToString.ToDateTime
-    '            factura.CveSubProyectoEjecucion = drv("CveSubProyectoEjecucion").ToString.ToEntero
-    '            factura.CveSubProyectoCobranza = drv("CveSubProyectoCobranza").ToString.ToEntero
-    '            factura.CveClienteSucursal = drv("CveClienteSucursal").ToString.ToEntero
-    '            factura.CveSubProyecto = drv("CveSubProyecto").ToString.ToEntero
-
-
-    '            ''CargaDetalle
-    '            If ObjVentas.GetVentaDetalle(CveVenta) Then
-    '                TmpDTconceptos = ObjVentas.DtResultados
-    '                TmpDTconceptos.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
-    '                GvPS.DataSource = TmpDTconceptos
-    '                GvPS.DataBind()
-    '            End If
-
-    '            '' Carga Totales
-    '            factura.SubTotal = drv("SubTotal").ToString.ToDecimal
-    '            factura.Descuento = drv("Descuento").ToString.ToDecimal
-    '            factura.Amortizacion = drv("Amortizacion").ToString.ToDecimal
-    '            factura.IVA = drv("IVA").ToString.ToDecimal
-    '            factura.RetIVA = drv("RetIVA").ToString.ToDecimal
-    '            factura.RetISR = drv("RetISR").ToString.ToDecimal
-    '            factura.Total = drv("Total").ToString.ToDecimal
-    '            factura.MotivoDescuento = drv("MotivoDescuento").ToString
-    '            factura.Observaciones = drv("Observaciones").ToString
-    '            factura.CveMoneda = drv("CveMoneda").ToString.ToEntero
-    '            factura.TipoCambio = drv("TipoCambio").ToString.ToDecimal
-    '            factura.CveVendedor = drv("CveVendedor").ToString.ToEntero
-    '            factura.RefDocto = drv("Ref").ToString
-
-    '            If factura.CveCliente > 0 Then
-    '                If Not IsNothing(TmpDTconceptos) AndAlso TmpDTconceptos.Rows.Count > 0 Then
-
-    '                    If Not drv("Total").ToString.ToDecimal = factura.Total Then
-    '                        Return Nothing
-    '                    End If
-
-
-
-    '                End If
-    '            End If
-    '        End If
-    '    End If
-
-    '    If Obj.Count > 0 Then
-    '        Return Obj
-    '    Else
-    '        Return Nothing
-    '    End If
-
-    'End Function
-
-    'Private Function PreParaTimbre(Obj As Modelos.Factura, CveSubProyecto As Integer) As CFDITimbre
-
-    '    Dim Timbre As New CFDITimbre
-    '    Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
-    '    Timbre.Comprobante.Folio = Obj.Folio.ToString
-    '    Timbre.Comprobante.Serie = Obj.Serie
-    '    Timbre.Comprobante.Fecha = Obj.Fecha
-    '    Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
-    '    Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
-    '    Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
-    '    Timbre.Comprobante.Subtotal = Obj.SubTotal
-
-    '    Timbre.Comprobante.Descuentos = Obj.Descuento
-    '    Timbre.Comprobante.Moneda = Obj.MonedaSAT
-    '    Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
-    '    Timbre.Comprobante.Total = Obj.Total
-
-    '    Try
-    '        Obj.SetSubProyecto(Me)
-    '        Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
-    '    Catch ex As Exception
-
-    '    End Try
-
-    '    Timbre.Comprobante.Confirmacion = ""
-
-    '    Timbre.Receptor.RFC = TxtRFC.Text
-    '    Timbre.Receptor.Nombre = TxtNombre.Text
-    '    Timbre.Receptor.ResidenciaFiscal = ""
-    '    Timbre.Receptor.NumeroRegistroTributario = ""
-    '    Timbre.Receptor.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
-
-    '    Dim totSubTotal As Decimal = Obj.SubTotal
-    '    Dim totIVA As Decimal = Obj.IVA
-    '    Dim totRetIVA As Decimal = Obj.RetIVA
-    '    Dim totRetISR As Decimal = Obj.RetISR
-    '    Dim TasaRetIVA As Decimal = 0
-    '    Dim TasaRetISR As Decimal = 0
-    '    Dim i As Integer = 1
-
-    '    ''detalles
-    '    Dim tPS As String = ""
-
-    '    For Each drr As DataRow In Obj.DtDetalle.Rows
-    '        If drr("PS").ToString.Length = 1 Then
-    '            tPS = drr("Obs").ToString
-    '        Else
-    '            If drr("PS").ToString.Length = 0 Then
-    '                tPS = ""
-    '            Else
-    '                tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
-    '            End If
-    '        End If
-    '        '' condicionante, especial
-    '        If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" ' les comentan que no debe de ir la etiqueta de "unidad" en el producto
-
-    '        Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal,
-    '                                                .Descripcion = tPS,
-    '                                                .ValorUnitario = drr("PU").ToString.ToDecimal,
-    '                                                .Importe = drr("TotalImporte").ToString.ToDecimal,
-    '                                                .Descuento = drr("Descuento").ToString.ToDecimal,
-    '                                                .Unidad = drr("UM").ToString,
-    '                                                .ClaveUnidad = drr("SATClaveUM").ToString,
-    '                                                .ClaveProdServ = drr("SATClaveProdServ").ToString,
-    '                                                .Noidentificacion = drr("Noidentificacion").ToString,
-    '                                                .CuentaPredial = drr("CuentaPredial").ToString}
-    '        '' verifica suma subtotales
-    '        If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'proceso de ajusta de decimales
-    '            concepto.Importe = totSubTotal
-    '        End If
-    '        totSubTotal = totSubTotal - concepto.Importe
-
-    '        ''siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura
-    '        If drr("ImporteIVA").ToString.ToDouble > 0 Then
-    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
-    '        End If
-
-    '        If drr("ImporteIEPS").ToString.ToDouble > 0 Then
-    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIEPS").ToString.ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString.ToDecimal})
-    '        End If
-
-    '        If drr("ImporteRetIVA").ToString.ToDouble > 0 Then 'si hay retenciones
-    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetIVA, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString.ToDecimal})
-    '        End If
-
-    '        If drr("ImporteRetISR").ToString.ToDouble > 0 Then 'retención de ISR
-    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetISR, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString.ToDecimal})
-    '        End If
-
-    '        Timbre.Conceptos.Add(concepto)
-    '        i += 1
-    '    Next
-
-    '    Dim AplicaComercioExteriorSubProyecto As Boolean = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto)(0)("AplicaComercioExterior").ToString = "True", True, False)
-    '    Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
-
-    '    If Obj.Cliente.AplicaComercioExterior And AplicaComercioExteriorSubProyecto Then
-
-    '        Timbre.Receptor.ResidenciaFiscal = Obj.Cliente.ClaveSATPais
-    '        Timbre.Receptor.NumeroRegistroTributario = Obj.Cliente.NumRegIdTrib
-
-    '    End If
-
-    '    Return Timbre
-    'End Function
-
+    End Sub
+
+    'Private Sub PrepararTimbrado(ByRef FM As Modelos.FemsaFactura, ByRef TmpDT7Eleven As DataTable, ByRef TmpDTComplementosTimbrado As DataTable)
+    '    FM.AplicaFEMSA = ChkAplicaFEMSA.Checked
+    '    FM.FEMSA_NumSociedad = ""
+    '    FM.FEMSA_NumProveedor = ""
+    '    FM.FEMSA_Mail = ""
+    '    FM.FEMSA_Version = "".Toentero()
+    '    FM.FEMSA_NumPedido = "".Toentero()
+    '    FM.FEMSA_NumEntrada = ""
+    '    FM.FEMSA_NumRemision = ""
+    '    FM.FEMSA_NumSocio = ""
+    '    FM.FEMSA_CentroCosto = ""
+    '    FM.FEMSA_IPeriodoLiquidacion = ""
+    '    FM.FEMSA_FPeriodoLiquidacion = ""
+    '    FM.FEMSA_CodRetencion1 = ""
+    '    FM.FEMSA_CodRetencion2 = ""
+
+    '    TmpDT7Eleven.Columns.Add("sevenElevenNumProveedor")
+    '    TmpDT7Eleven.Columns.Add("sevenElevenFolio")
+    '    TmpDT7Eleven.Columns.Add("sevenElevenTienda")
+    '    TmpDT7Eleven.Columns.Add("sevenElevenFecha")
+
+    '    Dim Row As DataRow = TmpDT7Eleven.NewRow
+    '    Row("sevenElevenNumProveedor") = ""
+    '    Row("sevenElevenFolio") = ""
+    '    Row("sevenElevenTienda") = ""
+    '    Row("sevenElevenFecha") = ""
+
+    '    TmpDT7Eleven.Rows.Add(Row)
+
+    '    TmpDTComplementosTimbrado.Columns.Add("CveComplemento")
+    '    TmpDTComplementosTimbrado.Columns.Add("IdContabilidad")
+    '    TmpDTComplementosTimbrado.Columns.Add("TipoProceso")
+    '    TmpDTComplementosTimbrado.Columns.Add("TipoAmbito")
+    '    TmpDTComplementosTimbrado.Columns.Add("Entidad")
+
+    '    Dim Row2 As DataRow = TmpDTComplementosTimbrado.NewRow
+    '    Row2("CveComplemento") = -1
+    '    Row2("IdContabilidad") = -1
+    '    Row2("TipoProceso") = -1
+    '    Row2("TipoAmbito") = -1
+    '    Row2("Entidad") = -1
+
+    '    TmpDTComplementosTimbrado.Rows.Add(Row2)
+    'End Sub
+
+    'Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre
+    '    Dim Timbre As New CFDITimbre
+    '    Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
+    '    Timbre.Comprobante.Folio = Obj.Folio.ToString()
+    '    Timbre.Comprobante.Serie = Obj.Serie
+    '    Timbre.Comprobante.Fecha = Obj.FechaCP
+    '    Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
+    '    Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
+    '    Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
+    '    Timbre.Comprobante.Subtotal = Obj.SubTotal
+    '    Timbre.Comprobante.Descuentos = Obj.Descuento
+    '    Timbre.Comprobante.Moneda = Obj.MonedaSAT
+    '    Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString())
+    '    Timbre.Comprobante.Total = Obj.Total
+
+    '    Try
+    '        Obj.SetSubProyecto(Me)
+    '        Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
+    '    Catch ex As Exception
+
+    '    End Try
+
+    '    Timbre.Comprobante.Confirmacion = ""
+
+    '    Timbre.Receptor.RFC = Obj.Cliente.RFC
+    '    Timbre.Receptor.Nombre = Obj.Cliente.Nombre
+    '    Timbre.Receptor.ResidenciaFiscal = ""
+    '    Timbre.Receptor.NumeroRegistroTributario = ""
+    '    Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
+
+
+    '    If Obj.CveTipoRelacion > 0 Then
+    '        Select Case Obj.CveTipoRelacion
+    '            Case 1
+    '                Timbre.CFDIRelacionados.TipoRelacion = "01"
+    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "01-Nota de Crédito aplicada a Ingreso"
+    '            Case 2
+    '                Timbre.CFDIRelacionados.TipoRelacion = "02"
+    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "02-Nota de débito de los documentos relacionados"
+    '            Case 3
+    '                Timbre.CFDIRelacionados.TipoRelacion = "03"
+    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "03-Devolución aplicada a Ingreso"
+    '            Case 4
+    '                Timbre.CFDIRelacionados.TipoRelacion = "04"
+    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "04-Refacturación de Ingreso"
+    '            Case 7
+    '                Timbre.CFDIRelacionados.TipoRelacion = "07"
+    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "07-CFDI por aplicación de anticipo"
+    '            Case 8
+    '                Timbre.CFDIRelacionados.TipoRelacion = "08"
+    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "08-Factura generada por pagos en parcialidades  "
+    '            Case 9
+    '                Timbre.CFDIRelacionados.TipoRelacion = "09"
+    '                Timbre.CFDIRelacionados.TipoRelacionTexto = "09-Factura generada por pagos diferidos"
+
+    '        End Select
+    '    End If
+
+    '    Dim totSubTotal As Decimal = Obj.SubTotal
+    '    Dim totIVA As Decimal = Obj.IVA
+    '    Dim totRetIVA As Decimal = Obj.RetIVA
+    '    Dim totRetISR As Decimal = Obj.RetISR
+    '    Dim TasaRetIVA As Decimal = 0
+    '    Dim TasaRetISR As Decimal = 0
+    '    Dim i As Integer = 1
+
+    '    'detalles
+    '    Dim tPS As String = ""
+
+    '    For Each drr As DataRow In Obj.DtDetalle.Rows
+    '        If drr("PS").ToString().Length = 1 Then
+    '            tPS = drr("Obs").ToString()
+    '        Else
+    '            If drr("PS").ToString().Length = 0 Then
+    '                tPS = ""
+    '            Else
+    '                tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
+    '            End If
+    '        End If
+    '        'condicionante, especial
+    '        If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" ' les comentan que no debe de ir la etiqueta de "unidad" en el producto
+
+    '        Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString().ToDecimal(),
+    '                                                    .Descripcion = tPS,
+    '                                                    .ValorUnitario = drr("PU").ToString().ToDecimal(),
+    '                                                    .Importe = drr("TotalImporte").ToString().ToDecimal(),
+    '                                                    .Descuento = drr("Descuento").ToString().ToDecimal(),
+    '                                                    .Unidad = drr("UM").ToString(),
+    '                                                    .ClaveUnidad = drr("SATClaveUM").ToString(),
+    '                                                    .ClaveProdServ = drr("SATClaveProdServ").ToString(),
+    '                                                    .Noidentificacion = drr("Noidentificacion").ToString(),
+    '                                                    .CuentaPredial = drr("CuentaPredial").ToString()}
+    '        'verifica suma subtotales
+    '        If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'proceso de ajusta de decimales
+    '            concepto.Importe = totSubTotal
+    '        End If
+    '        totSubTotal = totSubTotal - concepto.Importe
+
+    '        'siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura
+    '        ' If drr("ImporteIVA").ToString().ToDouble > 0 Then
+
+    '        'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos
+    '        If Timbre.Comprobante.Total > 0 Then
+    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString().ToDecimal(), .Impuesto = "002", .Importe = drr("ImporteIVA").ToString().ToDecimal()})
+    '        End If
+
+    '        If drr("ImporteIEPS").ToString().ToDouble > 0 Then
+    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIEPS").ToString().ToDecimal(), .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString().ToDecimal()})
+    '        End If
+
+    '        If drr("ImporteRetIVA").ToString().ToDouble > 0 Then 'si hay retenciones
+    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetIVA, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString().ToDecimal()})
+    '        End If
+
+    '        If drr("ImporteRetISR").ToString().ToDouble > 0 Then 'retención de ISR
+    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetISR, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString().ToDecimal()})
+    '        End If
+
+    '        Timbre.Conceptos.Add(concepto)
+    '        i += 1
+    '    Next
+
+    '    Return Timbre
+    'End Function
+
+    'Private Function GenerarNotaCredito(CvePS As Integer, Tipo As Integer, CveUnidadMedida As Integer, Importe As Decimal, Iva As Decimal, Descripcion As String, CveClasificacion As Integer) As Boolean
+
+    '    Dim Respuesta As Boolean = False
+
+    '    Dim ObjVentas As New ClsVentas
+    '    Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL())
+    '    Dim ObjAcum As New ClsAcumuladores(ObjVentas.IniciaTransacSQL())
+
+    '    Dim ErrorVentas As Boolean = False
+    '    Dim SubTotal As Decimal = Importe
+    '    Dim Total As Decimal = Importe + Iva
+
+    '    Dim RetIVA As Decimal = 0
+    '    Dim RetISR As Decimal = 0
+    '    Dim TipoCambio As Decimal = 0
+    '    Dim FechaVencimiento As Date = Now
+    '    Dim fecha As Date = Now
+
+    '    Dim Folio As Integer = 0
+    '    Dim Serie As String = ""
+
+    '    If FolioNotaCredito() Then
+    '        Folio = FolioNotaAcumulador
+    '        Serie = SerieNotaAcumulador
+    '    End If
+
+    '    Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.Toentero()
+
+    '    Dim CveVenta As Integer
+
+    '    If Folio > 0 Then
+
+    '        Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas($"Clientes/{Descripcion}", 1, Total, Total, 1, fecha, "Nota de crédito por Cargo", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+    '        If ObjVentas.AddVenta("Egs", Folio, CveCliente.Toentero(), -1, SubTotal, 0, 0, Iva, RetIVA, RetISR, Total, 1, TipoCambio,
+    '                   0, 0, 0, FechaVencimiento, fecha, "", "", fecha, -1, "", "", "", 0, 0, 0, "-1".ToDate(), "-1".ToDate(), "-1".ToDate(), -1, -1, 0, CvePrePoliza,
+    '                  UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=CveSubProyecto, CveSubProyectoEjecucion:=CveSubProyecto) Then
+
+    '            CveVenta = ObjVentas.CveVenta
+
+    '            If CveVenta > 0 Then
+    '                If ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, 0.16, SubTotal * 0.16, Descripcion, 0, 0, -1, 0) Then
+
+    '                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, Folio.ToString(), 150, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, ImporteMX:=SubTotal, CveSubProyecto:=CveSubProyecto) Then
+    '                        ErrorVentas = True
+    '                    End If
+    '                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio.ToString(), 12, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total) Then
+    '                        ErrorVentas = True
+    '                    End If
+    '                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Iva, Folio.ToString(), 13, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Iva) Then
+    '                        ErrorVentas = True
+    '                    End If
+
+    '                    If Not ErrorVentas Then
+    '                        For Each GvRow As GridViewRow In GvAcum.Rows
+    '                            Dim CveMovto As Integer = GvRow.DataKey("CveMovto").Toentero()
+
+    '                            If (Tipo = 1 And GvRow.FCCheckBox("ChkCargo").Checked) Or (Tipo = 2 And GvRow.FCCheckBox("ChkBonificacion").Checked) Then
+
+    '                                If ObjAcum.DistribuidorActualizarFacturados(CveMovto, UsuarioActual.CveEmpresa, Tipo, CveVenta) Then
+    '                                    Respuesta = True
+    '                                    ErrorVentas = False
+    '                                    CveVentaNota = CveVenta
+    '                                Else
+    '                                    Respuesta = False
+    '                                    ErrorVentas = True
+    '                                    CveVentaNota = 0
+    '                                    Exit For
+    '                                End If
+
+    '                            End If
+    '                        Next
+    '                    End If
+
+
+    '                    If Not ErrorVentas Then
+    '                        Alert($"Nota de crédito generada correctamente <a href='./Ventas.aspx?CveVenta={CveVenta}' >{Serie}-{Folio}</a>")
+    '                    End If
+
+
+    '                Else
+    '                    ErrorVentas = True
+    '                End If
+    '            Else
+    '                ErrorVentas = True
+    '            End If
+
+    '        Else
+    '            ErrorVentas = True
+    '        End If
+    '    Else
+    '        Alert("No se pudo obtener el Folio.", TipoMensaje.MsgError)
+    '    End If
+
+
+
+    '    If ErrorVentas Then
+    '        ObjVentas.RollBack()
+    '    Else
+
+    '        ObjVentas.Commit()
+    '        CargaUsados()
+
+    '        'Dim DtDetallesVenta As New DataTable
+
+    '        'If ObjVentas.GetVentaDetalle(CveVenta) Then
+
+    '        '    DtDetallesVenta = ObjVentas.DtResultados
+    '        '    'CreaObjetosVenta(CveVenta, Serie, Folio, SubTotal, Iva, DtDetallesVenta)
+
+    '        '    ObjFactura.Timbre = PreParaTimbre(ObjFactura, ObjFactura.CveSubProyecto)
+
+    '        '    Dim ObjTimbrado As New Timbrado
+    '        '    Dim SeTimbro As Boolean = False
+
+    '        '    SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
+
+    '        '    If SeTimbro Then
+    '        '        Alert("Se timbro correctamente")
+    '        '    Else
+    '        '        Alert("No se pudo timbrar,  intente mas tarde.", TipoMensaje.MsgError)
+    '        '    End If
+
+    '        'Else
+    '        '    Alert("No se pudo timbrar, no se pudieron obtener los detalles de la venta.", TipoMensaje.MsgError)
+    '        'End If
+
+    '    End If
+
+
+
+    '    ObjVentas.Dispose()
+    '    Return Respuesta
+
+    'End Function
+    'Private Function generaNC(CveVenta As Integer, ByRef ObjVentas As ClsVentas, ByVal factura As Modelos.Factura) As List(Of Object)
+
+    '    Dim Obj As New List(Of Object)
+    '    Dim CveVentaNueva As Integer = ObjVentas.CveVenta
+    '    Dim BanderaGeneraNC As Boolean = False
+    '    If UsuarioActual.CveEmpresa.Contiene(1, 119) Then BanderaGeneraNC = True
+
+    '    If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
+    '        If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
+    '            Dim drv As DataRow = ObjVentas.DtResultados.Rows(0)
+    '            Dim TmpDTconceptos As DataTable = Nothing
+
+    '            ''CargaCliente
+
+    '            Dim CveCliente As Integer = drv("CveCliente").ToString().Toentero()
+    '            If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 AndAlso Not CveCliente.Contiene(10450, 10460, 10458) Then
+    '                Return Nothing
+    '            ElseIf UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 21 AndAlso Not CveCliente.Contiene(27448) Then
+    '                Return Nothing
+    '            End If
+    '            factura.TipoDocto = drv("TipoDocto").ToString()
+    '            factura.Serie = drv("Serie").ToString()
+    '            factura.FechaEjecucion = drv("FechaEjecucion").ToString().ToDate()Time
+    '            factura.Fecha = drv("Fecha").ToString().ToDate()Time
+    '            factura.CveSubProyectoEjecucion = drv("CveSubProyectoEjecucion").ToString().Toentero()
+    '            factura.CveSubProyectoCobranza = drv("CveSubProyectoCobranza").ToString().Toentero()
+    '            factura.CveClienteSucursal = drv("CveClienteSucursal").ToString().Toentero()
+    '            factura.CveSubProyecto = drv("CveSubProyecto").ToString().Toentero()
+
+
+    '            ''CargaDetalle
+    '            If ObjVentas.GetVentaDetalle(CveVenta) Then
+    '                TmpDTconceptos = ObjVentas.DtResultados
+    '                TmpDTconceptos.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
+    '                GvPS.DataSource = TmpDTconceptos
+    '                GvPS.DataBind()
+    '            End If
+
+    '            '' Carga Totales
+    '            factura.SubTotal = drv("SubTotal").ToString().ToDecimal()
+    '            factura.Descuento = drv("Descuento").ToString().ToDecimal()
+    '            factura.Amortizacion = drv("Amortizacion").ToString().ToDecimal()
+    '            factura.IVA = drv("IVA").ToString().ToDecimal()
+    '            factura.RetIVA = drv("RetIVA").ToString().ToDecimal()
+    '            factura.RetISR = drv("RetISR").ToString().ToDecimal()
+    '            factura.Total = drv("Total").ToString().ToDecimal()
+    '            factura.MotivoDescuento = drv("MotivoDescuento").ToString()
+    '            factura.Observaciones = drv("Observaciones").ToString()
+    '            factura.CveMoneda = drv("CveMoneda").ToString().Toentero()
+    '            factura.TipoCambio = drv("TipoCambio").ToString().ToDecimal()
+    '            factura.CveVendedor = drv("CveVendedor").ToString().Toentero()
+    '            factura.RefDocto = drv("Ref").ToString()
+
+    '            If factura.CveCliente > 0 Then
+    '                If Not IsNothing(TmpDTconceptos) AndAlso TmpDTconceptos.Rows.Count > 0 Then
+
+    '                    If Not drv("Total").ToString().ToDecimal() = factura.Total Then
+    '                        Return Nothing
+    '                    End If
+
+
+
+    '                End If
+    '            End If
+    '        End If
+    '    End If
+
+    '    If Obj.Count > 0 Then
+    '        Return Obj
+    '    Else
+    '        Return Nothing
+    '    End If
+
+    'End Function
+
+    'Private Function PreParaTimbre(Obj As Modelos.Factura, CveSubProyecto As Integer) As CFDITimbre
+
+    '    Dim Timbre As New CFDITimbre
+    '    Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
+    '    Timbre.Comprobante.Folio = Obj.Folio.ToString()
+    '    Timbre.Comprobante.Serie = Obj.Serie
+    '    Timbre.Comprobante.Fecha = Obj.Fecha
+    '    Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
+    '    Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
+    '    Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
+    '    Timbre.Comprobante.Subtotal = Obj.SubTotal
+
+    '    Timbre.Comprobante.Descuentos = Obj.Descuento
+    '    Timbre.Comprobante.Moneda = Obj.MonedaSAT
+    '    Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString())
+    '    Timbre.Comprobante.Total = Obj.Total
+
+    '    Try
+    '        Obj.SetSubProyecto(Me)
+    '        Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
+    '    Catch ex As Exception
+
+    '    End Try
+
+    '    Timbre.Comprobante.Confirmacion = ""
+
+    '    Timbre.Receptor.RFC = TxtRFC.Text
+    '    Timbre.Receptor.Nombre = TxtNombre.Text
+    '    Timbre.Receptor.ResidenciaFiscal = ""
+    '    Timbre.Receptor.NumeroRegistroTributario = ""
+    '    Timbre.Receptor.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
+
+    '    Dim totSubTotal As Decimal = Obj.SubTotal
+    '    Dim totIVA As Decimal = Obj.IVA
+    '    Dim totRetIVA As Decimal = Obj.RetIVA
+    '    Dim totRetISR As Decimal = Obj.RetISR
+    '    Dim TasaRetIVA As Decimal = 0
+    '    Dim TasaRetISR As Decimal = 0
+    '    Dim i As Integer = 1
+
+    '    ''detalles
+    '    Dim tPS As String = ""
+
+    '    For Each drr As DataRow In Obj.DtDetalle.Rows
+    '        If drr("PS").ToString().Length = 1 Then
+    '            tPS = drr("Obs").ToString()
+    '        Else
+    '            If drr("PS").ToString().Length = 0 Then
+    '                tPS = ""
+    '            Else
+    '                tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
+    '            End If
+    '        End If
+    '        '' condicionante, especial
+    '        If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" ' les comentan que no debe de ir la etiqueta de "unidad" en el producto
+
+    '        Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString().ToDecimal(),
+    '                                                .Descripcion = tPS,
+    '                                                .ValorUnitario = drr("PU").ToString().ToDecimal(),
+    '                                                .Importe = drr("TotalImporte").ToString().ToDecimal(),
+    '                                                .Descuento = drr("Descuento").ToString().ToDecimal(),
+    '                                                .Unidad = drr("UM").ToString(),
+    '                                                .ClaveUnidad = drr("SATClaveUM").ToString(),
+    '                                                .ClaveProdServ = drr("SATClaveProdServ").ToString(),
+    '                                                .Noidentificacion = drr("Noidentificacion").ToString(),
+    '                                                .CuentaPredial = drr("CuentaPredial").ToString()}
+    '        '' verifica suma subtotales
+    '        If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'proceso de ajusta de decimales
+    '            concepto.Importe = totSubTotal
+    '        End If
+    '        totSubTotal = totSubTotal - concepto.Importe
+
+    '        ''siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura
+    '        If drr("ImporteIVA").ToString().ToDouble > 0 Then
+    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString().ToDecimal(), .Impuesto = "002", .Importe = drr("ImporteIVA").ToString().ToDecimal()})
+    '        End If
+
+    '        If drr("ImporteIEPS").ToString().ToDouble > 0 Then
+    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIEPS").ToString().ToDecimal(), .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString().ToDecimal()})
+    '        End If
+
+    '        If drr("ImporteRetIVA").ToString().ToDouble > 0 Then 'si hay retenciones
+    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetIVA, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString().ToDecimal()})
+    '        End If
+
+    '        If drr("ImporteRetISR").ToString().ToDouble > 0 Then 'retención de ISR
+    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetISR, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString().ToDecimal()})
+    '        End If
+
+    '        Timbre.Conceptos.Add(concepto)
+    '        i += 1
+    '    Next
+
+    '    Dim AplicaComercioExteriorSubProyecto As Boolean = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto)(0)("AplicaComercioExterior").ToString() = "True", True, False)
+    '    Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
+
+    '    If Obj.Cliente.AplicaComercioExterior And AplicaComercioExteriorSubProyecto Then
+
+    '        Timbre.Receptor.ResidenciaFiscal = Obj.Cliente.ClaveSATPais
+    '        Timbre.Receptor.NumeroRegistroTributario = Obj.Cliente.NumRegIdTrib
+
+    '    End If
+
+    '    Return Timbre
+    'End Function
+
 #End Region
-
+
 #Region "C L I E N T E S    G R I D S   I M P R I M I R   P D F/Excel"
     Private Sub LnkCotizacionesPDF_Click(sender As Object, e As EventArgs) Handles LnkCotizacionesPDF.Click
         ImprimeGridsProveedores("PDF", DtCotizaciones, "RepClientesCotizaciones")
@@ -10182,7 +10202,7 @@ Partial Class Clientes
         End If
         Acum.Dispose()
 
-    End Sub
+    End Sub
 #End Region
     Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)
         If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
@@ -10266,7 +10286,7 @@ Partial Class Clientes
 
     Protected Sub EditClientesPersonalEntrega_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
-        CveClientePersonalEntrega = GvRow.DataKey("CvePersonalEntrega").ToEntero
+        CveClientePersonalEntrega = GvRow.DataKey("CvePersonalEntrega").ToEntero()
         TxtPersonalEntrega.Text = GvRow.DataKey("PersonalEntrega")
         ChkPersonalEntrega.Checked = GvRow.DataKey("Estatus") = "True"
         LnkClientePersonalEntrega.Text = "Actualizar"
@@ -10277,7 +10297,7 @@ Partial Class Clientes
     Protected Sub DeleteClientesPersonalEntrega_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
         Dim ObjVentas As New ClsVentas()
-        If ObjVentas.RemoveClientesPersonalEntrega(GvRow.DataKey("CvePersonalEntrega").ToEntero) Then
+        If ObjVentas.RemoveClientesPersonalEntrega(GvRow.DataKey("CvePersonalEntrega").ToEntero()) Then
             Alert("Usuario para entregar eliminado correctamente")
         End If
         ObjVentas.Dispose()
diff --git a/Ventas/RepVentasUtilidadDetalle.aspx b/Ventas/RepVentasUtilidadDetalle.aspx
index 5a9551967..cdaae3089 100644
--- a/Ventas/RepVentasUtilidadDetalle.aspx
+++ b/Ventas/RepVentasUtilidadDetalle.aspx
@@ -413,11 +413,11 @@
      <asp:UpdatePanel ID="UpEncabezado" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <div id="dvCa" style="width:100%;top:40px">
-            <table id="dTable" class="correcto table  Widthall Titulos"><tr>    
-                <td id="Td1" runat="server" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px; width:25%;"><b>Producto</b></td>                   
-                <td id="dvInv" runat="server" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px; width:30%; border-left-color: white!important;border-style: solid;border-right-color: white!important;"><b>Venta</b></td>                
-                <td id="dvVen" runat="server" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px; border-right-color: white!important;border-left-color: white!important;width:15%;border-style: solid;"><b>Costo</b></td>                  
-                <td id="dvUt" runat="server"  class="dataTables_scrollHead" style="text-align:center!important;width: 15%;font-size:14px; "><b>Utilidad/Pérdida</b></td>
+            <table id="dTable" class="correcto table  Widthall Titulos tableheader"><tr>    
+                <th id="Td1" runat="server" colspan="4" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px;"  ><b>Producto</b></th>                   
+                <th id="dvInv" runat="server" colspan="6" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px;   border-left-color: white!important;border-style: solid;border-right-color: white!important;"><b>Venta</b></th>                
+                <th id="dvVen" runat="server" colspan="3" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px; border-right-color: white!important;border-left-color: white!important; border-style: solid;"><b>Costo</b></th>                  
+                <th id="dvUt" runat="server" colspan="4" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px; "><b>Utilidad/Pérdida</b></th>
             </tr></table>
         </div>
         </ContentTemplate>
@@ -426,10 +426,11 @@
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
 
-            <asp:GridView ID="GvDatos" runat="server" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas Utilidad con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas Utilidad con los filtros especificados" data-tableheader=".tableheader"
+                oolTip="Listado de Ventas" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
                 <Columns>
                         
-                        <asp:BoundField HeaderText="TipoDocto" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" />
+                        <asp:BoundField HeaderText="Tipo docto." DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" />
 
                         <asp:TemplateField HeaderText="Cant." ItemStyle-HorizontalAlign="Center">
                         <ItemTemplate>
@@ -443,7 +444,7 @@
                         </ItemTemplate>
                     </asp:TemplateField>
 
-                      <asp:TemplateField HeaderText="PS"  ItemStyle-HorizontalAlign="Left">
+                      <asp:TemplateField HeaderText="Producto"  ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
                             <asp:Label ID="LbPS" runat="server" Text='<%# If(Eval("PS").ToString() = "0", "-", Eval("PS", "{0:#,###.##}")) %>'></asp:Label>
                         </ItemTemplate>
@@ -476,7 +477,7 @@
                         </ItemTemplate>
                     </asp:TemplateField>
 
-                      <asp:TemplateField HeaderText="SubTotal2"  ItemStyle-HorizontalAlign="Right">
+                      <asp:TemplateField HeaderText="SubTotal 2"  ItemStyle-HorizontalAlign="Right">
                         <ItemTemplate>
                             <asp:Label ID="LbSubTotal2" runat="server" Text='<%# If(Eval("SubTotal2").ToString() = "0", "-", Eval("SubTotal2", "{0:#,###.00}")) %>'></asp:Label>
                         </ItemTemplate>
diff --git a/Ventas/RepVentasUtilidadDetalle.aspx.vb b/Ventas/RepVentasUtilidadDetalle.aspx.vb
index 3b8c091f6..0b72e1c81 100644
--- a/Ventas/RepVentasUtilidadDetalle.aspx.vb
+++ b/Ventas/RepVentasUtilidadDetalle.aspx.vb
@@ -109,7 +109,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
                 ImgCosto.Visible = True
             Else
                 UPFiltros.Visible = False
-                GvDatos.CssClass = "gvFull"
+                GvDatos.CssClass = "table table-striped table-hover Widthall ScrollAD gvFull"
 
             End If
         End If
diff --git a/vwd.webinfo b/vwd.webinfo
index 42ddf8ccb..64fed8e23 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -182,6 +182,14 @@
     
   
     
+  
+    
+  
+    
+  
+    
+  
+