Cambios para mostar informacion dependiendo del tipo de contabilidad

Contabilidad2/CatCuentas.aspx.vb

@@ -303,6 +303,16 @@ Partial Class Contabilidad2_CatCuentas
                                  CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto,
                                  CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen) Then
 
+                If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                    Dim ObjContaEmpresa As New ClsContPAQi(UsuarioActual.Empresa)
+                    If Not ObjContaEmpresa.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
+                                                        DdlMoneda.SelectedValue.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
+                        ObjContaEmpresa.Dispose()
+                        ObjConta.Dispose()
+                        Exit Sub
+                    End If
+                End If
+
                 Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
 
                 If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
@@ -341,6 +351,7 @@ Partial Class Contabilidad2_CatCuentas
                 updatos.Update()
 
                 Alert("La cuenta se guardo correctamente")
+
             End If
         Else
             Alert("Es necesario agregar el campo 'Agrupador SAT'", TipoMensaje.MsgError)