merge

Inventarios/TraspasoAlmacen.aspx.vb

@@ -686,6 +686,9 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim CveSubProyectoOrigen, CveSubProyectoDestino As Integer
         Dim IdCtaContableOrigen, IdCtaContableDestino As Integer
 
+        Dim CveAlmacenVirtualSalida As Integer = -1
+        Dim CveAlmacenVirtualEntrada As Integer = -1
+
         DrAlmO = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimero("")
         DrAlmD = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenDestino.SelectedValue.ToEntero).FiltroPrimero("")
 
@@ -694,11 +697,14 @@ Partial Class Inventarios_TraspasoAlmacen
             TipoAlmacenOrigen = DrAlmO("CveTipoAlmacen").ToString.ToEntero
             CveSubProyectoOrigen = DrAlmO("CveSubProyecto").ToString.ToEntero
             IdCtaContableOrigen = DrAlmO("IdCtaContable").ToString.ToEntero
+            CveAlmacenVirtualSalida = DrAlmO("CveAlmacenVirtual").ToString.ToEntero
+
 
             CveSucursalDestino = DrAlmD("CveSubProyecto").ToString.ToEntero
             TipoAlmacenDestino = DrAlmD("CveTipoAlmacen").ToString.ToEntero
             CveSubProyectoDestino = DrAlmD("CveSubProyecto").ToString.ToEntero
-            IdCtaContableDestino = DrAlmO("IdCtaContable").ToString.ToEntero
+            IdCtaContableDestino = DrAlmD("IdCtaContable").ToString.ToEntero
+            CveAlmacenVirtualEntrada = DrAlmD("CveAlmacenVirtual").ToString.ToEntero
 
         End If
 
@@ -863,7 +869,11 @@ Partial Class Inventarios_TraspasoAlmacen
         'VIRTUAL SALIDA
         If RealizarMovimientoVirtual Then
 
-            Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveSubProyectoOrigen).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
+            'If TipoAlmacenOrigen = 27 Then
+            '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 25).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyectoOrigen}").ToEntero()
+            'Else
+            '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyectoOrigen}").ToEntero()
+            'End If
 
             Dim dtvirtual As DataTable = Nothing
 
@@ -889,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)
@@ -955,70 +965,70 @@ Partial Class Inventarios_TraspasoAlmacen
 
                     Else
                         ErrorMovInv = True
-                    End If
+            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
-                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
+                'si el tipo de almacen de entrada es Almacen sin costo, se registra al costo, la salida. 
+                If TipoAlmacenOrigen <> 26 AndAlso TipoAlmacenDestino = 26 Then
 
-                        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
+                    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
+        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
+                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, 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
+                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
 
 
 
@@ -1688,6 +1698,14 @@ Partial Class Inventarios_TraspasoAlmacen
 
                     Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
 
+                    'SI EL ALMACEN ORIGEN ES DE APOPYO LOGISTICO EL ALMACEN VIRTUAL DEBE SER DE APOYO LOGISTICO
+                    'Dim CveAlmacenVirtual As Integer = -1
+                    'If CveTipoAlmacenOrigen = 27 Then
+                    '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                    'Else
+                    '    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                    'End If
+
                     If CveAlmacenVirtual > 0 Then
 
                         Dim dtvirtual As DataTable = Nothing
@@ -2833,7 +2851,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