Cambios en virtuales

Inventarios/EntregaAlmacen.aspx.vb

@@ -2709,7 +2709,7 @@ Partial Class Inventarios_EntregaAlmacen
                         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 PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
                             Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
 
                             If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU) Then

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2377,7 +2377,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 Dim CveVendedorActual = -1
                 Dim CveClienteActual = -1
 
-                Dim CveAlmacenDestino = CveAlmacen
+                Dim CveAlmacenDestino = CveAlmacenDevolucionProveedor
                 Dim CveSeccionDestino As Integer = -1
 
                 'For Each RowAlmacen As DataRow In DtAlmacenesDevolucion.FiltraParametros("", DistinctColumns:={"CveAlmacenOrignal"}).Rows
@@ -2884,6 +2884,66 @@ Partial Class Inventarios_RecepcionAlmacen
                             End If
                         Next
                     End If
+
+                    If SumarImporteUsados Then
+                        If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) Then
+                            ImporteIngresoAdicional = ObjInventario.DtResultados.SUMD("TotalOriginal")
+                        End If
+                    End If
+
+                Else
+                    If RealizarMovimientoVirtual Then
+
+                        Dim DtPSVirtual As New DataTable("DtTamanios")
+
+                        Dim CveMovimientoRef As Integer = -1
+                        If RealizarTraspasoAlmacenDevolucion Then
+                            CveMovimientoRef = CveMovimientoSalidaTraspaso
+                        Else
+                            CveMovimientoRef = CveMovimiento
+                        End If
+
+                        If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoRef, UsuarioActual.CveEmpresa) Then
+                            DtPSVirtual = ObjInventario.DtResultados
+                        End If
+
+                        If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 Then
+
+                            Dim CveTipoAlmacenFiltro As Integer = 24
+
+                            Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero()).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
+
+                            CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, 13, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoRef, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/VD")
+
+                            If CveMovimientoVirtual > 0 Then
+                                FolioVirtual = ObjInventario.Folio
+
+                                For Each RowUsado As DataRow In DtPSVirtual.Rows
+                                    Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                                    Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
+                                    Dim PU As Decimal = RowUsado("Cargo").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
+
+                                If SumarImporteUsados Then
+                                    If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) Then
+                                        ImporteIngresoAdicional = ObjInventario.DtResultados.SUMD("TotalOriginal")
+                                    End If
+                                End If
+
+                            Else
+                                ErrorMovInv = True
+                            End If
+
+                        Else
+                            ErrorMovInv = True
+                        End If
+                    End If
                 End If
 
             End If

Inventarios/TraspasoAlmacen.aspx.vb

@@ -882,13 +882,13 @@ Partial Class Inventarios_TraspasoAlmacen
                 dtvirtual = ObjInventario.DtResultados
 
                 If dtvirtual.Rows.Count > 0 Then
-                    CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
+                    CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
                     FolioVirtualSalida = ObjInventario.Folio
 
                     For Each RowVirtual As DataRow In dtvirtual.Rows
                         Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
                         Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble()
-                        Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
+                        Dim PU As Decimal = RowVirtual("Cargo").ToString().ToDecimal()
                         Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
 
                         If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualSalida, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
@@ -899,7 +899,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 End If
             Else
                 ErrorMovInv = True
-        End If
+            End If
         End If
 
         AlmacenEntrada = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero)
@@ -933,27 +933,23 @@ Partial Class Inventarios_TraspasoAlmacen
         If Not ChkTransitorio.Checked Then 'SI NO ES TRANSITORIO SE HACE LA RECEPCION DE INMEDIATO
             If Not ErrorMovInv Then
 
-
                 'VIRTUAL ENTRADA
                 If RealizarMovimientoVirtual Then
-                    'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenDestino.SelectedValue}").ToEntero()
 
-                    'SI EL ALMACEN DESTINO ES DE APOPYO LOGISTICO EL ALMACEN VIRTUAL DEBE SER DE APOYO LOGISTICO
-                    Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveSubProyectoOrigen).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
                     Dim dtvirtual As DataTable = Nothing
 
                     If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
                         dtvirtual = ObjInventario.DtResultados
                         If dtvirtual.Rows.Count > 0 Then
                             ''hay que verificar que se se tengan movimeintos por registrar
-                            CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/S3")
+                            CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtualEntrada, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/S3")
                             FolioVirtualEntrada = ObjInventario.Folio
 
 
                             For Each RowVirtual As DataRow In dtvirtual.Rows
                                 Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
                                 Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble()
-                                Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
+                                Dim PU As Decimal = RowVirtual("Cargo").ToString().ToDecimal()
                                 Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
 
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
@@ -965,70 +961,70 @@ Partial Class Inventarios_TraspasoAlmacen
 
                     Else
                         ErrorMovInv = True
