diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 5d28a3a5a..5e08bcb3a 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1344,7 +1344,7 @@ Namespace Modelos Public Sub GuardarVenta(ByRef factura As Modelos.Factura, ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjInventario As ClsInventarios, ByRef ObjContr As ClsContratos, ByRef TmpDTDetalle As DataTable, CveNCaVincular As Integer, ByRef objContPaqi As ClsContPAQi, Optional ByRef ObjBancos As ClsBancos = Nothing, Optional ByRef ObjOS As ClsOS = Nothing, ByRef Optional ObjEventos As ClsOIEventos = Nothing, ByRef Optional ObjCGame As ClsCGame = Nothing, ByRef Optional ObjCliente As ClsClientes = Nothing, Optional EsNotaCredito As Boolean = False, Optional ObjAcum As ClsAcumuladores = Nothing) Dim Msgok As New StringBuilder - factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVentaM", factura.CvePlantillaPoliza, factura.TotalTC, factura.TotalTC, factura.CveMoneda, factura.Fecha, If(factura.CveEmpresaCRM > 0, factura.EmpresaCRM, factura.Cliente.Nombre), factura.CveUsuario, factura.CveEmpresa) + factura.CvePrePoliza = ObjConta.AddPrePolizas("Modelos/GuardarVentaM", factura.CvePlantillaPoliza, factura.TotalTC, factura.TotalTC, factura.CveMoneda, factura.Fecha, If(factura.CveEmpresaCRM > 0, factura.EmpresaCRM, factura.Cliente.Nombre), factura.CveUsuario, factura.CveEmpresa) If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx index c1e46ead0..06a0be6c8 100644 --- a/Ashx/SIGFacturacion.ashx +++ b/Ashx/SIGFacturacion.ashx @@ -2275,24 +2275,44 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState HttpContext.Current.Application("GlobalDTAlmacen") = value End Set End Property - Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1) As DataTable - Get - If CveEmpresa <> -1 Then - Dim Str As New StringBuilder - Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa) - If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen) - - Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) - GlobalDTAlmacenUsuarios = Dv.ToTable - Dv.Dispose() - Else - GlobalDTAlmacenUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable) - End If - - End Get - Set(value As DataTable) - HttpContext.Current.Application("GlobalDTAlmacenUsuarios") = value - End Set + Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1) As DataTable + Get + Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa) + 'sino existe, recarga los datos + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim ObjUsr As New ClsSisUsuarios + If ObjUsr.GetAlmacen(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjUsr.DtResultados + ObjUsr.Dispose() + End If + Dim Str As New StringBuilder + Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa) + If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen) + + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + GlobalDTAlmacenUsuarios = Dv.ToTable + Dv.Dispose() + End Get + Set(value As DataTable) + Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa) + HttpContext.Current.Application(AppNombre) = value + End Set + 'Get + ' If CveEmpresa <> -1 Then + ' Dim Str As New StringBuilder + ' Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa) + ' If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen) + + ' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + ' GlobalDTAlmacenUsuarios = Dv.ToTable + ' Dv.Dispose() + ' Else + ' GlobalDTAlmacenUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable) + ' End If + + 'End Get + 'Set(value As DataTable) + ' HttpContext.Current.Application("GlobalDTAlmacenUsuarios") = value + 'End Set End Property Property GlobalDTNom_Periodos() As DataTable Get diff --git a/Bancos/RegistroPagoIntermediario.aspx.vb b/Bancos/RegistroPagoIntermediario.aspx.vb index cd7f32ce5..17e4bc86e 100644 --- a/Bancos/RegistroPagoIntermediario.aspx.vb +++ b/Bancos/RegistroPagoIntermediario.aspx.vb @@ -246,7 +246,7 @@ Partial Class Bancos_PagosIntermediarios Else ObjIE.RollBack() Alert(String.Format("Ocurrió un error al registrar el movimiento."), TipoMensaje.MsgError) - GuardaLog(MsgError) + GuardaLog($"RegistroPagoIntermediario --> {MsgError}") End If ObjIE.Dispose() diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 03865ea0d..ffdea1526 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -7712,7 +7712,7 @@ Partial Class Compras_Compras ' ImporteAnticipo += Ant.Importe ' RESTO DEL IMPORTE POR SI QUEDA DIFERENCIA DE LA SUMA DE LOS ANTICIPOS Y EL PROVEEDOR TIENE QUE PAGAR 'movimiento de pago proveedor, --no se regisra porque no se registra el total de la compra como deuda del proveedor, solo lo que queda a deber 'si es l moviemiento es de amortizacion con descuento, no registra el pago, ya esta descontado - If TieneAnticiposXML = False AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, Ant.Importe, " ", CveConceptoPago, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=Ant.Importe) Then + If TieneAnticiposXML = False AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, Ant.Importe, " ", CveConceptoPago, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=Ant.Importe, CveCompraAmortizacion:=CveCompraNC) Then ErrorMovtosCxP = True End If PorcentajePago = (Ant.Importe) / TxtTotal.Text.ToDecimal @@ -10630,7 +10630,7 @@ Partial Class Compras_Compras e.Row.Cells(0).ToolTip = "Producto/Servicio NO Registrado" e.Row.Cells(0).ID = String.Format("tr{0}", e.Row.RowIndex) e.Row.Cells(0).ClientIDMode = ClientIDMode.Static - e.Row.Cells(0).Attributes.Add("onclick", String.Format("fnAltaPS('{0}','{1}',{2})", String.Format("tr{0}", e.Row.RowIndex), e.Row.DBCampo("PS").Replace("'", "").Replace(Chr(13), "").Replace(Chr(10), ""), e.Row.RowIndex)) + e.Row.Cells(0).Attributes.Add("onclick", String.Format("fnAltaPS('{0}','{1}',{2})", String.Format("tr{0}", e.Row.RowIndex), e.Row.DBCampo("PS").Replace("'", "'").Replace(Chr(13), "").Replace(Chr(10), ""), e.Row.RowIndex)) If e.Row.FCTextBox("TxtPrecioEdit") IsNot Nothing Then e.Row.FCTextBox("TxtPrecioEdit").Enabled = False If e.Row.FCTextBox("TxtCantidadEdit") IsNot Nothing Then e.Row.FCTextBox("TxtCantidadEdit").Enabled = False End If @@ -17979,7 +17979,7 @@ Partial Class Compras_Compras CvePS = DdlPSAlias2.SelectedValue.ToEntero tPS = DdlPSAlias2.SelectedText - If PS.AddPSAlias(TxtPSAlias.Text.Trim, CvePS) Then + If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS) Then GlobalDTProductosServiciosAlias(-1) = PS.DtResultados TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CvePS") = CvePS diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 3b343b278..b55948612 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2335,16 +2335,16 @@ Partial Class PopUpVerFactura Dim ObjCompra As New ClsCompras() If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then Dim dr As DataRow = ObjCompra.DtResultados.Rows(0) - Dim FechaCompra As Date = dr("Fecha").ToString.ToDate + Dim FechaCompra As Date = dr("FechaMovto").ToString.ToDate Dim FechaVencimiento As Date = dr("FechaVencimiento").ToString.ToDate params.Add(New ReportParameter("Fecha", FechaCompra.ToShortDateString)) params.Add(New ReportParameter("FechaVencimiento", FechaVencimiento.ToShortDateString)) params.Add(New ReportParameter("Plazo", DateDiff(DateInterval.Day, FechaCompra, FechaVencimiento).ToString)) - params.Add(New ReportParameter("Folio", Folio.ToString)) + 'params.Add(New ReportParameter("Folio", Folio.ToString)) params.Add(New ReportParameter("Serie", dr("Serie").ToString)) 'params.Add(New ReportParameter("NumeroOrden", dr("OCVinculada").ToString)) - 'params.Add(New ReportParameter("FacturaProveedor", dr("SerieFolio").ToString)) + params.Add(New ReportParameter("FacturaProveedor", dr("SerieFolio").ToString)) params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString)) params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString)) params.Add(New ReportParameter("CiudadProveedor", " ")) diff --git a/Contratos/RepPedidosDevolucionesXContrato.aspx b/Contratos/RepPedidosDevolucionesXContrato.aspx index 39f3f78d6..834e5f7d5 100644 --- a/Contratos/RepPedidosDevolucionesXContrato.aspx +++ b/Contratos/RepPedidosDevolucionesXContrato.aspx @@ -140,7 +140,7 @@ - + @@ -180,7 +180,7 @@ - + diff --git a/GPS/FacturacionMasiva.aspx.vb b/GPS/FacturacionMasiva.aspx.vb index 8981e2c45..9a43ef120 100644 --- a/GPS/FacturacionMasiva.aspx.vb +++ b/GPS/FacturacionMasiva.aspx.vb @@ -611,7 +611,7 @@ Partial Class Contratos_FacturacionMasiva Dim CveSubProyecto = TmpDTDetalle.Rows(0)("CveSubProyecto").ToString.ToEntero - factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa) + factura.CvePrePoliza = ObjConta.AddPrePolizas("FacMas/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa) If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento, diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb index e00c268dd..191beda8c 100644 --- a/Inventarios/AjustesSeccionAlmacen.aspx.vb +++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb @@ -303,7 +303,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen Dim CantidadEntrada As Decimal = RowExcel("Cantidad").ToString().ToDecimal() Dim CvePS As Integer = DrPS("CvePS").ToString().ToEntero() - Dim CveUM As Integer = DrPS("CveUM").ToString().ToEntero() + Dim CveUM As Integer = DrPS("CveUnidadMedida").ToString().ToEntero() Dim SeccionAlmacen As String = RowExcel("SeccionAlmacen").ToString.Trim Dim CveSeccionAlmacen As Integer = -1 diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 1fe80f77f..da17d5806 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1960,6 +1960,8 @@ Partial Class Inventarios_EntradasSalidas If DdlConcepto.Items.FindByValue("1") Is Nothing Then DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 1, 1, 0), New ListItem(" Inventario Inicial ", "1")) End If + DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 1, 1, 0), New ListItem(" Salida por Ajuste ", "34")) + End If 'ACTIVO FIJO @@ -1977,7 +1979,7 @@ Partial Class Inventarios_EntradasSalidas If DdlConcepto.Items.FindByValue("2") Is Nothing Then DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 2, 2, DdlConcepto.Items.Count), New ListItem("Entrada Almacen ", "2")) End If - + DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 1, 1, 0), New ListItem(" Salida por Ajuste ", "34")) End If '[IPP]: PARCHE PARA JAM diff --git a/Inventarios/Remanufactura.aspx.vb b/Inventarios/Remanufactura.aspx.vb index d64eaa79a..52f88843e 100644 --- a/Inventarios/Remanufactura.aspx.vb +++ b/Inventarios/Remanufactura.aspx.vb @@ -674,7 +674,7 @@ Partial Class Inventarios_Remanufactura Dim CveSubProyecto = TmpDTDetalle.Rows(0)("CveSubProyecto").ToString.ToEntero - factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa) + factura.CvePrePoliza = ObjConta.AddPrePolizas("Reman/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa) If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento, diff --git a/OC/RepOCSinFactura.aspx b/OC/RepOCSinFactura.aspx index 57d821e26..026109788 100644 --- a/OC/RepOCSinFactura.aspx +++ b/OC/RepOCSinFactura.aspx @@ -26,7 +26,7 @@
- +
diff --git a/OC/RepOCSinFactura.aspx.vb b/OC/RepOCSinFactura.aspx.vb index cd6dcd538..ef5494c07 100644 --- a/OC/RepOCSinFactura.aspx.vb +++ b/OC/RepOCSinFactura.aspx.vb @@ -17,7 +17,7 @@ Partial Class OC_RepOCSinFactura Private Sub CargaCombos() 'CargaSucursales - DdlSucursal.DataSource = GlobalDTSucursales.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSucursal.DataBind() 'Vendedor diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb index cf9b3414e..d17ec4cc3 100644 --- a/PortalCliente/PortalCliente.aspx.vb +++ b/PortalCliente/PortalCliente.aspx.vb @@ -2978,7 +2978,7 @@ Partial Class Ventas_PortalCliente Dim EsDevolucionVenta = -1 Dim TotalImpuestoLocal As Double = 0 - factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa) + factura.CvePrePoliza = ObjConta.AddPrePolizas("PortalC/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa) If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento, diff --git a/RH/RepDocumentacionVencida.aspx b/RH/RepDocumentacionVencida.aspx index bbf751d02..bf2d3e0d8 100644 --- a/RH/RepDocumentacionVencida.aspx +++ b/RH/RepDocumentacionVencida.aspx @@ -198,7 +198,7 @@
Sucursal
- + diff --git a/RH/RepDocumentacionVencida.aspx.vb b/RH/RepDocumentacionVencida.aspx.vb index a8fc898ed..6bd981f64 100644 --- a/RH/RepDocumentacionVencida.aspx.vb +++ b/RH/RepDocumentacionVencida.aspx.vb @@ -87,7 +87,7 @@ Partial Class RH_RepDocumentacionVencida - DDLSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.Empresa.CveEmpresa) + DDLSucursal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DDLSucursal.DataBind() DDLSucursal.Items.Insert(0, New ListItem("Todos", "-1")) If UsuarioActual.CveSucursal > 0 Then diff --git a/TareasProgramadas/Tareas119.ashx b/TareasProgramadas/Tareas119.ashx index 49543b657..1f560654a 100644 --- a/TareasProgramadas/Tareas119.ashx +++ b/TareasProgramadas/Tareas119.ashx @@ -131,13 +131,58 @@ public class TareasJam : IHttpHandler DTClientes.Columns[7].ColumnName = "address.street1"; DTClientes.Columns[8].ColumnName = "address.street2"; DTClientes.Columns[9].ColumnName = "address.postalCode"; - DTClientes.Columns[9].ColumnName = "phone.intCode"; - DTClientes.Columns[9].ColumnName = "phone.areaCode"; - DTClientes.Columns[9].ColumnName = "phone.number"; - DTClientes.Dispose(); + DTClientes.Columns[10].ColumnName = "phone.intCode"; + DTClientes.Columns[11].ColumnName = "phone.areaCode"; + DTClientes.Columns[12].ColumnName = "phone.number"; + + DTClientes.Columns.RemoveAt(12); + DTClientes.Columns.RemoveAt(11); + DTClientes.Columns.RemoveAt(10); + DTClientes.Columns.RemoveAt(8); + DTClientes.Columns.RemoveAt(7); + DTClientes.AcceptChanges(); DTVentas.Columns.RemoveAt(7); + DTVentas.Columns.RemoveAt(6); DTVentas.AcceptChanges(); + + + DataTable dtCloned = DTVentas.Clone(); + dtCloned.Columns[3].DataType = typeof(string); + + foreach (DataRow row in DTVentas.Rows) + { + dtCloned.ImportRow(row); + } + + DTVentas = dtCloned; + foreach(DataRow dRow in DTVentas.Rows) + { + string tmpString = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd"); + dRow[3] = tmpString; + } + + DTVentas.AcceptChanges(); + + + dtCloned = DTAlmacenes.Clone(); + dtCloned.Columns[3].DataType = typeof(string); + + foreach (DataRow row in DTAlmacenes.Rows) + { + dtCloned.ImportRow(row); + } + + DTAlmacenes = dtCloned; + foreach(DataRow dRow in DTAlmacenes.Rows) + { + string tmpString = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd"); + dRow[3] = tmpString; + } + DTAlmacenes.AcceptChanges(); + + + } catch (Exception e) { @@ -155,7 +200,7 @@ public class TareasJam : IHttpHandler string RutaProductos = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Productos{DateTime.Now.ToString("yyyyMMdd")}.xlsx"; string RutaVentas = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Ventas{DateTime.Now.ToString("yyyyMMdd")}.xlsx"; string RutaClientes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Clientes{DateTime.Now.ToString("yyyyMMdd")}.xlsx"; - string RutaAlmacenes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Almacenes{DateTime.Now.ToString("yyyyMMdd")}.xlsx"; + string RutaAlmacenes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Almacenes{DateTime.Now.ToString("yyyyMMdd")}.xlsx"; SpreadsheetInfo.SetLicense(Extensiones.ModExtensiones.SerialGemBoxSpreadsheet()); @@ -313,7 +358,7 @@ public class TareasJam : IHttpHandler { ClsSisMail Correo = new ClsSisMail(); string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx"; - //string Para = "oscar.irigoyen@adssistemas.mx"; + // string Para = "oscar.irigoyen@adssistemas.mx"; string Asunto = ErrorProceso ? $"Carga Layout Corteva {DateTime.Now.ToString("yyyy-MM-dd")}" : $"Carga Layout Corteva Error {DateTime.Now.ToString("yyyy-MM-dd")}"; Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo); diff --git a/Ventas/CatMesas.aspx b/Ventas/CatMesas.aspx index fbf0e7315..0946e9ee4 100644 --- a/Ventas/CatMesas.aspx +++ b/Ventas/CatMesas.aspx @@ -60,7 +60,7 @@ - + @@ -88,7 +88,7 @@ - + diff --git a/Ventas/CatMesas.aspx.vb b/Ventas/CatMesas.aspx.vb index 7fc7d531b..e60baeaff 100644 --- a/Ventas/CatMesas.aspx.vb +++ b/Ventas/CatMesas.aspx.vb @@ -42,7 +42,7 @@ Partial Class Ventas_CatMesas End Sub Public Sub CargaSucursales() - ddlSucursal.DataSource = GlobalDTSucursales().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) + ddlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) ddlSucursal.DataBind() ddlSucursal.Items.Insert(0, New ListItem("Todas", "-1")) End Sub @@ -106,7 +106,7 @@ Partial Class Ventas_CatMesas e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then - e.Row.FCDropDownList("ddlSucursal").DataSource = GlobalDTSucursales().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) + e.Row.FCDropDownList("ddlSucursal").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("ddlSucursal").DataBind() e.Row.FCDropDownList("ddlSucursal").SelectedValue = e.Row.DBCampo("CveSucursal") End If diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 3efab29bb..268ad368d 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1300,11 +1300,11 @@
-