Revision d629acd8
Von Sven Schöling vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/rp.pl | ||
|---|---|---|
| 35 | 35 |
# |
| 36 | 36 |
#====================================================================== |
| 37 | 37 |
|
| 38 |
require "$form->{path}/arap.pl";
|
|
| 38 |
require "bin/mozilla/arap.pl";
|
|
| 39 | 39 |
require "bin/mozilla/common.pl"; |
| 40 | 40 |
|
| 41 | 41 |
use SL::PE; |
| ... | ... | |
| 976 | 976 |
</table> |
| 977 | 977 |
|
| 978 | 978 |
<br> |
| 979 |
<input type=hidden name=path value=$form->{path}>
|
|
| 980 | 979 |
<input type=hidden name=login value=$form->{login}>
|
| 981 | 980 |
<input type=hidden name=password value=$form->{password}>
|
| 982 | 981 |
|
| ... | ... | |
| 1354 | 1353 |
$description = $form->escape($ref->{description});
|
| 1355 | 1354 |
|
| 1356 | 1355 |
$href = |
| 1357 |
qq|ca.pl?path=$form->{path}&action=list_transactions&accounttype=$form->{accounttype}&login=$form->{login}&password=$form->{password}&fromdate=$form->{fromdate}&todate=$form->{todate}&sort=transdate&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&eur=$form->{eur}&projectnumber=$projectnumber&project_id=$form->{project_id}&title=$title&nextsub=$form->{nextsub}&accno=$ref->{accno}&description=$description|;
|
|
| 1356 |
qq|ca.pl?action=list_transactions&accounttype=$form->{accounttype}&login=$form->{login}&password=$form->{password}&fromdate=$form->{fromdate}&todate=$form->{todate}&sort=transdate&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&eur=$form->{eur}&projectnumber=$projectnumber&project_id=$form->{project_id}&title=$title&nextsub=$form->{nextsub}&accno=$ref->{accno}&description=$description|;
|
|
| 1358 | 1357 |
|
| 1359 | 1358 |
$ml = ($ref->{category} =~ /(A|C|E)/) ? -1 : 1;
|
| 1360 | 1359 |
|
| ... | ... | |
| 1522 | 1521 |
$form->{arap} = "ar";
|
| 1523 | 1522 |
|
| 1524 | 1523 |
$form->{callback} =
|
| 1525 |
qq|$form->{script}?path=$form->{path}&action=generate_ar_aging&login=$form->{login}&password=$form->{password}&todate=$form->{todate}&customer=$customer&title=$title|;
|
|
| 1524 |
qq|$form->{script}?action=generate_ar_aging&login=$form->{login}&password=$form->{password}&todate=$form->{todate}&customer=$customer&title=$title|;
|
|
| 1526 | 1525 |
|
| 1527 | 1526 |
RP->aging(\%myconfig, \%$form); |
| 1528 | 1527 |
&aging; |
| ... | ... | |
| 1542 | 1541 |
$form->{arap} = "ap";
|
| 1543 | 1542 |
|
| 1544 | 1543 |
$form->{callback} =
|
| 1545 |
qq|$form->{script}?path=$form->{path}&action=generate_ap_aging&login=$form->{login}&password=$form->{password}&todate=$form->{todate}&vendor=$vendor&title=$title|;
|
|
| 1544 |
qq|$form->{script}?action=generate_ap_aging&login=$form->{login}&password=$form->{password}&todate=$form->{todate}&vendor=$vendor&title=$title|;
|
|
| 1546 | 1545 |
|
| 1547 | 1546 |
RP->aging(\%myconfig, \%$form); |
| 1548 | 1547 |
&aging; |
| ... | ... | |
| 1707 | 1706 |
$ref->{c90} = ($ref->{c90} != 0) ? $form->format_amount(\%myconfig, $ref->{c90}, 2, " ") : "";
|
| 1708 | 1707 |
|
| 1709 | 1708 |
$href = |
| 1710 |
qq|$ref->{module}.pl?path=$form->{path}&action=edit&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=|
|
|
| 1709 |
qq|$ref->{module}.pl?action=edit&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=|
|
|
| 1711 | 1710 |
. $form->escape($form->{callback});
|
| 1712 | 1711 |
|
| 1713 | 1712 |
$column_data{invnumber} = qq|<td><a href=$href>$ref->{invnumber}</a></td>|;
|
| ... | ... | |
| 1806 | 1805 |
|
| 1807 | 1806 |
<input type=hidden name=department value="$form->{department}">
|
| 1808 | 1807 |
|
| 1809 |
<input type=hidden name=path value=$form->{path}>
|
|
| 1810 | 1808 |
<input type=hidden name=login value=$form->{login}>
|
| 1811 | 1809 |
<input type=hidden name=password value=$form->{password}>
|
| 1812 | 1810 |
|
| ... | ... | |
| 2143 | 2141 |
|
| 2144 | 2142 |
# construct href |
| 2145 | 2143 |
$href = |
| 2146 |
"$form->{script}?path=$form->{path}&action=generate_tax_report&login=$form->{login}&password=$form->{password}&fromdate=$form->{fromdate}&todate=$form->{todate}&db=$form->{db}&method=$form->{method}&accno=$form->{accno}&$descvar=$description&department=$department&$ratevar=$taxrate&report=$form->{report}";
|
|
| 2144 |
"$form->{script}?&action=generate_tax_report&login=$form->{login}&password=$form->{password}&fromdate=$form->{fromdate}&todate=$form->{todate}&db=$form->{db}&method=$form->{method}&accno=$form->{accno}&$descvar=$description&department=$department&$ratevar=$taxrate&report=$form->{report}";
|
|
| 2147 | 2145 |
|
| 2148 | 2146 |
# construct callback |
| 2149 | 2147 |
$description = $form->escape($form->{$descvar}, 1);
|
| 2150 | 2148 |
$department = $form->escape($form->{department}, 1);
|
| 2151 | 2149 |
$callback = |
| 2152 |
"$form->{script}?path=$form->{path}&action=generate_tax_report&login=$form->{login}&password=$form->{password}&fromdate=$form->{fromdate}&todate=$form->{todate}&db=$form->{db}&method=$form->{method}&accno=$form->{accno}&$descvar=$description&department=$department&$ratevar=$taxrate&report=$form->{report}";
|
|
| 2150 |
"$form->{script}?&action=generate_tax_report&login=$form->{login}&password=$form->{password}&fromdate=$form->{fromdate}&todate=$form->{todate}&db=$form->{db}&method=$form->{method}&accno=$form->{accno}&$descvar=$description&department=$department&$ratevar=$taxrate&report=$form->{report}";
|
|
| 2153 | 2151 |
|
| 2154 | 2152 |
$title = $form->escape($form->{title});
|
| 2155 | 2153 |
$href .= "&title=$title"; |
| ... | ... | |
| 2288 | 2286 |
|
| 2289 | 2287 |
$column_data{id} = qq|<td>$ref->{id}</td>|;
|
| 2290 | 2288 |
$column_data{invnumber} =
|
| 2291 |
qq|<td><a href=$module?path=$form->{path}&action=edit&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber}</a></td>|;
|
|
| 2289 |
qq|<td><a href=$module?action=edit&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber}</a></td>|;
|
|
| 2292 | 2290 |
$column_data{transdate} = qq|<td>$ref->{transdate}</td>|;
|
| 2293 | 2291 |
$column_data{name} = qq|<td>$ref->{name} </td>|;
|
| 2294 | 2292 |
|
| ... | ... | |
| 2408 | 2406 |
$memo = $form->escape($form->{memo});
|
| 2409 | 2407 |
|
| 2410 | 2408 |
$href = |
| 2411 |
"$form->{script}?path=$form->{path}&action=list_payments&login=$form->{login}&password=$form->{password}&fromdate=$form->{fromdate}&todate=$form->{todate}&fx_transaction=$form->{fx_transaction}&db=$form->{db}&prepayment=$form->{prepayment}&title=$title&account=$account&department=$department&paymentaccounts=$form->{paymentaccounts}&reference=$reference&source=$source&memo=$memo";
|
|
| 2409 |
"$form->{script}?action=list_payments&login=$form->{login}&password=$form->{password}&fromdate=$form->{fromdate}&todate=$form->{todate}&fx_transaction=$form->{fx_transaction}&db=$form->{db}&prepayment=$form->{prepayment}&title=$title&account=$account&department=$department&paymentaccounts=$form->{paymentaccounts}&reference=$reference&source=$source&memo=$memo";
|
|
| 2412 | 2410 |
|
| 2413 | 2411 |
# construct callback |
| 2414 | 2412 |
$account = $form->escape($form->{account}, 1);
|
| ... | ... | |
| 2419 | 2417 |
$memo = $form->escape($form->{memo}, 1);
|
| 2420 | 2418 |
|
| 2421 | 2419 |
$form->{callback} =
|
| 2422 |
"$form->{script}?path=$form->{path}&action=list_payments&login=$form->{login}&password=$form->{password}&fromdate=$form->{fromdate}&todate=$form->{todate}&fx_transaction=$form->{fx_transaction}&db=$form->{db}&prepayment=$form->{prepayment}&title=$title&account=$account&department=$department&paymentaccounts=$form->{paymentaccounts}&reference=$reference&source=$source&memo=$memo&sort=$form->{sort}";
|
|
| 2420 |
"$form->{script}?action=list_payments&login=$form->{login}&password=$form->{password}&fromdate=$form->{fromdate}&todate=$form->{todate}&fx_transaction=$form->{fx_transaction}&db=$form->{db}&prepayment=$form->{prepayment}&title=$title&account=$account&department=$department&paymentaccounts=$form->{paymentaccounts}&reference=$reference&source=$source&memo=$memo&sort=$form->{sort}";
|
|
| 2423 | 2421 |
$callback = $form->escape($form->{callback});
|
| 2424 | 2422 |
|
| 2425 | 2423 |
$column_header{name} =
|
| ... | ... | |
| 2503 | 2501 |
$module = 'ir' if ($payment->{invoice} && $payment->{module} eq 'ap');
|
| 2504 | 2502 |
|
| 2505 | 2503 |
$href = |
| 2506 |
qq|${module}.pl?path=$form->{path}&action=edit&id=$payment->{id}&login=$form->{login}&password=$form->{password}&callback=$callback|;
|
|
| 2504 |
qq|${module}.pl?ction=edit&id=$payment->{id}&login=$form->{login}&password=$form->{password}&callback=$callback|;
|
|
| 2507 | 2505 |
|
| 2508 | 2506 |
$column_data{name} = "<td>$payment->{name} </td>";
|
| 2509 | 2507 |
$column_data{reference} =
|
Auch abrufbar als: Unified diff
$form->{path} entfernt und hardcodiert auf bin/mozilla gesetzt.
Vorlagen sind nicht betroffen, aber locales.pl schon.