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

2023-09-06 15:26:40 -07:00
parent 1893dac900 caed019981
commit 96f09b3ab7
8 changed files with 166 additions and 47 deletions
--- a/App_Code/ClsInventarios.vb
+++ b/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


--- a/Ashx/E119.ashx
+++ b/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
-            '        retorno = ConsultaDatos(context)
-            '    Else
-            '        context.Response.StatusCode = Auth.StatusCode
-            '        retorno = JsonConvert.SerializeObject(Auth.ErrorMessage)
-            '    End If
+            If Metodo = "BASF_POG40" Then
+                context.Response.ContentType = "application/json"
+                Dim Auth = ValidarSolicitud(context)

-            '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"
--- 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" />
--- 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)
--- 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
--- 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 />
--- 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

@@ -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
--- a/Ventas/Ventas.aspx.vb
+++ b/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