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

Empresas Zona Horaria

Browse Source
This commit is contained in:
rakcsle
2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Sistemas/CatSesiones.aspx.vb
View File

@@ -631,7 +631,7 @@ Partial Class Sistemas_CatSesiones
Private Sub CargaTC()
Dim ObjGral As New ClsGenerales
If ObjGral.GetTipoCambio(-1, Now) Then
If ObjGral.GetTipoCambio(-1, NowADS()) Then
If ObjGral.DtResultados.Rows.Count > 0 Then
Application("GlobalTipoCambio") = ObjGral.DtResultados.Rows(0)("TipoCambio").ToString
End If

4
Sistemas/CatTareasProgramadas.aspx.vb
View File

@@ -86,7 +86,7 @@ Partial Class Sistemas_CatTareasProgramadas
DdlEmpresas.DataBind()
DdlEmpresas.Items.Insert(0, New ListItem("Seleccione", "-1"))
TxtFechaI.Text = DateTime.Now.ToString("dd/MM/yyyy HH:mm")
TxtFechaI.Text = NowADS().ToString("dd/MM/yyyy HH:mm")
End Sub
@@ -127,7 +127,7 @@ Partial Class Sistemas_CatTareasProgramadas
TxtParametros.Text = ""
TxtCorreo.Text = ""
TxtPlantilla.Text = ""
TxtFechaI.Text = DateTime.Now.ToString("dd/MM/yyyy HH:mm")
TxtFechaI.Text = NowADS().ToString("dd/MM/yyyy HH:mm")
Actualizar = False
UpGral.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTareasProgramadas"))

17
Sistemas/DefinicionEmpresa.aspx
View File

@@ -153,6 +153,23 @@
<i></i>
</div>
</div>
<div class="col-md-6">
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlZonaHoraria" DataTextField="DisplayText" DataValueField="CveZonaHoraria" runat="server" CssClass="form-control input-sm select2me" Width="300px">
</asp:DropDownList>
<label for="<%= DdlZonaHoraria.ClientID.ToString()%>">Huso Horario:</label>
<asp:RequiredFieldValidator ID="RfvDdlZonaHoraria" runat="server" ControlToValidate="DdlZonaHoraria" Display="None"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Huso Horario'</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="vceRfvDdlZonaHoraria" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlZonaHoraria" Width="300px"></ajax:ValidatorCalloutExtender>
<i></i>
</div>
</div>
</div>

455
Sistemas/DefinicionEmpresa.aspx.vb
View File

@@ -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

12
Sistemas/Empresa.aspx
View File

@@ -261,6 +261,18 @@
<ajax:ValidatorCalloutExtender ID="VCEPlataforma" runat="server" HighlightCssClass="vco" TargetControlID="RFVPlataforma" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
</tr>
<tr>
<td>Huso Horario:</td>
<td>
<%--<asp:DropDownList ID="DdlUTCHora" runat="server" CssClass="form-control select2me" Width="300px"></asp:DropDownList> --%>
<asp:DropDownList ID="DdlZonaHoraria" DataTextField="DisplayText" DataValueField="CveZonaHoraria" runat="server" CssClass="form-control input-sm select2me" Width="300px">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlZonaHoraria" runat="server" ControlToValidate="DdlZonaHoraria" Display="None"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Huso Horario'</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="vceRfvDdlZonaHoraria" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlZonaHoraria" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
</tr>
</table>
</div>
</div>

24
Sistemas/Empresa.aspx.vb
View File

