tipocontabilidad

Contabilidad/PlantillasPolizasDetalle.aspx.vb

@@ -61,7 +61,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
             ObjPlantillaPolizasTipo.Dispose()
 
             Dim dt As DataTable = Nothing
-            If UsuarioActual.Empresa.UsaContabilidad Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                 Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
 
                 If Conta.GetCuentas(-1, "-1", 1) Then
@@ -257,13 +257,12 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
                                                                                 DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
                     TxtOrden.Text = ""
                     If Not ChkSeguirAgregando.Checked Then
-                        updatatos()
                         Alert("El nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
                     Else
                         RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
                         UpModal.Update()
                     End If
-
+                    updatatos()
                 Else
                     ErrorDetalle = True
                 End If