Compras compra en dolares pago con anticipo en pesos

Inventarios/Kardex.aspx.vb

@@ -763,5 +763,53 @@ Partial Class Inventarios_Kardex
 
         ObjOC.Dispose()
         UpIndicadores.Update()
+
+#Region " K P I  V E R C O M P O R T A M I E N T O "
+
+
+#End Region
+    End Sub
+
+    Protected Sub LnkKPIVerComportamiento_Click(sender As Object, e As EventArgs)
+        CargaDatosKPIVerCoportamiento()
+        RegistraScript("$('#DVKPIComportamiento').modal('show');")
+
+    End Sub
+
+    Private Sub CargaDatosKPIVerCoportamiento()
+
+        If ddlProducto2.SelectedValue.ToEntero <= 0 Then
+            Alert("No hay un producto seleccionado.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim ObjInvetarios As New ClsInventarios
+
+        Dim FechaInicio As New Date(Now.Year, 1, 1)
+        Dim FechaFin As New Date(Now.Year, 12, 31)
+
+
+
+        Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
+
+        If ObjInvetarios.GetVerComportamiento(ddlProducto2.SelectedValue.ToEntero, FechaInicio, FechaFin, UsuarioActual.CveEmpresa, CveAlmacenes) Then
+            GVComportamiento.DataSource = ObjInvetarios.DtResultados
+        End If
+        ObjInvetarios.Dispose()
+
+        GVComportamiento.DataBind()
+
+        UpModalComporatmiento.Update()
+
+    End Sub
+
+
+
+    Protected Sub ddlProducto2_selectedindexchange(sender As Object, e As EventArgs)
+        LnkKPIVerComportamiento.Visible = False
+        If ddlProducto2.SelectedValue.ToEntero > 0 Then
+            LnkKPIVerComportamiento.Visible = True
+        End If
+        UpAcciones.Update()
     End Sub
 End Class