CxC anticipos, RepPolizasCuadre, busqueda de AF Site.Master

Contabilidad/RepPolizasCuadre.aspx.vb

@@ -4,12 +4,21 @@ Option Strict On
 Imports System.Data
 Imports System.Linq
 Imports Extensiones
+
 Partial Class Contabilidad_RepPolizasCuadre
     Inherits ClsPaginas
 
     Private Sub Contabilidad_RepPolizasCuadre_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            CargaGrid()
+
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                CargaEjercicios()
+                MuestraControlesContabilidadSIG()
+                CargaDatosContabilidaSIG()
+            Else
+                CargaGrid()
+            End If
+
         End If
     End Sub
 
@@ -25,6 +34,7 @@ Partial Class Contabilidad_RepPolizasCuadre
         UpDatos.Update()
     End Sub
 
+
     Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             Dim Liga1 As String = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", e.Row.DBCampo("IdPoliza"))
@@ -32,4 +42,72 @@ Partial Class Contabilidad_RepPolizasCuadre
 
         End If
     End Sub
+
+
+#Region " C O N T A B L I D A D  S I G"
+    Private Sub MuestraControlesContabilidadSIG()
+
+        GvDatos.Visible = False
+
+        GvDatosSIG.Visible = True
+
+        BtnConsultar.Visible = True
+        DvRowFiltrosContanSig1.Visible = True
+
+    End Sub
+
+    Private Sub CargaDatosContabilidaSIG()
+
+
+        Dim ObjP As New ClsContabilidad
+
+        If ObjP.GetPolizasDescuadre(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+
+            If ObjP.DtResultados.Rows.Count > 0 Then
+                GvDatosSIG.DataSource = ObjP.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+            Else
+                GvDatosSIG.DataSource = Nothing
+            End If
+        Else
+            GvDatosSIG.DataSource = Nothing
+        End If
+
+        ObjP.Dispose()
+
+        GvDatosSIG.DataBind()
+        UpDatos.Update()
+
+
+
+    End Sub
+
+
+    Private Sub CargaEjercicios()
+
+        Dim Clsconta As New ClsContabilidad
+        If Clsconta.GetEjercicios(UsuarioActual.CveEmpresa) Then
+            DdlEjercicio.DataSource = Clsconta.DtResultados
+        Else
+            DdlEjercicio.DataSource = Nothing
+        End If
+        Clsconta.Dispose()
+
+        DdlEjercicio.DataBind()
+        DdlEjercicio.SelectedValue = Now.Year.ToString
+
+        DdlPeriodo.SelectedValue = Now.Month.ToString
+
+    End Sub
+
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargaDatosContabilidaSIG()
+    End Sub
+
+
+#End Region
+
+
+
+
 End Class