From 62f64ba3d4d3771ab39c212933faa5b4e380281a Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 19 Nov 2019 10:30:29 -0700 Subject: [PATCH] Correcciones en almacenes virtuales --- Inventarios/RecepcionAlmacen.aspx | 9 +++++ Inventarios/RecepcionAlmacen.aspx.vb | 50 ++++++++++++++++++++++++++++ Inventarios/RecepcionEntrega.aspx.vb | 37 +++++++++++--------- 3 files changed, 80 insertions(+), 16 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx b/Inventarios/RecepcionAlmacen.aspx index fe8ca46d5..0adad806e 100644 --- a/Inventarios/RecepcionAlmacen.aspx +++ b/Inventarios/RecepcionAlmacen.aspx @@ -350,6 +350,15 @@ +
+
+
+ + Información: + +
+
+
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 9b59e3357..dd307b812 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -942,6 +942,9 @@ Partial Class Inventarios_RecepcionAlmacen DivCodigoSeriePS.Visible = False End If + If UsuarioActual.CveEmpresa = 140 Then + DivVirtualAdvertencia.Visible = True + End If End If Else @@ -2209,6 +2212,53 @@ Partial Class Inventarios_RecepcionAlmacen Next End If + End If + + 'VIRTUAL + Dim DtTamanios As New DataTable("DtTamanios") + DtTamanios.Columns.Add(New DataColumn("CvePS", GetType(Integer))) + DtTamanios.Columns.Add(New DataColumn("Cantidad", GetType(Decimal))) + DtTamanios.Columns.Add(New DataColumn("PU", GetType(Decimal))) + DtTamanios.Columns.Add(New DataColumn("CveUM", GetType(Integer))) + + If ObjAcum.TamañoGet(-1, UsuarioActual.CveEmpresa) Then + For Each GvRow As GridViewRow In GvInv.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + For Each Tam As DataRow In ObjAcum.DtResultados.Rows + If Tam("CveTamaño").ToString() = GvRow.DataKey("CveTamaño") Then + Dim Row As DataRow = DtTamanios.NewRow() + + Row("CvePS") = Tam("CvePSCargo").ToString().ToEntero() + Row("Cantidad") = GvRow.FCTextBox("TbCantidadF").Text.ToDecimal() + Row("PU") = GvRow.DataKey("PU").ToDecimal() + Row("CveUM") = GvRow.DataKey("CveUM").ToEntero() + + DtTamanios.Rows.Add(Row) + End If + Next + End If + Next + End If + + If DtTamanios IsNot Nothing AndAlso DtTamanios.Rows.Count > 0 Then + Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacen.SelectedValue}").ToEntero() + + Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() + + CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim) + FolioVirtual = ObjInventario.Folio + + For Each RowUsado As DataRow In DtTamanios.Rows + Dim CvePS = RowUsado("CvePS").ToString().ToEntero() + Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble() + Dim PU As Double = RowUsado("PU").ToString().ToDouble() + Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero() + + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + ErrorMovInv = True + Exit For + End If + Next End If 'DEVENGAR AC diff --git a/Inventarios/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb index b7b78daae..3e8d3f33c 100644 --- a/Inventarios/RecepcionEntrega.aspx.vb +++ b/Inventarios/RecepcionEntrega.aspx.vb @@ -1933,7 +1933,7 @@ Partial Class Inventarios_RecepcionEntrega ' COMIENZA: VIRTUAL - If TipoDocto.Contiene("Ing", "Rem") AndAlso UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 1 Then + If TipoDocto.Contiene("Ing", "Rem") AndAlso UsuarioActual.CveEmpresa = 140 Then Dim DtTamanios As New DataTable("DtTamanios") DtTamanios.Columns.Add(New DataColumn("CvePS", GetType(Integer))) @@ -1960,26 +1960,31 @@ Partial Class Inventarios_RecepcionEntrega Next End If - Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() + Dim CveAlmacenVirtual As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() - If DtTamanios IsNot Nothing AndAlso DtTamanios.Rows.Count > 0 AndAlso CveAlmacenVirutal > 0 Then + If DtTamanios IsNot Nothing AndAlso DtTamanios.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 Then Dim CveConceptoMovimientoVirtual = If(TipoMovimiento = 1, 3, 18) 'CHECA SI ES ENTRADA O DEVOLUCION - CveAlmacenVirutal = ObjInventario.AddMovimiento(CveAlmacenVirutal, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text) + CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text) FolioVirtual = ObjInventario.Folio - For Each RowUsado As DataRow In DtTamanios.Rows - Dim CvePS = RowUsado("CvePS").ToString().ToEntero() - Dim CantidadEntrada As Double = RowUsado("Cantidad").ToString().ToDouble() - Dim PU As Double = RowUsado("PU").ToString().ToDouble() - Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero() + If CveMovimientoVirtual > 0 Then + For Each RowUsado As DataRow In DtTamanios.Rows + Dim CvePS = RowUsado("CvePS").ToString().ToEntero() + Dim CantidadEntrada As Double = RowUsado("Cantidad").ToString().ToDouble() + Dim PU As Double = RowUsado("PU").ToString().ToDouble() + Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero() + + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadEntrada, CveUM, CvePS, PU, -1) Then + ErrorMovInv = True + TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar." + Exit For + End If + Next + Else + ErrorMovInv = True + End If - If Not ObjInventario.AddMovimientoDetalle(CveAlmacenVirutal, CantidadEntrada, CveUM, CvePS, PU, -1) Then - ErrorMovInv = True - TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar." - Exit For - End If - Next Else ErrorMovInv = True End If @@ -2460,7 +2465,7 @@ Partial Class Inventarios_RecepcionEntrega 'VIRTUAL If CveMovimientoVirtual > 0 Then - Msg.AppendFormat("
Movimiento de Salida del Almacen Virtal: Folio : ") + Msg.AppendFormat("
Movimiento de Salida del Almacen Virtal: ") Msg.AppendFormat("{1}", CveMovimientoVirtual, FolioVirtual) End If