From a25312d83bed01852140b5b7bd948381f9f043aa Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 29 May 2023 17:39:05 -0700
Subject: [PATCH] -- mejora concepto

---
 App_Code/ClsPaginas.vb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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