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

mejoras en conceptos de NC

Browse Source
This commit is contained in:
rrene
2021-01-22 12:56:55 -07:00
parent 81050cba84
commit 5bcfb65cf8
2 changed files with 81 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -514,7 +514,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Else
DdlPersonal.Visible = False
End If
If DdlConceptosContables.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39) Then
If DdlConceptosContables.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then
CargaClientes()
DdlClientes.Visible = True
DdlVentas.Visible = True
@@ -542,7 +542,11 @@ Partial Class ContabilidadC_RegPrePolizaS
End Sub
Private Sub CargaCuentasContables()
DdlCtaContable.DataSource = Session("DtCuentas")
Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
DdlCtaContable.DataSource = ObjConta.DtResultados
End If
ObjConta.Dispose()
DdlCtaContable.DataBind()
DdlCtaContable.Items.Insert(0, New ListItem("Sin Asignar", "0"))
End Sub
@@ -1058,8 +1062,13 @@ Partial Class ContabilidadC_RegPrePolizaS
DdlTipoGastoE.DataBind()
DdlTipoGastoE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
End Sub
Private Sub CargaCtaContableE()
DdlCtaContableE.DataSource = Session("DtCuentas")
Private Sub CargaCtaContableE()
Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
DdlCtaContableE.DataSource = ObjConta.DtResultados
End If
ObjConta.Dispose()
DdlCtaContableE.DataBind()
DdlCtaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
End Sub
@@ -1086,7 +1095,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Else
DdlClasificacionesE.Visible = False
End If
If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39) Then
If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then
CargaClientesE()
DdlClientesE.Visible = True
DdlVentasE.Visible = True