Revision 023755f2
Von G. Richardson vor etwa 5 Jahren hinzugefügt
| SL/Dev/Record.pm | ||
|---|---|---|
|
|
||
|
my $dec = delete $params{dec} // 2;
|
||
|
|
||
|
my $transdate = delete $params{transdate} // DateTime->today;
|
||
|
my $today = DateTime->today_local;
|
||
|
my $transdate = delete $params{transdate} // $today;
|
||
|
die "transdate hat to be DateTime object" unless ref($transdate) eq 'DateTime';
|
||
|
|
||
|
my $gldate = delete $params{gldate} // $today;
|
||
|
die "gldate hat to be DateTime object" unless ref($gldate) 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,
|
||
|
gldate => $gldate,
|
||
|
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;
|
||
|
|
||
|
my $transdate = delete $params{transdate} // DateTime->today;
|
||
|
my $today = DateTime->today_local;
|
||
|
my $transdate = delete $params{transdate} // $today;
|
||
|
die "transdate hat to be DateTime object" unless ref($transdate) eq 'DateTime';
|
||
|
|
||
|
my $gldate = delete $params{gldate} // $today;
|
||
|
die "gldate hat to be DateTime object" unless ref($gldate) 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,
|
||
|
gldate => $gldate,
|
||
|
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 $gldate = delete $params{gldate} // $today;
|
||
|
|
||
|
my $reference = delete $params{reference} // 'reference';
|
||
|
my $description = delete $params{description} // 'description';
|
||
| ... | ... | |
|
reference => $reference,
|
||
|
description => $description,
|
||
|
transdate => $transdate,
|
||
|
gldate => $today,
|
||
|
gldate => $gldate,
|
||
|
taxincluded => $taxincluded,
|
||
|
type => undef,
|
||
|
ob_transaction => $ob_transaction,
|
||
Auch abrufbar als: Unified diff
Dev Record : create_{ar|ap|gl}_transaction mit gldate
Damit man Belege für Tests mit abweichendem Erfassungsdatum erstellen
kann.