@@ -152,6 +152,8 @@ Partial Class Sistemas_Empresa
CargaDdlPac()
CargaRegimenFiscal()
CargaGridIndicadores()
CargaZonasHorarias()
DtFuncionalidades = Nothing
DtCuentas = Nothing
CveClasificacionPorcentaje = 0
@@ -299,6 +301,7 @@ Partial Class Sistemas_Empresa
DdlTerminalTipo.SelectedValue = .PV_TerminalTipo.ToString
TxtImporte.Text = .Importe.ToString
TipoContabilidad = .TipoContabilidad
DdlZonaHoraria.SelectedValueExist(.CveZonaHoraria)
TxtPlantillaVenta.Text = .PlantillaMailVenta
TxtAsunto.Text = .AsuntoPlantillaMailVenta
@@ -393,7 +396,8 @@ Partial Class Sistemas_Empresa
"".Trim, TxtAreaGeografica.Text.Trim,
TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, TxtImporte.Text.ToDecimal, TxtCIEC.Text, DdlPlataforma.SelectedValue.ToEntero, ChkUsaAC.Checked,
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, CvePAC:=DdlCvePac.SelectedValue.ToEntero
TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked, DdlTerminalTipo.SelectedValue.ToEntero,
CvePAC:=DdlCvePac.SelectedValue.ToEntero, CveZonaHoraria:=DdlZonaHoraria.SelectedValue.ToEntero
) Then
'Movemos el Archivo Fisicamente
@@ -439,7 +443,8 @@ Partial Class Sistemas_Empresa
TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, DdlCvePac.SelectedValue.ToEntero,
TxtImporte.Text.ToDecimal, TxtCIEC.Text, DdlPlataforma.SelectedValue.ToEntero, ChkUsaAC.Checked,
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
@@ -572,6 +577,19 @@ Partial Class Sistemas_Empresa
End If
Objeto.Dispose()
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 Sub CargaRegimenFiscal()
Dim ObjSis As New ClsSisEmpresas
If ObjSis.GetRegimenFiscal(-1) Then
@@ -788,7 +806,7 @@ Partial Class Sistemas_Empresa
Protected Sub ChkDescargaMasivaSat_CheckedChanged(sender As Object, e As EventArgs)
Dim objTP As New ClsTareasProgramadas()
If ChkDescargaMasivaSat.Checked Then
If objTP.AddTareasProgramadas(ViewState("CveEmpresa").ToString.ToEntero(), 1, DateTime.Now.ToString("yyyy/MM/dd"), "", 0, "", DateTime.Now.ToString("yyyy/MM/dd"), DateTime.Now.ToString("yyyy/MM/dd"), "", "", 0, 1) Then
If objTP.AddTareasProgramadas(ViewState("CveEmpresa").ToString.ToEntero(), 1, NowADS().ToString("yyyy/MM/dd"), "", 0, "", NowADS().ToString("yyyy/MM/dd"), NowADS().ToString("yyyy/MM/dd"), "", "", 0, 1) Then
Alert("La tarea programada de descarga masiva del sat a agregado satisfactoriamente")
End If
Else

4
Sistemas/PopUpAddUsuario.aspx.vb
View File

@@ -164,7 +164,7 @@ Partial Class Sistemas_PopUpAddUsuario
If ObjUsuario.UpdateUsuario(LtlUsuario.Text, TxtNombre.Text, -1, TxtEmail.Text, -1, -1, True, True, -1, CveUsuario, -1, -1) Then
Alert("La contraseña se reestableció correctamente a la contraseña por default '-acceso-'.")
Dim Liga As String = $"{Context.Request.Url.OriginalString.Substring(0, Context.Request.Url.OriginalString.Length - Context.Request.Url.PathAndQuery.Length)}/LogIn.aspx"
Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsuario & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks& & "&CveE=" & UsuarioActual.CveEmpresa)
Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsuario & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & NowADS().Ticks& & "&CveE=" & UsuarioActual.CveEmpresa)
If UsuarioActual.Empresa.CvePlataforma = 3 Then
EnviaCorreoGPS(Liga, LigaActivar)
@@ -257,7 +257,7 @@ Partial Class Sistemas_PopUpAddUsuario
'ENVIA CORREO
If CveUsuario > 0 Then
Dim Liga As String = $"{Context.Request.Url.OriginalString.Substring(0, Context.Request.Url.OriginalString.Length - Context.Request.Url.PathAndQuery.Length)}/LogIn.aspx"
Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsuario & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks& & "&CveE=" & UsuarioActual.CveEmpresa)
Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsuario & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & NowADS().Ticks& & "&CveE=" & UsuarioActual.CveEmpresa)
If UsuarioActual.Empresa.CvePlataforma = 3 Then
Mensaje = EnviaCorreoGPS(Liga, LigaActivar)

4
Sistemas/PopUpSeleccionarEmpresa.aspx.vb
View File

