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

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")