From 60243c001e6ae224ae1fc89ec367db4a1778e597 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 13 Feb 2025 09:23:27 -0700 Subject: [PATCH 1/3] -- mejora --- Ventas/Ventas.aspx.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9b6d4ebe3..a0f6bc0da 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2876,6 +2876,7 @@ Partial Class Ventas TmpDT = ObjCGame.DtResultados TmpDT.Columns.Add("Costo", GetType(Decimal)) TmpDT.Columns("Costo").DefaultValue = 0D + If Not TmpDT.Columns.Contains("NumeroParte") Then TmpDT.Columns.Add("NumeroParte", GetType(String)) GvPS.DataBind() End If From 48ea8500007d0bab354b32a7da89fec7e7a13024 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 13 Feb 2025 11:41:24 -0700 Subject: [PATCH 2/3] =?UTF-8?q?--=20=20activaci=C3=B3n=20de=20tipo=20de=20?= =?UTF-8?q?compra=20(16)=20apoyo=20sin=20virtuales?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RecepcionAlmacen.aspx.vb | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index bd1291701..d6dfc008a 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -1076,7 +1076,9 @@ Partial Class Inventarios_RecepcionAlmacen If TipoMovimiento = 3 Then CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "21", CveTipoCompra) Else - CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra) + Dim tTipoAlm As String = "22" + If CveTipoCompra = 16 Then tTipoAlm = "22,1,24" ' apoyos, "acumuladores sin virtual" o "virtual solo" + CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, tTipoAlm, CveTipoCompra) End If Else @@ -1112,8 +1114,8 @@ Partial Class Inventarios_RecepcionAlmacen DivVirtualAdvertencia.Visible = False End If - 'SI LA COMPRA ES DE TIPO "APOYO LOGISTICO" NO DEBE GENERAR VIRTUAL - If Not SumarImporteUsados AndAlso CveTipoCompra = 9 Then + 'SI LA COMPRA ES DE TIPO "APOYO LOGISTICO" NO DEBE GENERAR VIRTUAL (9) y apoyo sin virtual (16) + If Not SumarImporteUsados AndAlso CveTipoCompra.Contiene(9, 16) Then RealizarMovimientoVirtual = False DivVirtualAdvertencia.Visible = False End If From baaec697d95b704f60e5a05542ab012b3813c792 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 13 Feb 2025 16:15:49 -0700 Subject: [PATCH 3/3] -- mejora BDH --- Inventarios/RecepcionAlmacen.aspx.vb | 20 ++++++-------------- 1 file changed, 6 insertions(+), 14 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index d6dfc008a..cb015e6f0 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -581,7 +581,7 @@ Partial Class Inventarios_RecepcionAlmacen ''' ''' ''' Parametro sin espacios y separado por comas ["1,2,3,21"] - Private Sub CargaAlmacenes(CveSubProyecto As Integer, Optional CveTiposAlmacen As String = "", Optional CveTipoCompra As Integer = -1) + Private Sub CargaAlmacenes(CveSubProyecto As Integer, Optional CveTiposAlmacen As String = "", Optional CveTipoCompra As Integer = -1, Optional RecargaGrid As Boolean = True) Dim StrAlmacenes As String = "" Dim Strtmp As String = If(TipoMovimiento = 2, ",21", "") ' cuando es solicitud de devolución de almacen ,considerar los almacenes de dev prov StrAlmacenes = $"CveTipoAlmacen IN ({If(CveTiposAlmacen.Length > 0, CveTiposAlmacen, "1,2,15,14,19" & Strtmp)}) {If(CveSubProyecto > 0, $"And CveSubProyecto = {CveSubProyecto}", "")}" @@ -597,25 +597,20 @@ Partial Class Inventarios_RecepcionAlmacen DdlAlmacen.DataBind() If UsuarioActual.CveAlmacen > 0 Then DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen) - RecargaporAlmacenes() + If RecargaGrid Then RecargaporAlmacenes() End If UpGenerales.Update() End Sub - - Private Sub RecargaporAlmacenes() CveTipoAlmacen = -1 If DdlAlmacen.SelectedValue <> "-1" Then Dim drr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero).FiltroPrimero("") If drr IsNot Nothing Then - CveTipoAlmacen = drr("CveTipoAlmacen").ToString.ToEntero - End If - CargaGVInv() 'For Each Gvr As GridViewRow In GvInv.Rows ' If Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue = "-1" Then @@ -1078,7 +1073,7 @@ Partial Class Inventarios_RecepcionAlmacen Else Dim tTipoAlm As String = "22" If CveTipoCompra = 16 Then tTipoAlm = "22,1,24" ' apoyos, "acumuladores sin virtual" o "virtual solo" - CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, tTipoAlm, CveTipoCompra) + CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, tTipoAlm, CveTipoCompra, RecargaGrid:=False) End If Else @@ -1098,11 +1093,7 @@ Partial Class Inventarios_RecepcionAlmacen End If End If - - - CveSubProyecto = DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero - CveAlmacenDevolucionProveedor = DtRecepcion.Rows(0)("CveAlmacenDevolucionProveedor").ToString.ToEntero 'SI ES MOTOBATERIA NO GENERA MOVIMIENTO VIRTUAL @@ -1449,6 +1440,7 @@ Partial Class Inventarios_RecepcionAlmacen If UsuarioActual.CveEmpresa = 119 Then DtInv = DtInv.FiltraParametros("", "PS") End If + If Not DtInv.Columns.Contains("Consec") Then DtInv.Columns.Add("Consec", GetType(Integer)) Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie As Boolean If DtInv IsNot Nothing AndAlso DtInv.Rows.Count > 0 Then @@ -1746,7 +1738,7 @@ Partial Class Inventarios_RecepcionAlmacen Private Sub CreaDtDetalle() If DtDatosDetalle Is Nothing Then DtDatosDetalle = New DataTable - DtDatosDetalle.Columns.Add("Consec", GetType(Integer)) + If Not DtDatosDetalle.Columns.Contains("Consec") Then DtDatosDetalle.Columns.Add("Consec", GetType(Integer)) DtDatosDetalle.Columns.Add("ConsecId", GetType(Integer)) DtDatosDetalle.Columns.Add("CvePS", GetType(Integer)) DtDatosDetalle.Columns.Add("CveUM", GetType(Integer)) @@ -1998,7 +1990,7 @@ Partial Class Inventarios_RecepcionAlmacen Private Sub CreaDtLoteDetalle() If DtDatosLoteDetalle Is Nothing Then DtDatosLoteDetalle = New DataTable - DtDatosLoteDetalle.Columns.Add("Consec", GetType(Integer)) + If Not DtDatosLoteDetalle.Columns.Contains("Consec") Then DtDatosLoteDetalle.Columns.Add("Consec", GetType(Integer)) DtDatosLoteDetalle.Columns.Add("ConsecId", GetType(Integer)) DtDatosLoteDetalle.Columns.Add("Cantidad", GetType(Decimal)) DtDatosLoteDetalle.Columns.Add("CvePS", GetType(Integer))