Merge branch 'master' of http://192.168.10.111:8383/SIG

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)

Contabilidad2/RepAnexoCatalogo.aspx.vb

@@ -73,6 +73,11 @@ Partial Class AC2_RepAnexoCatalogo
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
+
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                Response.Redirect($"/Contabilidad/RepAnexoCatalogo.aspx")
+            End If
+
             Dim ErrorParametros = True
             DtDatos = Nothing
             CargaTipoCuentas()

Contabilidad2/RepBalanceGeneral.aspx.vb

@@ -166,6 +166,10 @@ Partial Class Contabilidad2_RepBalanceGeneral
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                Response.Redirect($"/Contabilidad/RepBalanceGeneral.aspx")
+            End If
+
             'If UsuarioActual.Empresa.UsaAC Then
             '    TipoReporte = -1
             'Else

Contabilidad2/RepBalanzaComprobacion.aspx.vb

@@ -57,6 +57,11 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
+
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                Response.Redirect($"/Contabilidad/RepBalanzaComprobacion.aspx")
+            End If
+
             Dim ErrorParametros = True
             ModoImpresion = False
             TxtFechaDel.Text = DateSerial(Year(Now), Month(Now), 1).ToShortDateString

Contabilidad2/RepEstadoResultados.aspx.vb

@@ -127,6 +127,10 @@ Partial Class Contabilidad2_RepEstadoResultados
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                Response.Redirect($"/Contabilidad/RepEstadoResultados.aspx")
+            End If
+
             'tdTipoReporte.Visible = True
             TipoReporte = 1
 

Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb

@@ -96,6 +96,11 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
+
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                Response.Redirect($"/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx")
+            End If
+
             Dim ErrorParametros = True
 
             CargaTipoCuentas()