Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision a3b8cfa7

Von Jan Büren vor fast 6 Jahren hinzugefügt

  • ID a3b8cfa7b754629f39ee42e1cadd88d013666a14
  • Vorgänger c1ef3aff
  • Nachfolger 29254bae

fixt: #345 Mahnungsersteller im Ausdruck konfigurierbar machen

Im Menüpunkt Mahnungen konfigurieren, kann man nun wählen, ob
der aktuelle Mitarbeiter für die Mahnung/Zahlungserinnerung gesetzt ist
oder der ursprüngliche Mitarbeiter/Ersteller der Rechnung

Unterschiede anzeigen:

SL/DB/MetaSetup/Default.pm
60 60 
  dunning_ar                                => { type => 'integer' },
61 61 
  dunning_ar_amount_fee                     => { type => 'integer' },
62 62 
  dunning_ar_amount_interest                => { type => 'integer' },
63 
  dunning_creator                           => { type => 'enum', check_in => [ 'current_employee', 'invoice_employee' ], db_type => 'dunning_creator', default => 'current_employee' },
63 64 
  duns                                      => { type => 'text' },
64 65 
  email_journal                             => { type => 'integer', default => 2 },
65 66 
  expense_accno_id                          => { type => 'integer' },
SL/DN.pm
38 38 
use SL::Common;
39 39 
use SL::DBUtils;
40 40 
use SL::DB::Default;
41 
use SL::DB::Employee;
41 42 
use SL::GenericTranslations;
42 43 
use SL::IS;
43 44 
use SL::Mailer;
......
71 72 
  }
72 73 

  		




  73
  74
  
    
  $query =


  		




  74
  
  
    
    qq|SELECT dunning_ar_amount_fee, dunning_ar_amount_interest, dunning_ar


  		




  
  75
  
    
    qq|SELECT dunning_ar_amount_fee, dunning_ar_amount_interest, dunning_ar, dunning_creator


  		




  75
  76
  
    
       FROM defaults|;


  		




  76
  
  
    
  ($form->{AR_amount_fee}, $form->{AR_amount_interest}, $form->{AR}) = selectrow_query($form, $dbh, $query);


  		




  
  77
  
    
  ($form->{AR_amount_fee}, $form->{AR_amount_interest}, $form->{AR}, $form->{dunning_creator})


  		




  
  78
  
    
    = selectrow_query($form, $dbh, $query);


  		




  77
  79
  
    

  		




  78
  80
  
    
  $main::lxdebug->leave_sub();


  		




  79
  81
  
    
}


  		




  ......




  135
  137
  
    
    }


  		




  136
  138
  
    
  }


  		




  137
  139
  
    

  		




  138
  
  
    
  $query  = qq|UPDATE defaults SET dunning_ar_amount_fee = ?, dunning_ar_amount_interest = ?, dunning_ar = ?|;


  		




  139
  
  
    
  @values = (conv_i($form->{AR_amount_fee}), conv_i($form->{AR_amount_interest}), conv_i($form->{AR}));


  		




  
  140
  
    
  $query  = qq|UPDATE defaults SET dunning_ar_amount_fee = ?, dunning_ar_amount_interest = ?, dunning_ar = ?,


  		




  
  141
  
    
               dunning_creator = ?|;


  		




  
  142
  
    
  @values = (conv_i($form->{AR_amount_fee}), conv_i($form->{AR_amount_interest}), conv_i($form->{AR}),


  		




  
  143
  
    
             $form->{dunning_creator});


  		




  140
  144
  
    
  do_query($form, $dbh, $query, @values);


  		




  141
  145
  
    

  		




  142
  146
  
    
  return 1;


  		




  ......




  907
  911
  
    
  push @{ $form->{DUNNING_PDFS_EMAIL} }, { 'path' => "${spool}/$filename",


  		




  908
  912
  
    
                                           'name'     => $form->get_formname_translation('dunning') . "_${dunning_id}.pdf" };


  		




  909
  913
  
    

  		




  910
  
  
    
  $form->get_employee_data('prefix' => 'employee', 'id' => $form->{employee_id});


  		




  
  914
  
    
  my $employee_id = ($::instance_conf->get_dunning_creator eq 'invoice_employee') ?


  		




  
  915
  
    
                      $form->{employee_id}                                        :


  		




  
  916
  
    
                      SL::DB::Manager::Employee->current->id;


  		




  
  917
  
    

  		




  
  918
  
    
  $form->get_employee_data('prefix' => 'employee', 'id' => $employee_id);


  		




  911
  919
  
    
  $form->get_employee_data('prefix' => 'salesman', 'id' => $form->{salesman_id});


  		




  912
  920
  
    

  		




  913
  921
  
    
  $form->{attachment_type}    = "dunning";


  		












  

    
      locale/de/all
    
  





  782
  782
  
    
  'Currency names must not be empty.' => 'Währungsnamen dürfen nicht leer sein.',


  		




  783
  783
  
    
  'Current / Next Level'        => 'Aktuelles / Nächstes Mahnlevel',


  		




  784
  784
  
    
  'Current Earnings'            => 'Gewinn',


  		




  
  785
  
    
  'Current Employee'            => 'Aktuelle Mitarbeiter',


  		




  785
  786
  
    
  'Current assets account'      => 'Konto für Umlaufvermögen',


  		




  786
  787
  
    
  'Current filter'              => 'Aktueller Filter',


  		




  787
  788
  
    
  'Current picture'             => 'Aktuelles Bild',


  		




  ......




  1084
  1085
  
    
  'Dunned open amount: #1'      => 'Angemahnter, offener Betrag: #1',


  		




  1085
  1086
  
    
  'Dunning'                     => 'Mahnung',


  		




  1086
  1087
  
    
  'Dunning Amount'              => 'gemahnter Betrag',


  		




  
  1088
  
    
  'Dunning Creator'             => 'Mahnungsersteller',


  		




  1087
  1089
  
    
  'Dunning Date'                => 'Mahndatum',


  		




  1088
  1090
  
    
  'Dunning Date from'           => 'Mahnungen von',


  		




  1089
  1091
  
    
  'Dunning Description'         => 'Mahnstufenbeschreibung',


  		




  ......




  1225
  1227
  
    
  'Employee'                    => 'Bearbeiter',


  		




  1226
  1228
  
    
  'Employee #1 saved!'          => 'Benutzer #1 gespeichert!',


  		




  1227
  1229
  
    
  'Employee (database ID)'      => 'Bearbeiter (Datenbank-ID)',


  		




  
  1230
  
    
  'Employee from the original invoice' => 'Mitarbeiter der Ursprungs-Rechnung',


  		




  1228
  1231
  
    
  'Employees'                   => 'Benutzer',


  		




  1229
  1232
  
    
  'Empty selection for warehouse will not be added, even if the old bin is still visible (use back and forth to edit again).' => 'Leere Lager-Auswahl wird ignoriert, selbst wenn noch ein Lagerplatz ausgewählt ist. Alle Daten können durch zurück und vorwärts korrigiert werden.',


  		




  1230
  1233
  
    
  'Empty transaction!'          => 'Buchung ist leer!',


  		












  

    
      sql/Pg-upgrade2/defaults_set_dunning_creator.sql
    
  





  
  1
  
    
