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

-- mejora en tipoconta

Browse Source
This commit is contained in:
rrene
2023-07-15 10:31:46 -07:00
parent 7bc71149cb
commit 75a628acd4
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Ventas/CatClasificacionesDetalle.aspx.vb
View File

@@ -40,10 +40,7 @@ Partial Class CatClasificacionesDetalle
If CargaDatos() Then If CargaDatos() Then
DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa) If UsuarioActual.Empresa.TipoContabilidad = 2 Then
DdlCategoria.DataBind()
If UsuarioActual.Empresa.UsaContabilidad Then
Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa) Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa)
If Cuenta.GetCuentas(-1, "-1", -1) Then If Cuenta.GetCuentas(-1, "-1", -1) Then
@@ -100,8 +97,8 @@ Partial Class CatClasificacionesDetalle
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
Dim ObjClasificaciones As New ClsClasificaciones Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.GetClasificaciones() Then If ObjClasificaciones.GetClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa) Then
Dim dr As DataRow = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveClasificacion = {0} AND CveEmpresa = {1}", CveClasificacion, UsuarioActual.CveEmpresa)).FiltroPrimero("") Dim dr As DataRow = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveClasificacion = {0} ", CveClasificacion)).FiltroPrimero("")
If dr IsNot Nothing Then If dr IsNot Nothing Then
TxtClasificacion.Text = dr("Clasificacion").ToString TxtClasificacion.Text = dr("Clasificacion").ToString
@@ -110,6 +107,8 @@ Partial Class CatClasificacionesDetalle
DdlCuentaCostos.SelectedValue = dr("IdCuentaCostos").ToString DdlCuentaCostos.SelectedValue = dr("IdCuentaCostos").ToString
DdlCuentaIngresos.SelectedValue = dr("IdCuentaIngresos").ToString DdlCuentaIngresos.SelectedValue = dr("IdCuentaIngresos").ToString
DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
DdlCategoria.DataBind()
DdlCategoria.SelectedValue = dr("CveCategoria").ToString DdlCategoria.SelectedValue = dr("CveCategoria").ToString
ChkEstado.Checked = dr("Estatus").ToString = "Activo" ChkEstado.Checked = dr("Estatus").ToString = "Activo"
@@ -123,6 +122,7 @@ Partial Class CatClasificacionesDetalle
Me.GvDatos.DataSource = Nothing Me.GvDatos.DataSource = Nothing
End If End If
End If End If
End If End If