gestion 1.9.12

data/Views/Compta/Course.rb

@@ -0,0 +1,96 @@
+# Allow for courses to be paid
+# This module attributes the courses to the accounts. Normally this
+# should happen automatically, but for old installations, this editor
+# is necessary.
+
+class ComptaCourse < View
+  def layout
+    @order = 50
+    @update = true
+    @functions_need = [:accounting_courses]
+    @visible = false
+    
+    gui_hboxg do
+      gui_vbox :nogroup do
+        show_entity_course :courses, :single, :name,
+          :flexheight => 1, :callback => true, :width => 100
+      end
+      gui_vbox do
+        show_str :account_path, :width => 300
+        show_button :new_account_path, :save
+      end
+      gui_window :win_new_account do
+        gui_vbox :nogroup do
+          show_list_single :new_account, :width => 500, :height => 300
+          show_button :assign_new_account, :add_archives, :close
+        end
+      end
+    end
+    
+  end
+  
+  def rpc_button_new_account_path( session, data )
+    acc = []
+    AccountRoot.actual.get_tree{|a|
+      acc.push [ a.global_id, a.path ]
+    }
+    reply( :empty, :new_account ) +
+      reply( :update, { :new_account => acc.sort{|a,b| a[1] <=> b[1] } }) +
+      reply( :window_show, :win_new_account )
+  end
+  
+  def rpc_button_save( session, data )
+    dputs(4){"save with #{data.inspect} - #{data._courses} - #{data._account_path}"}
+    reply( :empty_nonlists, :new_account_path ) +
+      if course = data._courses
+      if ap = data._account_path and
+          acc = Accounts.find_by_path(ap)
+        dputs(3){"New account at #{ap} is #{acc.inspect} - #{acc.path}"}
+        course.entries = acc
+        reply( :update, :account_path => acc.path )
+      elsif course.entries
+        reply( :update, :account_path => course.entries.path )
+      else
+        []
+      end
+    else
+      []
+    end
+  end
+  
+  def rpc_button_add_archives( session, data )
+    
+  end
+  
+  def rpc_button_assign_new_account( session, data )
+    if gid = data._new_account[0] and
+        acc = Accounts.find_by_global_id( gid )
+      rpc_button_save( session, data.merge( "account_path" => acc.path ) )
+    else
+      []
+    end +
+      reply( :window_hide )
+  end
+
+  def rpc_button_close( session, data )
+    reply( :window_hide )
+  end
+  
+  def rpc_list_choice( session, name, data )
+    dputs(4){"name is #{name} - data is #{data.inspect}"}
+    if course = data._courses
+      dputs(3){"Course is #{course.inspect}"}
+      reply( :empty_nonlists, [:account_path] ) +
+        if course.entries and course.entries != []
+        reply( :update, :account_path => course.entries.path )
+      else
+        []
+      end
+    end
+  end
+  
+  def rpc_update( session )
+    reply( :empty_nonlists, :courses ) +
+      reply( :update, :courses => Courses.list_courses(session))
+  end
+end

data/Views/Compta/Show.rb

@@ -0,0 +1,6 @@
+class ComptaShow < View
+  include VTListPane
+  def layout
+    @visible = false
+  end
+end

data/Views/Compta/Transfer.rb

