From 1249f52336c3d6f859c7a8d9810c7cc7fa8f65ad Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Tue, 19 May 2020 20:06:17 -0700
Subject: [PATCH] Pago electronico guion cavecera

---
 Bancos/PagoElectronico.aspx.vb       |  2 +-
 Bancos/PagoElectronicoGrupos.aspx.vb | 28 +++++++++++++++++++++-------
 2 files changed, 22 insertions(+), 8 deletions(-)

diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb
index 93a64cde4..cf39067b6 100644
--- a/Bancos/PagoElectronico.aspx.vb
+++ b/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("-", "").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")))
 
diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb
index 62b657d9f..acf4a927d 100644
--- a/Bancos/PagoElectronicoGrupos.aspx.vb
+++ b/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