diff --git a/Compras/RepImportaciones.aspx b/Compras/RepImportaciones.aspx
index 0194f8ab4..cb27b4dfe 100644
--- a/Compras/RepImportaciones.aspx
+++ b/Compras/RepImportaciones.aspx
@@ -86,7 +86,8 @@
                         <div class="row">
                             <div class="col-md-1" style="max-width: 70px">Aduanal:</div>
                             <div class="col-md-2">
-                                <asp:DropDownList runat="server" ID="DdlProveedor" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></asp:DropDownList>
+                                <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"  style="width:100%"></ADS:Dropdownlost>
+                                <%--<asp:DropDownList runat="server" ID="DdlProveedor" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></asp:DropDownList>--%>
                             </div>
                             <div class="col-md-1" style="max-width: 90px">Fecha Inicio:</div>
                             <div class="col-md-2">
@@ -142,10 +143,10 @@
                         </ItemTemplate>
                         <ItemStyle Width="20px" />
                     </asp:TemplateField>
-                    <asp:HyperLinkField HeaderText="Pedimento" DataTextField="Pedimento" ItemStyle-Width="300px" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/Compras/Importaciones.aspx?CveImportacion={0}" DataNavigateUrlFields="CveImportacion" />
-                    <asp:HyperLinkField HeaderText="Descripción" DataTextField="Descripcion" ItemStyle-Width="300px" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/Compras/Importaciones.aspx?CveImportacion={0}" DataNavigateUrlFields="CveImportacion" />
+                    <asp:HyperLinkField HeaderText="Pedimento" DataTextField="Pedimento" ItemStyle-Width="130px" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/Compras/Importaciones.aspx?CveImportacion={0}" DataNavigateUrlFields="CveImportacion" />
+                    <asp:HyperLinkField HeaderText="Descripción" DataTextField="Descripcion"  ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/Compras/Importaciones.aspx?CveImportacion={0}" DataNavigateUrlFields="CveImportacion" />
                     <asp:HyperLinkField HeaderText="Fecha" DataTextField="Fecha" DataTextFormatString="{0:d}" ItemStyle-Width="70px" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/Compras/Importaciones.aspx?CveImportacion={0}" DataNavigateUrlFields="CveImportacion" />
-                    <asp:HyperLinkField HeaderText="Aduanal" DataTextField="RazonSocial" ItemStyle-Width="250px" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/Compras/Importaciones.aspx?CveImportacion={0}" DataNavigateUrlFields="CveImportacion" />
+                    <asp:HyperLinkField HeaderText="Aduanal" DataTextField="RazonSocial"  ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/Compras/Importaciones.aspx?CveImportacion={0}" DataNavigateUrlFields="CveImportacion" />
                     <%--<asp:HyperLinkField HeaderText="ActivoFijo" DataTextField="AFDescripcion" ItemStyle-Width="250px" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/Compras/Importaciones.aspx?CveImportacion={0}" DataNavigateUrlFields="CveImportacion" />--%>
                 </Columns>
                 <HeaderStyle CssClass="Titulos" />
diff --git a/Compras/RepImportaciones.aspx.vb b/Compras/RepImportaciones.aspx.vb
index d5e62cbf2..d95c5e716 100644
--- a/Compras/RepImportaciones.aspx.vb
+++ b/Compras/RepImportaciones.aspx.vb
@@ -29,9 +29,10 @@ Partial Class Compras_RepImportaciones
         TxtFechaI.Text = Date.Now.AddDays(-Now.DayOfYear + 1).ToShortDateString
         TxtFechaF.Text = Date.Now.ToShortDateString
 
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedor.DataBind()
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Todos"
+        DdlProveedores.SelectedValue = "-1"
 
         'DdlAF.DataSource = GlobalDTActivoFijos
         'DdlAF.DataBind()
