--

Bancos/IE.aspx.vb

@@ -4641,7 +4641,7 @@ Partial Class Bancos_IE
                     trCuentaDeposito.Visible = True
                     DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                 Else
-                    Alert("El proveedor no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia)
+                    Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
                 End If
 
             Else
@@ -4649,25 +4649,12 @@ Partial Class Bancos_IE
                 If Dep.DtResultados.Rows.Count > 0 Then
                     trCuentaDeposito.Visible = True
                     DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
+
                 End If
             End If
 
 
-            ''ANTIGUO
-            'GVCuentasPago.DataSource = Dep.DtResultados
-            'If Dep.DtResultados.Rows.Count > 1 Then
-            '    trCuentaDeposito.Visible = True
-            '    DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
 
-            '    'Si tiene seleccionado Tipo Mov: Layout y no tiene cuenta deposito
-            'ElseIf DdlTipoTransaccion.SelectedValue = "9" AndAlso Not Dep.DtResultados.Rows.Count > 0 Then
-            '    trCuentaDeposito.Visible = True
-            '    DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
-
-            '    BtnIEGuardar.Enabled = False
-            '    UpGuardar.Update()
-            '    Alert("El proveedor no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia)
-            'End If
 
         End If
         Dep.Dispose()

Bancos/PagoElectronico.aspx.vb

@@ -801,7 +801,7 @@ Partial Class Bancos_PagoElectronico
         HeaderTexto = String.Format("H{0}{1}GRUPO01   ", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
         'Campo #5 del Header
 
-        Dim IdentificadoUsuario As String = UsuarioActual.Usuario.Replace(" ", "").Replace(".", "").Replace("@", "").Replace("/", "").ToUpper.Trim
+        Dim IdentificadoUsuario As String = UsuarioActual.Usuario.Replace(" ", "").Replace(".", "").Replace("@", "").Replace("/", "").Replace("\", "").Replace("-", "").Replace("&", "").Replace(",", "").Replace("+", "").Replace("_", "").ToUpper.Trim
         IdentificadoUsuario = If(IdentificadoUsuario.Length > 12, IdentificadoUsuario.Substring(0, 12), IdentificadoUsuario)
         ' Dim Identificado As String = String.Format("{0}{1}", UsuarioActual.Usuario, DateTime.Now().ToString("yyyyMMdd")))
 

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -966,16 +966,18 @@ Partial Class Bancos_PagoElectronicoGrupos
                 RegistrosPago.Append("PSC")
             End If
 
-            If drow("CLABEOrigen").ToString.Trim.Length = 18 Then
-                RegistrosPago.Append(drow("CLABEOrigen").ToString)
+            If drow("CLABEOrigen").ToString.Trim.Length.Contiene(10, 18) Then
+
+                RegistrosPago.Append(drow("CLABEOrigen").ToString.PadLeft(18, CeroRelleno))
+
             Else
                 ErrorLayout = True
                 MENSAJEError.AppendLine("ERROR EN CLABE cuenta origen")
                 Exit For
             End If
 
-            If drow("CLABEDestino").ToString.Trim.Length = 18 Then
-                RegistrosPago.Append(drow("CLABEDestino").ToString)
+            If drow("CLABEDestino").ToString.Trim.Length.Contiene(10, 18) Then
+                RegistrosPago.Append(drow("CLABEDestino").ToString.PadLeft(18, CeroRelleno))
             Else
                 ErrorLayout = True
                 MENSAJEError.AppendLine("ERROR EN CLABE cuenta destino")
@@ -988,10 +990,22 @@ Partial Class Bancos_PagoElectronicoGrupos
 
             If drow("BancoNombre").ToString.ToUpper.Contains("BANCOMER") Or drow("BancoNombre").ToString.ToUpper.Contains("BBVA") Then
 
-                If drow("Observaciones").ToString.Trim.Length > 30 Then
-                    RegistrosPago.Append(drow("Observaciones").ToString.Substring(0, 30))
+
+                If drow("Observaciones").ToString.Trim.Length = 0 Then
+
+                    If drow("RazonSocial").ToString.Trim.Length > 30 Then
+                        RegistrosPago.Append(drow("RazonSocial").ToString.Substring(0, 30))
+                    Else
+                        RegistrosPago.Append(drow("RazonSocial").ToString.PadRight(30, EspacioRelleno))
+                    End If
                 Else
-                    RegistrosPago.Append(drow("Observaciones").ToString.PadRight(30, EspacioRelleno))
+
+                    If drow("Observaciones").ToString.Trim.Length > 30 Then
+                        RegistrosPago.Append(drow("Observaciones").ToString.Substring(0, 30))
+                    Else
+                        RegistrosPago.Append(drow("Observaciones").ToString.PadRight(30, EspacioRelleno))
+                    End If
+
                 End If
 
             Else

Bancos/PopIECompras.aspx.vb

@@ -942,7 +942,7 @@ Partial Class Bancos_PopIECompras
                         DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                     Else
                         BtnGuardar.Enabled = False
-                        Alert("El proveedor no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia)
+                        Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
                     End If
 
                 Else

Bancos/ProveedoresAbonar.aspx.vb

@@ -2515,34 +2515,25 @@ Partial Class Bancos_ProveedoresAbonar
                         DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                     Else
                         BtnIEGuardar.Enabled = False
-                        Alert("El proveedor no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia)
+                        Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
                     End If
 
-                ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
+                    'ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
 
 
-                    If Dep.DtResultados.Rows.Count > 0 Then
-                        DdlCuentaDeposito.DataSource = Dep.DtResultados  '.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'")
-                        trCuentaDeposito.Visible = True
-                        BtnIEGuardar.ToolTip = ""
-                    Else
-                        'Alert("El proveedor no tiene cuentas deposito registradas.")
+                    '    If Dep.DtResultados.Rows.Count > 0 Then
+                    '        DdlCuentaDeposito.DataSource = Dep.DtResultados
+                    '        trCuentaDeposito.Visible = True
+                    '        BtnIEGuardar.ToolTip = ""
+                    '    Else
 
-                        BtnIEGuardar.Enabled = False
-                        BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
+                    '        BtnIEGuardar.Enabled = False
+                    '        BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
+
+                    '    End If
 
 
-
-                    End If
-
-                    'If Dep.DtResultados.FiltraParametros("EstatusPagoElectronicoGrupos = 'True'  AND Estatus ='True'").Rows.Count > 0 Then
-                    '    trCuentaDeposito.Visible = True
-                    '    DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
-                    'Else
-                    '    BtnIEGuardar.Enabled = False
-                    '    Alert("El proveedor no tiene ninguna cuenta deposito registrada ", TipoMensaje.MsgAdvertencia)
-                    'End If
-                    UpGuardar.Update()
+                    '    UpGuardar.Update()
                 Else
                     DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'")
                     If Dep.DtResultados.Rows.Count > 0 Then
@@ -2559,19 +2550,19 @@ Partial Class Bancos_ProveedoresAbonar
                 End If
 
 
-            Else
+                'Else
 
 
-                If DdlTipoTransaccion.SelectedValue = "17" Then
+                '    If DdlTipoTransaccion.SelectedValue = "17" Then
 
-                    BtnIEGuardar.Enabled = False
-                    BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
-                Else
-                    BtnIEGuardar.Enabled = True
-                    BtnIEGuardar.ToolTip = ""
-                End If
+                '        BtnIEGuardar.Enabled = False
+                '        BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
+                '    Else
+                '        BtnIEGuardar.Enabled = True
+                '        BtnIEGuardar.ToolTip = ""
+                '    End If
 
-                UpGuardar.Update()
+                '    UpGuardar.Update()
 
             End If