mejora en manejo de otros ingresos con pago de tarjetas

This commit is contained in:
2022-06-01 16:28:35 -07:00
parent f69f485634
commit bb9b7bebc6

View File

@@ -1370,7 +1370,7 @@ Partial Class Bancos_ProveedoresAbonar
IdCtaContable = IdCuenta
End If
Dim Importe42 As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
Dim Importe42 As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal + gvr.FCTextBox("TxtComision").Text.ToDecimal
ImporteMovimiento = Importe42
importeMX = If(CveMoneda = 2, If(DivTC.Visible, Importe42 / TxtTC.Text.ToDecimal * TipoCambioPago, Importe42 * TipoCambioPago), Importe42)
TipoCambioGeneral = TipoCambioPago