.

2020-01-06 11:46:10 -07:00
parent b9df641f83
commit 983ecb6c11
5 changed files with 37 additions and 50 deletions
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -900,6 +900,7 @@ Partial Class Ventas_ClientesAbonar

                                        Select Case ConceptoContable
                                            Case 2 'Pago Cliente
+                                                'If gvr.DataKey("CveMoneda").ToEntero > 1 Then ConceptoContable = 292
                                                If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                    ImporteMovimiento = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
                                                    importeMX = ImporteMovimiento