From 8c3f9bfad058fce84d74388f36284d1710ca6f84 Mon Sep 17 00:00:00 2001
From: Oscar Irigoyen <rakcsle@outlook.com>
Date: Thu, 13 Oct 2022 09:48:05 -0700
Subject: [PATCH] ModExtrenciones  numero a Letras

---
 App_Code/modExtensiones.vb                    | 4 ++--
 Compras/CatProveedoresClasificaciones.aspx.vb | 4 ++--
 Contabilidad2/CatCuentas.aspx                 | 2 +-
 Contabilidad2/CatCuentas.aspx.vb              | 2 +-
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 681afe43a..ee58149a8 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -977,8 +977,8 @@ Namespace Extensiones
 
 
                             Dim tmp As String = Mid(entero, 2, 6)
-                            If entero.ToString.Length >= 7 And tmp = "000000" Then
-                                If entero.ToString.Length = 7 And tmp = "000000" Then
+                            If entero.ToString.Length >= 7 And tmp = "000000" Or Mid(entero, 3, 6) = "000000" Then
+                                If entero.ToString.Length = 7 And tmp = "000000" Or Mid(entero, 3, 6) = "000000" Then
                                     palabras.Append("de ")
                                 End If
                             Else
diff --git a/Compras/CatProveedoresClasificaciones.aspx.vb b/Compras/CatProveedoresClasificaciones.aspx.vb
index 038e00e54..623166051 100644
--- a/Compras/CatProveedoresClasificaciones.aspx.vb
+++ b/Compras/CatProveedoresClasificaciones.aspx.vb
@@ -90,8 +90,8 @@ Partial Class Compras_CatProveedoresClasificaciones
             End If
         End If
 
-        If ObjProveedorClasificacion.GetProveedorClasificacion(-1) Then
-            GlobalDTProveedorClasificacion(-1) = ObjProveedorClasificacion.DtResultados
+        If ObjProveedorClasificacion.GetProveedorClasificacion(UsuarioActual.CveEmpresa) Then
+            GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa) = ObjProveedorClasificacion.DtResultados
         End If
 
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddClasificacion"))
diff --git a/Contabilidad2/CatCuentas.aspx b/Contabilidad2/CatCuentas.aspx
index 51bcc8812..58b1d4c79 100644
--- a/Contabilidad2/CatCuentas.aspx
+++ b/Contabilidad2/CatCuentas.aspx
@@ -115,7 +115,7 @@
                         <div class="catcuentas left">Subcuenta de</div>
                         <div class="catcuentas right">
                             <asp:TextBox ID="Tsubcuenta" runat="server" Enabled="False" Width="140px" ClientIDMode="Static"></asp:TextBox>
-                            <asp:DropDownList ID="DdlCuentaContable" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="false" DataTextField="CtaCodigo" style="max-width:160px" 
+                            <asp:DropDownList ID="DdlCuentaContable" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" style="max-width:160px" 
                                 DataValueField="Id" Width="160px" Visible="false">
                                 </asp:DropDownList>
                             <br />
diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb
index 6845bb71a..ac9f09bbf 100644
--- a/Contabilidad2/CatCuentas.aspx.vb
+++ b/Contabilidad2/CatCuentas.aspx.vb
@@ -331,7 +331,7 @@ Partial Class Contabilidad2_CatCuentas
 
         Dim ObjConta As New ClsContabilidad
 
-        If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+        If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
             DdlCuentaContable.DataSource = ObjConta.DtResultados
         End If