Revision 0cb4ad8c
Von Philip Reetz vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 279 | 279 |
sub form_header {
|
| 280 | 280 |
$lxdebug->enter_sub(); |
| 281 | 281 |
|
| 282 |
if ($form->{old_employee_id}) {
|
|
| 283 |
$form->{employee_id} = $form->{old_employee_id};
|
|
| 284 |
} |
|
| 285 |
if ($form->{old_salesman_id}) {
|
|
| 286 |
$form->{salesman_id} = $form->{old_salesman_id};
|
|
| 287 |
} |
|
| 288 |
|
|
| 282 | 289 |
if ($edit) {
|
| 283 | 290 |
|
| 284 | 291 |
if ($form->{type} eq "credit_note") {
|
| bin/mozilla/oe.pl | ||
|---|---|---|
| 324 | 324 |
my $checkedclosed = $form->{"closed"} ? "checked" : "";
|
| 325 | 325 |
my $checkeddelivered = $form->{"delivered"} ? "checked" : "";
|
| 326 | 326 |
|
| 327 |
if ($form->{old_employee_id}) {
|
|
| 328 |
$form->{employee_id} = $form->{old_employee_id};
|
|
| 329 |
} |
|
| 330 |
if ($form->{old_salesman_id}) {
|
|
| 331 |
$form->{salesman_id} = $form->{old_salesman_id};
|
|
| 332 |
} |
|
| 333 |
|
|
| 327 | 334 |
map { $form->{$_} =~ s/\"/"/g }
|
| 328 | 335 |
qw(ordnumber quonumber shippingpoint shipvia notes intnotes shiptoname |
| 329 | 336 |
shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact |
| ... | ... | |
| 2180 | 2187 |
sub invoice {
|
| 2181 | 2188 |
$lxdebug->enter_sub(); |
| 2182 | 2189 |
|
| 2190 |
$form->{old_employee_id} = $form->{employee_id};
|
|
| 2191 |
$form->{old_salesman_id} = $form->{salesman_id};
|
|
| 2192 |
|
|
| 2183 | 2193 |
if ($form->{type} =~ /_order$/) {
|
| 2184 | 2194 |
|
| 2185 | 2195 |
# these checks only apply if the items don't bring their own ordnumbers/transdates. |
| ... | ... | |
| 2231 | 2241 |
$exchangerate = |
| 2232 | 2242 |
$form->check_exchangerate(\%myconfig, $form->{currency}, $orddate,
|
| 2233 | 2243 |
$buysell); |
| 2244 |
print(STDERR "CURRENCY $form->{currency} DEFAULT: $form->{defaultcurrency} EXCHANGE $exchangerate\n");
|
|
| 2234 | 2245 |
|
| 2235 | 2246 |
if (!$exchangerate) {
|
| 2236 | 2247 |
&backorder_exchangerate($orddate, $buysell); |
| ... | ... | |
| 2621 | 2632 |
|
| 2622 | 2633 |
$form->{closed} = 0;
|
| 2623 | 2634 |
|
| 2635 |
$form->{old_employee_id} = $form->{employee_id};
|
|
| 2636 |
$form->{old_salesman_id} = $form->{salesman_id};
|
|
| 2637 |
|
|
| 2624 | 2638 |
# reset |
| 2625 | 2639 |
map { delete $form->{$_} }
|
| 2626 | 2640 |
qw(id subject message cc bcc printed emailed queued customer vendor creditlimit creditremaining discount tradediscount oldinvtotal); |
Auch abrufbar als: Unified diff
Verkaeufer und Bearbeiter wurden beim Umwandeln nicht uebernommen