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

36
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -224,7 +224,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
PermiteModificarImporte = True
TxtFechaIncobrable.Text = Now.ToShortDateString
TxtFechaIncobrable.Text = NowADS().ToShortDateString
If Request("CveProveedor") IsNot Nothing AndAlso Request("CveProveedor").ToString.ToEntero > 0 Then
@@ -252,13 +252,13 @@ Partial Class Bancos_ProveedoresAbonar
If UsuarioActual.TienePermisoProceso(98) Then
PermiteModificarImporte = False
End If
Calendario.StartDate = Now.AddMonths(-18)
Calendario.StartDate = NowADS().AddMonths(-18)
'proceso que restringue solo el pago de apartir del dia de hoy y como limite fin de mes
If UsuarioActual.TienePermisoProceso(105) Then
Calendario.StartDate = Now
Calendario.EndDate = Now.LastDayOfMonth
MEVCalendario.MinimumValue = Now.ToShortDateString
MEVCalendario.MaximumValue = Now.LastDayOfMonth.ToShortDateString
Calendario.StartDate = NowADS()
Calendario.EndDate = NowADS().LastDayOfMonth
MEVCalendario.MinimumValue = NowADS().ToShortDateString
MEVCalendario.MaximumValue = NowADS().LastDayOfMonth.ToShortDateString
MEVCalendario.Enabled = True
End If
@@ -293,16 +293,16 @@ Partial Class Bancos_ProveedoresAbonar
If CveMoneda = 2 Then
ChkPagarPesos.Visible = True
TxtTC.Text = GlobalTipoCambio(Now).FormatoNumero(4)
TxtTCDolaresDolares.Text = GlobalTipoCambio(Now).FormatoNumero(4)
TxtTC.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
TxtTCDolaresDolares.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
DivDolaresDolares.Visible = True
TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
Else
ChkPagarDolares.Visible = True
TxtTCDolares.Text = GlobalTipoCambio(Now).FormatoNumero(4)
TxtTCDolares.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
End If
RegistraScript($"TipoCambioActual = {GlobalTipoCambio(Now).FormatoNumero(4)}")
RegistraScript($"TipoCambioActual = {GlobalTipoCambio(NowADS()).FormatoNumero(4)}")
UpDatos.Update()
If UsuarioActual.TienePermisoProceso(215) Or UsuarioActual.TienePermisoProceso(204) Then
@@ -379,7 +379,7 @@ Partial Class Bancos_ProveedoresAbonar
CargaTipoTransaccion()
CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
TxtFechaDocumento.Text = Now.ToShortDateString
TxtFechaDocumento.Text = NowADS().ToShortDateString
TxtPagueseA.Enabled = False
@@ -615,7 +615,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
'proceso que restringue solo el pago de apartir del dia de hoy y como limite fin de mes
If UsuarioActual.TienePermisoProceso(105) AndAlso (TxtFechaDocumento.Text.ToDate < Now.Date Or TxtFechaDocumento.Text.ToDate > Now.LastDayOfMonth) Then
If UsuarioActual.TienePermisoProceso(105) AndAlso (TxtFechaDocumento.Text.ToDate < NowADS().Date Or TxtFechaDocumento.Text.ToDate > NowADS().LastDayOfMonth) Then
Alert("Fecha No permitida", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
@@ -1026,7 +1026,7 @@ Partial Class Bancos_ProveedoresAbonar
TxtObservaciones.Text = ""
TxtImporte.Text = ""
TxtTotal.Text = ""
TxtFechaDocumento.Text = Now.ToShortDateString
TxtFechaDocumento.Text = NowADS().ToShortDateString
DdlSelectedValue(DdlCuenta, "-1")
DdlSelectedValue(DdlTipoTransaccion, "-1")
Anexo.Text = "[]"
@@ -1616,7 +1616,7 @@ Partial Class Bancos_ProveedoresAbonar
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
params.Add(New ReportParameter("Sucursal", DtDatos.Rows(1)("SubProyecto").ToString))
params.Add(New ReportParameter("Importe", $"${StrImporte}"))
params.Add(New ReportParameter("RazonSocial", TxtPagueseA.Text))
@@ -1649,10 +1649,10 @@ Partial Class Bancos_ProveedoresAbonar
#End Region
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
RVTxtFechaDocumentoMenor.MinimumValue = DateTime.Now.AddMonths(-18).ToShortDateString
RVTxtFechaDocumentoMenor.MaximumValue = DateTime.Now.ToShortDateString
Calendario.EndDate = DateTime.Now
RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
RVTxtFechaDocumentoMenor.MinimumValue = NowADS().AddMonths(-18).ToShortDateString
RVTxtFechaDocumentoMenor.MaximumValue = NowADS().ToShortDateString
Calendario.EndDate = NowADS()
End Sub