@@ -52,7 +53,7 @@ Partial Class Compras_RepImportaciones
         If TxtFechaI.Text <> "" Then FechaI = TxtFechaI.Text Else FechaI = "-1"
         If TxtFechaF.Text <> "" Then FechaF = TxtFechaF.Text Else FechaF = "-1"
 
-        If ObjImportaciones.GetImportaciones(-1, DdlProveedor.SelectedValue.ToString.ToEntero, -1, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero) Then
+        If ObjImportaciones.GetImportaciones(-1, DdlProveedores.SelectedValue.ToString.ToEntero, -1, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero) Then
             DtImportaciones = ObjImportaciones.DtResultados
         Else
             Alert("Ocurrió un error al cargar las importaciones", TipoMensaje.MsgError)
diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 54d7ce23b..abfd39b50 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -2290,7 +2290,11 @@ Partial Class General_SaldosIniciales
                                             Dim Valor As Decimal = nuevaEntrada("Valor").ToString().ToDecimal
                                             Dim Serie As String = If(dt.Columns.Contains("Serie"), nuevaEntrada("Serie").ToString().Trim, "")
 
-                                            If Not ObjMovimientos.AddMovimientoDetalle(movimientoCabecera, Cantidad, CveUM, CvePS, (Valor / Cantidad), -1, -1, Serie:=Serie) Then
+
+                                            Dim PU As Decimal = If(Valor = 0, 0, (Valor / Cantidad))
+
+
+                                            If Not ObjMovimientos.AddMovimientoDetalle(movimientoCabecera, Cantidad, CveUM, CvePS, PU, -1, -1, Serie:=Serie) Then
                                                 mensajeError = "No se logró generar el detalle del movimiento"
                                                 Throw New Exception()
                                             End If
diff --git a/Sistemas/DefinicionEmpresa.aspx b/Sistemas/DefinicionEmpresa.aspx
index e03c39ea7..fc31b1cc7 100644
--- a/Sistemas/DefinicionEmpresa.aspx
+++ b/Sistemas/DefinicionEmpresa.aspx
@@ -1011,14 +1011,15 @@
 
                 <div class="modal-body">
                     <ul>
-                        <li>{"FolioFactura"}</li>
-                        <li>{"ImporteFactura"}</li>
-                        <li>{"FechaFactura"}</li>
+                        <li>{"SerieFolio"}</li>
+                        <li>{"Total"}</li>
+                        <li>{"Fecha"}</li>
                         <li>{"FechaVencimiento"}</li>
-                        <li>{"RazonSocialEmisor"}</li>
-                        <li>{"RazonSocialReceptor"}</li>
+                        <li>{"NombreEmpresa"}</li>
+                        <li>{"NombreCliente"}</li>
+                        <li>{"NombreCliente"}</li>
                         <li>{"Vigencia"}</li>
-                        <li>{"AtencionA"}</li>
+                        <li>{"Sucursal"}</li>
                     </ul>
                 </div>
                 <br />
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index d5c218dda..93ea5ff87 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2123,27 +2123,41 @@ Partial Class Clientes
                 If HdnTipoDocto.Value.ToString() = "Cot" Then
 
                     If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then
+
                         Cuerpo = UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion
                         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())
+
                         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("{""Vigencia""}", Dr("Vigencia").ToString())
                             Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
+                            Cuerpo = Cuerpo.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
 
                         End If
+
                     End If
 
                     If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then
                         Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion
+                        Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
+                        Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
                         Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
-                        Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto.Value.ToString())
                         Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString())
+
+                        If Dr IsNot Nothing Then
+                            Asunto = Asunto.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
+                            Asunto = Asunto.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
+                            Asunto = Asunto.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
+                            Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
+                            Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
+                            Asunto = Asunto.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
+
+                        End If
                     End If
 
                 Else
@@ -2160,14 +2174,24 @@ Partial Class Clientes
                             Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
                             Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
                             Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
+                            Cuerpo = Cuerpo.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
                         End If
                     End If
 
                     If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
                         Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
