From 6dd75ae10328d3d905c77e9fac347f3593670974 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Wed, 6 Nov 2019 14:01:44 -0700
Subject: [PATCH] =?UTF-8?q?Pago=20electronico=20tama=C3=B1o=20usuario=20ca?=
 =?UTF-8?q?becera,=20=20ddltipotransaccion=20error=20al=20seleccionar=20la?=
 =?UTF-8?q?yout?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/PagoElectronico.aspx.vb   | 11 ++++++++---
 Bancos/ProveedoresAbonar.aspx.vb |  7 ++++++-
 LogTimbrado.txt                  |  4 ++++
 3 files changed, 18 insertions(+), 4 deletions(-)

diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb
index 38b908b3c..4a70aa2a1 100644
--- a/Bancos/PagoElectronico.aspx.vb
+++ b/Bancos/PagoElectronico.aspx.vb
@@ -798,9 +798,14 @@ Partial Class Bancos_PagoElectronico
         '''''' LLENADO HEADER
         Dim convenio As String = DTPendienteActual(0)("ConvenioPagoElectronico").ToString
         'Campos #1-4 del Header
-        HeaderTexto = String.Format("H{0}{1}GRUPO01   ", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
-        'Campo #5 del Header
-        HeaderTexto &= String.Format("{0}{1}", UsuarioActual.Usuario, DateTime.Now().ToString("yyyyMMdd")).PadRight(20)
+        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
+        IdentificadoUsuario = If(IdentificadoUsuario.Length > 12, IdentificadoUsuario.Substring(0, 12), IdentificadoUsuario)
+        ' Dim Identificado As String = String.Format("{0}{1}", UsuarioActual.Usuario, DateTime.Now().ToString("yyyyMMdd")))
+
+        HeaderTexto &= String.Format("{0}{1}", IdentificadoUsuario, DateTime.Now().ToString("yyyyMMdd")).PadRight(20)
         'Campos #6-8 del Header
         HeaderTexto &= String.Format("00").PadRight(586)
         Dim HeaderLength = HeaderTexto.Length
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 37b1b3a67..6f7796a67 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -2298,7 +2298,12 @@ Partial Class Bancos_ProveedoresAbonar
                 End If
 
                 DdlCuentaDeposito.DataBind()
-                DdlCuentaDeposito.SelectedIndex = 1
+
+
+                If DdlCuentaDeposito.Items.Count > 1 Then
+                    DdlCuentaDeposito.SelectedIndex = 1
+                End If
+
             End If
 
         End If
diff --git a/LogTimbrado.txt b/LogTimbrado.txt
index 4d2db01dc..b329362bb 100644
--- a/LogTimbrado.txt
+++ b/LogTimbrado.txt
@@ -16,3 +16,7 @@
  .. PAC: 4 - Verificado : (6) 6 Certificado : (384) 390 Armado: (27) 417 Genera: (390) 807 Timbrado: (2271) 3078 Guardado: (219) 3297 Actualizado: (902) 4199  ..01/10/2019:12:27 a. m.
 
  .. PAC: 4 - Verificado : (0) 0 Certificado : (204) 204 Armado: (1) 205 Genera: (249) 454 Timbrado: (431) 885  ..01/10/2019:12:27 a. m.
+
+ .. PAC: 2 - Verificado : (32764) 32764 Armado: (660) 33424 Guardado: (445) 33869 Timbrado: (156762) 190631  ..06/11/2019:09:39 a. m.
+
+ .. PAC: 2 - Verificado : (2018) 2018 Armado: (96902) 98920 Guardado: (312) 99232 Timbrado: (1201) 100433  ..06/11/2019:09:41 a. m.