projekt kivitendo

  my $dec = delete $params{dec} // 2;

  die "transdate hat to be DateTime object" unless ref($transdate) eq 'DateTime';

  my $ap_chart = delete $params{ap_chart} // SL::DB::Manager::Chart->find_by( accno => '1600' );

  die "no ap_chart found or not an AP chart" unless $ap_chart and $ap_chart->link eq 'AP';

    invnumber        => delete $params{invnumber} // 'test ap_transaction',

    notes            => delete $params{notes}     // 'test ap_transaction',

    transdate        => $transdate,

    taxincluded      => $taxincluded,

    taxzone_id       => $vendor->taxzone_id, # taxzone_id shouldn't have any effect on ap transactions

    currency_id      => $::instance_conf->get_currency_id,

  my $dec = delete $params{dec} // 2;

  die "transdate hat to be DateTime object" unless ref($transdate) eq 'DateTime';

  my $ar_chart = delete $params{ar_chart} // SL::DB::Manager::Chart->find_by( accno => '1400' );

  die "no ar_chart found or not an AR chart" unless $ar_chart and $ar_chart->link eq 'AR';

    invnumber        => delete $params{invnumber} // 'test ar_transaction',

    notes            => delete $params{notes}     // 'test ar_transaction',

    transdate        => $transdate,

    taxincluded      => $taxincluded,

    taxzone_id       => $customer->taxzone_id, # taxzone_id shouldn't have any effect on ar transactions

    currency_id      => $::instance_conf->get_currency_id,

  my $today      = DateTime->today_local;

  my $transdate  = delete $params{transdate} // $today;

  my $reference   = delete $params{reference}   // 'reference';

  my $description = delete $params{description} // 'description';

    reference      => $reference,

    description    => $description,

    transdate      => $transdate,

    taxincluded    => $taxincluded,

    type           => undef,

    ob_transaction => $ob_transaction,