1. Kardex. Visualización de cantidades pendientes de recibir (backorder) y visualizar como se componen la OC.

2.  permitir cancelación de partida del producto de la backorder.
3.  Filtro aseguradora en reportes de cxc y listado de clientes.
4. Rep CxC, personalizar columna de límite de crédito

Inventarios/Kardex.aspx.vb

@@ -31,6 +31,7 @@ Partial Class Inventarios_Kardex
         End Set
     End Property
 
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -315,6 +316,11 @@ Partial Class Inventarios_Kardex
                         LtIndicador_MensajeSerie.Text = ""
                     End If
 
+                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                        CargarOCPendientesCompra()
+                        DivIndicadorOC.Visible = True
+                    End If
+
                     UpIndicadores.Update()
 
                     GvM.Attributes.Add("data-heighterror", "430")
@@ -330,6 +336,17 @@ Partial Class Inventarios_Kardex
         End If
     End Sub
 
+    Private Sub CargarOCPendientesCompra()
+        Dim ObjOC As New ClsOC
+        If ObjOC.PendientesCompra(ddlProducto2.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvOC.DataSource = ObjOC.DtResultados.Copy
+            LnkIndicador_OC.Text = ObjOC.DtResultados.Copy.SUM("CantidadPendienteVincular").ToString()
+        End If
+        ObjOC.Dispose()
+        GvOC.DataBind()
+        UpModalOC.Update()
+    End Sub
+
     Private Function CargarKardex(CvePS As Integer) As DataTable
         Dim dt As DataTable = Nothing
 
@@ -713,4 +730,29 @@ Partial Class Inventarios_Kardex
         Return CvePSRespuesta
 
     End Function
+
+    Protected Sub LnkIndicador_OC_Click(sender As Object, e As EventArgs)
+        UpModalOC.Update()
+        RegistraScript(String.Format("$('#{0}').modal('show');", "ModalOC"))
+    End Sub
+
+    Protected Sub LnkCancelarOCDetalle_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow)
+
+        Dim CveOrdenCompraDetalle As Integer = GvRow.DataKey("CveOrdenCompraDetalle").ToEntero
+        Dim NuevaCantidad As Decimal = GvRow.DataKey("CantidadPendienteVincular").ToDecimal
+
+        If CveOrdenCompraDetalle <= 0 Then
+            Exit Sub
+        End If
+
+        Dim ObjOC As New ClsOC
+        If ObjOC.CancelarPartidaPendiente(CveOrdenCompraDetalle, NuevaCantidad, UsuarioActual.CveEmpresa) Then
+            CargarOCPendientesCompra()
+            Alert("La partida se cancelo correctamente.")
+        End If
+
+        ObjOC.Dispose()
+        UpIndicadores.Update()
+    End Sub
 End Class