--CITRUS. Modal de existencias por capas

Inventarios/Kardex.aspx.vb

@@ -1,11 +1,13 @@
 Option Strict On
 Option Explicit On
 
+Imports System
 Imports System.Data
 Imports System.Security.Cryptography.Pkcs
 Imports ADSNetLibrary.SIGAPI.Models.CGame
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
+Imports Microsoft.VisualBasic
 Imports Telerik.Web.UI
 
 Partial Class Inventarios_Kardex
@@ -279,6 +281,10 @@ Partial Class Inventarios_Kardex
 
                 LnkSeries.Visible = AuxAplicaSerie
                 LnkCaducidad.Visible = AuxAplicaCad
+
+                If UsuarioActual.CveEmpresa = 172 Then
+                    LnkExistenciasPorCapas.Visible = True
+                End If
                 'CARGA INDICADORES
 
                 If UsuarioActual.TienePermisoProceso(201) Then
@@ -574,6 +580,30 @@ Partial Class Inventarios_Kardex
 
         Next
     End Sub
+
+    Protected Sub LnkExistenciasPorCapas_OnClick(sender As Object, e As EventArgs) Handles LnkExistenciasPorCapas.Click
+
+        Dim FechaI As DateTime = If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text.ToDateTime(), MinFecha)
+        Dim FechaF As DateTime = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text.ToDateTime(), MaxFecha)
+
+        Using ObjInv As New ClsInventarios
+            If ObjInv.GetInvExistenciasCapas(ddlProducto2.SelectedValue.ToEntero(), FechaI, FechaF, UsuarioActual.CveEmpresa, ddlAlmacen.GetSelectedValues()) Then
+                GvExistenciasCapas.DataSource = ObjInv.DtResultados
+            End If
+        End Using
+
+        GvExistenciasCapas.DataBind()
+        UpExistenciasCapas.Update()
+        RegistraScript(String.Format("$('#{0}').modal('show');", "DivModalExistenciasCapas"))
+    End Sub
+
+    Protected Sub GvExistenciasCapas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvExistenciasCapas.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CodigoPS").Contains("Total") Then
+                e.Row.CssClass = "Totales"
+            End If
+        End If
+    End Sub
 #End Region