-- correción de TCPAgo
This commit is contained in:
@@ -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)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user