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