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

carga cuentas. generales no padres

Browse Source
This commit is contained in:
rrene
2020-10-21 14:44:37 -07:00
parent cb83e159df
commit ead1d08776
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ventas/Clientes.aspx.vb
View File

@@ -1120,9 +1120,9 @@ Partial Class Clientes
Select Case HdnCuenta.Value Select Case HdnCuenta.Value
Case "1" Case "1"
CargaDdlCuentasContables(DdlCtaContableClientes, UsuarioActual.Empresa.Funcionalidad(246).ToEntero) CargaDdlCuentasContables(DdlCtaContableClientes, 1)'UsuarioActual.Empresa.Funcionalidad(246).ToEntero
Case "2" Case "2"
CargaDdlCuentasContables(DdlCtaContableAnticipos, UsuarioActual.Empresa.Funcionalidad(237).ToEntero) CargaDdlCuentasContables(DdlCtaContableAnticipos, 1)' UsuarioActual.Empresa.Funcionalidad(237).ToEntero
Case "3" Case "3"
CargaDdlCuentasContables(DdlCtaContableRetIVA, -1) CargaDdlCuentasContables(DdlCtaContableRetIVA, -1)
Case "4" Case "4"
@@ -1130,13 +1130,13 @@ Partial Class Clientes
Case "5" Case "5"
CargaDdlCuentasContables(DdlCtaContableFondoGarantia, -1) CargaDdlCuentasContables(DdlCtaContableFondoGarantia, -1)
Case "6" Case "6"
CargaDdlCuentasContables(DdlCtaContableCompClientes, UsuarioActual.Empresa.Funcionalidad(248).ToEntero) CargaDdlCuentasContables(DdlCtaContableCompClientes, 1)'UsuarioActual.Empresa.Funcionalidad(248).ToEntero
Case "7" Case "7"
CargaDdlCuentasContables(DdlCtaContableCompAnticipos, -1) CargaDdlCuentasContables(DdlCtaContableCompAnticipos, -1)
Case "8" Case "8"
CargaDdlCuentasContables(DdlMonedaExtranjeraClientes, UsuarioActual.Empresa.Funcionalidad(247).ToEntero) CargaDdlCuentasContables(DdlMonedaExtranjeraClientes, 1)'UsuarioActual.Empresa.Funcionalidad(247).ToEntero
Case "9" Case "9"
CargaDdlCuentasContables(DdlMonedaExtranjeraAnticipos, UsuarioActual.Empresa.Funcionalidad(542).ToEntero) CargaDdlCuentasContables(DdlMonedaExtranjeraAnticipos, 1) 'UsuarioActual.Empresa.Funcionalidad(542).ToEntero
End Select End Select
UpFiscalContable.Update() UpFiscalContable.Update()