Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsInventarios.vb

@@ -5984,6 +5984,25 @@ Public Class ClsInventarios
         Return Retorno
 
     End Function
+
+    Public Function GetJAM_APIs(Optional Opcion As Integer = 1) As Boolean
+        Dim Retorno As Boolean = False
+        Dataset = New DataSet()
+        DataAdapter("PA_JAM_APIs")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los productos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
+    End Function
 #End Region
 
 

Ashx/E119.ashx

@@ -47,17 +47,6 @@ Public Class E119 : Implements IHttpHandler
             End If
         End Get
     End Property
-    Public ReadOnly Property TokenAutorizacion As String
-        Get
-            Return "$2y$10$LGqtRWUloKQmAt.jcUldc.PmS5LJ6l.WU2w1G4PBOTLMVKZRNQFPS"
-        End Get
-    End Property
-
-    Public ReadOnly Property URLBase As String
-        Get
-            Return "https://services.fidelityapps.mx/"
-        End Get
-    End Property
 
 
 #Region "V A L I D A  - D A T O S"
@@ -99,19 +88,31 @@ Public Class E119 : Implements IHttpHandler
         Dim retorno As String = ""
         Try
             Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString())
-            'OBTENER EXISTENCIAS
-            'If Metodo = "BASF_POG40" Then
-            '    context.Response.ContentType = "application/json"
-            '    Dim Auth = ValidarSolicitud(context)
 
-            '    If Auth.IsSucces Then
+            If Metodo = "BASF_POG40" Then
-            '        retorno = ConsultaDatos(context)
+                context.Response.ContentType = "application/json"
-            '    Else
+                Dim Auth = ValidarSolicitud(context)
-            '        context.Response.StatusCode = Auth.StatusCode
-            '        retorno = JsonConvert.SerializeObject(Auth.ErrorMessage)
-            '    End If
 
-            'End If
+                If Auth.IsSucces Then
+                    retorno = ConsultaDatos(context)
+                Else
+                    context.Response.StatusCode = Auth.StatusCode
+                    retorno = JsonConvert.SerializeObject(Auth.ErrorMessage)
+                End If
+
+            End If
+
+            If Metodo = "ConsultarProductos" Then
+                context.Response.ContentType = "application/json"
+                Dim Auth = ValidarSolicitud(context)
+
+                If Auth.IsSucces Then
+                    retorno = ConsultaProductos(context)
+                Else
+                    context.Response.StatusCode = Auth.StatusCode
+                    retorno = JsonConvert.SerializeObject(Auth.ErrorMessage)
+                End If
+            End If
 
             context.Response.Write(retorno)
 
@@ -220,6 +221,41 @@ Public Class E119 : Implements IHttpHandler
         End If
     End Function
 
+    Private Function ConsultaProductos(ByVal context As HttpContext) As String
+        Dim Respuesta As New ResponseMsg
+        Dim RespuestaError As New ResponseMsgError
+        Dim TieneError As Boolean = False
+
+        Dim Productos As JArray = Nothing
+
+        Using ObjInventario As New ClsInventarios
+            If ObjInventario.GetJAM_APIs(1) AndAlso ObjInventario.DtResultados IsNot Nothing Then
+                Productos = JArray.Parse(ObjInventario.DtResultados.DataTableToJSONIPP())
+            Else
+                RespuestaError.message = "no se pudo obtener los datos"
+                TieneError = True
+            End If
+        End Using
+
+        Dim Msg As String = "Información día " & Now.ToShortDateString & If(RespuestaError.message <> "", " Error: " & RespuestaError.message, "")
+        Msg.GuardaLogAD("LogE119")
+
+        If TieneError Then
+            context.Response.StatusCode = 200
+            Return JsonConvert.SerializeObject(RespuestaError)
+        Else
+            context.Response.StatusCode = 200
+            Try
+                Respuesta.data = New JObject(New JProperty("Productos", Productos))
+                Respuesta.message = "Los datos se obtuvieron correctamente"
+                Return JsonConvert.SerializeObject(Respuesta)
+            Catch ex As Exception
+                RespuestaError.message = "Ocurrió un error al generar la petición"
+                Return JsonConvert.SerializeObject(RespuestaError)
+            End Try
+        End If
+    End Function
+
     Private Class ResponseMsg
         Sub New()
             status = "success"

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="Pedimento" DataTextField="Pedimento" ItemStyle-Width="130px" 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="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" />

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)
+        DdlProveedores.setEsWebService(True)
-        DdlProveedor.DataBind()
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        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)

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

Sistemas/DefinicionEmpresa.aspx

@@ -1011,14 +1011,15 @@
 
                 <div class="modal-body">
                     <ul>
-                        <li>{"FolioFactura"}</li>
+                        <li>{"SerieFolio"}</li>
-                        <li>{"ImporteFactura"}</li>
+                        <li>{"Total"}</li>
-                        <li>{"FechaFactura"}</li>
+                        <li>{"Fecha"}</li>
                         <li>{"FechaVencimiento"}</li>
-                        <li>{"RazonSocialEmisor"}</li>
+                        <li>{"NombreEmpresa"}</li>
-                        <li>{"RazonSocialReceptor"}</li>
+                        <li>{"NombreCliente"}</li>
+                        <li>{"NombreCliente"}</li>
                         <li>{"Vigencia"}</li>
-                        <li>{"AtencionA"}</li>
+                        <li>{"Sucursal"}</li>
                     </ul>
                 </div>
                 <br />

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
 
@@ -5533,10 +5557,9 @@ 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())
-
+                            Cuerpo = Cuerpo.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
 
                         End If
                     End If
@@ -5544,9 +5567,19 @@ Partial Class Clientes
 
                     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())
+                            Asunto = Asunto.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
+
+                        End If
                     End If
 
                 Else
@@ -5562,15 +5595,25 @@ 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""}", 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())
+                            Asunto = Asunto.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
+                        End If
                     End If
 
                 End If

Ventas/Ventas.aspx.vb

@@ -20832,13 +20832,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
@@ -20851,15 +20859,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