-- mejora pago compra

App_Code/ClsPaginas.vb

@@ -9861,6 +9861,8 @@ Public Class ClsPaginas
             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 39, VentaActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
 
         End If
+        'concepto pago
+        Concepto = String.Format("{0} NC:{1}", VentaActual.ClienteNombre, Pago.Referencia)
 
         If Pago.TipoPago = "A" AndAlso Not ErrorMovtos Then 'A N T I C I P O
             Dim Ret As New ConceptosRetenciones
@@ -9895,11 +9897,9 @@ Public Class ClsPaginas
         End If
 
         If Pago.TipoPago = "I" AndAlso Not ErrorMovtos Then 'I N G R E S O S   X   C O M P R O B A R 
-
             Dim Ret As New ConceptosRetenciones
             If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                 If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
-
                 If Pago.CveMonedaPago > 1 AndAlso ObjConta.GetRetCuenta(207, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
 
             End If

Compras/ReembolsosComprobaciones.aspx.vb

@@ -723,6 +723,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                 CveIEPago = 0
                                 Dim FolioIENew = ObjIE.GetNextFolio(CveCajaChica, 6).ToString
                                 CveIEPago = ObjIE.AddBancos_IE(CveCajaChica, 6, If(ChkReembolsarSinBancos.Checked, TxtFechaPrePoliza.Text.ToDate, TxtFechaDocumento.Text.ToDate), FolioIENew, gvr.DataKey("Proveedor"), ImporteMovto, CveMoneda, 0.0, $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}", "", False, True, -1, CvePrePolizaPago, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False))
+                                TipoCambioPago = 1
                             Else
                                 CveIEPago = CveIERegistrado
                             End If
@@ -746,10 +747,10 @@ Partial Class Compras_ReembolsosComprobaciones
                                     If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, ImporteMovto, Referencia, If(CveCajaChica > 0, 30, 29), ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(CveCajaChica > 0, IdCuentaBancaria, IdCtaPersonal), -1, CveIE:=CveIEPago, CveIEDevolucion:=If(CveCajaChica > 0, If(DDlCheques.SelectedValue.ToEntero = -1, CveIECajaChica, DDlCheques.SelectedValue.ToEntero), -1), CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto), ImporteMX:=ImporteMovto * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, Contabilizable:=If(CveCajaChica > 0 Or CvePersonal > 0, Not UsaSimplificacionCajaChica, True)) Then
                                         MsgError = "Detalle"
                                     End If
-                                Else
-                                    If AplicaPrePolizaPago(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
-                                        MsgError = "Detalle"
-                                    End If
+                                End If
+
+                                If AplicaPrePolizaPago(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
+                                    MsgError = "Detalle"
                                 End If
                             End If