-            End If
-        End If
-        Dim Concepto As String = TxtObservaciones.Text
-        If Concepto = "" Then Concepto = "Traspaso"
-        'AGREGAMOS PREPOLIZAS TRASPASO DIRECTO:
-        If Not ErrorMovInv Then
-            Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-            If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
-
-                Dim resultado As DataTable = ObjInventario.DtResultados
-                Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
-                'Dim IdCtaContableSalida As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue.ToEntero)).ToEntero
-                'Dim IdCtaContableEntrada As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenDestino.SelectedValue.ToEntero)).ToEntero
-                Dim Contabilizable As Boolean = True
-
-                If IdCtaContableOrigen = IdCtaContableDestino And TipoAlmacenDestino <> 26 Then Contabilizable = False
-
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable, ImporteMX:=importe) Then
-                    ErrorMovInv = True
-                End If
-
-                'si el tipo de almacen de entrada es Almacen sin costo, se registra al costo, la salida. 
-                If TipoAlmacenOrigen <> 26 AndAlso TipoAlmacenDestino = 26 Then
-
-                    Dim tCveClasificacion As Integer = DtMovimientos.MAX("CveClasificacion").ToEntero
-                    Dim dr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=tCveClasificacion).FiltroPrimero("")
-                    Dim IdCuentaCostos As Integer = -1
-                    If dr IsNot Nothing Then
-                        IdCuentaCostos = dr("IdCuentaCostos").ToString.ToEntero
                     End If
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 69, TxtObservaciones.Text, Fecha, IdCuentaCostos, -1, CveClasificacion:=tCveClasificacion, CveSubProyecto:=CveSubProyectoOrigen, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable, ImporteMX:=importe) Then
+                End If
+                Dim Concepto As String = TxtObservaciones.Text
+                If Concepto = "" Then Concepto = "Traspaso"
+                'AGREGAMOS PREPOLIZAS TRASPASO DIRECTO:
+                If Not ErrorMovInv Then
+                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+
+                        Dim resultado As DataTable = ObjInventario.DtResultados
+                        Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
+                        'Dim IdCtaContableSalida As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue.ToEntero)).ToEntero
+                        'Dim IdCtaContableEntrada As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenDestino.SelectedValue.ToEntero)).ToEntero
+                        Dim Contabilizable As Boolean = True
+
+                        If IdCtaContableOrigen = IdCtaContableDestino And TipoAlmacenDestino <> 26 Then Contabilizable = False
+
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable, ImporteMX:=importe) Then
+                            ErrorMovInv = True
+                        End If
+
+                        'si el tipo de almacen de entrada es Almacen sin costo, se registra al costo, la salida. 
+                        If TipoAlmacenOrigen <> 26 AndAlso TipoAlmacenDestino = 26 Then
+
+                            Dim tCveClasificacion As Integer = DtMovimientos.MAX("CveClasificacion").ToEntero
+                            Dim dr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=tCveClasificacion).FiltroPrimero("")
+                            Dim IdCuentaCostos As Integer = -1
+                            If dr IsNot Nothing Then
+                                IdCuentaCostos = dr("IdCuentaCostos").ToString.ToEntero
+                            End If
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 69, TxtObservaciones.Text, Fecha, IdCuentaCostos, -1, CveClasificacion:=tCveClasificacion, CveSubProyecto:=CveSubProyectoOrigen, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable, ImporteMX:=importe) Then
+                                ErrorMovInv = True
+                            End If
+                            Contabilizable = False
+                            importe = 0
+                        End If
+
+                        If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableDestino, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=Contabilizable, ImporteMX:=importe) Then
+                            ErrorMovInv = True
+                        End If
+                    End If
+                End If
+            End If
+        Else
+            If Not ErrorMovInv Then
+                Dim Concepto As String = TxtObservaciones.Text
+                If Concepto = "" Then Concepto = "Traspaso"
+                Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen2", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+
+                    Dim resultado As DataTable = ObjInventario.DtResultados
+                    Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
+                    Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorio.SelectedValue.ToEntero)).ToEntero
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=importe, Contabilizable:=False) Then
                         ErrorMovInv = True
                     End If
-                    Contabilizable = False
-                    importe = 0
-                End If
 
-                If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableDestino, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=Contabilizable, ImporteMX:=importe) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=importe, Contabilizable:=False) Then
-                    ErrorMovInv = True
+                        ErrorMovInv = True
+                    End If
                 End If
             End If
         End If
-        End If
-        Else
-        If Not ErrorMovInv Then
-            Dim Concepto As String = TxtObservaciones.Text
-            If Concepto = "" Then Concepto = "Traspaso"
-            Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen2", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-            If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
-
-                Dim resultado As DataTable = ObjInventario.DtResultados
-                Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
-                Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorio.SelectedValue.ToEntero)).ToEntero
-
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=importe, Contabilizable:=False) Then
-                    ErrorMovInv = True
-                End If
-
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=importe, Contabilizable:=False) Then
-                    ErrorMovInv = True
-                End If
-            End If
-        End If
-        End If
 
 
 
@@ -1945,7 +1941,7 @@ Partial Class Inventarios_TraspasoAlmacen
                             For Each RowVirtual As DataRow In dtvirtual.Rows
                                 Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
                                 Dim CantidadUsado As Decimal = RowVirtual("Cantidad").ToString().ToDecimal()
-                                Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
+                                Dim PU As Decimal = RowVirtual("Cargo").ToString().ToDecimal()
                                 Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
 
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
@@ -2851,7 +2847,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
     Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-        Dim excelFile As ExcelFile = excelFile.Load(flatFilePath)
+        Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
 
         Dim unnamed As Integer = 0
         Dim cols As Integer