Personal validar cuenta bancaria logitud 10,11,15,16,18 , Empresas2 maqutado bootstrap

RH/Personal.aspx

@@ -4825,10 +4825,13 @@
                             <i></i>
                         </div>
                         <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox CssClass="form-control" ID="TxtNumeroCuenta" runat="server"></asp:TextBox>
+                            <asp:TextBox CssClass="form-control" ID="TxtNumeroCuenta" runat="server" CausesValidation="true"></asp:TextBox>
                             <asp:Label runat="server" AssociatedControlID="TxtNumeroCuenta" Text="Cuenta:"></asp:Label>
-                            <asp:RequiredFieldValidator ID="RFVNumeroCuenta" runat="server" InitialValue="-1" ControlToValidate="TxtNumeroCuenta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
+                            <asp:RequiredFieldValidator ID="RFVNumeroCuenta" runat="server" ControlToValidate="TxtNumeroCuenta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
+                            <asp:RegularExpressionValidator ID="RGVNumeroCuenta" ValidationExpression="^(?:\d{10}|\d{11}|\d{15}|\d{16}|\d{18})$"  runat="server"   ControlToValidate="TxtNumeroCuenta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> debe de tener una logitud de 10,11,15,16,18 caracteres." ValidationGroup="GrpAgregarBanco"></asp:RegularExpressionValidator>
+                            
                             <ajax:ValidatorCalloutExtender ID="VcoNumeroCuenta" runat="server" HighlightCssClass="vco" TargetControlID="RFVNumeroCuenta" Width="300px"></ajax:ValidatorCalloutExtender>
+                            <ajax:ValidatorCalloutExtender ID="VcoRGVNumeroCuenta" runat="server" HighlightCssClass="vco" TargetControlID="RGVNumeroCuenta" Width="300px"></ajax:ValidatorCalloutExtender>
                             <i></i>
                         </div>
                         <div class="form-group form-md-line-input input-iconright">

Sistemas/Empresa2.aspx.vb

@@ -389,7 +389,7 @@ Partial Class Sistemas_Empresa2
             'Plantilla Correo
 
 
-            ConfiguracionEmpresa()
+
 
         End If
     End Sub
@@ -417,7 +417,7 @@ Partial Class Sistemas_Empresa2
                 With ObjEmpresas.Empresa
 
                     'Campos para Modificación
-                    TxtCveEmpresa.Text = .CveEmpresa.ToString
+
                     TxtEmpresa.Text = .Empresa : LtlTitulo.Text = "Consulta de Empresa: " & .Empresa
                     TxtNombreCorto.Text = .NombreCorto
                     TxtDireccion.Text = .Direccion
@@ -431,7 +431,6 @@ Partial Class Sistemas_Empresa2
                     TxtTelefono.Text = .Telefono
                     TxtContacto.Text = .Contacto 'Representante legal
                     TxtMail.Text = .Mail
-                    DdlTipoFacturacion.SelectedValue = .TipoFacturacion
                     'TxtBIUsuario.Text = .BIUsuario
                     'TxtBIContraseña.Text = .BIContraseña
                     TxtContraseñaKey.Text = .ContraseñaKey
@@ -483,7 +482,7 @@ Partial Class Sistemas_Empresa2
                     TxtCURP.Text = .CURP
                     TxtImporte.Text.ToDecimal
                     TxtCIEC.Text = .CIEC
-                    DdlPlataforma.SelectedValue = .CvePlataforma.ToString
+                    'DdlPlataforma.SelectedValue = .CvePlataforma.ToString
                     UsaAC = .UsaAC
                     TxtPorDepreciacion.Text = .PorDepreciacion.ToString
                     TxtExtension.Text = .Extension
