-- correción de TCPAgo

This commit is contained in:
2022-07-07 18:41:38 -07:00
parent 3baf1fac96
commit 86b4e0015c

View File

@@ -7482,7 +7482,8 @@ Partial Class Compras_Compras
Dim Pago As New CompraPago
Pago.ImportePago = importeMovimiento
Pago.CveIE = Ant.CveIE
Pago.CveMonedaPago = 1
Pago.TCPago = Ant.TCCompra
Pago.CveMonedaPago = If(Ant.TCCompra > 1, 2, 1)
ErrorPrepoliza = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)