Merge branch 'master' of http://192.168.10.111:8383/SIG

Inventarios/TraspasoAlmacen.aspx.vb

@@ -934,7 +934,7 @@ Partial Class Inventarios_TraspasoAlmacen
             If Not ErrorMovInv Then
 
                 'VIRTUAL ENTRADA
-                If RealizarMovimientoVirtual Then
+                If RealizarMovimientoVirtual AndAlso CveAlmacenVirtualEntrada > 0 Then
 
                     Dim dtvirtual As DataTable = Nothing
 
@@ -963,6 +963,7 @@ Partial Class Inventarios_TraspasoAlmacen
                         ErrorMovInv = True
                     End If
                 End If
+
                 Dim Concepto As String = TxtObservaciones.Text
                 If Concepto = "" Then Concepto = "Traspaso"
                 'AGREGAMOS PREPOLIZAS TRASPASO DIRECTO:
@@ -1743,7 +1744,7 @@ Partial Class Inventarios_TraspasoAlmacen
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
                                                      CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ImporteDecimal) Then
                         ErrorMovInv = True
-                        TextoError = "Ocurrió un erro al cancelar el traspaso"
+                        TextoError = "Ocurrió un error al cancelar el traspaso"
                     End If
 
                     'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
@@ -1925,10 +1926,10 @@ Partial Class Inventarios_TraspasoAlmacen
                         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
+                            ErrorMovInv = True
                         End If
                     End If
+                End If
             End If
 
 
@@ -2857,7 +2858,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
@@ -2967,7 +2968,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Else
                 Str = String.Format(" AND CveSubProyecto = {0}  ", DrAlmO("CveSubProyecto"))
             End If
-            DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("  CveTipoAlmacen NOT IN (3,4,9,10,11,24,28) AND Estatus = 'Activo' {0}   ", Str))
+            DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("  CveTipoAlmacen NOT IN (3,4,9,10,11,24,25,28) AND Estatus = 'Activo' {0}   ", Str))
             DdlAlmacenDestino.DataBind()
             DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))