AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ModExtrenciones numero a Letras

Browse Source
This commit is contained in:
Oscar Irigoyen
2022-10-13 09:48:05 -07:00
parent b533f2f7fe
commit 8c3f9bfad0
4 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/modExtensiones.vb
View File

@@ -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

4
Compras/CatProveedoresClasificaciones.aspx.vb
View File

@@ -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"))

2
Contabilidad2/CatCuentas.aspx
View File

@@ -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 />

2
Contabilidad2/CatCuentas.aspx.vb
View File

@@ -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