Merge-Traspaso Almacen

Inventarios/RecepcionAlmacen.aspx.vb

@@ -30,7 +30,14 @@ Partial Class Inventarios_RecepcionAlmacen
     End Property
     Private Property DtInv As DataTable
         Get
-            Return CType(ViewState("DtInv"), DataTable)
+            If ViewState("DtInv") Is Nothing Then
+                Return New DataTable
+            Else
+                Return CType(ViewState("DtInv"), DataTable)
+            End If
+
+
+
         End Get
         Set(value As DataTable)
             ViewState("DtInv") = value
@@ -854,9 +861,15 @@ Partial Class Inventarios_RecepcionAlmacen
                 If TipoMovimiento = 3 Then
                     CargaAlmacenes(-1, "21,2")
                 End If
+
+                If CveTipoCompra = 9 Then
+                    CargaAlmacenes(-1, "21")
+                End If
+
                 RecibidaCompleta = False
 
                 Dim CargaSoloUsados As Boolean = False
+
                 If ObjInventario.RecepcionAlmacenGet(pCveCompra, BuscaEntregaDirecta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                     Dim DtRecepcion As DataTable = Nothing
                     Dim NumUsados = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = True").ToEntero()
@@ -2106,7 +2119,10 @@ Partial Class Inventarios_RecepcionAlmacen
     End Function
 
     Private Sub GuardaCompraOC()
+
         Dim CveMovimiento As Integer
+        ' Dim CveMovimientoS
+
         Dim InvFolio As String = ""
         Dim FechaMovto As Date = TxtFecha.Text.ToDate
 
@@ -2402,7 +2418,9 @@ Partial Class Inventarios_RecepcionAlmacen
                     If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.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()
+                        Dim CveTipoAlmacenFiltro As Integer = If(CveTipoCompra = 9, 25, 24)
+
+                        Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacenFiltro).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, Modulo:="RA/G")
                         FolioVirtual = ObjInventario.Folio
@@ -2494,6 +2512,76 @@ Partial Class Inventarios_RecepcionAlmacen
                     End If
                 End If
                 'TERMINA: DEVENGAR
+
+            Else
+
+
+
+                'VIRTUAL
+                If CveTipoCompra = 9 And UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+
+                    Dim DtPSVirtual As New DataTable("DtTamanios")
+                    DtPSVirtual.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
+                    DtPSVirtual.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
+                    DtPSVirtual.Columns.Add(New DataColumn("PU", GetType(Decimal)))
+                    DtPSVirtual.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
+
+                    Dim DtComprasDetalle As DataTable = Nothing
+                    Dim DtTamanios As DataTable = Nothing
+
+                    If ObjCompras.GetCompraDetalle(CveCompraSurtir) Then
+                        DtComprasDetalle = ObjCompras.DtResultados.Copy()
+                    End If
+
+                    If ObjAcum.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
+                        DtTamanios = ObjAcum.DtResultados.Copy()
+                    End If
+
+                    For Each GvRow As GridViewRow In GvInv.Rows
+                        If GvRow.RowType = DataControlRowType.DataRow Then
+
+                            For Each Tam As DataRow In DtTamanios.Rows
+                                If Tam("CveTamaño").ToString() = GvRow.DataKey("CveTamaño") Then
+                                    Dim CvePSCargo = Tam("CvePSCargo").ToString().ToEntero()
+                                    Dim RowCompraDetalle = DtComprasDetalle.FiltroPrimero($"CvePS = {CvePSCargo}")
+
+                                    If RowCompraDetalle IsNot Nothing Then
+                                        Dim Row As DataRow = DtPSVirtual.NewRow()
+                                        Row("CvePS") = CvePSCargo
+                                        Row("Cantidad") = GvRow.FCTextBox("TbCantidadF").Text.ToDecimal()
+                                        Row("PU") = RowCompraDetalle("PU").ToString().ToDecimal()
+                                        Row("CveUM") = GvRow.DataKey("CveUM").ToEntero()
+                                        DtPSVirtual.Rows.Add(Row)
+                                    End If
+
+                                End If
+                            Next
+
+                        End If
+                    Next
+
+                    If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.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, 25).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, Modulo:="RA/G")
+                        FolioVirtual = ObjInventario.Folio
+
+                        For Each RowUsado As DataRow In DtPSVirtual.Rows
+                            Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                            Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble()
+                            Dim PU As Decimal = RowUsado("PU").ToString().ToDecimal()
+                            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
+                End If
+
             End If
 
             'ACTUALIZA ESTATUS ALMACEN