-- se concatenó la forma de pago en el pagueseA del IE

Bancos/DepositosCaja.aspx.vb

@@ -269,6 +269,7 @@ Partial Class Bancos_DepositosCaja
             Dim CveSubProyectoIntermediario As Integer
             Dim CveClasificacionIntermediario As Integer
             Dim CveProveedorIntermediario As Integer = -1
+            Dim tSubProyectoDeposito As String = ""
 
             If drOrigen IsNot Nothing Then
                 CveMoneda = drOrigen("CveMoneda").ToString.ToEntero
@@ -347,13 +348,13 @@ Partial Class Bancos_DepositosCaja
                     'se saca de la cuenta de la caja chica
                     CveSubProyecto = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, Estatus:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero()
                 End If
-
             End If
+            tSubProyectoDeposito = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("SubProyecto")
 
             If FolioIE <= 0 Then
                 OcurrioError = True
             End If
-            CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario)
+            CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, $"Depósito Bancario - {tSubProyectoDeposito}", TotalImporte, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario)
 
             documentos += String.Format("<a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>Depósito: {1}</a>  &nbsp &nbsp <br/> ", CveIEOrigen, FolioIE)
 
@@ -363,7 +364,7 @@ Partial Class Bancos_DepositosCaja
                     CveSubProyectoComision = DdlSubProyectoDeposito.SelectedValue.ToEntero
                     CveClasificacionComision = DdlClasificacion.SelectedValue.ToEntero
                     If Comision <> 0 Then
-                        If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, Comision * TipoCambio, 78, "Depósito Bancario", "Depósito Bancario", CveClasificacion:=CveClasificacionComision, CveSubProyecto:=CveSubProyectoComision) Then
+                        If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, Comision * TipoCambio, 78, $"Depósito Bancario - {tSubProyectoDeposito}", $"Depósito Bancario - {tSubProyectoDeposito}", CveClasificacion:=CveClasificacionComision, CveSubProyecto:=CveSubProyectoComision) Then
                             OcurrioError = True
                         End If
                     End If
@@ -384,9 +385,9 @@ Partial Class Bancos_DepositosCaja
             If Not OcurrioError AndAlso ChkCuentaRetorno.Checked Then
                 CveTransaccionBanco = 13
                 FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, CveTransaccionBanco)
-                Dim CveIEOrigenRetorno As Integer = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Retorno Depósito Bancario", CuentaRetorno, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                Dim CveIEOrigenRetorno As Integer = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, $"Retorno Depósito Bancario - {tSubProyectoDeposito}", CuentaRetorno, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-                If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, CuentaRetorno, CuentaRetorno * TipoCambio, 30, "Depósito Bancario", TxtCuentaRetornoObs.Text.Trim, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigenRetorno) Then
+                If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, CuentaRetorno, CuentaRetorno * TipoCambio, 30, $"Depósito Bancario - {tSubProyectoDeposito}", TxtCuentaRetornoObs.Text.Trim, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigenRetorno) Then
                     OcurrioError = True
                 End If
             End If
@@ -531,10 +532,8 @@ Partial Class Bancos_DepositosCaja
                 End If
 
                 If ObjMovtos.GetRemisionesCobranza(UsuarioActual.CveEmpresa, CveSubProyecto, FechaI, FechaF, UsuarioActual.CveUsuario) Then
-                    Dim dtt As DataTable = ObjMovtos.DtResultados.FiltraParametros($"CveVenta > 0 AND (CveUsuarioCobranza IS NULL OR CveUsuarioCobranza = {UsuarioActual.CveUsuario}) AND TipoDocto IN ('Ing','Rem') AND RemisionEspecial = 0")
-                    'Dim Dtta As DataTable = dtt.FiltraParametros($"CveUsuarioCobranza = {UsuarioActual.CveUsuario} ")
-                    'If Dtta IsNot Nothing AndAlso Dtta.Rows.Count > 0 Then dtt = Dtta
-
+                    Dim dtt As DataTable = ObjMovtos.DtResultados.FiltraParametros($"CveVenta > 0 AND TipoDocto IN ('Ing','Rem') AND RemisionEspecial = 0")
+                    'deben de estar consideradas las que están en proceso de cobro, por algún otro usuario.
                     If dtt.Rows.Count = 0 Then
                         Respuesta = True
                     Else
@@ -543,7 +542,7 @@ Partial Class Bancos_DepositosCaja
                     End If
 
                 Else
-                    Alert("Error al consultarcobros pendientes.", TipoMensaje.MsgAdvertencia)
+                    Alert("Error al consultar cobros pendientes.", TipoMensaje.MsgAdvertencia)
                     Respuesta = False
                 End If
                 ObjMovtos.Dispose()

Bancos/IE.aspx.vb

@@ -951,7 +951,8 @@ Partial Class Bancos_IE
                     End If
                 End If
 
-
+                LblPagarA.Visible = True
+                LblPagarA.Text = ObjIE.PagueseA
                 If CveCliente > 0 Then
                     DdlCliente.SelectedText = ObjIE.PagueseA
                     DdlCliente.SelectedValue = CveCliente.ToString
@@ -959,9 +960,6 @@ Partial Class Bancos_IE
                     DdlCliente.Visible = False
                     DdlCliente.Enabled = False
 
-                    LblPagarA.Visible = True
-                    LblPagarA.Text = ObjIE.PagueseA
-
                     ' LnkEmitirComplemento.Visible = True
                 ElseIf CveProveedor > 0 Then
                     DdlProveedores.SelectedText = ObjIE.PagueseA
@@ -969,10 +967,6 @@ Partial Class Bancos_IE
                     DdlProveedores.Visible = False
                     DdlProveedores.Enabled = False
 
-                    LblPagarA.Visible = True
-                    LblPagarA.Text = ObjIE.PagueseA
-
-
                     'Se prepara para la generacion del envio de correo con notificacion de pago
                     LnkEnviarMailPago.Attributes.Add("onclick", "$('#ModalDivMail').modal();")
                     LnkEnviarMailPago.Visible = True
@@ -984,10 +978,10 @@ Partial Class Bancos_IE
                 End If
 
                 'SI TIENE EL DATO DEBE MOSTRALO
-                If UsuarioActual.CveEmpresa = 119 AndAlso LblPagueseA.Text = "Beneficiario" AndAlso Not String.IsNullOrEmpty(ObjIE.PagueseA) Then
-                    LblPagarA.Visible = True
-                    LblPagarA.Text = ObjIE.PagueseA
-                End If
+                'If UsuarioActual.CveEmpresa = 119 AndAlso LblPagueseA.Text = "Beneficiario" AndAlso Not String.IsNullOrEmpty(ObjIE.PagueseA) Then
+                '    LblPagarA.Visible = True
+                '    LblPagarA.Text = ObjIE.PagueseA
+                'End If
 
                 IDPoliza = ObjIE.IDPoliza