-- moneda en dólares para pagos.
This commit is contained in:
@@ -1570,6 +1570,7 @@ Partial Class Ventas_PVCobranza
|
|||||||
Pago.CveMonedaPago = VentaActual.CveMoneda
|
Pago.CveMonedaPago = VentaActual.CveMoneda
|
||||||
Pago.Fecha = NowADS()
|
Pago.Fecha = NowADS()
|
||||||
Pago.Referencia = VentaActual.SerieFolio
|
Pago.Referencia = VentaActual.SerieFolio
|
||||||
|
If Pago.CveMonedaPago > 1 Then Pago.TCPago = GlobalTipoCambio(Now).ToDecimal
|
||||||
|
|
||||||
ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta)
|
ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta)
|
||||||
End If
|
End If
|
||||||
|
|||||||
Reference in New Issue
Block a user