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

--Conta formato Cuenta

Browse Source
This commit is contained in:
rrene
2023-09-18 12:12:38 -07:00
parent 5d79623df8
commit d6aa9a236c
4 changed files with 9 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
App_Code/ClsSisEmpresas.vb
View File

@@ -423,6 +423,7 @@ Public Class ClsSisEmpresas
_Empresa.DiasPermitidos = Data.Rows(0)("DiasPermitidos").ToString.ToEntero
_Empresa.TipoContabilizacion = Data.Rows(0)("Conta_TipoContabilizacion").ToString.ToEntero
_Empresa.TipoContabilidad = Data.Rows(0)("Conta_TipoContabilidad").ToString.ToEntero '0 - Sin Conta, 1- Contabilidad SIG, 2- Contabilidad Contpaq
_Empresa.ContaFormatoCuenta = Data.Rows(0)("Conta_FormatoCuenta").ToString
_Empresa.DefaultAsistencias = If(Data.Rows(0)("RH_DefaultAsistencias").ToString = "", False, CBool(Data.Rows(0)("RH_DefaultAsistencias").ToString))
_Empresa.CIEC = Data.Rows(0)("CIEC").ToString
_Empresa.Localidad = Data.Rows(0)("Localidad").ToString

1
App_Code/Empresa.vb
View File

@@ -97,6 +97,7 @@ Public Class Empresa
Public Property Soporte_Tipo As String
Public Property Timbres As Integer
Public Property _RutaArchivos As String
Public Property ContaFormatoCuenta As String
Public ReadOnly Property Ruta As String
Get

4
Contabilidad2/CatCuentas.aspx
View File

@@ -99,9 +99,7 @@
<div class="catcuentas left">Cuenta</div>
<div class="catcuentas right">
<asp:TextBox ID="TxtCuenta" Style="width: 200px" runat="server" MaxLength="30"></asp:TextBox>
<ajax:MaskedEditExtender TargetControlID="Tcuenta" ID="MEECuenta" runat="server" MaskType="Number" AutoComplete="True" AutoCompleteValue="0" />
<asp:TextBox ID="Tcuenta" Style="width: 100px" runat="server" MaxLength="30" Visible="false"></asp:TextBox>
<ajax:MaskedEditExtender TargetControlID="TxtCuenta" ID="MEECuenta" runat="server" MaskType="Number" AutoComplete="True" AutoCompleteValue="0" />
</div>
</div>
<div class="form-line">

14
Contabilidad2/CatCuentas.aspx.vb
View File

@@ -149,20 +149,18 @@ Partial Class Contabilidad2_CatCuentas
Private Sub CargaDatos()
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
DtDatos = ObjConta.DtResultados
End If
ObjConta.Dispose()
'para obtener la mascara, tomo el primer dato y reemplazo los numeros por cero
Dim Mascara As String = "####-####-###"
If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
Mascara = DtDatos.Rows(0)("Codigo").ToString.Replace("1", "0").Replace("2", "0").Replace("3", "0").Replace("4", "0").Replace("5", "0").Replace("6", "0").Replace("7", "0").Replace("8", "0").Replace("9", "0")
End If
Dim Mascara As String = UsuarioActual.Empresa.ContaFormatoCuenta.Replace("X", "9") '"###-##-####"
'If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
' Mascara = DtDatos.Rows(0)("Codigo").ToString.Replace("1", "0").Replace("2", "0").Replace("3", "0").Replace("4", "0").Replace("5", "0").Replace("6", "0").Replace("7", "0").Replace("8", "0").Replace("9", "0")
'End If
MEECuenta.Mask = Mascara.Replace("0", "9")
MEECuenta.Mask = Mascara '.Replace("0", "9")
MEECuenta.AutoComplete = True
MEECuenta.AutoCompleteValue = Mascara
@@ -432,7 +430,7 @@ Partial Class Contabilidad2_CatCuentas
Dim ObjConta As New ClsContabilidad
Dim CuentaEfectivo As Integer = 0
'Dim Afectable As Integer = 1 'If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable
Tcuenta.Text.Replace("-", "")
TxtCuenta.Text.Replace("-", "")
Dim idnew As Integer = 0
Dim CveConceptoContable As Integer = DdlConcepto.SelectedValue.ToEntero()