@@ -215,7 +215,7 @@ Partial Class PopUpSeleccionarEmpresa
End If
Catch
End Try
MensajeLog = $"{System.Environment.NewLine}'{DateTime.Now:dd/MM/yyyy hh:mm}' -- {MensajeLog}{Mensaje.Trim()}{Environment.NewLine}"
MensajeLog = $"{System.Environment.NewLine}'{NowADS():dd/MM/yyyy hh:mm}' -- {MensajeLog}{Mensaje.Trim()}{Environment.NewLine}"
Try
ArchivoW = New IO.StreamWriter(String.Format("{0}\LogSession.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
@@ -233,7 +233,7 @@ Partial Class PopUpSeleccionarEmpresa
Protected Sub GvPortalRastreo_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
Dim Parametros As String = Encripta($"OPCION=PORTALGPS&CVEEMPRESA={e.Row.DBCampo("CveEmpresa")}&CVECLIENTE={e.Row.DBCampo("CveCliente")}&CVEUSUARIO={UsuarioActual.CveUsuario}&TICKS={Now.Ticks}")
Dim Parametros As String = Encripta($"OPCION=PORTALGPS&CVEEMPRESA={e.Row.DBCampo("CveEmpresa")}&CVECLIENTE={e.Row.DBCampo("CveCliente")}&CVEUSUARIO={UsuarioActual.CveUsuario}&TICKS={NowADS().Ticks}")
Dim SitioGPS As String = "https://gps.signalsgps.com/"

2
Sistemas/Registro.aspx.vb
View File

@@ -123,7 +123,7 @@ Partial Class Sistemas_Registro
strBody.Append(" <tr>")
strBody.Append(" <td>Fecha</td>")
strBody.Append(" <td>")
strBody.Append(DateTime.Now.ToString("dd/MM/yy"))
strBody.Append(NowADS().ToString("dd/MM/yy"))
strBody.Append("</td> </tr>")
strBody.Append(" <tr>")
strBody.AppendFormat(" <td>Buen día, {0} </td>", Nombre)

2
Sistemas/RegistroEmpresa.aspx.vb
View File

@@ -135,7 +135,7 @@ Partial Class Sistemas_RegistroEmpresa
strBody.Append(" <table class=""mitablita"" style=""font-family: Helvetica, sans-serif;"">")
strBody.Append(" <tr>")
strBody.Append(" <td>Fecha: ")
strBody.Append(DateTime.Now.ToString("dd/MM/yy"))
strBody.Append(NowADS().ToString("dd/MM/yy"))
strBody.Append(" </td> <td>")
strBody.Append("</td> </tr>")
strBody.Append(" <tr>")

12
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -420,8 +420,8 @@ Partial Class Sistemas_UsuarioDetalle
Exit Sub
End If
TxtFechaIBitacora.Text = Now.AddMonths(-1).ToString("dd/MM/yyyy")
TxtFechaFBitacora.Text = Now.ToString("dd/MM/yyyy")
TxtFechaIBitacora.Text = NowADS().AddMonths(-1).ToString("dd/MM/yyyy")
TxtFechaFBitacora.Text = NowADS().ToString("dd/MM/yyyy")
ViewState("CveUsuario") = PreviousPage.CurrentUsuario
ViewState("CveRol") = -1
@@ -439,7 +439,7 @@ Partial Class Sistemas_UsuarioDetalle
LnkRenviaCorreo.Visible = True
Else
'Configuración de Modalidad Insert
LblFechaCaptura.Text = Now.ToShortDateString()
LblFechaCaptura.Text = NowADS().ToShortDateString()
LblUsuarioCapturo.Text = UsuarioActual.Usuario
TrContraseña.Visible = False
LnkRestablecer.Visible = False
@@ -4892,7 +4892,7 @@ Partial Class Sistemas_UsuarioDetalle
Protected Sub LnkAutorizarEquipo_Click(sender As Object, e As EventArgs)
'CveUsuario
Dim AdsCodex As String = Encripta(String.Format("{0}_{1}_{2}", CveUsuario, DateTime.Now.Ticks, UsuarioActual.CveUsuario))
Dim AdsCodex As String = Encripta(String.Format("{0}_{1}_{2}", CveUsuario, NowADS().Ticks, UsuarioActual.CveUsuario))
Using objuser As New ClsSisUsuarios()
If objuser.UsuariosGetTokenXEquipo(CveUsuario, UsuarioActual.CveUsuario, AdsCodex) Then
RegistraScript(String.Format("localStorage.setItem('AdsCodex', '{0}');", AdsCodex), "adstokenx")
@@ -4992,10 +4992,10 @@ Partial Class Sistemas_UsuarioDetalle
params.Add(New ReportParameter("FechaInicio", FechaI))
params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/BitacoraLogin.rdlc", DtDatos, params, String.Format("BitacoraRegistro-{0}", Now.ToDateTime.ToShortDateString))
ImprimirPDF("Empresas/Grales/Formatos/BitacoraLogin.rdlc", DtDatos, params, String.Format("BitacoraRegistro-{0}", NowADS().ToDateTime.ToShortDateString))
End Sub
End Class