-- corrección plantillas para envío
This commit is contained in:
@@ -2259,20 +2259,17 @@ 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("{""FolioFactura""}", 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("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""ImporteFactura""}", 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())
|
||||
Cuerpo = Cuerpo.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").ToString())
|
||||
Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then
|
||||
@@ -2280,17 +2277,16 @@ Partial Class Clientes
|
||||
Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
|
||||
Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
|
||||
Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
|
||||
Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString())
|
||||
Asunto = Asunto.Replace("{""FolioFactura""}", 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("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""ImporteFactura""}", 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())
|
||||
Asunto = Asunto.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").ToString())
|
||||
Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
|
||||
|
||||
End If
|
||||
End If
|
||||
@@ -2302,16 +2298,15 @@ 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("{""FolioFactura""}", 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("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""ImporteFactura""}", 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())
|
||||
Cuerpo = Cuerpo.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").ToString())
|
||||
Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -2320,16 +2315,15 @@ Partial Class Clientes
|
||||
Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
|
||||
Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
|
||||
Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
|
||||
Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString())
|
||||
Asunto = Asunto.Replace("{""FolioFactura""}", 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("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""ImporteFactura""}", 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())
|
||||
Asunto = Asunto.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").ToString())
|
||||
Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
|
||||
|
||||
End If
|
||||
End If
|
||||
@@ -4417,7 +4411,7 @@ Partial Class Clientes
|
||||
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoDeCuenta.pdf"})
|
||||
|
||||
Dim Envio As Boolean = Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=LSRutasMail)
|
||||
Dim Envio As Boolean = Mail.SendMail(UsuarioActual.Empresa, Para, Asunto, Body, Archivos:=LSRutasMail)
|
||||
|
||||
If Envio AndAlso GuardarBitacora Then
|
||||
Using ObjBitacora As New ClsOIEventos(UsuarioActual:=UsuarioActual)
|
||||
@@ -5751,7 +5745,6 @@ Partial Class Clientes
|
||||
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
|
||||
@@ -5761,7 +5754,6 @@ Partial Class Clientes
|
||||
End If
|
||||
ObjVenta.Dispose()
|
||||
|
||||
|
||||
If HdnTipoDocto2.Value.ToString() = "Cot" Then
|
||||
|
||||
If UsuarioActual.Empresa.PlantillaMailVentaCotizacion.Trim.Length > 0 Then
|
||||
@@ -5769,32 +5761,28 @@ 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("{""FolioFactura""}", 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("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""ImporteFactura""}", 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())
|
||||
Cuerpo = Cuerpo.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").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("{""SerieFolio""}", HdnSerieFolio2.Value.ToString())
|
||||
Asunto = Asunto.Replace("{""FolioFactura""}", 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("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""ImporteFactura""}", 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())
|
||||
@@ -5811,10 +5799,10 @@ 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("{""FolioFactura""}", 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("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""ImporteFactura""}", 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())
|
||||
@@ -5830,10 +5818,10 @@ Partial Class Clientes
|
||||
Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
|
||||
Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
|
||||
Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
|
||||
Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString())
|
||||
Asunto = Asunto.Replace("{""FolioFactura""}", 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("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""ImporteFactura""}", 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())
|
||||
|
||||
Reference in New Issue
Block a user