From 15fc93e4f02dad52fb6561056edeaeca3e6b5d1a Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 7 Sep 2020 12:52:21 -0700 Subject: [PATCH 1/4] -- se cambio de la cveempresa, aque tome la funcionalidad 558 --- Inventarios/KardexAlmacenHorizontal.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index 46040fdab..7acdada23 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -14,7 +14,7 @@ Partial Class Inventarios_KardexAlmacen CargaCombos() ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) pnlOrden.Visible = False - If UsuarioActual.CveEmpresa = 141 Then + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then pnlOrden.Visible = True DdlOrden.SelectedValue = 2 End If From 1e3e3ff0079ed554a580ee24208f43d9f40741cf Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 7 Sep 2020 12:52:49 -0700 Subject: [PATCH 2/4] -- que permita el registro de multiples secciones por almacen --- Ventas/ProductosServicios.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 963dfcda5..51997adf9 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -2607,10 +2607,10 @@ Partial Class ProductosyServicios End Sub Protected Sub BtnAddSeccionAlmacen_Click(sender As Object, e As EventArgs) - If DtSeccionAlmacen.FiltraParametros($"CveAlmacen = {DdlAlmacen.SelectedValue}").Rows.Count > 0 Then - Alert("No se puede especificar el mismo almacen en dos secciones", TipoMensaje.MsgAdvertencia) - Exit Sub - End If + 'If DtSeccionAlmacen.FiltraParametros($"CveAlmacen = {DdlAlmacen.SelectedValue}").Rows.Count > 0 Then + ' Alert("No se puede especificar el mismo almacen en dos secciones", TipoMensaje.MsgAdvertencia) + ' Exit Sub + 'End If Dim Row As DataRow = Nothing Row = DtSeccionAlmacen.NewRow From a0ec3de6535b88c364d481b16e66048f81b07ab4 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 7 Sep 2020 12:53:27 -0700 Subject: [PATCH 3/4] -- cambio en el nombre del modulo de agregar prepoliza --- App_Code/Modelos.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 1ea810334..45ff1f778 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4645,7 +4645,7 @@ Namespace Modelos Dim TotalCostoAcumulado As Decimal = 0 Dim cont As Integer = 1 - Dim CvePrePolizaDev As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim CvePrePolizaDev As Integer = ObjConta.AddPrePolizas("Modelos/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) 'SE AGREGA MOVIMIENTO SEPARADO POR LA CUENTA DE VENTAS (ER) For Each RowInv As DataRow In tmpCostos.Rows ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL() @@ -5350,7 +5350,7 @@ Namespace Modelos End If - CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardaEstatus", CvePlantillaPoliza, Me.Total, Me.Total, Me.CveMoneda, Now, Me.Cliente.NombreComercial, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + CvePrePoliza = ObjConta.AddPrePolizas("Modelos/GuardaEstatus", CvePlantillaPoliza, Me.Total, Me.Total, Me.CveMoneda, Now, Me.Cliente.NombreComercial, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) FacturaDevolucion.CveVenta = CveVenta FacturaDevolucion.CvePrePoliza = CvePrePoliza From 69c4402e01ef4ba9793e764e0b313ba17ac16897 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 8 Sep 2020 10:55:25 -0700 Subject: [PATCH 4/4] Nivel de confianza predeterminado --- OC/OC.aspx.vb | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index fe3846255..7b394c0fd 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -1234,6 +1234,10 @@ Partial Class OC If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then CveConfianzaProveedor = objOC.DtResultados.Rows(0)("CveConfianzaProveedor").ToString.ToEntero + 'SI NO TIENE ASIGNADO UN NIVEL DE CONFIANZA SE ASIGNARA EL VALOR DE 'PROVEEDOR NO DEDICADO' + If CveConfianzaProveedor <= 0 Then + CveConfianzaProveedor = 2 + End If End If 'Anticipos @@ -5335,9 +5339,17 @@ Partial Class OC If Objeto.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlProveedores.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then If Objeto.DtResultados.Rows.Count > 0 Then - Me.CveConfianzaProveedor = Objeto.DtResultados.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero() - ChkCotizacion.Checked = CveConfianzaProveedor > 0 - ChkCotizacion.Enabled = CveConfianzaProveedor <= 0 + If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then + Me.CveConfianzaProveedor = Objeto.DtResultados.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero() + 'SI NO TIENE ASIGNADO UN NIVEL DE CONFIANZA SE ASIGNARA EL VALOR DE 'PROVEEDOR NO DEDICADO' + If CveConfianzaProveedor <= 0 Then + CveConfianzaProveedor = 2 + End If + + ChkCotizacion.Checked = CveConfianzaProveedor > 0 + ChkCotizacion.Enabled = CveConfianzaProveedor <= 0 + End If + End If End If