+                        Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
+                        Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
                         Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
-                        Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto.Value.ToString())
                         Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString())
+                        If Dr IsNot Nothing Then
+                            Asunto = Asunto.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
+                            Asunto = Asunto.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
+                            Asunto = Asunto.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
+                            Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
+                            Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
+                            Asunto = Asunto.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
+                        End If
                     End If
                 End If
 
@@ -5537,20 +5561,27 @@ Partial Class Clientes
                             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("{""Vigencia""}", Dr("Vigencia").ToString())
                             Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
 
-
                         End If
                     End If
 
 
                     If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then
                         Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion
+                        Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
+                        Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
                         Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
-                        Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto2.Value.ToString())
                         Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString())
+                        If Dr IsNot Nothing Then
+                            Asunto = Asunto.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
+                            Asunto = Asunto.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
+                            Asunto = Asunto.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
+                            Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
+                            Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
+
+                        End If
                     End If
 
                 Else
@@ -5572,9 +5603,17 @@ Partial Class Clientes
 
                     If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
                         Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
+                        Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
+                        Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
                         Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
-                        Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto2.Value.ToString())
                         Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString())
+                        If Dr IsNot Nothing Then
+                            Asunto = Asunto.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
+                            Asunto = Asunto.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
+                            Asunto = Asunto.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
+                            Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
+                            Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
+                        End If
                     End If
 
                 End If
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 8923c8ddd..9426e06c0 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -20836,13 +20836,21 @@ Partial Class Ventas
                     Cuerpo = Cuerpo.Replace("{""SerieFolio""}", SerieFolio)
                     Cuerpo = Cuerpo.Replace("{""Vigencia""}", TxtFechaVencimientoCotizacion.Text)
                     Cuerpo = Cuerpo.Replace("{""AtencionA""}", TxtAtencionA.Text)
+                    Cuerpo = Cuerpo.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text)
                 End If
 
                 If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then
                     Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion
+                    Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
+                    Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
                     Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
-                    Asunto = Asunto.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text)
+                    Asunto = Asunto.Replace("{""Fecha""}", TxtFecha.Text)
+                    Asunto = Asunto.Replace("{""Total""}", TxtTotal.Text)
+                    Asunto = Asunto.Replace("{""FechaVencimiento""}", TxtFechaPago.Text)
                     Asunto = Asunto.Replace("{""SerieFolio""}", SerieFolio)
+                    Asunto = Asunto.Replace("{""Vigencia""}", TxtFechaVencimientoCotizacion.Text)
+                    Asunto = Asunto.Replace("{""AtencionA""}", TxtAtencionA.Text)
+                    Asunto = Asunto.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text)
                 End If
 
             Else
@@ -20855,15 +20863,21 @@ Partial Class Ventas
                     Cuerpo = Cuerpo.Replace("{""Total""}", TxtTotal.Text)
                     Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", TxtFechaPago.Text)
                     Cuerpo = Cuerpo.Replace("{""SerieFolio""}", SerieFolio)
-                    'Cuerpo = Cuerpo.Replace("{""Vigencia""}", TxtFechaVencimientoCotizacion.Text)
                     Cuerpo = Cuerpo.Replace("{""AtencionA""}", TxtAtencionA.Text)
+                    Cuerpo = Cuerpo.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text)
                 End If
 
                 If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
                     Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
+                    Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
+                    Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
                     Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
-                    Asunto = Asunto.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text)
+                    Asunto = Asunto.Replace("{""Fecha""}", TxtFecha.Text)
+                    Asunto = Asunto.Replace("{""Total""}", TxtTotal.Text)
+                    Asunto = Asunto.Replace("{""FechaVencimiento""}", TxtFechaPago.Text)
                     Asunto = Asunto.Replace("{""SerieFolio""}", SerieFolio)
+                    Asunto = Asunto.Replace("{""AtencionA""}", TxtAtencionA.Text)
+                    Asunto = Asunto.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text)
                 End If
             End If