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

@@ -596,7 +596,7 @@ Partial Class Ventas_PortalCliente
DtPagos.Columns.Add("ImportePagoMX", GetType(Decimal))
Dim Facturas = ""
Dim TCPago = GlobalTipoCambio(Now)
Dim TCPago = GlobalTipoCambio(NowADS())
For Each Gvr As GridViewRow In GvCxC.Rows
If Gvr.FCCheckBox("ChkPagar").Checked Then
@@ -657,7 +657,7 @@ Partial Class Ventas_PortalCliente
Protected Sub BtnProsePago_Click(sender As Object, e As EventArgs)
Dim ClavePago = $"{UsuarioActual.CveUsuario}-{Now.Ticks}"
Dim ClavePago = $"{UsuarioActual.CveUsuario}-{NowADS().Ticks}"
Dim Carpeta = $"{AppDomain.CurrentDomain.BaseDirectory}/PortalCliente/ePagos/{CveCliente}"
Carpeta.DirectoryExistsCreate
@@ -749,7 +749,7 @@ Partial Class Ventas_PortalCliente
' PREPOLIZA
Dim CvePlantillaPoliza = 11
Dim FechaMovimiento As Date = Now
Dim FechaMovimiento As Date = NowADS()
Dim Concepto = "Prosepago"
Dim DtConceptos As New DataTable
Dim CveMonedaPago = 1
@@ -1117,7 +1117,7 @@ Partial Class Ventas_PortalCliente
strBody.Append(" </tr>")
strBody.Append(" <tr>")
strBody.Append(" <td style='width: 120px;'>Fecha</td>")
strBody.Append($" <td style='width: 150px; text-align: right;'>{Now.ToString("dd/MM/yyyy HH:ss")}</td>")
strBody.Append($" <td style='width: 150px; text-align: right;'>{NowADS().ToString("dd/MM/yyyy HH:ss")}</td>")
strBody.Append(" </tr>")
strBody.Append(" </table>")
@@ -1784,12 +1784,12 @@ Partial Class Ventas_PortalCliente
Dim ComprobanteIE As String = ""
Dim CveIE As Integer = -1
Dim CveTipoTransaccion As Integer = 11
Dim FechaDoc As DateTime = Now
Dim FechaDoc As DateTime = NowADS()
Dim ConceptoContable As Integer
Dim TipoMovimiento As Boolean
Dim importeMovimiento As Decimal
Dim FechaMovimiento As Date = Now
Dim FechaMovimiento As Date = NowADS()
Dim Concepto As String = ""
Dim Importe As Decimal = ImportePagado
@@ -1819,7 +1819,7 @@ Partial Class Ventas_PortalCliente
Dim FolioFijo As Integer = 0
Dim tCveMoneda As Integer = ObjFactura.CveMoneda
Dim tImporteMonedaExtranjera As Decimal = 0
If tCveMoneda <> 1 Then tImporteMonedaExtranjera = TxtImporte.Text.ToDecimal * GlobalTipoCambio(Now).ToString.ToDecimal
If tCveMoneda <> 1 Then tImporteMonedaExtranjera = TxtImporte.Text.ToDecimal * GlobalTipoCambio(NowADS()).ToString.ToDecimal
Dim PagueseA = ObjFactura.Cliente.Nombre
If MsgError = "" Then
@@ -2584,10 +2584,10 @@ Partial Class Ventas_PortalCliente
Case "1"
TxtTipoCambio.Text = "1"
Case "2"
TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString
TxtTipoCambio.Text = GlobalTipoCambio(NowADS()).ToString
TrConversionTipoCambio.Visible = True
Case Else
TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString
TxtTipoCambio.Text = GlobalTipoCambio(NowADS()).ToString
TrConversionTipoCambio.Visible = True
End Select
UpTabPedidos.Update()
@@ -2993,12 +2993,12 @@ Partial Class Ventas_PortalCliente
ObjFactura.Folio = Folio.ToEntero
ObjFactura.Serie = Serie
'ObjFactura.CveMesa = -1
ObjFactura.Fecha = Now
ObjFactura.Fecha = NowADS()
ObjFactura.CvePrePoliza = -1
ObjFactura.FechaPago = Now
ObjFactura.FechaPago = NowADS()
ObjFactura.MotivoDescuento = ""
ObjFactura.Observaciones = ""
ObjFactura.FechaEjecucion = Now
ObjFactura.FechaEjecucion = NowADS()
ObjFactura.UsuarioCreo = UsuarioActual.Usuario
ObjFactura.CveCondicionEntrega = -1
ObjFactura.CondicionEntrega = ""