AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejora aplicación de pago usd-mxn

Browse Source
This commit is contained in:
rrene
2024-01-16 18:07:03 -07:00
parent 9cd23f6c15
commit f0522e4627
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsPaginas.vb
View File

@@ -9205,7 +9205,7 @@ Public Class ClsPaginas
End If
If VentaActual.Fecha < tFechaUltimaFluctuacion Then TCValuacionVenta = TCValuacion
'si tiene fecha de documento, debe de evaluarse para su tc. y no la fecha de la prepóliza
If IIf(Pago.FechaDocumentoRelacionado > MinFecha, Pago.FechaDocumentoRelacionado, Pago.Fecha).ToString.ToDate < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion
If IIf(Pago.FechaDocumentoRelacionado > MinFecha, Pago.FechaDocumentoRelacionado, Pago.Fecha).ToString.ToDate < tFechaUltimaFluctuacion AndAlso Pago.CveMonedaPago > 1 Then TCValuacionPago = TCValuacion
End If
End If
If VentaActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then 'factura pesos, pago en dolares
@@ -9215,7 +9215,7 @@ Public Class ClsPaginas
tImporteVenta = (Pago.ImportePago * TCValuacionVenta).RoundSQL
tImportePago = (Pago.ImportePago * TCValuacionPago).RoundSQL
ElseIf VentaActual.CveMoneda <> 1 And Pago.CveMonedaPago = 1 Then 'factura dolares, pago en pesos
tImporteVenta = (Pago.ImportePago * TCValuacionVenta).RoundSQL
tImporteVenta = (Pago.ImportePagoVenta * TCValuacionVenta).RoundSQL
tImportePago = (Pago.ImportePago * TCValuacionPago).RoundSQL
End If
If VentaActual.CveMoneda > 1 Then ImporteME = Pago.ImportePagoVenta