-

Ventas/Ventas.aspx.vb

@@ -6281,6 +6281,14 @@ Partial Class Ventas
                     e.Row.FCCheckBox("cbInv").Enabled = False
                 End If
 
+                'SI DEBE HACER SALIDA DIRECTA DE ALMACEN DEBE ESTAR SELECCIONADO SIEMPRE
+                If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then
+                    e.Row.FCCheckBox("cbInv").Checked = True
+                    If UsuarioActual.CveEmpresa = 141 Then
+                        e.Row.FCCheckBox("cbInv").Enabled = False
+                    End If
+                End If
+
             End If
 
             If (CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot") AndAlso Not AplicaDevolucion Then
@@ -11197,6 +11205,15 @@ Partial Class Ventas
                     Next
                 End If
 
+                'EN ECONOLLANTAS DEBE REALIZAR SIEMPRE LA SALIDA DE ALMACEN
+                If UsuarioActual.CveEmpresa = 141 AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
+                    For Each GvRow As GridViewRow In GvInv.Rows
+                        If GvRow.RowType = DataControlRowType.DataRow Then
+                            GvRow.FCCheckBox("cbInv").Checked = True
+                        End If
+                    Next
+                End If
+
                 If DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
 
                     Dim Filtro As String = ""
@@ -11299,6 +11316,11 @@ Partial Class Ventas
                             i = i + 1
                         Next
 
+                        'VERIFICA QUE SE REALIZO EL MOVIMIENTO DE ALMACEN
+                        If Not (ObjInventario.GetInv_Mov(factura.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0) Then
+                            OcurrioError = True
+                        End If
+
                         'REGISTRO LA PREPOLIZA DE COSTO VS ALMACEN
                         If Not OcurrioError Then
                             Dim DtCostos As DataTable = Nothing
@@ -19505,30 +19527,11 @@ Partial Class Ventas
     Public Sub LbDescargarExcel_Click(sender As Object, e As EventArgs) Handles LbDescargarExcelVentas.Click
         DescargarFormato()
     End Sub
-    Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
+    Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String, FileUrl As String)
         Dim dt As New DataTable
-        Dim Conexion As Odbc.OdbcConnection = Nothing
         Dim ErrorArchivo = False
         Dim n As Integer = 0
-        Try
-            Select Case Tipo
-                Case "EXCEL"
-                    Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";")
-                    Conexion.Open()
-                    Dim cmd = Conexion.CreateCommand()
-                    cmd.CommandType = CommandType.Text
-                    cmd.CommandText = "Select * FROM [Hoja1$] WHERE Cantidad >=1"
-                    Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
-                    DataAdapter.Fill(dt)
-                Case Else
-                    Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError)
-                    Exit Sub
-            End Select
-        Catch ex As Exception
-            ErrorArchivo = True
-            OnError("Ocurrio un Error al leer el archivo <br/>" & ex.Message, ex)
-        End Try
-        Conexion.Close()
+        dt = ReadExcelFile(FileUrl, True)
         If Not ErrorArchivo Then
             If Not dt.Columns(0).ColumnName = "Cantidad" Then
                 Alert("El nombre de la primera columna debe ser 'Cantidad'.Favor de corregirlo", TipoMensaje.MsgError)
@@ -19577,6 +19580,7 @@ Partial Class Ventas
                 Dim RowNoEncontrados As String = ""
                 Dim NumAgregados As Integer = 0
                 For Each Row As DataRow In dt.Rows
+                    NumAgregados = NumAgregados + 1
                     Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal
                     Dim UM As String = Row("UM").ToString()
                     Dim Codigo As String = Row("Código").ToString().Trim.ToUpper
@@ -19728,7 +19732,7 @@ Partial Class Ventas
             Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
             Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
             Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
-            CargarArchivo(Directorio, file.filename, Tipo)
+            CargarArchivo(Directorio, file.filename, Tipo, file.FileUrl)
         Else
             Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
         End If
@@ -25504,4 +25508,7 @@ Partial Class Ventas
     Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs)
         CargaEventoBitacora()
     End Sub
+
+
+
 End Class