FiltraPolizas, RegPoliza unificadas y RegPrePoliza validaciones de naturaleza de cargo abono.

Contabilidad/FiltraPolizas.aspx.vb

@@ -15,6 +15,7 @@ Partial Class Contabilidad_FiltraPolizas
             ViewState("DtDatos") = value
         End Set
     End Property
+
     Public Property Tick As String
         Get
             Return CType(ViewState("Tick"), String)
@@ -23,20 +24,47 @@ Partial Class Contabilidad_FiltraPolizas
             ViewState("Tick") = value
         End Set
     End Property
+
+
+    Public Property ContabilidadSIG As Boolean
+        Get
+            If ViewState("ContabilidadSIG") Is Nothing Then
+                ViewState("ContabilidadSIG") = False
+            End If
+
+            Return Boolean.Parse(ViewState("ContabilidadSIG").ToString)
+
+        End Get
+        Set(value As Boolean)
+            ViewState("ContabilidadSIG") = value
+        End Set
+    End Property
+
 #End Region
 
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
+
+
         If Not Page.IsPostBack Then
+
+
+            ContabilidadSIG = UsuarioActual.Empresa.UsaContabilidadSIG
+
+
             ViewState("Orden") = ""
             DdlPeriodo.SelectedValue = Now.Month.ToString
             TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString
             TxtFechaFCredito.Text = Now.LastDayOfMonth.ToShortDateString
-            If UsuarioActual.Empresa.UsaContabilidad Then
+
+            If UsuarioActual.Empresa.UsaContabilidad Or ContabilidadSIG Then
+
                 CargaSegmentoNeg()
                 CargaEjercicios()
-                CargaDatos()
+                'CargaDatos()
                 CargaGvBitacora()
+
             Else
                 Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
                 BtnConsultar.Enabled = False
@@ -55,50 +83,110 @@ Partial Class Contabilidad_FiltraPolizas
         End If
     End Sub
     Public Sub CargaDatos()
+
         Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToString().ToEntero()
         Dim Periodo As Integer = DdlPeriodo.SelectedValue.ToString().ToEntero()
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
 
-        If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
-            DtDatos = ObjConta.DtResultados
-            Gv.DataSource = ObjConta.DtResultados
-            'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then
-            '    ViewState("DTPolizas") = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
-            '    DtDatos = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
-            'Else
-            '    ViewState("DTPolizas") = ObjConta.DtResultados
-            '    DtDatos = ObjConta.DtResultados
-            'End If
+
+
+
+        If ContabilidadSIG Then
+
+            Dim ObjConta As New ClsContabilidad
+
+            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+                DtDatos = ObjConta.DtResultados
+                Gv.DataSource = ObjConta.DtResultados
+            Else
+                Gv.DataSource = Nothing
+            End If
+
+            ObjConta.Dispose()
+
+
+        Else
+
+            Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+                DtDatos = ObjConta.DtResultados
+                Gv.DataSource = ObjConta.DtResultados
+                'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then
+                '    ViewState("DTPolizas") = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
+                '    DtDatos = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
+                'Else
+                '    ViewState("DTPolizas") = ObjConta.DtResultados
+                '    DtDatos = ObjConta.DtResultados
+                'End If
+            Else
+                Gv.DataSource = Nothing
+            End If
+
+            ObjConta.Dispose()
 
         End If
 
-        Gv.DataBind()
 
-        ObjConta.Dispose()
+
+        Gv.DataBind()
         UpDatos.Update()
     End Sub
 
     Private Sub CargaSegmentoNeg()
-        Dim ObjContPAQ As New ClsContPAQi(UsuarioActual.Empresa)
-        If ObjContPAQ.GetSegmentosNegocio(-1, "-1") Then
-            DdlSegmentoNeg.DataSource = ObjContPAQ.DtResultados
-            DdlSegmentoNeg.DataBind()
+
+        DdlSegmentoNeg.Items.Clear()
+
+        If ContabilidadSIG Then
+            DdlSegmentoNeg.DataValueField = "CveSubProyecto"
+            DdlSegmentoNeg.DataTextField = "SubProyecto"
+            DdlSegmentoNeg.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        Else
+            DdlSegmentoNeg.DataValueField = "Id"
+            DdlSegmentoNeg.DataTextField = "Nombre"
+
+            Dim ObjContPAQ As New ClsContPAQi(UsuarioActual.Empresa)
+            If ObjContPAQ.GetSegmentosNegocio(-1, "-1") Then
+                DdlSegmentoNeg.DataSource = ObjContPAQ.DtResultados
+            End If
+            ObjContPAQ.Dispose()
+
         End If
-        ObjContPAQ.Dispose()
+
+
+        DdlSegmentoNeg.DataBind()
         DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1"))
+
     End Sub
 
     Private Sub CargaEjercicios()
-        Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
-        If ClsConta.GetEjercicios() Then
-            DdlEjercicio.DataSource = ClsConta.DtResultados
-        Else
-            DdlEjercicio.DataSource = Nothing
-        End If
-        ClsConta.Dispose()
-        DdlEjercicio.DataBind()
 
+        DdlEjercicio.Items.Clear()
+
+        If ContabilidadSIG Then
+
+            Dim ObjConta As New ClsContabilidad
+
+            If ObjConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
+                DdlEjercicio.DataSource = ObjConta.DtResultados
+            Else
+                DdlEjercicio.DataSource = Nothing
+            End If
+            ObjConta.Dispose()
+
+        Else
+            Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
+            If ClsConta.GetEjercicios() Then
+                DdlEjercicio.DataSource = ClsConta.DtResultados
+            Else
+                DdlEjercicio.DataSource = Nothing
+            End If
+            ClsConta.Dispose()
+
+        End If
+
+
+        DdlEjercicio.DataBind()
         DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
+
     End Sub
 
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -526,12 +614,18 @@ Partial Class Contabilidad_FiltraPolizas
     End Function
 
     Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles Gv.RowDataBound
+
         If e.Row.RowType = DataControlRowType.DataRow Then
-            'If e.Row.DataKey("Comprobante").ToString <> "" AndAlso e.Row.DataKey("Comprobante").ToString IsNot Nothing Then
-            '    e.Row.FCCheckBox("ChkPoliza").Enabled = True
-            'Else
-            '    e.Row.FCCheckBox("ChkPoliza").ToolTip = "No se tiene cargado comprobante de pago"
-            'End If
+
+            If ContabilidadSIG Then
+
+                e.Row.Cells(2).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank' >{e.Row.DataKey("Folio")}</a>"
+                e.Row.Cells(6).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank'><i class='fa fa-arrow-right' style='color:#686868;'></i></a>"
+
+            End If
+
+
+
         End If
     End Sub