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

-- mejora pago en dólares facturas en pesos

Browse Source
This commit is contained in:
rrene
2022-12-20 19:26:48 -07:00
parent 1e8f68d4b3
commit b2cb32c00b
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsPaginas.vb
View File

@@ -9634,7 +9634,8 @@ Public Class ClsPaginas
Dim TCValuacion As Decimal = CompraActual.TC
Dim TCValuacionPago As Decimal = Pago.TCPago
Dim tFechaUltimaFluctuacion As Date
Dim tImportePago, tImporteCompra As Decimal
Dim tImportePago As Decimal
Dim tImporteCompra As Decimal = Pago.ImportePago
Dim CveConceptoContableComplementaria As Integer = 206
Pago.CveConceptoPago = If(Pago.CveConceptoPago = -1, 17, Pago.CveConceptoPago) 'si viene en parametro lo toma com primera opcion, sino el 17
@@ -9664,6 +9665,7 @@ Public Class ClsPaginas
If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then 'factura pesos, pago en dolares
tImportePago = ((Pago.ImportePago * TCValuacion / Pago.TCPago).RoundSQL * Pago.TCPago).RoundSQL
tImporteCompra = (Pago.ImportePago * TCValuacion).RoundSQL
ElseIf CompraActual.CveMoneda <> 1 And Pago.CveMonedaPago <> 1 Then 'factura dolares, pago en dolares
tImporteCompra = (Pago.ImportePago * TCValuacion).RoundSQL
tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL