From a96922bd77a15606d81b59ec703e6669fbf3e50b Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 5 Sep 2023 00:51:29 -0700 Subject: [PATCH] Importaciones, correos clientes --- Compras/RepImportaciones.aspx | 9 +++--- Compras/RepImportaciones.aspx.vb | 9 +++--- General/SaldosIniciales.aspx.vb | 6 +++- Sistemas/DefinicionEmpresa.aspx | 13 ++++---- Ventas/Clientes.aspx.vb | 53 +++++++++++++++++++++++++++----- Ventas/Ventas.aspx.vb | 20 ++++++++++-- 6 files changed, 85 insertions(+), 25 deletions(-) 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 @@
Aduanal:
- + + <%----%>
Fecha Inicio:
@@ -142,10 +143,10 @@ - - + + - + <%----%> 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 @@
    -
  • {"FolioFactura"}
    • -
  • {"ImporteFactura"}
    • -
  • {"FechaFactura"}
    • +
  • {"SerieFolio"}
    • +
  • {"Total"}
    • +
  • {"Fecha"}
  • {"FechaVencimiento"}
    • -
  • {"RazonSocialEmisor"}
    • -
  • {"RazonSocialReceptor"}
    • +
  • {"NombreEmpresa"}
    • +
  • {"NombreCliente"}
    • +
  • {"NombreCliente"}
  • {"Vigencia"}
    • -
  • {"AtencionA"}
    • +
  • {"Sucursal"}

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