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

4
CxC/GestionCobranza.aspx.vb
View File

@@ -198,7 +198,7 @@ Partial Class Ventas_GestionCobranza
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
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("FechaInicio", If(txtFechaI.Text = "", "", txtFechaI.Text)))
params.Add(New ReportParameter("FechaFin", If(txtFechaF.Text = "", "", txtFechaF.Text)))
'params.Add(New ReportParameter("Cobrador", DdlUsuarioCobranza.SelectedItem.Text))
@@ -226,7 +226,7 @@ Partial Class Ventas_GestionCobranza
TipoCambio = RblTipoCambio.SelectedValue.ToEntero
If TipoCambio = 3 Then
LiEspecifico.Visible = True
TCEspecifico = GlobalTipoCambio(Now).ToDecimal
TCEspecifico = GlobalTipoCambio(NowADS()).ToDecimal
TxtEspecifico.Text = TCEspecifico.ToString
Else
LiEspecifico.Visible = False

10
CxC/RepCxC.aspx.vb
View File

@@ -174,7 +174,7 @@ Partial Class RepCxC
DdlResponsable.DataBind()
' DdlTipoDocto.Items.Add(New ListItem("Ing X Comp", "IxC"))
txtCorteA.Text = $"31/12/{Now.Year}"
txtCorteA.Text = $"31/12/{NowADS().Year}"
'Carga Cobranza Estatus
DdlCobranzaEstatus.DataSource = GlobalDTVtaCobranzaEstatus(UsuarioActual.CveEmpresa)
@@ -760,7 +760,7 @@ Partial Class RepCxC
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("Grupo", DdlGrupo.SelectedItem.Text))
params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{EstatusCli}{ClasificacionCli}{CorteA}"))
params.Add(New ReportParameter("TituloReporte", TituloReporte))
@@ -782,7 +782,7 @@ Partial Class RepCxC
If RblTipoCambio.SelectedValue.ToEntero = 3 Then
Dim TipoCambio As Double
LiEspecifico.Visible = True
TipoCambio = GlobalTipoCambio(Now)
TipoCambio = GlobalTipoCambio(NowADS())
TxtEspecifico.Text = TipoCambio.ToString
Else
LiEspecifico.Visible = False
@@ -999,7 +999,7 @@ Partial Class RepCxC
Select Case UsuarioActual.CveEmpresa
Case 4
Mensaje = $"Cliente de VSH Seguridad su saldo pendiente es de {StrSaldo} fecha limite 25/{Now.ToString("MM/yyyy")} llamar al 6622106400 #REFERENCIA {If(UsuarioActual.CveEmpresa = 4, Dr("NombreCorto").ToString, Dr("CodigoCliente").ToString)} "
Mensaje = $"Cliente de VSH Seguridad su saldo pendiente es de {StrSaldo} fecha limite 25/{NowADS().ToString("MM/yyyy")} llamar al 6622106400 #REFERENCIA {If(UsuarioActual.CveEmpresa = 4, Dr("NombreCorto").ToString, Dr("CodigoCliente").ToString)} "
End Select
If StrSaldo.Length > 0 Then
@@ -1095,7 +1095,7 @@ Partial Class RepCxC
If ObjMov.GetDescargaSegmentos(UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
Dim SB As New StringBuilder
SB.Append($"HDBNCPM0099990100000299903204{Now.ToString("dd")}{Now.ToString("MM")}{Now.Year}05{Now.ToString("MM")}{Now.Year}060307 ")
SB.Append($"HDBNCPM0099990100000299903204{NowADS().ToString("dd")}{NowADS().ToString("MM")}{NowADS().Year}05{NowADS().ToString("MM")}{NowADS().Year}060307 ")
For Each Dr As DataRow In ObjMov.DtResultados.Rows
SB.Append("EM")
SB.Append("EM")

16
CxC/RepCxCDetalle.aspx.vb
View File

@@ -233,7 +233,7 @@ Partial Class RepCxCDetalle
ChkCuentaContableReferencia.Visible = True
End If
CargaAsignarCobranza()
TxtFechaCobranza.Text = Now.ToShortDateString
TxtFechaCobranza.Text = NowADS().ToShortDateString
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
DVCartera.Visible = True
@@ -248,7 +248,7 @@ Partial Class RepCxCDetalle
Dim CveCliente, CveVendedor, CveUsuario, CveSubProyecto,
CveEstatus, CveResponsable, CveAgrupador, CveClienteClasificacion As Integer
txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
txtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlClientesWS.setEsWebService(True)
@@ -293,7 +293,7 @@ Partial Class RepCxCDetalle
FechaF = If(Request("FechaF") IsNot Nothing, Request("FechaF").ToString, "-1").ToString
FechaVI = If(Request("FechaVI") IsNot Nothing, Request("FechaVI").ToString, "-1").ToString
FechaVF = If(Request("FechaVF") IsNot Nothing, Request("FechaVF").ToString, "-1").ToString
FechaCorte = IfNull(Request("FechaCorte"), Now.ToDate.ToString).ToString
FechaCorte = IfNull(Request("FechaCorte"), NowADS().ToDate.ToString).ToString
CveCobranzaEstatus = If(Request("CveCobranzaEstatus") IsNot Nothing, Request("CveCobranzaEstatus").ToString, "-1").ToString.ToEntero
CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing, Request("CveClienteClasificacion").ToString, "-1").ToString.ToEntero
LimiteCredito = If(Request("LimiteCredito") IsNot Nothing, Request("LimiteCredito").ToString, "-1").ToString.ToDecimal
@@ -321,7 +321,7 @@ Partial Class RepCxCDetalle
txtFechaF.Text = Fecha
End If
txtCorteA.Text = $"31/12/{Now.Year}"
txtCorteA.Text = $"31/12/{NowADS().Year}"
txtFechaI.Text = If(Anio <> -1, String.Format("01/01/{0}", Anio), txtFechaI.Text)
txtFechaI.Text = If(Mes <> -1, txtFechaI.Text, txtFechaI.Text)
@@ -393,7 +393,7 @@ Partial Class RepCxCDetalle
Else
Dim TipoCambio As Double
LiEspecifico.Visible = True
TipoCambio = GlobalTipoCambio(Now)
TipoCambio = GlobalTipoCambio(NowADS())
TxtEspecifico.Text = TipoCambio.ToString
End If
End If
@@ -1011,7 +1011,7 @@ Partial Class RepCxCDetalle
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("AgrupadoPor", $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{ClasificacionCli}{CorteA}"))
params.Add(New ReportParameter("TituloReporte", TituloReporte))
@@ -1063,7 +1063,7 @@ Partial Class RepCxCDetalle
If RblTipoCambio.SelectedValue.ToEntero = 3 Then
Dim TipoCambio As Double
LiEspecifico.Visible = True
TipoCambio = GlobalTipoCambio(Now)
TipoCambio = GlobalTipoCambio(NowADS())
TxtEspecifico.Text = TipoCambio.ToString
Else
LiEspecifico.Visible = False
@@ -1290,7 +1290,7 @@ Partial Class RepCxCDetalle
worksheet.Rows(IndexEndTable + 1).Cells(1).Value = Usuario.Nombre
worksheet.Rows(IndexEndTable).Cells(3).Value = "Fecha Impresión"
worksheet.Rows(IndexEndTable + 1).Cells(3).Value = DateTime.Now.ToString("dd/MM/yyyy")
worksheet.Rows(IndexEndTable + 1).Cells(3).Value = NowADS().ToString("dd/MM/yyyy")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))

