Empresas Zona Horaria
This commit is contained in:
rakcsle
@@ -8,6 +8,7 @@ Imports System.IO
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
Imports Microsoft.Owin.Security.Provider
|
||||
Imports log4net.Util
|
||||
Imports MoreLinq
|
||||
|
||||
Partial Class Sistemas_DefinicionEmpresa
|
||||
Inherits ClsPaginas
|
||||
@@ -369,6 +370,7 @@ Partial Class Sistemas_DefinicionEmpresa
|
||||
|
||||
CargaDdlPac()
|
||||
CargaRegimenFiscal()
|
||||
CargaZonasHorarias()
|
||||
'CargaGridIndicadores()
|
||||
DtCuentasContables = Nothing
|
||||
DtFuncionalidades = Nothing
|
||||
@@ -394,6 +396,18 @@ Partial Class Sistemas_DefinicionEmpresa
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaZonasHorarias()
|
||||
Dim GPS As New ClsGPS
|
||||
If GPS.GetZonasHorarias() Then
|
||||
DdlZonaHoraria.DataSource = GPS.DtResultados
|
||||
Else
|
||||
DdlZonaHoraria.DataSource = Nothing
|
||||
End If
|
||||
DdlZonaHoraria.DataBind()
|
||||
DdlZonaHoraria.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
GPS.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Function ValidaCveEmpresaUsaurio(CveUsuario As Integer, CveEmpresaValidar As Integer) As Boolean
|
||||
|
||||
Dim Respuesta As Boolean = False
|
||||
@@ -479,6 +493,7 @@ Partial Class Sistemas_DefinicionEmpresa
|
||||
'TxtContraseñaSoporte.Text = .Soporte_PWD
|
||||
'DdlCvePac.SelectedValueExist(.CvePAC.ToString)
|
||||
DdlRegimen.SelectedValue = .CveRegimenFiscal.ToString
|
||||
DdlZonaHoraria.SelectedValueExist(.CveZonaHoraria)
|
||||
TxtCURP.Text = .CURP
|
||||
'TxtImporte.Text.ToDecimal
|
||||
TxtCIEC.Text = .CIEC
|
||||
@@ -778,7 +793,8 @@ Partial Class Sistemas_DefinicionEmpresa
|
||||
TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, -1,
|
||||
-1, TxtCIEC.Text, 1, UsaAC,
|
||||
TxtPorDepreciacion.Text.ToDecimal, TxtExtension.Text, TxtLocalidad.Text, DdlMetodoInventario.SelectedValue.ToEntero, TxtPeriodoActual.Text.ToEntero,
|
||||
TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked, DdlTerminalTipo.SelectedValue.ToEntero) Then
|
||||
TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked,
|
||||
DdlTerminalTipo.SelectedValue.ToEntero, CveZonaHoraria:=DdlZonaHoraria.SelectedValue.ToEntero) Then
|
||||
|
||||
'Movemos el Archivo Fisicamente
|
||||
If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString) Then
|
||||
@@ -920,444 +936,7 @@ Partial Class Sistemas_DefinicionEmpresa
|
||||
ObjEmpresa.Dispose()
|
||||
End Sub
|
||||
|
||||
'Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
|
||||
' If DtCuentasContables Is Nothing Then
|
||||
|
||||
' End If
|
||||
' Dim Seleccionado As String
|
||||
' Select Case HdnCuenta.Value
|
||||
' Case "1"
|
||||
' If DdlIVAxAcreditar.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlIVAxAcreditar.SelectedValue
|
||||
' DdlIVAxAcreditar.Items.Clear() : DdlIVAxAcreditar.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlIVAxAcreditar.DataSource = DtCuentasContables : DdlIVAxAcreditar.DataBind() : DdlIVAxAcreditar.SelectedValueExist(Seleccionado)
|
||||
' DdlIVAxAcreditar.AutoPostBack = False : DdlIVAxAcreditar.Attributes.Remove("onclick") : DdlIVAxAcreditar.CssClass &= " select2me"
|
||||
' Case "2"
|
||||
' If DdlIVAAcreditable.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlIVAAcreditable.SelectedValue
|
||||
' DdlIVAAcreditable.Items.Clear() : DdlIVAAcreditable.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlIVAAcreditable.DataSource = DtCuentasContables : DdlIVAAcreditable.DataBind() : DdlIVAAcreditable.SelectedValue = Seleccionado
|
||||
' DdlIVAAcreditable.AutoPostBack = False : DdlIVAAcreditable.Attributes.Remove("onclick") : DdlIVAAcreditable.CssClass &= " select2me"
|
||||
' Case "3"
|
||||
' If DdlIVAxTrasladar.Attributes("onclick") <> "" Then CargaCuentasContables(-1)
|
||||
' Seleccionado = DdlIVAxTrasladar.SelectedValue
|
||||
' DdlIVAxTrasladar.Items.Clear() : DdlIVAxTrasladar.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlIVAxTrasladar.DataSource = DtCuentasContables : DdlIVAxTrasladar.DataBind() : DdlIVAxTrasladar.SelectedValue = Seleccionado
|
||||
' DdlIVAxTrasladar.AutoPostBack = False : DdlIVAxTrasladar.Attributes.Remove("onclick") : DdlIVAxTrasladar.CssClass &= " select2me"
|
||||
' Case "4"
|
||||
' If DdlIVATrasladado.Attributes("onclick") <> "" Then CargaCuentasContables(-1)
|
||||
' Seleccionado = DdlIVATrasladado.SelectedValue
|
||||
' DdlIVATrasladado.Items.Clear() : DdlIVATrasladado.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlIVATrasladado.DataSource = DtCuentasContables : DdlIVATrasladado.DataBind() : DdlIVATrasladado.SelectedValue = Seleccionado
|
||||
' DdlIVATrasladado.AutoPostBack = False : DdlIVATrasladado.Attributes.Remove("onclick") : DdlIVATrasladado.CssClass &= " select2me"
|
||||
' Case "5"
|
||||
' If DdlIVARetenciones.Attributes("onclick") <> "" Then CargaCuentasContables(-1)
|
||||
' Seleccionado = DdlIVARetenciones.SelectedValue
|
||||
' DdlIVARetenciones.Items.Clear() : DdlIVARetenciones.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlIVARetenciones.DataSource = DtCuentasContables : DdlIVARetenciones.DataBind() : DdlIVARetenciones.SelectedValue = Seleccionado
|
||||
' DdlIVARetenciones.AutoPostBack = False : DdlIVARetenciones.Attributes.Remove("onclick") : DdlIVARetenciones.CssClass &= " select2me"
|
||||
' Case "6"
|
||||
' If DdlISRCirculacion.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlISRCirculacion.SelectedValue
|
||||
' DdlISRCirculacion.Items.Clear() : DdlISRCirculacion.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlISRCirculacion.DataSource = DtCuentasContables : DdlISRCirculacion.DataBind() : DdlISRCirculacion.SelectedValue = Seleccionado
|
||||
' DdlISRCirculacion.AutoPostBack = False : DdlISRCirculacion.Attributes.Remove("onclick") : DdlISRCirculacion.CssClass &= " select2me"
|
||||
' Case "7"
|
||||
' If DdlProveedores.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlProveedores.SelectedValue
|
||||
' DdlProveedores.Items.Clear() : DdlProveedores.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlProveedores.DataSource = DtCuentasContables : DdlProveedores.DataBind() : DdlProveedores.SelectedValueExist(Seleccionado)
|
||||
' DdlProveedores.AutoPostBack = False : DdlProveedores.Attributes.Remove("onclick") : DdlProveedores.CssClass &= " select2me"
|
||||
' Case "8"
|
||||
' If DdlClientes.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlClientes.SelectedValue
|
||||
' DdlClientes.Items.Clear() : DdlClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlClientes.DataSource = DtCuentasContables : DdlClientes.DataBind() : DdlClientes.SelectedValueExist(Seleccionado)
|
||||
' DdlClientes.AutoPostBack = False : DdlClientes.Attributes.Remove("onclick") : DdlClientes.CssClass &= " select2me"
|
||||
' Case "9"
|
||||
' If DdlInventario.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlInventario.SelectedValue
|
||||
' DdlInventario.Items.Clear() : DdlInventario.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlInventario.DataSource = DtCuentasContables : DdlInventario.DataBind() : DdlInventario.SelectedValue = Seleccionado
|
||||
' DdlInventario.AutoPostBack = False : DdlInventario.Attributes.Remove("onclick") : DdlInventario.CssClass &= " select2me"
|
||||
' Case "10"
|
||||
' If DdlGasto.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlGasto.SelectedValue
|
||||
' DdlGasto.Items.Clear() : DdlGasto.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlGasto.DataSource = DtCuentasContables : DdlGasto.DataBind() : DdlGasto.SelectedValue = Seleccionado
|
||||
' DdlGasto.AutoPostBack = False : DdlGasto.Attributes.Remove("onclick") : DdlGasto.CssClass &= " select2me"
|
||||
' Case "11"
|
||||
' If DdlBancos.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlBancos.SelectedValue
|
||||
' DdlBancos.Items.Clear() : DdlBancos.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlBancos.DataSource = DtCuentasContables : DdlBancos.DataBind() : DdlBancos.SelectedValue = Seleccionado
|
||||
' DdlBancos.AutoPostBack = False : DdlBancos.Attributes.Remove("onclick") : DdlBancos.CssClass &= " select2me"
|
||||
' Case "12"
|
||||
' If DdlDeudores.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlDeudores.SelectedValue
|
||||
' DdlDeudores.Items.Clear() : DdlDeudores.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlDeudores.DataSource = DtCuentasContables : DdlDeudores.DataBind() : DdlDeudores.SelectedValue = Seleccionado
|
||||
' DdlDeudores.AutoPostBack = False : DdlDeudores.Attributes.Remove("onclick") : DdlDeudores.CssClass &= " select2me"
|
||||
' Case "13"
|
||||
' If DdlAcreedores.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlAcreedores.SelectedValue
|
||||
' DdlAcreedores.Items.Clear() : DdlAcreedores.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlAcreedores.DataSource = DtCuentasContables : DdlAcreedores.DataBind() : DdlAcreedores.SelectedValue = Seleccionado
|
||||
' DdlAcreedores.AutoPostBack = False : DdlAcreedores.Attributes.Remove("onclick") : DdlAcreedores.CssClass &= " select2me"
|
||||
' Case "14"
|
||||
' If DdlDocxPagar.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlDocxPagar.SelectedValue
|
||||
' DdlDocxPagar.Items.Clear() : DdlDocxPagar.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlDocxPagar.DataSource = DtCuentasContables : DdlDocxPagar.DataBind() : DdlDocxPagar.SelectedValue = Seleccionado
|
||||
' DdlDocxPagar.AutoPostBack = False : DdlDocxPagar.Attributes.Remove("onclick") : DdlDocxPagar.CssClass &= " select2me"
|
||||
' Case "15"
|
||||
' If DdlAnticipoCliente.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlAnticipoCliente.SelectedValue
|
||||
' DdlAnticipoCliente.Items.Clear() : DdlAnticipoCliente.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlAnticipoCliente.DataSource = DtCuentasContables : DdlAnticipoCliente.DataBind() : DdlAnticipoCliente.SelectedValue = Seleccionado
|
||||
' DdlAnticipoCliente.AutoPostBack = False : DdlAnticipoCliente.Attributes.Remove("onclick") : DdlAnticipoCliente.CssClass &= " select2me"
|
||||
' Case "16"
|
||||
' If DdlAnticipoProveedores.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlAnticipoProveedores.SelectedValue
|
||||
' DdlAnticipoProveedores.Items.Clear() : DdlAnticipoProveedores.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlAnticipoProveedores.DataSource = DtCuentasContables : DdlAnticipoProveedores.DataBind() : DdlAnticipoProveedores.SelectedValue = Seleccionado
|
||||
' DdlAnticipoProveedores.AutoPostBack = False : DdlAnticipoProveedores.Attributes.Remove("onclick") : DdlAnticipoProveedores.CssClass &= " select2me"
|
||||
' Case "17"
|
||||
' If DdlCaja.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlCaja.SelectedValue
|
||||
' DdlCaja.Items.Clear() : DdlCaja.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlCaja.DataSource = DtCuentasContables : DdlCaja.DataBind() : DdlCaja.SelectedValue = Seleccionado
|
||||
' DdlCaja.AutoPostBack = False : DdlCaja.Attributes.Remove("onclick") : DdlCaja.CssClass &= " select2me"
|
||||
' Case "18"
|
||||
' If DdlFyE.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlFyE.SelectedValue
|
||||
' DdlFyE.Items.Clear() : DdlFyE.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlFyE.DataSource = DtCuentasContables : DdlFyE.DataBind() : DdlFyE.SelectedValue = Seleccionado
|
||||
' DdlFyE.AutoPostBack = False : DdlFyE.Attributes.Remove("onclick") : DdlFyE.CssClass &= " select2me"
|
||||
' Case "19"
|
||||
' If DddlCuentaGananciaCambiaria.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DddlCuentaGananciaCambiaria.SelectedValue
|
||||
' DddlCuentaGananciaCambiaria.Items.Clear() : DddlCuentaGananciaCambiaria.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DddlCuentaGananciaCambiaria.DataSource = DtCuentasContables : DddlCuentaGananciaCambiaria.DataBind() : DddlCuentaGananciaCambiaria.SelectedValueExist(Seleccionado)
|
||||
' DddlCuentaGananciaCambiaria.AutoPostBack = False : DddlCuentaGananciaCambiaria.Attributes.Remove("onclick") : DddlCuentaGananciaCambiaria.CssClass &= " select2me"
|
||||
' Case "20"
|
||||
' If DdlCuentaPerdidaCambiaria.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlCuentaPerdidaCambiaria.SelectedValue
|
||||
' DdlCuentaPerdidaCambiaria.Items.Clear() : DdlCuentaPerdidaCambiaria.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlCuentaPerdidaCambiaria.DataSource = DtCuentasContables : DdlCuentaPerdidaCambiaria.DataBind() : DdlCuentaPerdidaCambiaria.SelectedValue = Seleccionado
|
||||
' DdlCuentaPerdidaCambiaria.AutoPostBack = False : DdlCuentaPerdidaCambiaria.Attributes.Remove("onclick") : DdlCuentaPerdidaCambiaria.CssClass &= " select2me"
|
||||
|
||||
' 'CUENTAS PADRES
|
||||
|
||||
' Case "21"
|
||||
' If DdlProveedores.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlProveedores.SelectedValue
|
||||
' DdlProveedores.Items.Clear() : DdlProveedores.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlProveedores.DataSource = DtCuentasContables : DdlProveedores.DataBind() : DdlProveedores.SelectedValue = Seleccionado
|
||||
' DdlProveedores.AutoPostBack = False : DdlProveedores.Attributes.Remove("onclick") : DdlProveedores.CssClass &= " select2me"
|
||||
' Case "22"
|
||||
' If DdlClientes.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlClientes.SelectedValue
|
||||
' DdlClientes.Items.Clear() : DdlClientes.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlClientes.DataSource = DtCuentasContables : DdlClientes.DataBind() : DdlClientes.SelectedValue = Seleccionado
|
||||
' DdlClientes.AutoPostBack = False : DdlClientes.Attributes.Remove("onclick") : DdlClientes.CssClass &= " select2me"
|
||||
' Case "23"
|
||||
' If DdlInventario.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlInventario.SelectedValue
|
||||
' DdlInventario.Items.Clear() : DdlInventario.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlInventario.DataSource = DtCuentasContables : DdlInventario.DataBind() : DdlInventario.SelectedValue = Seleccionado
|
||||
' DdlInventario.AutoPostBack = False : DdlInventario.Attributes.Remove("onclick") : DdlInventario.CssClass &= " select2me"
|
||||
' Case "24"
|
||||
' If DdlGasto.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlGasto.SelectedValue
|
||||
' DdlGasto.Items.Clear() : DdlGasto.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlGasto.DataSource = DtCuentasContables : DdlGasto.DataBind() : DdlGasto.SelectedValue = Seleccionado
|
||||
' DdlGasto.AutoPostBack = False : DdlGasto.Attributes.Remove("onclick") : DdlGasto.CssClass &= " select2me"
|
||||
' Case "25"
|
||||
' If DdlBancos.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlBancos.SelectedValue
|
||||
' DdlBancos.Items.Clear() : DdlBancos.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlBancos.DataSource = DtCuentasContables : DdlBancos.DataBind() : DdlBancos.SelectedValue = Seleccionado
|
||||
' DdlBancos.AutoPostBack = False : DdlBancos.Attributes.Remove("onclick") : DdlBancos.CssClass &= " select2me"
|
||||
' Case "26"
|
||||
' If DdlDeudores.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlDeudores.SelectedValue
|
||||
' DdlDeudores.Items.Clear() : DdlDeudores.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlDeudores.DataSource = DtCuentasContables : DdlDeudores.DataBind() : DdlDeudores.SelectedValue = Seleccionado
|
||||
' DdlDeudores.AutoPostBack = False : DdlDeudores.Attributes.Remove("onclick") : DdlDeudores.CssClass &= " select2me"
|
||||
' Case "27"
|
||||
' If DdlAcreedores.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlAcreedores.SelectedValue
|
||||
' DdlAcreedores.Items.Clear() : DdlAcreedores.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlAcreedores.DataSource = DtCuentasContables : DdlAcreedores.DataBind() : DdlAcreedores.SelectedValue = Seleccionado
|
||||
' DdlAcreedores.AutoPostBack = False : DdlAcreedores.Attributes.Remove("onclick") : DdlAcreedores.CssClass &= " select2me"
|
||||
' Case "28"
|
||||
' If DdlDocxPagar.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlDocxPagar.SelectedValue
|
||||
' DdlDocxPagar.Items.Clear() : DdlDocxPagar.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlDocxPagar.DataSource = DtCuentasContables : DdlDocxPagar.DataBind() : DdlDocxPagar.SelectedValue = Seleccionado
|
||||
' DdlDocxPagar.AutoPostBack = False : DdlDocxPagar.Attributes.Remove("onclick") : DdlDocxPagar.CssClass &= " select2me"
|
||||
' Case "29"
|
||||
' If DdlAnticipoCliente.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlAnticipoCliente.SelectedValue
|
||||
' DdlAnticipoCliente.Items.Clear() : DdlAnticipoCliente.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlAnticipoCliente.DataSource = DtCuentasContables : DdlAnticipoCliente.DataBind() : DdlAnticipoCliente.SelectedValue = Seleccionado
|
||||
' DdlAnticipoCliente.AutoPostBack = False : DdlAnticipoCliente.Attributes.Remove("onclick") : DdlAnticipoCliente.CssClass &= " select2me"
|
||||
' Case "30"
|
||||
' If DdlAnticipoProveedores.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlAnticipoProveedores.SelectedValue
|
||||
' DdlAnticipoProveedores.Items.Clear() : DdlAnticipoProveedores.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlAnticipoProveedores.DataSource = DtCuentasContables : DdlAnticipoProveedores.DataBind() : DdlAnticipoProveedores.SelectedValue = Seleccionado
|
||||
' DdlAnticipoProveedores.AutoPostBack = False : DdlAnticipoProveedores.Attributes.Remove("onclick") : DdlAnticipoProveedores.CssClass &= " select2me"
|
||||
' Case "31"
|
||||
' If DdlCaja.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlCaja.SelectedValue
|
||||
' DdlCaja.Items.Clear() : DdlCaja.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlCaja.DataSource = DtCuentasContables : DdlCaja.DataBind() : DdlCaja.SelectedValue = Seleccionado
|
||||
' DdlCaja.AutoPostBack = False : DdlCaja.Attributes.Remove("onclick") : DdlCaja.CssClass &= " select2me"
|
||||
' Case "32"
|
||||
' If DdlFyE.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlFyE.SelectedValue
|
||||
' DdlFyE.Items.Clear() : DdlFyE.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlFyE.DataSource = DtCuentasContables : DdlFyE.DataBind() : DdlFyE.SelectedValue = Seleccionado
|
||||
' DdlFyE.AutoPostBack = False : DdlFyE.Attributes.Remove("onclick") : DdlFyE.CssClass &= " select2me"
|
||||
' Case "33"
|
||||
' If DdlActivoFijo.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlActivoFijo.SelectedValue
|
||||
' DdlActivoFijo.Items.Clear() : DdlActivoFijo.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlActivoFijo.DataSource = DtCuentasContables : DdlActivoFijo.DataBind() : DdlActivoFijo.SelectedValue = Seleccionado
|
||||
' DdlActivoFijo.AutoPostBack = False : DdlActivoFijo.Attributes.Remove("onclick") : DdlActivoFijo.CssClass &= " select2me"
|
||||
' Case "34"
|
||||
' If DdlDSV.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlDSV.SelectedValue
|
||||
' DdlDSV.Items.Clear() : DdlDSV.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlDSV.DataSource = DtCuentasContables : DdlDSV.DataBind() : DdlDSV.SelectedValue = Seleccionado
|
||||
' DdlDSV.AutoPostBack = False : DdlDSV.Attributes.Remove("onclick") : DdlDSV.CssClass &= " select2me"
|
||||
' Case "35"
|
||||
' If DdlImpuestosLocales.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlImpuestosLocales.SelectedValue
|
||||
' DdlImpuestosLocales.Items.Clear() : DdlImpuestosLocales.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlImpuestosLocales.DataSource = DtCuentasContables : DdlImpuestosLocales.DataBind() : DdlImpuestosLocales.SelectedValue = Seleccionado
|
||||
' DdlImpuestosLocales.AutoPostBack = False : DdlImpuestosLocales.Attributes.Remove("onclick") : DdlImpuestosLocales.CssClass &= " select2me"
|
||||
|
||||
|
||||
' 'IEPS
|
||||
' Case "36"
|
||||
' If DdlIEPSxAcreditar.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlIEPSxAcreditar.SelectedValue
|
||||
' DdlIEPSxAcreditar.Items.Clear() : DdlIEPSxAcreditar.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlIEPSxAcreditar.DataSource = DtCuentasContables : DdlIEPSxAcreditar.DataBind() : DdlIEPSxAcreditar.SelectedValue = Seleccionado
|
||||
' DdlIEPSxAcreditar.AutoPostBack = False : DdlIEPSxAcreditar.Attributes.Remove("onclick") : DdlIEPSxAcreditar.CssClass &= " select2me"
|
||||
|
||||
' Case "37"
|
||||
' If DdlIEPSAcreditable.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlIEPSAcreditable.SelectedValue
|
||||
' DdlIEPSAcreditable.Items.Clear() : DdlIEPSAcreditable.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlIEPSAcreditable.DataSource = DtCuentasContables : DdlIEPSAcreditable.DataBind() : DdlIEPSAcreditable.SelectedValue = Seleccionado
|
||||
' DdlIEPSAcreditable.AutoPostBack = False : DdlIEPSAcreditable.Attributes.Remove("onclick") : DdlIEPSAcreditable.CssClass &= " select2me"
|
||||
' Case "38"
|
||||
' If DdlIEPSxTrasladar.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlIEPSxTrasladar.SelectedValue
|
||||
' DdlIEPSxTrasladar.Items.Clear() : DdlIEPSxTrasladar.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlIEPSxTrasladar.DataSource = DtCuentasContables : DdlIEPSxTrasladar.DataBind() : DdlIEPSxTrasladar.SelectedValue = Seleccionado
|
||||
' DdlIEPSxTrasladar.AutoPostBack = False : DdlIEPSxTrasladar.Attributes.Remove("onclick") : DdlIEPSxTrasladar.CssClass &= " select2me"
|
||||
' Case "39"
|
||||
' If DdlIEPSTrasladado.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlIEPSTrasladado.SelectedValue
|
||||
' DdlIEPSTrasladado.Items.Clear() : DdlIEPSTrasladado.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlIEPSTrasladado.DataSource = DtCuentasContables : DdlIEPSTrasladado.DataBind() : DdlIEPSTrasladado.SelectedValue = Seleccionado
|
||||
' DdlIEPSTrasladado.AutoPostBack = False : DdlIEPSTrasladado.Attributes.Remove("onclick") : DdlIEPSTrasladado.CssClass &= " select2me"
|
||||
' Case "40"
|
||||
' If DdlCuentaDescuentoVenta.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlCuentaDescuentoVenta.SelectedValue
|
||||
' DdlCuentaDescuentoVenta.Items.Clear() : DdlCuentaDescuentoVenta.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlCuentaDescuentoVenta.DataSource = DtCuentasContables : DdlCuentaDescuentoVenta.DataBind() : DdlCuentaDescuentoVenta.SelectedValue = Seleccionado
|
||||
' DdlCuentaDescuentoVenta.AutoPostBack = False : DdlCuentaDescuentoVenta.Attributes.Remove("onclick") : DdlCuentaDescuentoVenta.CssClass &= " select2me"
|
||||
' Case "41"
|
||||
' If DdlCuentaOtrosIngresos.Attributes("onclick") <> "" Then CargaCuentasContables()
|
||||
' Seleccionado = DdlCuentaOtrosIngresos.SelectedValue
|
||||
' DdlCuentaOtrosIngresos.Items.Clear() : DdlCuentaOtrosIngresos.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' DdlCuentaOtrosIngresos.DataSource = DtCuentasContables : DdlCuentaOtrosIngresos.DataBind() : DdlCuentaOtrosIngresos.SelectedValue = Seleccionado
|
||||
' DdlCuentaOtrosIngresos.AutoPostBack = False : DdlCuentaOtrosIngresos.Attributes.Remove("onclick") : DdlCuentaOtrosIngresos.CssClass &= " select2me"
|
||||
|
||||
|
||||
' ' 'PADRES SIG
|
||||
' 'Case "42"
|
||||
' ' If DdlProveedoresSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
||||
' ' Seleccionado = DdlProveedoresSIG.SelectedValue
|
||||
' ' DdlProveedoresSIG.Items.Clear() : DdlProveedoresSIG.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' ' DdlProveedoresSIG.DataSource = DtCuentasContablesSIG : DdlProveedoresSIG.DataBind() : DdlProveedoresSIG.SelectedValue = Seleccionado
|
||||
' ' DdlProveedoresSIG.AutoPostBack = False : DdlProveedoresSIG.Attributes.Remove("onclick") : DdlProveedoresSIG.CssClass &= " select2me"
|
||||
' 'Case "43"
|
||||
' ' If DdlClientesSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
||||
' ' Seleccionado = DdlClientesSIG.SelectedValue
|
||||
' ' DdlClientesSIG.Items.Clear() : DdlClientesSIG.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' ' DdlClientesSIG.DataSource = DtCuentasContablesSIG : DdlClientesSIG.DataBind() : DdlClientesSIG.SelectedValue = Seleccionado
|
||||
' ' DdlClientesSIG.AutoPostBack = False : DdlClientesSIG.Attributes.Remove("onclick") : DdlClientesSIG.CssClass &= " select2me"
|
||||
' 'Case "44"
|
||||
' ' If DdlInventarioSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
||||
' ' Seleccionado = DdlInventarioSIG.SelectedValue
|
||||
' ' DdlInventarioSIG.Items.Clear() : DdlInventarioSIG.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' ' DdlInventarioSIG.DataSource = DtCuentasContablesSIG : DdlInventarioSIG.DataBind() : DdlInventarioSIG.SelectedValue = Seleccionado
|
||||
' ' DdlInventarioSIG.AutoPostBack = False : DdlInventarioSIG.Attributes.Remove("onclick") : DdlInventarioSIG.CssClass &= " select2me"
|
||||
' 'Case "45"
|
||||
' ' If DdlGastoSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
||||
' ' Seleccionado = DdlGasto.SelectedValue
|
||||
' ' DdlGastoSIG.Items.Clear() : DdlGastoSIG.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' ' DdlGastoSIG.DataSource = DtCuentasContablesSIG : DdlGastoSIG.DataBind() : DdlGastoSIG.SelectedValue = Seleccionado
|
||||
' ' DdlGastoSIG.AutoPostBack = False : DdlGastoSIG.Attributes.Remove("onclick") : DdlGastoSIG.CssClass &= " select2me"
|
||||
' 'Case "46"
|
||||
' ' If DdlBancosSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
||||
' ' Seleccionado = DdlBancosSIG.SelectedValue
|
||||
' ' DdlBancosSIG.Items.Clear() : DdlBancosSIG.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' ' DdlBancosSIG.DataSource = DtCuentasContablesSIG : DdlBancosSIG.DataBind() : DdlBancosSIG.SelectedValue = Seleccionado
|
||||
' ' DdlBancosSIG.AutoPostBack = False : DdlBancosSIG.Attributes.Remove("onclick") : DdlBancosSIG.CssClass &= " select2me"
|
||||
' 'Case "47"
|
||||
' ' If DdlDeudoresSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
||||
' ' Seleccionado = DdlDeudoresSIG.SelectedValue
|
||||
' ' DdlDeudoresSIG.Items.Clear() : DdlDeudoresSIG.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' ' DdlDeudoresSIG.DataSource = DtCuentasContablesSIG : DdlDeudoresSIG.DataBind() : DdlDeudoresSIG.SelectedValue = Seleccionado
|
||||
' ' DdlDeudoresSIG.AutoPostBack = False : DdlDeudoresSIG.Attributes.Remove("onclick") : DdlDeudoresSIG.CssClass &= " select2me"
|
||||
' 'Case "48"
|
||||
' ' If DdlAcreedoresSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
||||
' ' Seleccionado = DdlAcreedoresSIG.SelectedValue
|
||||
' ' DdlAcreedoresSIG.Items.Clear() : DdlAcreedoresSIG.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' ' DdlAcreedoresSIG.DataSource = DtCuentasContablesSIG : DdlAcreedoresSIG.DataBind() : DdlAcreedoresSIG.SelectedValue = Seleccionado
|
||||
' ' DdlAcreedoresSIG.AutoPostBack = False : DdlAcreedoresSIG.Attributes.Remove("onclick") : DdlAcreedoresSIG.CssClass &= " select2me"
|
||||
' 'Case "49"
|
||||
' ' If DdlDocxPagarSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
||||
' ' Seleccionado = DdlDocxPagarSIG.SelectedValue
|
||||
' ' DdlDocxPagarSIG.Items.Clear() : DdlDocxPagarSIG.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' ' DdlDocxPagarSIG.DataSource = DtCuentasContablesSIG : DdlDocxPagarSIG.DataBind() : DdlDocxPagarSIG.SelectedValue = Seleccionado
|
||||
' ' DdlDocxPagarSIG.AutoPostBack = False : DdlDocxPagarSIG.Attributes.Remove("onclick") : DdlDocxPagarSIG.CssClass &= " select2me"
|
||||
' 'Case "50"
|
||||
' ' If DdlAnticipoClienteSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
||||
' ' Seleccionado = DdlAnticipoClienteSIG.SelectedValue
|
||||
' ' DdlAnticipoClienteSIG.Items.Clear() : DdlAnticipoClienteSIG.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' ' DdlAnticipoClienteSIG.DataSource = DtCuentasContablesSIG : DdlAnticipoClienteSIG.DataBind() : DdlAnticipoClienteSIG.SelectedValue = Seleccionado
|
||||
' ' DdlAnticipoClienteSIG.AutoPostBack = False : DdlAnticipoClienteSIG.Attributes.Remove("onclick") : DdlAnticipoClienteSIG.CssClass &= " select2me"
|
||||
' 'Case "51"
|
||||
' ' If DdlAnticipoProveedoresSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
||||
' ' Seleccionado = DdlAnticipoProveedoresSIG.SelectedValue
|
||||
' ' DdlAnticipoProveedoresSIG.Items.Clear() : DdlAnticipoProveedoresSIG.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' ' DdlAnticipoProveedoresSIG.DataSource = DtCuentasContablesSIG : DdlAnticipoProveedoresSIG.DataBind() : DdlAnticipoProveedoresSIG.SelectedValue = Seleccionado
|
||||
' ' DdlAnticipoProveedoresSIG.AutoPostBack = False : DdlAnticipoProveedoresSIG.Attributes.Remove("onclick") : DdlAnticipoProveedoresSIG.CssClass &= " select2me"
|
||||
' 'Case "52"
|
||||
' ' If DdlCajaSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
||||
' ' Seleccionado = DdlCajaSIG.SelectedValue
|
||||
' ' DdlCajaSIG.Items.Clear() : DdlCajaSIG.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' ' DdlCajaSIG.DataSource = DtCuentasContablesSIG : DdlCajaSIG.DataBind() : DdlCajaSIG.SelectedValue = Seleccionado
|
||||
' ' DdlCajaSIG.AutoPostBack = False : DdlCajaSIG.Attributes.Remove("onclick") : DdlCajaSIG.CssClass &= " select2me"
|
||||
' 'Case "53"
|
||||
' ' If DdlFyESIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
||||
' ' Seleccionado = DdlFyESIG.SelectedValue
|
||||
' ' DdlFyESIG.Items.Clear() : DdlFyESIG.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' ' DdlFyESIG.DataSource = DtCuentasContablesSIG : DdlFyESIG.DataBind() : DdlFyESIG.SelectedValue = Seleccionado
|
||||
' ' DdlFyESIG.AutoPostBack = False : DdlFyESIG.Attributes.Remove("onclick") : DdlFyESIG.CssClass &= " select2me"
|
||||
' 'Case "54"
|
||||
' ' If DdlActivoFijoSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
||||
' ' Seleccionado = DdlActivoFijoSIG.SelectedValue
|
||||
' ' DdlActivoFijoSIG.Items.Clear() : DdlActivoFijoSIG.Items.Add(New ListItem("Seleccione", "0"))
|
||||
' ' DdlActivoFijoSIG.DataSource = DtCuentasContablesSIG : DdlActivoFijoSIG.DataBind() : DdlActivoFijoSIG.SelectedValue = Seleccionado
|
||||
' ' DdlActivoFijoSIG.AutoPostBack = False : DdlActivoFijoSIG.Attributes.Remove("onclick") : DdlActivoFijoSIG.CssClass &= " select2me"
|
||||
|
||||
|
||||
' End Select
|
||||
|
||||
'End Sub
|
||||
'Public Sub CargaDDLs()
|
||||
' DdlIVAxAcreditar.AutoPostBack = True
|
||||
' DdlIVAAcreditable.AutoPostBack = True
|
||||
' DdlIVAxTrasladar.AutoPostBack = True
|
||||
' DdlIVATrasladado.AutoPostBack = True
|
||||
' DdlIVARetenciones.AutoPostBack = True
|
||||
' DdlISRCirculacion.AutoPostBack = True
|
||||
' DdlProveedores.AutoPostBack = True
|
||||
' DdlClientes.AutoPostBack = True
|
||||
' DdlInventario.AutoPostBack = True
|
||||
' DdlGasto.AutoPostBack = True
|
||||
' DdlBancos.AutoPostBack = True
|
||||
' DdlDeudores.AutoPostBack = True
|
||||
' DdlAcreedores.AutoPostBack = True
|
||||
' DdlDocxPagar.AutoPostBack = True
|
||||
' DdlAnticipoCliente.AutoPostBack = True
|
||||
' DdlAnticipoProveedores.AutoPostBack = True
|
||||
' DdlCaja.AutoPostBack = True
|
||||
' DdlFyE.AutoPostBack = True
|
||||
' DddlCuentaGananciaCambiaria.AutoPostBack = True
|
||||
' DdlCuentaPerdidaCambiaria.AutoPostBack = True
|
||||
' DdlActivoFijo.AutoPostBack = True
|
||||
' DdlIEPSxAcreditar.AutoPostBack = True
|
||||
' DdlIEPSAcreditable.AutoPostBack = True
|
||||
' DdlIEPSxTrasladar.AutoPostBack = True
|
||||
' DdlIEPSTrasladado.AutoPostBack = True
|
||||
' DdlCuentaDescuentoVenta.AutoPostBack = True
|
||||
' DdlCuentaOtrosIngresos.AutoPostBack = True
|
||||
|
||||
' ''CUENTAS PADRES SIG
|
||||
' 'DdlProveedoresSIG.AutoPostBack = True
|
||||
' 'DdlClientesSIG.AutoPostBack = True
|
||||
' 'DdlInventarioSIG.AutoPostBack = True
|
||||
' 'DdlGastoSIG.AutoPostBack = True
|
||||
' 'DdlBancosSIG.AutoPostBack = True
|
||||
' 'DdlDeudoresSIG.AutoPostBack = True
|
||||
' 'DdlAcreedoresSIG.AutoPostBack = True
|
||||
' 'DdlDocxPagarSIG.AutoPostBack = True
|
||||
' 'DdlAnticipoClienteSIG.AutoPostBack = True
|
||||
' 'DdlAnticipoProveedoresSIG.AutoPostBack = True
|
||||
' 'DdlCajaSIG.AutoPostBack = True
|
||||
' 'DdlFyESIG.AutoPostBack = True
|
||||
' 'DdlActivoFijoSIG.AutoPostBack = True
|
||||
|
||||
|
||||
' DdlIVAxAcreditar.Attributes.Add("onclick", "CargaCuentas(1);")
|
||||
' DdlIVAAcreditable.Attributes.Add("onclick", "CargaCuentas(2);")
|
||||
' DdlIVAxTrasladar.Attributes.Add("onclick", "CargaCuentas(3);")
|
||||
' DdlIVATrasladado.Attributes.Add("onclick", "CargaCuentas(4);")
|
||||
' DdlIVARetenciones.Attributes.Add("onclick", "CargaCuentas(5);")
|
||||
' DdlISRCirculacion.Attributes.Add("onclick", "CargaCuentas(6);")
|
||||
' DdlProveedores.Attributes.Add("onclick", "CargaCuentas(7);")
|
||||
' DdlClientes.Attributes.Add("onclick", "CargaCuentas(8);")
|
||||
' DdlInventario.Attributes.Add("onclick", "CargaCuentas(9);")
|
||||
' DdlGasto.Attributes.Add("onclick", "CargaCuentas(10);")
|
||||
' DdlBancos.Attributes.Add("onclick", "CargaCuentas(11);")
|
||||
' DdlDeudores.Attributes.Add("onclick", "CargaCuentas(12);")
|
||||
' DdlAcreedores.Attributes.Add("onclick", "CargaCuentas(13);")
|
||||
' DdlDocxPagar.Attributes.Add("onclick", "CargaCuentas(14);")
|
||||
' DdlAnticipoCliente.Attributes.Add("onclick", "CargaCuentas(15);")
|
||||
' DdlAnticipoProveedores.Attributes.Add("onclick", "CargaCuentas(16);")
|
||||
' DdlCaja.Attributes.Add("onclick", "CargaCuentas(17);")
|
||||
' DdlFyE.Attributes.Add("onclick", "CargaCuentas(18);")
|
||||
' DddlCuentaGananciaCambiaria.Attributes.Add("onclick", "CargaCuentas(19);")
|
||||
' DdlCuentaPerdidaCambiaria.Attributes.Add("onclick", "CargaCuentas(20);")
|
||||
' DdlActivoFijo.Attributes.Add("onclick", "CargaCuentas(33);")
|
||||
' DdlDSV.Attributes.Add("onclick", "CargaCuentas(34);")
|
||||
' DdlImpuestosLocales.Attributes.Add("onclick", "CargaCuentas(35);")
|
||||
' DdlIEPSxAcreditar.Attributes.Add("onclick", "CargaCuentas(36);")
|
||||
' DdlIEPSAcreditable.Attributes.Add("onclick", "CargaCuentas(37);")
|
||||
' DdlIEPSxTrasladar.Attributes.Add("onclick", "CargaCuentas(38);")
|
||||
' DdlIEPSTrasladado.Attributes.Add("onclick", "CargaCuentas(39);")
|
||||
' DdlCuentaDescuentoVenta.Attributes.Add("onclick", "CargaCuentas(40);")
|
||||
' DdlCuentaOtrosIngresos.Attributes.Add("onclick", "CargaCuentas(41);")
|
||||
|
||||
' ''CUENTAS PADRES
|
||||
' 'DdlProveedoresSIG.Attributes.Add("onclick", "CargaCuentas(42);")
|
||||
' 'DdlClientesSIG.Attributes.Add("onclick", "CargaCuentas(43);")
|
||||
' 'DdlInventarioSIG.Attributes.Add("onclick", "CargaCuentas(44);")
|
||||
' 'DdlGastoSIG.Attributes.Add("onclick", "CargaCuentas(45);")
|
||||
' 'DdlBancosSIG.Attributes.Add("onclick", "CargaCuentas(46);")
|
||||
' 'DdlDeudoresSIG.Attributes.Add("onclick", "CargaCuentas(47);")
|
||||
' 'DdlAcreedoresSIG.Attributes.Add("onclick", "CargaCuentas(48);")
|
||||
' 'DdlDocxPagarSIG.Attributes.Add("onclick", "CargaCuentas(49);")
|
||||
' 'DdlAnticipoClienteSIG.Attributes.Add("onclick", "CargaCuentas(50);")
|
||||
' 'DdlAnticipoProveedoresSIG.Attributes.Add("onclick", "CargaCuentas(51);")
|
||||
' 'DdlCajaSIG.Attributes.Add("onclick", "CargaCuentas(52);")
|
||||
' 'DdlFyESIG.Attributes.Add("onclick", "CargaCuentas(53);")
|
||||
' 'DdlActivoFijoSIG.Attributes.Add("onclick", "CargaCuentas(54);")
|
||||
|
||||
' UpDatos.Update()
|
||||
|
||||
'End Sub
|
||||
Public Sub CargaFuncionalidad(CveFuncionalidad As Integer, ByRef Ddl As DropDownList)
|
||||
Dim Dr As DataRow = DtFuncionalidades.FiltroPrimero($"CveFuncionalidad = {CveFuncionalidad}")
|
||||
If Dr IsNot Nothing Then
|
||||
|
||||
Reference in New Issue
Block a user