diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 074d0f918..d59d39850 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -7875,8 +7875,8 @@ Public Class ClsPaginas
         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
+            Concepto = String.Format("{0} Ant:{1}", VentaActual.ClienteNombre, Pago.Referencia)
             Dim Ret As New ConceptosRetenciones
             'Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, VentaActual.CveMoneda, True, 1)
             If Pago.CveMonedaPago > 1 Then
@@ -7890,6 +7890,7 @@ Public Class ClsPaginas
             End If
         End If
         If Pago.TipoPago = "NC" AndAlso Not ErrorMovtos Then ' N O T A   D E   C R E D I T O 
+            Concepto = String.Format("{0} NC:{1}", VentaActual.ClienteNombre, Pago.Referencia)
             Dim Ret As New ConceptosRetenciones
             Dim ConPrePNC As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, VentaActual.CveMoneda, True, 2)
             If Pago.CveMonedaPago > 1 Then
@@ -7903,6 +7904,7 @@ Public Class ClsPaginas
             End If
         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 
+            Concepto = String.Format("{0} IxC:{1}", VentaActual.ClienteNombre, Pago.Referencia)
             Dim Ret As New ConceptosRetenciones
             If VentaActual.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
@@ -7969,6 +7971,7 @@ Public Class ClsPaginas
             End If
 
             If Diferencia <> 0 Then
+                Concepto = String.Format("{0}  Ref:{1}", VentaActual.ClienteNombre, Pago.Referencia)
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Diferencia, Diferencia, ConceptoContable, Concepto, Concepto, IdCtaContable, CveVenta:=VentaActual.CveVenta, CveSubProyecto:=VentaActual.CveSubProyecto, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE) Then
                     ErrorMovtos = True
                 End If