-- @tag: defaults_set_dunning_creator


  		




  
  2
  
    
-- @description: Ersteller der Mahnungen konfigurierbar machen


  		




  
  3
  
    
-- @depends: release_3_5_3


  		




  
  4
  
    

  		




  
  5
  
    
CREATE TYPE dunning_creator AS ENUM ('current_employee', 'invoice_employee');


  		




  
  6
  
    
ALTER TABLE defaults ADD COLUMN dunning_creator dunning_creator default 'current_employee';


  		




  
  7
  
    

  		












  

    
      templates/webpages/dunning/edit_config.html
    
  





  1
  1
  
    
[%- USE T8 %]


  		




  2
  2
  
    
[%- USE HTML %]


  		




  
  3
  
    
[%- USE LxERP -%][%- USE L -%]


  		




  3
  4
  
    
<h1>[% title %]</h1>


  		




  4
  5
  
    

  		




  5
  6
  
    
 <script type="text/javascript" src="js/common.js"></script>


  		




  ......




  119
  120
  
    
     </select>


  		




  120
  121
  
    
    </td>


  		




  121
  122
  
    
   </tr>


  		




  
  123
  
    
   <tr>


  		




  
  124
  
    
    <th align="right">[% 'Dunning Creator' | $T8 %]</th>


  		




  
  125
  
    
    <td>[% L.select_tag('dunning_creator', [ [ 'current_employee', LxERP.t8('Current Employee') ],[ 'invoice_employee', LxERP.t8('Employee from the original invoice') ]  ], default=dunning_creator) %]


  		




  
  126
  
    
    </td>


  		




  
  127
  
    
   </tr>


  		




  122
  128
  
    
  </table>


  		




  123
  129
  
    

  		




  124
  130
  
    
  <input type="hidden" name="callback" value="[% HTML.escape(callback) %]">


  		












Auch abrufbar als:  Unified diff