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

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