Revision f825d995
Von Bernd Bleßmann vor fast 6 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 1008 | 1008 |
|
| 1009 | 1009 |
my @columns = ( |
| 1010 | 1010 |
"transdate", "reqdate", |
| 1011 |
"id", $ordnumber, "edit_exp",
|
|
| 1011 |
"id", $ordnumber, |
|
| 1012 | 1012 |
"cusordnumber", "customernumber", |
| 1013 | 1013 |
"name", "netamount", |
| 1014 | 1014 |
"tax", "amount", |
| ... | ... | |
| 1035 | 1035 |
$form->{l_open} = $form->{l_closed} = "Y" if ($form->{open} && $form->{closed});
|
| 1036 | 1036 |
$form->{l_delivered} = "Y" if ($form->{delivered} && $form->{notdelivered});
|
| 1037 | 1037 |
$form->{l_periodic_invoices} = "Y" if ($form->{periodic_invoices_active} && $form->{periodic_invoices_inactive});
|
| 1038 |
$form->{l_edit_exp} = "Y" if $::instance_conf->get_feature_experimental && (any { $form->{type} eq $_ } qw(sales_order purchase_order sales_quotation request_quotation));
|
|
| 1039 | 1038 |
map { $form->{"l_${_}"} = 'Y' } qw(order_probability expected_billing_date expected_netamount) if $form->{l_order_probability_expected_billing_date};
|
| 1040 | 1039 |
|
| 1041 | 1040 |
my $attachment_basename; |
| ... | ... | |
| 1117 | 1116 |
'expected_billing_date' => { 'text' => $locale->text('Exp. bill. date'), },
|
| 1118 | 1117 |
'expected_netamount' => { 'text' => $locale->text('Exp. netamount'), },
|
| 1119 | 1118 |
'payment_terms' => { 'text' => $locale->text('Payment Terms'), },
|
| 1120 |
'edit_exp' => { 'text' => $locale->text('Edit (experimental)'), },
|
|
| 1121 | 1119 |
%column_defs_cvars, |
| 1122 | 1120 |
); |
| 1123 | 1121 |
|
| ... | ... | |
| 1225 | 1223 |
|
| 1226 | 1224 |
my $idx = 1; |
| 1227 | 1225 |
|
| 1228 |
my $edit_url = build_std_url('action=edit', 'type', 'vc');
|
|
| 1226 |
my $edit_url = ($::instance_conf->get_feature_experimental) |
|
| 1227 |
? build_std_url('script=controller.pl', 'action=Order/edit', 'type')
|
|
| 1228 |
: build_std_url('action=edit', 'type', 'vc');
|
|
| 1229 | 1229 |
|
| 1230 | 1230 |
foreach my $oe (@{ $form->{OE} }) {
|
| 1231 | 1231 |
map { $oe->{$_} *= $oe->{exchangerate} } @subtotal_columns;
|
| ... | ... | |
| 1249 | 1249 |
|
| 1250 | 1250 |
foreach my $column (@columns) {
|
| 1251 | 1251 |
next if ($column eq 'ids'); |
| 1252 |
next if ($column eq 'edit_exp'); |
|
| 1253 | 1252 |
$row->{$column} = {
|
| 1254 | 1253 |
'data' => $oe->{$column},
|
| 1255 | 1254 |
'align' => $column_alignment{$column},
|
| ... | ... | |
| 1265 | 1264 |
|
| 1266 | 1265 |
$row->{$ordnumber}->{link} = $edit_url . "&id=" . E($oe->{id}) . "&callback=${callback}";
|
| 1267 | 1266 |
|
| 1268 |
$row->{edit_exp}->{data} = $oe->{$ordnumber};
|
|
| 1269 |
$row->{edit_exp}->{link} = build_std_url('script=controller.pl', 'action=Order/edit', "type=$form->{type}", 'id=' . E($oe->{id}));
|
|
| 1270 |
|
|
| 1271 | 1267 |
my $row_set = [ $row ]; |
| 1272 | 1268 |
|
| 1273 | 1269 |
if (($form->{l_subtotal} eq 'Y')
|
| ... | ... | |
| 2137 | 2133 |
my $content; |
| 2138 | 2134 |
|
| 2139 | 2135 |
if (@{ $quotations }) {
|
| 2140 |
my $edit_url = build_std_url('script=oe.pl', 'action=edit');
|
|
| 2136 |
my $edit_url = ($::instance_conf->get_feature_experimental) |
|
| 2137 |
? build_std_url('script=controller.pl', 'action=Order/edit')
|
|
| 2138 |
: build_std_url('script=oe.pl', 'action=edit');
|
|
| 2141 | 2139 |
|
| 2142 | 2140 |
$content = $form->parse_html_template('oe/report_for_todo_list', { 'QUOTATIONS' => $quotations,
|
| 2143 | 2141 |
'edit_url' => $edit_url }); |
Auch abrufbar als: Unified diff
Auftrags-Controller: nur neue Maske/Links hierhin, wenn experimentelle Features an
- in Menüs Verkauf/Einkauf: Links zu Angebot u. Auftrag)
- in Berichten Angebot/Auftrag und Lieferscheine: Links zu Angeboten und Auträgen
- im Presenter (und damit in der Liste der verknüpfte Belege)
- Todo-Liste