8
CxC/RepCxCPeriodo.aspx.cs
View File

@@ -78,7 +78,7 @@ public partial class CxC_RepCxCPeriodo : ClsPaginas
DdlResponsable.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
DdlResponsable.DataBind();
txtCorteA.Text = $"31/12/{DateTime.Now.Year}";
txtCorteA.Text = $"31/12/{NowADS().Year}";
//Carga Cobranza Estatus
DdlCobranzaEstatus.DataSource = get_GlobalDTVtaCobranzaEstatus(UsuarioActual.CveEmpresa);
@@ -161,7 +161,7 @@ public partial class CxC_RepCxCPeriodo : ClsPaginas
if (TipoCambio == 3)
{
LiEspecifico.Visible = true;
TCEspecifico = get_GlobalTipoCambio(DateTime.Now);
TCEspecifico = get_GlobalTipoCambio(NowADS());
TxtEspecifico.Text = TCEspecifico.ToString();
}
else
@@ -328,7 +328,7 @@ public partial class CxC_RepCxCPeriodo : ClsPaginas
List<ReportParameter> para = new List<ReportParameter>();
para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
para.Add(new ReportParameter("FechaImpresion", NowADS().ToShortDateString()));
para.Add(new ReportParameter("Filtros", StrFiltro.ToString()));
if (Imagen.Exists)
{
@@ -338,7 +338,7 @@ public partial class CxC_RepCxCPeriodo : ClsPaginas
{
para.Add(new ReportParameter("LogoPath", ""));
}
ImprimirPDF(RutaPDF, DtDatos, para, "RepCxCPeriodo" + DateTime.Now.ToString("yyyyMMddhhmmss"), Opcion);
ImprimirPDF(RutaPDF, DtDatos, para, "RepCxCPeriodo" + NowADS().ToString("yyyyMMddhhmmss"), Opcion);
}
protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e)
{

2
CxC/RepCxCSemanal.aspx.vb
View File

@@ -259,6 +259,6 @@ Partial Class CxC_RepCxCSemanal
End Sub
'Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
' GvDatos.ExportToExcel("ReporteCxC_" & Now.ToShortDateString)
' GvDatos.ExportToExcel("ReporteCxC_" & NowADS().ToShortDateString)
'End Sub
End Class