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/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