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 sub get_default_warehouse_id_ignore_onhand {
 157   my ($self) = @_;
 158   return ($self->{data}->{warehouse_id_ignore_onhand});
 159 }
 160
 161 sub get_default_bin_id_ignore_onhand {
 162   my ($self) = @_;
 163   return ($self->{data}->{bin_id_ignore_onhand});
 164 }
 165
 166
 167 sub get_transfer_default {
 168   my ($self) = @_;
 169   return ($self->{data}->{transfer_default});
 170 }
 171
 172 sub get_transfer_default_use_master_default_bin {
 173   my ($self) = @_;
 174   return ($self->{data}->{transfer_default_use_master_default_bin});
 175 }
 176
 177 sub get_transfer_default_ignore_onhand {
 178   my ($self) = @_;
 179   return ($self->{data}->{transfer_default_ignore_onhand});
 180 }
 181 # currently unused - value is set via audit_control (Bücherkontrolle)
 182 sub get_max_future_booking_interval {
 183   my ($self) = @_;
 184   return ($self->{data}->{max_future_booking_interval});
 185 }
 186
 187
 188
 189 1;
 190
 191 __END__
 192
 193 =pod
 194
 195 =encoding utf8
 196
 197 =head1 NAME
 198
 199 SL::InstanceConfiguration - Provide instance-specific configuration data
 200
 201 =head1 SYNOPSIS
 202
 203 kivitendo has two configuration levels: installation specific
 204 (provided by the global variable C<%::lx_office_conf>) and instance
 205 specific. The latter is provided by a global instance of this class,
 206 C<$::instance_conf>.
 207
 208 =head1 FUNCTIONS
 209
 210 =over 4
 211
 212 =item C<new>
 213
 214 Creates a new instance. Does not read the configuration.
 215
 216 =item C<init>
 217
 218 Reads the configuration from the database. Returns C<$self>.
 219
 220 =item C<get_currencies>
 221
 222 Returns an array of configured currencies.
 223
 224 =item C<get_default_currency>
 225
 226 Returns the default currency or undef if no currency has been
 227 configured.
 228
 229 =item C<get_accounting_method>
 230
 231 Returns the default accounting method, accrual or cash
 232
 233 =item C<get_inventory_system>
 234
 235 Returns the default inventory system, perpetual or periodic
 236
 237 =item C<get_profit_determination>
 238
 239 Returns the default profit determination method, balance or income
 240
 241
 242 =item C<get_is_changeable>
 243
 244 =item C<get_ir_changeable>
 245
 246 =item C<get_ar_changeable>
 247
 248 =item C<get_ap_changeable>
 249
 250 =item C<get_gl_changeable>
 251
 252 Returns if and when these record types are changeable or deleteable after
 253 posting. 0 means never, 1 means always and 2 means on the same day.
 254
 255 =item C<get_datev_check_on_sales_invoice>
 256
 257 Returns true if datev check should be performed on sales invoices
 258
 259 =item C<get_datev_check_on_purchase_invoice>
 260
 261 Returns true if datev check should be performed on purchase invoices
 262
 263 =item C<get_datev_check_on_ar_transaction>
 264
 265 Returns true if datev check should be performed on ar transactions
 266
 267 =item C<get_datev_check_on_ap_transaction>
 268
 269 Returns true if datev check should be performed on ap transactions
 270
 271 =item C<get_datev_check_on_gl_transaction>
 272
 273 Returns true if datev check should be performed on gl transactions
 274
 275 =item C<get_show_bestbefore>
 276
 277 Returns the default behavior for showing best before date, true or false
 278
 279 =item C<get_is_show_mark_as_paid>
 280
 281 =item C<get_ir_show_mark_as_paid>
 282
 283 =item C<get_ar_show_mark_as_paid>
 284
 285 =item C<get_ap_show_mark_as_paid>
 286
 287 Returns the default behavior for showing the mark as paid button for the
 288 corresponding record type (true or false).
 289
 290 =item C<get_sales_order_show_delete>
 291
 292 =item C<get_purchase_order_show_delete>
 293
 294 =item C<get_sales_delivery_order_show_delete>
 295
 296 =item C<get_purchase_delivery_order_show_delete>
 297
 298 Returns the default behavior for showing the delete button for the
 299 corresponding record type (true or false).
 300
 301 =item C<get_default_warehouse_id>
 302
 303 Returns the default warehouse_id
 304
 305 =item C<get_default_bin_id>
 306
 307 Returns the default bin_id
 308
 309 =item C<get_default_warehouse_id_ignore_onhand>
 310
 311 Returns the default warehouse_id for transfers without checking the
 312 current stock quantity
 313
 314 =item C<get_default_bin_id_ignore_onhand>
 315
 316 Returns the default bin_id for transfers without checking the.
 317 current stock quantity
 318
 319
 320
 321 =item C<get_transfer_default>
 322
 323 =item C<get_transfer_default_use_master_default_bin>
 324
 325 =item C<get_transfer_default_ignore_onhand>
 326
 327 Returns the default behavior for the transfer out default feature (true or false)
 328
 329 =item C<get_max_future_booking_interval>
 330
 331 Returns the maximum interval value for future bookings
 332
 333 =back
 334
 335 =head1 BUGS
 336
 337 Updates to the I<defaults> table require that the instance
 338 configuration is re-read. This has not been implemented yet.
 339
 340 =head1 AUTHOR
 341
 342 Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
 343
 344 =cut