Recepcion almacen cierre de Fletes e Importaciones, Correcion creditos, mensaje efacturas folio repetido, consignaciones prepoliza

Inventarios/RecepcionAlmacen.aspx.vb

@@ -434,6 +434,42 @@ Partial Class Inventarios_RecepcionAlmacen
         End Set
     End Property
 
+
+
+    Private Property CveImportacionSeleccionada As Integer
+        Get
+
+            If ViewState("CveImportacionSeleccionada") Is Nothing Then
+                ViewState("CveImportacionSeleccionada") = -1
+            End If
+
+            Return ViewState("CveImportacionSeleccionada").ToString.ToEntero
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveImportacionSeleccionada") = value
+        End Set
+    End Property
+
+
+
+    Private Property CveFleteSeleccionado As Integer
+        Get
+
+            If ViewState("CveFleteSeleccionado") Is Nothing Then
+                ViewState("CveFleteSeleccionado") = -1
+            End If
+
+            Return ViewState("CveFleteSeleccionado").ToString.ToEntero
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveFleteSeleccionado") = value
+        End Set
+    End Property
+
+
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -921,6 +957,9 @@ Partial Class Inventarios_RecepcionAlmacen
         UpDatosCompra.Update()
 
 
+        CveImportacionSeleccionada = -1
+        CveFleteSeleccionado = -1
+
         If TxtOC.Text <> "" Then
             LtDocumento.Text = "ORDEN DE COMPRA"
             CargaOC()
@@ -1242,6 +1281,11 @@ Partial Class Inventarios_RecepcionAlmacen
                     CreaDtLoteDetalle()
                     CreaDTInv(ObjInventario.DtResultados)
                     BtnGuardar.Visible = True
+
+                    If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                        CveImportacionSeleccionada = DdlFolioImportacion.SelectedValue.ToEntero
+                    End If
+
                 End If
 
                 If DtInv Is Nothing OrElse DtInv.Rows.Count = 0 Then
@@ -1298,6 +1342,10 @@ Partial Class Inventarios_RecepcionAlmacen
                     CreaDtLoteDetalle()
                     CreaDTInv(ObjInventario.DtResultados)
                     BtnGuardar.Visible = True
+                    If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                        CveFleteSeleccionado = DdlFletes.SelectedValue.ToEntero
+                    End If
+
                 End If
 
                 If DtInv Is Nothing OrElse DtInv.Rows.Count = 0 Then
@@ -3753,6 +3801,8 @@ Partial Class Inventarios_RecepcionAlmacen
             ErrorMovInv = True
         End Try
 
+
+
         'FINAL
         If Not ErrorMovInv Then
             ObjInventario.Commit() ' aplica los movimientos insertados
@@ -4099,6 +4149,22 @@ Partial Class Inventarios_RecepcionAlmacen
         End If
 
 
+        If Not ErrorMovInv AndAlso CveImportacionSeleccionada > 0 Then
+
+            If Not ObjInventario.UpdateImportacionCierre(CveImportacionSeleccionada, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+                ErrorMovInv = True
+            End If
+
+        End If
+
+
+        If Not ErrorMovInv AndAlso CveFleteSeleccionado > 0 Then
+            If Not ObjInventario.UpdateFleteCierre(CveFleteSeleccionado, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+                ErrorMovInv = True
+            End If
+        End If
+
+
         'FINAL
         If Not ErrorMovInv Then
             ObjInventario.Commit() ' aplica los movimientos insertados