SL/InstanceConfiguration.pm

   1 package SL::InstanceConfiguration;
   2
   3 use strict;
   4
   5 use SL::DBUtils;
   6
   7 sub new {
   8   my ($class) = @_;
   9
  10   return bless {}, $class;
  11 }
  12
  13 sub init {
  14   my ($self) = @_;
  15
  16   $self->{data} = selectfirst_hashref_query($::form, $::form->get_standard_dbh, qq|SELECT * FROM defaults|);
  17
  18   #To get all currencies and the default currency:
  19   ($self->{data}->{curr}) = selectrow_query($::form, $::form->get_standard_dbh, qq|SELECT name AS curr FROM currencies WHERE id = (SELECT currency_id FROM defaults)|);
  20   $self->{currencies}     = [ map { $_->{name} } selectall_hashref_query($::form, $::form->get_standard_dbh, qq|SELECT name FROM currencies ORDER BY id|) ];
  21
  22   return $self;
  23 }
  24
  25 sub get_default_currency {
  26   my ($self) = @_;
  27
  28   return $self->{data}->{curr};
  29 }
  30
  31 sub get_currencies {
  32   my ($self) = @_;
  33
  34   return @{ $self->{currencies} };
  35 }
  36
  37 sub get_accounting_method {
  38   my ($self) = @_;
  39   return $self->{data}->{accounting_method};
  40 }
  41
  42 sub get_inventory_system {
  43   my ($self) = @_;
  44   return $self->{data}->{inventory_system};
  45 }
  46
  47 sub get_profit_determination {
  48   my ($self) = @_;
  49   return $self->{data}->{profit_determination};
  50 }
  51
  52 sub get_is_changeable {
  53   my ($self) = @_;
  54   return $self->{data}->{is_changeable};
  55 }
  56
  57 sub get_ir_changeable {
  58   my ($self) = @_;
  59   return $self->{data}->{ir_changeable};
  60 }
  61
  62 sub get_ar_changeable {
  63   my ($self) = @_;
  64   return $self->{data}->{ar_changeable};
  65 }
  66
  67 sub get_ap_changeable {
  68   my ($self) = @_;
  69   return $self->{data}->{ap_changeable};
  70 }
  71
  72 sub get_gl_changeable {
  73   my ($self) = @_;
  74   return $self->{data}->{gl_changeable};
  75 }
  76
  77 sub get_datev_check_on_sales_invoice {
  78   my ($self) = @_;
  79   return $self->{data}->{datev_check_on_sales_invoice};
  80 }
  81
  82 sub get_datev_check_on_purchase_invoice {
  83   my ($self) = @_;
  84   return $self->{data}->{datev_check_on_purchase_invoice};
  85 }
  86
  87 sub get_datev_check_on_ar_transaction {
  88   my ($self) = @_;
  89   return $self->{data}->{datev_check_on_ar_transaction};
  90 }
  91
  92 sub get_datev_check_on_ap_transaction {
  93   my ($self) = @_;
  94   return $self->{data}->{datev_check_on_ap_transaction};
  95 }
  96
  97 sub get_datev_check_on_gl_transaction {
  98   my ($self) = @_;
  99   return $self->{data}->{datev_check_on_gl_transaction};
 100 }
 101
 102 sub get_show_bestbefore {
 103   my ($self) = @_;
 104   return $self->{data}->{show_bestbefore};
 105 }
 106
 107 sub get_is_show_mark_as_paid {
 108   my ($self) = @_;
 109   return $self->{data}->{is_show_mark_as_paid};
 110 }
 111
 112 sub get_ir_show_mark_as_paid {
 113   my ($self) = @_;
 114   return $self->{data}->{ir_show_mark_as_paid};
 115 }
 116
 117 sub get_ar_show_mark_as_paid {
 118   my ($self) = @_;
 119   return $self->{data}->{ar_show_mark_as_paid};
 120 }
 121
 122 sub get_ap_show_mark_as_paid {
 123   my ($self) = @_;
 124   return $self->{data}->{ap_show_mark_as_paid};
 125 }
 126
 127 sub get_sales_order_show_delete {
 128   my ($self) = @_;
 129   return $self->{data}->{sales_order_show_delete};
 130 }
 131
 132 sub get_purchase_order_show_delete {
 133   my ($self) = @_;
 134   return $self->{data}->{purchase_order_show_delete};
 135 }
 136
 137 sub get_sales_delivery_order_show_delete {
 138   my ($self) = @_;
 139   return $self->{data}->{sales_delivery_order_show_delete};
 140 }
 141
 142 sub get_purchase_delivery_order_show_delete {
 143   my ($self) = @_;
 144   return $self->{data}->{purchase_delivery_order_show_delete};
 145 }
 146
 147 sub get_default_warehouse_id {
 148   my ($self) = @_;
 149   return ($self->{data}->{warehouse_id});
 150 }
 151
 152 sub get_default_bin_id {
 153   my ($self) = @_;
 154   return ($self->{data}->{bin_id});
 155 }
 156
 157 1;
 158
 159 __END__
 160
 161 =pod
 162
 163 =encoding utf8
 164
 165 =head1 NAME
 166
 167 SL::InstanceConfiguration - Provide instance-specific configuration data
 168
 169 =head1 SYNOPSIS
 170
 171 kivitendo has two configuration levels: installation specific
 172 (provided by the global variable C<%::lx_office_conf>) and instance
 173 specific. The latter is provided by a global instance of this class,
 174 C<$::instance_conf>.
 175
 176 =head1 FUNCTIONS
 177
 178 =over 4
 179
 180 =item C<new>
 181
 182 Creates a new instance. Does not read the configuration.
 183
 184 =item C<init>
 185
 186 Reads the configuration from the database. Returns C<$self>.
 187
 188 =item C<get_currencies>
 189
 190 Returns an array of configured currencies.
 191
 192 =item C<get_default_currency>
 193
 194 Returns the default currency or undef if no currency has been
 195 configured.
 196
 197 =item C<get_accounting_method>
 198
 199 Returns the default accounting method, accrual or cash
 200
 201 =item C<get_inventory_system>
 202
 203 Returns the default inventory system, perpetual or periodic
 204
 205 =item C<get_profit_determination>
 206
 207 Returns the default profit determination method, balance or income
 208
 209
 210 =item C<get_is_changeable>
 211
 212 =item C<get_ir_changeable>
 213
 214 =item C<get_ar_changeable>
 215
 216 =item C<get_ap_changeable>
 217
 218 =item C<get_gl_changeable>
 219
 220 Returns if and when these record types are changeable or deleteable after
 221 posting. 0 means never, 1 means always and 2 means on the same day.
 222
 223 =item C<get_datev_check_on_sales_invoice>
 224
 225 Returns true if datev check should be performed on sales invoices
 226
 227 =item C<get_datev_check_on_purchase_invoice>
 228
 229 Returns true if datev check should be performed on purchase invoices
 230
 231 =item C<get_datev_check_on_ar_transaction>
 232
 233 Returns true if datev check should be performed on ar transactions
 234
 235 =item C<get_datev_check_on_ap_transaction>
 236
 237 Returns true if datev check should be performed on ap transactions
 238
 239 =item C<get_datev_check_on_gl_transaction>
 240
 241 Returns true if datev check should be performed on gl transactions
 242
 243 =item C<get_show_bestbefore>
 244
 245 Returns the default behavior for showing best before date, true or false
 246
 247 =item C<get_is_show_mark_as_paid>
 248
 249 =item C<get_ir_show_mark_as_paid>
 250
 251 =item C<get_ar_show_mark_as_paid>
 252
 253 =item C<get_ap_show_mark_as_paid>
 254
 255 Returns the default behavior for showing the mark as paid button for the
 256 corresponding record type (true or false).
 257
 258 =item C<get_sales_order_show_delete>
 259
 260 =item C<get_purchase_order_show_delete>
 261
 262 =item C<get_sales_delivery_order_show_delete>
 263
 264 =item C<get_purchase_delivery_order_show_delete>
 265
 266 Returns the default behavior for showing the delete button for the
 267 corresponding record type (true or false).
 268
 269 =item C<get_default_warehouse_id>
 270
 271 Returns the default warehouse_id
 272
 273 =item C<get_default_bin_id>
 274
 275 Returns the default bin_id
 276
 277 =back
 278
 279 =head1 BUGS
 280
 281 Updates to the I<defaults> table require that the instance
 282 configuration is re-read. This has not been implemented yet.
 283
 284 =head1 AUTHOR
 285
 286 Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
 287
 288 =cut