From d6aa9a236cb6717d1083e340bb21fe8981f5595c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 18 Sep 2023 12:12:38 -0700
Subject: [PATCH] --Conta formato Cuenta

---
 App_Code/ClsSisEmpresas.vb       |  1 +
 App_Code/Empresa.vb              |  1 +
 Contabilidad2/CatCuentas.aspx    |  4 +---
 Contabilidad2/CatCuentas.aspx.vb | 14 ++++++--------
 4 files changed, 9 insertions(+), 11 deletions(-)

diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb
index 6cce01769..9e12c8c4c 100644
--- a/App_Code/ClsSisEmpresas.vb
+++ b/App_Code/ClsSisEmpresas.vb
@@ -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
diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb
index c0c231714..f1fa5817d 100644
--- a/App_Code/Empresa.vb
+++ b/App_Code/Empresa.vb
@@ -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
diff --git a/Contabilidad2/CatCuentas.aspx b/Contabilidad2/CatCuentas.aspx
index 9810d4268..6e61f6432 100644
--- a/Contabilidad2/CatCuentas.aspx
+++ b/Contabilidad2/CatCuentas.aspx
@@ -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">
diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb
index fc3ff2418..ce3ff3bfb 100644
--- a/Contabilidad2/CatCuentas.aspx.vb
+++ b/Contabilidad2/CatCuentas.aspx.vb
@@ -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()