@@ -752,16 +751,16 @@ Partial Class Sistemas_Empresa2
 
         Else
             If ObjEmpresas.UpdateEmpresa(TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim,
-                                         TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, DdlTipoFacturacion.SelectedItem.ToString, "-1",
+                                         TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, "CFDi", "-1",
                                          "-1", TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", Estatus,
                                          FacturaProduccion, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "-1", EstatusFacturacion, TxtSendMail.Text.Trim,
                                          TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, UsaContabilidad, UsaBancos,
                                          UsaVentas, UsaCxC, UsaCompras, UsaInventarios, UsaRH, UsaNomina, UsaOS, "-1",
                                          "-1", "-1", "-1", TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero,
-                                         ChkBuzon_SSL.Checked, TxtBuzon_USR.Text.Trim, TxtBuzon_PWD.Text.Trim, TxtCveEmpresa.Text.Trim.ToEntero, DdlProtocolo.SelectedValue,
+                                         ChkBuzon_SSL.Checked, TxtBuzon_USR.Text.Trim, TxtBuzon_PWD.Text.Trim, UsuarioActual.CveEmpresa, DdlProtocolo.SelectedValue,
                                          "-1", "-1", -1, SSLSoporte, "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, "", TxtAreaGeografica.Text.Trim,
                                          -1, -1, TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, 1,
-                                         TxtImporte.Text.ToDecimal, TxtCIEC.Text, DdlPlataforma.SelectedValue.ToEntero, UsaAC,
+                                         TxtImporte.Text.ToDecimal, TxtCIEC.Text, 1, UsaAC,
                                          TxtPorDepreciacion.Text.ToDecimal, TxtExtension.Text, TxtLocalidad.Text, DdlMetodoInventario.SelectedValue.ToEntero, AsientoContable, TxtPeriodoActual.Text.ToEntero,
                                          TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked,
                                          DdlTerminalTipo.SelectedValue.ToEntero, IdCuentaDSV:=-1, IdCuentaImpuestosLocales:=-1, IdCuentaIEPSxAcreditar:=-1, IdCuentaIEPSAcreditable:=-1,
@@ -915,7 +914,7 @@ Partial Class Sistemas_Empresa2
         If TextoError = "" Then
             ObjEmpresas.Commit()
             If ObjContPAQ IsNot Nothing Then ObjContPAQ.Commit()
-            Alert(TextoOK, TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/Empresa.aspx?CveEmpresa=" & TxtCveEmpresa.Text.Trim & """;")
+            Alert(TextoOK, TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/Empresa2.aspx"";")
             Session("FileUpload") = ""
             CargaDatos()
             UpDatos.Update()
@@ -932,20 +931,13 @@ Partial Class Sistemas_Empresa2
     Private Function AgregarFuncionalidad(ObjEmpresas As ClsSisEmpresas, CveFuncionalidad As Integer, ByRef Ddl As DropDownList) As String
         Dim Retorno = ""
 
-        If Not ObjEmpresas.AddUpdateEmpresaFuncionalidades(TxtCveEmpresa.Text.Trim.ToEntero, CveFuncionalidad, Ddl.SelectedValue) Then
+        If Not ObjEmpresas.AddUpdateEmpresaFuncionalidades(UsuarioActual.CveEmpresa, CveFuncionalidad, Ddl.SelectedValue) Then
             Retorno = "Ocurrió un error al vincular la cuenta contable"
         End If
 
         Return Retorno
     End Function
-    Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
-        Dim ObjEmpresas As New ClsSisEmpresas
-        If ObjEmpresas.RemoveEmpresa(UsuarioActual.CveEmpresa) Then
-            GlobalDTEmpresas = ObjEmpresas.DtResultados
-            Alert("La Empresa se Eliminó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/Empresa.aspx"";")
-        End If
-        ObjEmpresas.Dispose()
-    End Sub
+
 
     'Nuevo Código
     Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1)
@@ -1458,17 +1450,7 @@ Partial Class Sistemas_Empresa2
         ObjSis.Dispose()
     End Sub
 
-#Region "CONFIGURACION EMPRESA"
-    Private Sub ConfiguracionEmpresa()
-        If UsuarioActual.CveRol <> 1 Then
-            'TabSistema.Visible = False
-            BtnCancelar.Visible = False
-            BtnEliminar.Visible = False
-            ' BiInform.Visible = False
-        End If
 
-    End Sub
-#End Region
 
     '#Region "TAB   -   INDICADORES "
     '    Public Sub CargaGridIndicadores()