AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- cambios, se liminaron espacios en el código.

Browse Source
This commit is contained in:
rrene
2022-03-07 13:59:29 -07:00
parent c643e602d9
commit 48ac1f7425
2 changed files with 7 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Contabilidad/FiltraPolizas.aspx.vb
View File

@@ -607,6 +607,9 @@ Partial Class Contabilidad_FiltraPolizas
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(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>" 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>"
Else
e.Row.Cells(2).Text = $"<a href='/Contabilidad/RegPoliza.aspx?IdPoliza={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

21
Contabilidad/PolizasImpresion.aspx.vb
View File

@@ -9,8 +9,6 @@ Imports Microsoft.Reporting.WebForms
Partial Class Contabilidad_PolizasImpresion Partial Class Contabilidad_PolizasImpresion
Inherits ClsPaginas Inherits ClsPaginas
Public Property ContabilidadSIG As Boolean Public Property ContabilidadSIG As Boolean
Get Get
If ViewState("ContabilidadSIG") Is Nothing Then If ViewState("ContabilidadSIG") Is Nothing Then
@@ -53,26 +51,22 @@ Partial Class Contabilidad_PolizasImpresion
CargaCuentas() CargaCuentas()
End If End If
End If End If
End Sub End Sub
Private Sub BtnConsultar_click(sender As Object, args As EventArgs) Handles BtnConsultar.Click Private Sub BtnConsultar_click(sender As Object, args As EventArgs) Handles BtnConsultar.Click
If ContabilidadSIG Then If ContabilidadSIG Then
ConsultaSIIG() ConsultaSIG()
Else Else
ConsultaCONTPAQi() ConsultaCONTPAQi()
End If End If
End Sub End Sub
#Region "SIG"
Private Sub ConsultaSIG()
#Region "SIIG"
Private Sub ConsultaSIIG()
Dim foli As Integer = -1 Dim foli As Integer = -1
Dim folf As Integer = -1 Dim folf As Integer = -1
@@ -129,9 +123,7 @@ Partial Class Contabilidad_PolizasImpresion
End Sub End Sub
Private Sub CargaDdlPolizasSIG()
Private Sub cargaddlpolizasSIG()
Dim objcont As New ClsContabilidad Dim objcont As New ClsContabilidad
If objcont.GetTiposPoliza(-1, "-1", UsuarioActual.CveEmpresa) Then If objcont.GetTiposPoliza(-1, "-1", UsuarioActual.CveEmpresa) Then
ddlTipoPoliza.DataSource = objcont.DtResultados ddlTipoPoliza.DataSource = objcont.DtResultados
@@ -159,8 +151,6 @@ Partial Class Contabilidad_PolizasImpresion
DdlCuenta.DataValueField = "CveCuenta" DdlCuenta.DataValueField = "CveCuenta"
DdlCuenta.DataTextField = "CtaCodigo" DdlCuenta.DataTextField = "CtaCodigo"
Dim objconta As New ClsContabilidad Dim objconta As New ClsContabilidad
If objconta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then If objconta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
DdlCuenta.DataSource = objconta.DtResultados DdlCuenta.DataSource = objconta.DtResultados
@@ -276,7 +266,4 @@ Partial Class Contabilidad_PolizasImpresion
#End Region #End Region
End Class End Class