@@ -0,0 +1,66 @@
+# To change this template, choose Tools | Templates
+# and open the template in the editor.
+
+class ComptaTransfer < View
+  include PrintButton
+
+  def layout
+    @update = true
+    @order = 10
+
+    set_data_class :Persons
+
+    gui_hbox do
+      gui_vbox :nogroup do
+        show_entity_person :persons, :single, :callback => true
+        show_date :upto
+        show_button :do_transfer, :update
+      end
+      gui_vbox :nogroup do
+        show_table :report, :headings => [:Date, :Desc, :Amount, :Sum],
+                   :widths => [100, 300, 75, 75], :height => 400, :width => 570,
+                   :columns => [0, 0, :align_right, :align_right]
+        show_print :print
+      end
+
+      window_print_status
+    end
+  end
+
+  def rpc_button_do_transfer(session, data)
+    dputs(3) { "data is #{data.inspect} with owner #{session.owner.full_name}" }
+    if (other = data._persons).class == Person
+      dputs(3) { "Other is #{other.inspect}, id is #{data._person_list.to_s.inspect}" }
+      amount = (other.account_due.total.to_f * 1000).to_i
+      log_msg :comptatransfer, "#{session.owner.login_name} gets #{amount} from " +
+                                 "#{other.login_name}"
+      session.owner.get_all_due(other, data._upto.date_from_web)
+    end
+    rpc_update(session)
+  end
+
+  def rpc_update(session)
+    dputs(3) { "rpc_update with #{session.inspect}" }
+    reply(:empty_nonlists, :persons) +
+        reply(:update, :persons => Persons.listp_account_due) +
+        reply(:update, :upto => Date.today.to_web) +
+        reply_print(session)
+  end
+
+  def rpc_list_choice_persons(session, data)
+    reply(:empty_nonlists, :report) +
+        reply(:update, :upto => data._upto) +
+        reply(:update, :report => data._persons.report_list(:all,
+                                                            data._upto.date_from_web))
+  end
+
+  def rpc_button_update(session, data)
+    rpc_list_choice_persons(session, data)
+  end
+
+  def rpc_button_print(session, data)
+    send_printer_reply(session, :print, data,
+                       data._persons.report_pdf(:all,
+                                                data._upto.date_from_web))
+  end
+end

data/Views/Course/Diploma.rb

