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
Bancos/PopIECompras.aspx.vb
View File

@@ -304,7 +304,7 @@ Partial Class Bancos_PopIECompras
ArrIEFuncionariosEmpleados = New ArrayList()
RFCProveedor = ""
TxtFechaDocumento.Text = Now.ToShortDateString
TxtFechaDocumento.Text = NowADS().ToShortDateString
If Request("CveProveedor") IsNot Nothing Then
HdnCveProveedor.Value = Request("CveProveedor").ToString
@@ -345,10 +345,10 @@ Partial Class Bancos_PopIECompras
If CveMoneda = 2 Then
ChkPagarPesos.Visible = True
TxtTipoCambio.Text = GlobalTipoCambio(Now).FormatoNumero(4)
TxtTipoCambio.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
Else
ChkPagarDolares.Visible = True
TxtTipoCambio.Text = GlobalTipoCambio(Now).FormatoNumero(4)
TxtTipoCambio.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
End If
UpDatos.Update()
End If
@@ -1678,8 +1678,8 @@ Partial Class Bancos_PopIECompras
End Sub
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
Calendario.EndDate = DateTime.Now
RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
Calendario.EndDate = NowADS()
End Sub