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

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
rakcsle
2022-03-08 13:10:16 -07:00
parent 5565150f33 5ed9f5fc49
commit a020d99579
14 changed files with 317 additions and 187 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Contabilidad/FiltraPolizas.aspx
View File

@@ -21,8 +21,7 @@
<li>
<asp:LinkButton ID="LnkPaqueteEgre" runat="server"><i class="fa fa-ad-pdf"></i> Paquete Egresos</asp:LinkButton>
</li>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
@@ -71,7 +70,7 @@
<asp:ListItem Text="Orden" Value="4"></asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1">Segmento: </label>
<label class="col-md-1">Centro Costo: </label>
<div class="col-md-1">
<asp:DropDownList ID="DdlSegmentoNeg" DataTextField="Nombre" DataValueField="Id" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>
</div>

19
Contabilidad/FiltraPolizas.aspx.vb
View File

@@ -45,14 +45,8 @@ Partial Class Contabilidad_FiltraPolizas
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
@@ -87,9 +81,6 @@ Partial Class Contabilidad_FiltraPolizas
Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToString().ToEntero()
Dim Periodo As Integer = DdlPeriodo.SelectedValue.ToString().ToEntero()
If ContabilidadSIG Then
Dim ObjConta As New ClsContabilidad
@@ -103,7 +94,6 @@ Partial Class Contabilidad_FiltraPolizas
ObjConta.Dispose()
Else
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
@@ -125,8 +115,6 @@ Partial Class Contabilidad_FiltraPolizas
End If
Gv.DataBind()
UpDatos.Update()
End Sub
@@ -151,7 +139,6 @@ Partial Class Contabilidad_FiltraPolizas
End If
DdlSegmentoNeg.DataBind()
DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -183,7 +170,6 @@ Partial Class Contabilidad_FiltraPolizas
End If
DdlEjercicio.DataBind()
DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
@@ -621,11 +607,12 @@ 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(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
End Sub

21
Contabilidad/PolizasImpresion.aspx.vb
View File

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