- mejoras

Acumuladores/RepRecolecciones.aspx.vb

@@ -142,8 +142,10 @@ Partial Class Acumuladores_RepRecolecciones
         UpModalRecoleccion.Update()
     End Sub
     Private Function InitDTRecoleccion() As DataTable
+        Dim Columnaid = New DataColumn() With {.ColumnName = "CveEntregaAlmacenDetalle", .DataType = Type.GetType("System.Int32"), .AutoIncrement = True, .AutoIncrementSeed = 1, .AutoIncrementStep = 1}
+
         Dim DT As DataTable = New DataTable()
-        DT.Columns.Add("CveEntregaAlmacenDetalle", System.Type.[GetType]("System.Int32"))
+        DT.Columns.Add(Columnaid)
         DT.Columns.Add("CveEntregaAlmacen", System.Type.[GetType]("System.Int32"))
         DT.Columns.Add("CvePS", System.Type.[GetType]("System.Int32"))
         DT.Columns.Add("Cantidad", System.Type.[GetType]("System.Double"))
@@ -178,7 +180,6 @@ Partial Class Acumuladores_RepRecolecciones
     Protected Sub LnkModalAgregarPS_Click(ByVal sender As Object, ByVal e As EventArgs)
 
         Dim dRow As DataRow = DTRecoleccion.NewRow()
-        dRow("CveEntregaAlmacenDetalle") = -1
         dRow("CveEntregaAlmacen") = CveEntregaAlmacen
         dRow("CvePS") = DdlProducto2.SelectedValue.ToEntero()
         dRow("Cantidad") = TxtModalRecoleccionCantidad.Text.ToEntero()
@@ -186,7 +187,7 @@ Partial Class Acumuladores_RepRecolecciones
         dRow("CveUsuario") = UsuarioActual.CveUsuario
         dRow("FechaIng") = NowADS()
         dRow("CodigoPS") = DdlProducto2.SelectedItem.Text
-        dRow("Abreviatura") = DdlModalRecoleccionUnidad.SelectedItem.Text
+        dRow("Abreviatura") = If(DdlModalRecoleccionUnidad.SelectedItem IsNot Nothing, DdlModalRecoleccionUnidad.SelectedItem.Text, "")
         DTRecoleccion.Rows.Add(dRow)
 
         LimpiarControlesPS()
@@ -272,14 +273,17 @@ Partial Class Acumuladores_RepRecolecciones
 
         If Not ErrorMovInv Then
             ObjInventario.Commit()
-            GvR.DataBind()
+            GvModalPSRecoleccion.DataBind()
+
             DTRecoleccion.Clear()
+            RegistraScript("$('#DivModalRecoleccion').modal('hide');")
 
             Dim MensajeAlert As New StringBuilder
             MensajeAlert.Append("Se realizó con éxito el traspaso.")
             MensajeAlert.AppendFormat("<br/> Folio de Salida: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" class='Texto' target=""_blank"">{0}</a></b>", FolioSalida, CveMovimientoSalida)
             'MensajeAlert.AppendFormat("<br/><a target='_blank' class='Texto'  href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida)))
             Alert(MensajeAlert.ToString)
+            CargaDatos()
         Else
             ObjInventario.RollBack()
         End If