@@ -0,0 +1,203 @@
+=begin
+Shows the existing courses and the courses on the server, so that the
+two can be synchronized.
+=end
+
+
+class CourseDiploma < View
+  include PrintButton
+
+  def layout
+    set_data_class :Courses
+    @order = 30
+    @update = true
+
+    gui_hbox do
+      gui_vbox :nogroup do
+        show_table :diplomas_t, :headings => [:Name, :Grade, :State, :PDF],
+                   :widths => [200, 50, 100], :height => 500,
+                   :columns => [0, 0, 0, :html]
+      end
+      gui_vbox :nogroup do
+        gui_fields do
+          show_info :status
+          show_button :do_diplomas, :abort
+        end
+        show_print :print
+      end
+      gui_window :missing_data do
+        show_html :missing
+        show_button :close
+      end
+      gui_window :printing do
+        show_html :msg_print
+        show_button :close
+      end
+    end
+  end
+
+  def rpc_show(session)
+    super(session) +
+        reply(:hide, [:abort, :status])
+  end
+
+  def rpc_update(session)
+    super(session) +
+        reply_print(session)
+  end
+
+  def rpc_list_choice_courses(session, args)
+    args.to_sym!
+    ret = reply(:empty_nonlists, :diplomas_t)
+    if args._courses.length > 0
+      if course = Courses.match_by_course_id(args._courses.to_a[0])
+        course.update_state(true)
+        ret += rpc_update_with_values(session, args)
+      end
+    end
+    return ret
+  end
+
+  def rpc_button_do_diplomas(session, args)
+    course_id = args._courses[0]
+    course = Courses.match_by_course_id(course_id)
+    if not course or course.export_check
+      if course
+        return reply(:window_show, :missing_data) +
+            reply(:update, :missing => 'The following fields are not filled in:<br>' +
+                             course.export_check.join('<br>'))
+      end
+    else
+      course.prepare_diplomas
+
+      rpc_list_choice(session, :courses, :courses => [course_id.to_s])
+    end
+  end
+
+  def pdf_link(path)
+    "<a target='other' href=\"/getdiplomas/#{path}\">#{File.basename(path)}</a>"
+  end
+
+  def rpc_update_with_values(session, args)
+    #dputs_func
+
+    args.to_sym!
+    if true
+      (course_id = args._courses[0]) or return []
+      #ret = rpc_list_choice( session, "courses", "courses" => course_id.to_s )
+      (course = Entities.Courses.match_by_course_id(course_id)) or return []
+    else
+      return unless course = args._courses
+    end
+
+    ret = []
+
+    overall_state = course.make_pdfs_state['0']
+    if overall_state == 'done'
+      ret += reply(:auto_update, 0) +
+          reply(:hide, [:abort, :status]) +
+          reply(:unhide, :do_diplomas)
+    else
+      ret += reply(:auto_update, -5) +
+          reply(:unhide, [:abort, :status]) +
+          reply(:hide, :do_diplomas) +
+          reply(:update, :status => overall_state)
+    end
+    dputs(3) { "Overall_state is #{overall_state}" }
+
+    states = case course.get_files.select { |f| f =~ /(000-4pp.pdf|zip)$/ }.first
+               when /zip$/
+                 [['all.zip', ['All files', '', '', pdf_link("#{course.name}/all.zip")]]]
+               when /pdf$/
+                 [['000-4pp.pdf', ['4 on 1 page', '', '',
+                                   pdf_link("#{course.name}/000-4pp.pdf")]],
+                  ['000-all.pdf', ['All diplomas', '', '',
+                                   pdf_link("#{course.name}/000-all.pdf")]]]
+               else
+                 dputs(3) { course.get_files.inspect }
+                 []
+             end
+    dputs(3) { "States is #{states}" }
+
+    states += course.make_pdfs_state.keys.reject { |k| k == '0' }.
+        collect { |s|
+      st = course.make_pdfs_state[s]
+      p = Persons.match_by_login_name(s)
+      link = st[1] == 'done' ? pdf_link(st[2]) : '---'
+      [s, [p.full_name, st[0], st[1], link]]
+    }.sort { |a, b|
+      a[1][0] <=> b[1][0]
+    }
+
+    return ret +
+        reply_print(session) +
+        reply(:update, :diplomas_t => states)
+  end
+
+  def rpc_button_close(session, args)
+    reply(:window_hide) +
+        reply(:empty_selections)
+  end
+
+  def rpc_button_print(session, args)
+    ret = rpc_print(session, :print, args) +
+        reply(:window_hide)
+    lp_cmd = cmd_printer(session, :print)
+    if (names = args['diplomas_t']).length > 0
+      course_id = args['courses'][0]
+      course = Courses.match_by_course_id(course_id)
+      log_msg :diploma, "Printing #{names.inspect} of #{course.name}"
+
+      files = names.collect { |f|
+        file = "#{course.dir_diplomas}/#{f}"
+        exts = %w( pdf png )
+        while (!File.exists? file) and (exts.length > 0)
+          file = "#{course.get_diploma_filename(f, exts.pop)}"
+        end
+        if !File.exists? file
+          file = 'Not found'
+        end
+        dputs(3) { "Filename is #{file}" }
+        name = ((p = Persons.match_by_login_name(f)) and p.full_name) ||
+            {'all.zip' => 'All files', '000-4pp.pdf' => '4 on 1 page',
+             '000-all.pdf' => 'All diplomas'}[f] || 'Unknown'
+        [name, file]
+      }
+      dputs(2) { "Printing #{files.inspect}" }
+      if lp_cmd
+        names = []
+        files.each { |name, file|
+          if File.exists? file
+            System.run_bool("#{lp_cmd} #{file}")
+            names.push name
+          end
+        }
+        ret += reply(:window_show, :printing) +
+            reply(:update, :msg_print => 'Impression de<ul><li>' +
+                             "#{names.join('</li><li>')}</li></ul>en cours")
+      else
+        ret += reply(:window_show, :printing) +
+            reply(:update, :msg_print => 'Choisir le pdf:<ul>' +
+                             files.collect { |name, file|
+                               if File.exists? file
+                                 FileUtils.cp file, '/tmp'
+                                 "<li><a target='other' href=\"/tmp/#{File.basename(file)}\">#{name}</a></li>"
+                               else
+                                 "<li>#{name} - not found</li>"
+                               end
+                             }.join('') + '</ul>')
+      end
+    end
+    ret
+  end
+
+  def rpc_button_abort(session, args)
+    course_id = args._courses[0]
+    course = Entities.Courses.match_by_course_id(course_id)
+    course.abort_pdfs
+    reply(:unhide, :do_diplomas) +
+        reply(:hide, :abort) +
+        reply(:auto_update, 0) +
+        rpc_list_choice(session, 'courses', args)
+  end
+end