Revision e07e9534
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 300 | 300 |
return $rc; |
| 301 | 301 |
} |
| 302 | 302 |
|
| 303 |
sub warehouses {
|
|
| 304 |
$main::lxdebug->enter_sub(); |
|
| 305 |
|
|
| 306 |
my ($self, $myconfig, $form) = @_; |
|
| 307 |
|
|
| 308 |
# connect to database |
|
| 309 |
my $dbh = $form->dbconnect($myconfig); |
|
| 310 |
|
|
| 311 |
my $query = qq|SELECT id, description |
|
| 312 |
FROM warehouse |
|
| 313 |
ORDER BY 2|; |
|
| 314 |
|
|
| 315 |
$sth = $dbh->prepare($query); |
|
| 316 |
$sth->execute || $form->dberror($query); |
|
| 317 |
|
|
| 318 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
|
| 319 |
push @{ $form->{ALL} }, $ref;
|
|
| 320 |
} |
|
| 321 |
|
|
| 322 |
$sth->finish; |
|
| 323 |
$dbh->disconnect; |
|
| 324 |
|
|
| 325 |
$main::lxdebug->leave_sub(); |
|
| 326 |
} |
|
| 327 |
|
|
| 328 |
sub get_warehouse {
|
|
| 329 |
$main::lxdebug->enter_sub(); |
|
| 330 |
|
|
| 331 |
my ($self, $myconfig, $form) = @_; |
|
| 332 |
|
|
| 333 |
# connect to database |
|
| 334 |
my $dbh = $form->dbconnect($myconfig); |
|
| 335 |
|
|
| 336 |
my $query = qq|SELECT w.description |
|
| 337 |
FROM warehouse w |
|
| 338 |
WHERE w.id = $form->{id}|;
|
|
| 339 |
my $sth = $dbh->prepare($query); |
|
| 340 |
$sth->execute || $form->dberror($query); |
|
| 341 |
|
|
| 342 |
my $ref = $sth->fetchrow_hashref(NAME_lc); |
|
| 343 |
|
|
| 344 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
|
| 345 |
|
|
| 346 |
$sth->finish; |
|
| 347 |
|
|
| 348 |
# see if it is in use |
|
| 349 |
$query = qq|SELECT count(*) FROM inventory i |
|
| 350 |
WHERE i.warehouse_id = $form->{id}|;
|
|
| 351 |
$sth = $dbh->prepare($query); |
|
| 352 |
$sth->execute || $form->dberror($query); |
|
| 353 |
|
|
| 354 |
($form->{orphaned}) = $sth->fetchrow_array;
|
|
| 355 |
$form->{orphaned} = !$form->{orphaned};
|
|
| 356 |
$sth->finish; |
|
| 357 |
|
|
| 358 |
$dbh->disconnect; |
|
| 359 |
|
|
| 360 |
$main::lxdebug->leave_sub(); |
|
| 361 |
} |
|
| 362 |
|
|
| 363 |
sub save_warehouse {
|
|
| 364 |
$main::lxdebug->enter_sub(); |
|
| 365 |
|
|
| 366 |
my ($self, $myconfig, $form) = @_; |
|
| 367 |
|
|
| 368 |
# connect to database |
|
| 369 |
my $dbh = $form->dbconnect($myconfig); |
|
| 370 |
|
|
| 371 |
$form->{description} =~ s/\'/\'\'/g;
|
|
| 372 |
|
|
| 373 |
if ($form->{id}) {
|
|
| 374 |
$query = qq|UPDATE warehouse SET |
|
| 375 |
description = '$form->{description}'
|
|
| 376 |
WHERE id = $form->{id}|;
|
|
| 377 |
} else {
|
|
| 378 |
$query = qq|INSERT INTO warehouse |
|
| 379 |
(description) |
|
| 380 |
VALUES ('$form->{description}')|;
|
|
| 381 |
} |
|
| 382 |
$dbh->do($query) || $form->dberror($query); |
|
| 383 |
|
|
| 384 |
$dbh->disconnect; |
|
| 385 |
|
|
| 386 |
$main::lxdebug->leave_sub(); |
|
| 387 |
} |
|
| 388 |
|
|
| 389 |
sub delete_warehouse {
|
|
| 390 |
$main::lxdebug->enter_sub(); |
|
| 391 |
|
|
| 392 |
my ($self, $myconfig, $form) = @_; |
|
| 393 |
|
|
| 394 |
# connect to database |
|
| 395 |
my $dbh = $form->dbconnect($myconfig); |
|
| 396 |
|
|
| 397 |
$query = qq|DELETE FROM warehouse |
|
| 398 |
WHERE id = $form->{id}|;
|
|
| 399 |
$dbh->do($query) || $form->dberror($query); |
|
| 400 |
|
|
| 401 |
$dbh->disconnect; |
|
| 402 |
|
|
| 403 |
$main::lxdebug->leave_sub(); |
|
| 404 |
} |
|
| 405 |
|
|
| 406 | 303 |
sub departments {
|
| 407 | 304 |
$main::lxdebug->enter_sub(); |
| 408 | 305 |
|
| SL/OE.pm | ||
|---|---|---|
| 76 | 76 |
WHERE o.quotation = '$quotation' |
| 77 | 77 |
$department|; |
| 78 | 78 |
|
| 79 |
# build query if type eq (ship|receive)_order |
|
| 80 |
if ($form->{type} =~ /(ship|receive)_order/) {
|
|
| 81 |
my ($warehouse, $warehouse_id) = split /--/, $form->{warehouse};
|
|
| 82 |
|
|
| 83 |
$query = qq|SELECT DISTINCT ON (o.id) o.id, o.ordnumber, o.transdate, |
|
| 84 |
o.reqdate, o.amount, ct.name, o.netamount, o.$form->{vc}_id,
|
|
| 85 |
ex.$rate AS exchangerate, |
|
| 86 |
o.closed, o.quonumber, o.shippingpoint, o.shipvia, |
|
| 87 |
e.name AS employee |
|
| 88 |
FROM oe o |
|
| 89 |
JOIN $form->{vc} ct ON (o.$form->{vc}_id = ct.id)
|
|
| 90 |
JOIN orderitems oi ON (oi.trans_id = o.id) |
|
| 91 |
JOIN parts p ON (p.id = oi.parts_id) |
|
| 92 |
LEFT JOIN employee e ON (o.employee_id = e.id) |
|
| 93 |
LEFT JOIN exchangerate ex ON (ex.curr = o.curr |
|
| 94 |
AND ex.transdate = o.transdate) |
|
| 95 |
WHERE o.quotation = '0' |
|
| 96 |
AND (p.inventory_accno_id > 0 OR p.assembly = '1') |
|
| 97 |
AND oi.qty <> oi.ship |
|
| 98 |
$department|; |
|
| 99 |
|
|
| 100 |
if ($warehouse_id && $form->{type} eq 'ship_order') {
|
|
| 101 |
$query .= qq| |
|
| 102 |
AND i.warehouse_id = $warehouse_id |
|
| 103 |
AND i.qty >= (oi.qty - oi.ship) |
|
| 104 |
|; |
|
| 105 |
} |
|
| 106 |
|
|
| 107 |
} |
|
| 108 |
|
|
| 109 | 79 |
if ($form->{"$form->{vc}_id"}) {
|
| 110 | 80 |
$query .= qq| AND o.$form->{vc}_id = $form->{"$form->{vc}_id"}|;
|
| 111 | 81 |
} else {
|
| ... | ... | |
| 962 | 932 |
push @partsgroup, [$i, $partsgroup]; |
| 963 | 933 |
} |
| 964 | 934 |
|
| 965 |
# if there is a warehouse limit picking |
|
| 966 |
if ($form->{warehouse_id} && $form->{formname} =~ /(pick|packing)_list/) {
|
|
| 967 |
|
|
| 968 |
# run query to check for inventory |
|
| 969 |
$query = qq|SELECT sum(i.qty) AS qty |
|
| 970 |
FROM inventory i |
|
| 971 |
WHERE i.parts_id = ? |
|
| 972 |
AND i.warehouse_id = ?|; |
|
| 973 |
$sth = $dbh->prepare($query) || $form->dberror($query); |
|
| 974 |
|
|
| 975 |
for $i (1 .. $form->{rowcount}) {
|
|
| 976 |
$sth->execute($form->{"id_$i"}, $form->{warehouse_id}) || $form->dberror;
|
|
| 977 |
|
|
| 978 |
($qty) = $sth->fetchrow_array; |
|
| 979 |
$sth->finish; |
|
| 980 |
|
|
| 981 |
$form->{"qty_$i"} = 0 if $qty == 0;
|
|
| 982 |
|
|
| 983 |
if ($form->parse_amount($myconfig, $form->{"ship_$i"}) > $qty) {
|
|
| 984 |
$form->{"ship_$i"} = $form->format_amount($myconfig, $qty);
|
|
| 985 |
} |
|
| 986 |
} |
|
| 987 |
} |
|
| 988 |
|
|
| 989 | 935 |
my $sameitem = ""; |
| 990 | 936 |
foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {
|
| 991 | 937 |
$i = $item->[0]; |
| bin/mozilla/am.pl | ||
|---|---|---|
| 3238 | 3238 |
$lxdebug->leave_sub(); |
| 3239 | 3239 |
} |
| 3240 | 3240 |
|
| 3241 |
sub add_warehouse {
|
|
| 3242 |
$lxdebug->enter_sub(); |
|
| 3243 |
|
|
| 3244 |
$form->{title} = "Add";
|
|
| 3245 |
|
|
| 3246 |
$form->{callback} =
|
|
| 3247 |
"$form->{script}?action=add_warehouse&path=$form->{path}&login=$form->{login}&password=$form->{password}"
|
|
| 3248 |
unless $form->{callback};
|
|
| 3249 |
|
|
| 3250 |
&warehouse_header; |
|
| 3251 |
&form_footer; |
|
| 3252 |
|
|
| 3253 |
$lxdebug->leave_sub(); |
|
| 3254 |
} |
|
| 3255 |
|
|
| 3256 |
sub edit_warehouse {
|
|
| 3257 |
$lxdebug->enter_sub(); |
|
| 3258 |
|
|
| 3259 |
$form->{title} = "Edit";
|
|
| 3260 |
|
|
| 3261 |
AM->get_warehouse(\%myconfig, \%$form); |
|
| 3262 |
|
|
| 3263 |
&warehouse_header; |
|
| 3264 |
&form_footer; |
|
| 3265 |
|
|
| 3266 |
$lxdebug->leave_sub(); |
|
| 3267 |
} |
|
| 3268 |
|
|
| 3269 |
sub list_warehouse {
|
|
| 3270 |
$lxdebug->enter_sub(); |
|
| 3271 |
|
|
| 3272 |
AM->warehouses(\%myconfig, \%$form); |
|
| 3273 |
|
|
| 3274 |
$form->{callback} =
|
|
| 3275 |
"$form->{script}?action=list_warehouse&path=$form->{path}&login=$form->{login}&password=$form->{password}";
|
|
| 3276 |
|
|
| 3277 |
$callback = $form->escape($form->{callback});
|
|
| 3278 |
|
|
| 3279 |
$form->{title} = $locale->text('Warehouses');
|
|
| 3280 |
|
|
| 3281 |
@column_index = qw(description); |
|
| 3282 |
|
|
| 3283 |
$column_header{description} =
|
|
| 3284 |
qq|<th class=listheading width=100%>| |
|
| 3285 |
. $locale->text('Description')
|
|
| 3286 |
. qq|</th>|; |
|
| 3287 |
|
|
| 3288 |
$form->header; |
|
| 3289 |
|
|
| 3290 |
print qq| |
|
| 3291 |
<body> |
|
| 3292 |
|
|
| 3293 |
<table width=100%> |
|
| 3294 |
<tr> |
|
| 3295 |
<th class=listtop>$form->{title}</th>
|
|
| 3296 |
</tr> |
|
| 3297 |
<tr height="5"></tr> |
|
| 3298 |
<tr> |
|
| 3299 |
<td> |
|
| 3300 |
<table width=100%> |
|
| 3301 |
<tr class=listheading> |
|
| 3302 |
|; |
|
| 3303 |
|
|
| 3304 |
map { print "$column_header{$_}\n" } @column_index;
|
|
| 3305 |
|
|
| 3306 |
print qq| |
|
| 3307 |
</tr> |
|
| 3308 |
|; |
|
| 3309 |
|
|
| 3310 |
foreach $ref (@{ $form->{ALL} }) {
|
|
| 3311 |
|
|
| 3312 |
$i++; |
|
| 3313 |
$i %= 2; |
|
| 3314 |
|
|
| 3315 |
print qq| |
|
| 3316 |
<tr valign=top class=listrow$i> |
|
| 3317 |
|; |
|
| 3318 |
|
|
| 3319 |
$column_data{description} =
|
|
| 3320 |
qq|<td><a href=$form->{script}?action=edit_warehouse&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{description}</td>|;
|
|
| 3321 |
|
|
| 3322 |
map { print "$column_data{$_}\n" } @column_index;
|
|
| 3323 |
|
|
| 3324 |
print qq| |
|
| 3325 |
</tr> |
|
| 3326 |
|; |
|
| 3327 |
} |
|
| 3328 |
|
|
| 3329 |
print qq| |
|
| 3330 |
</table> |
|
| 3331 |
</td> |
|
| 3332 |
</tr> |
|
| 3333 |
<tr> |
|
| 3334 |
<td><hr size=3 noshade></td> |
|
| 3335 |
</tr> |
|
| 3336 |
</table> |
|
| 3337 |
|
|
| 3338 |
<br> |
|
| 3339 |
<form method=post action=$form->{script}>
|
|
| 3340 |
|
|
| 3341 |
<input name=callback type=hidden value="$form->{callback}">
|
|
| 3342 |
|
|
| 3343 |
<input type=hidden name=type value=warehouse> |
|
| 3344 |
|
|
| 3345 |
<input type=hidden name=path value=$form->{path}>
|
|
| 3346 |
<input type=hidden name=login value=$form->{login}>
|
|
| 3347 |
<input type=hidden name=password value=$form->{password}>
|
|
| 3348 |
|
|
| 3349 |
<input class=submit type=submit name=action value="| |
|
| 3350 |
. $locale->text('Add') . qq|">
|
|
| 3351 |
|
|
| 3352 |
</form> |
|
| 3353 |
|
|
| 3354 |
</body> |
|
| 3355 |
</html> |
|
| 3356 |
|; |
|
| 3357 |
|
|
| 3358 |
$lxdebug->leave_sub(); |
|
| 3359 |
} |
|
| 3360 |
|
|
| 3361 |
sub warehouse_header {
|
|
| 3362 |
$lxdebug->enter_sub(); |
|
| 3363 |
|
|
| 3364 |
$form->{title} = $locale->text("$form->{title} Warehouse");
|
|
| 3365 |
|
|
| 3366 |
# $locale->text('Add Warehouse')
|
|
| 3367 |
# $locale->text('Edit Warehouse')
|
|
| 3368 |
|
|
| 3369 |
$form->{description} =~ s/\"/"/g;
|
|
| 3370 |
|
|
| 3371 |
if (($rows = $form->numtextrows($form->{description}, 60)) > 1) {
|
|
| 3372 |
$description = |
|
| 3373 |
qq|<textarea name="description" rows=$rows cols=60 wrap=soft>$form->{description}</textarea>|;
|
|
| 3374 |
} else {
|
|
| 3375 |
$description = |
|
| 3376 |
qq|<input name=description size=60 value="$form->{description}">|;
|
|
| 3377 |
} |
|
| 3378 |
|
|
| 3379 |
$form->header; |
|
| 3380 |
|
|
| 3381 |
print qq| |
|
| 3382 |
<body> |
|
| 3383 |
|
|
| 3384 |
<form method=post action=$form->{script}>
|
|
| 3385 |
|
|
| 3386 |
<input type=hidden name=id value=$form->{id}>
|
|
| 3387 |
<input type=hidden name=type value=warehouse> |
|
| 3388 |
|
|
| 3389 |
<table width=100%> |
|
| 3390 |
<tr> |
|
| 3391 |
<th class=listtop colspan=2>$form->{title}</th>
|
|
| 3392 |
</tr> |
|
| 3393 |
<tr height="5"></tr> |
|
| 3394 |
<tr> |
|
| 3395 |
<th align=right>| . $locale->text('Description') . qq|</th>
|
|
| 3396 |
<td>$description</td> |
|
| 3397 |
</tr> |
|
| 3398 |
<tr> |
|
| 3399 |
<td colspan=2><hr size=3 noshade></td> |
|
| 3400 |
</tr> |
|
| 3401 |
</table> |
|
| 3402 |
|; |
|
| 3403 |
|
|
| 3404 |
$lxdebug->leave_sub(); |
|
| 3405 |
} |
|
| 3406 |
|
|
| 3407 |
sub save_warehouse {
|
|
| 3408 |
$lxdebug->enter_sub(); |
|
| 3409 |
|
|
| 3410 |
$form->isblank("description", $locale->text('Description missing!'));
|
|
| 3411 |
AM->save_warehouse(\%myconfig, \%$form); |
|
| 3412 |
$form->redirect($locale->text('Warehouse saved!'));
|
|
| 3413 |
|
|
| 3414 |
$lxdebug->leave_sub(); |
|
| 3415 |
} |
|
| 3416 |
|
|
| 3417 |
sub delete_warehouse {
|
|
| 3418 |
$lxdebug->enter_sub(); |
|
| 3419 |
|
|
| 3420 |
AM->delete_warehouse(\%myconfig, \%$form); |
|
| 3421 |
$form->redirect($locale->text('Warehouse deleted!'));
|
|
| 3422 |
|
|
| 3423 |
$lxdebug->leave_sub(); |
|
| 3424 |
} |
|
| 3425 |
|
|
| 3426 | 3241 |
sub continue {
|
| 3427 | 3242 |
$lxdebug->enter_sub(); |
| 3428 | 3243 |
|
| bin/mozilla/io.pl | ||
|---|---|---|
| 1892 | 1892 |
} |
| 1893 | 1893 |
|
| 1894 | 1894 |
($form->{employee}) = split /--/, $form->{employee};
|
| 1895 |
($form->{warehouse}, $form->{warehouse_id}) = split /--/, $form->{warehouse};
|
|
| 1896 | 1895 |
|
| 1897 | 1896 |
# create the form variables |
| 1898 | 1897 |
if ($order) {
|
| bin/mozilla/oe.pl | ||
|---|---|---|
| 214 | 214 |
} |
| 215 | 215 |
|
| 216 | 216 |
} |
| 217 |
if ($form->{type} =~ /(sales|ship)_(order|quotation)/) {
|
|
| 217 |
if ($form->{type} =~ /sales_(order|quotation)/) {
|
|
| 218 | 218 |
IS->get_customer(\%myconfig, \%$form); |
| 219 | 219 |
|
| 220 | 220 |
#quote all_vendor Bug 133 |
| ... | ... | |
| 1374 | 1374 |
<th align=right>$vclabel</th> |
| 1375 | 1375 |
<td colspan=3>$vc</td> |
| 1376 | 1376 |
</tr> |
| 1377 |
$warehouse |
|
| 1378 | 1377 |
$department |
| 1379 | 1378 |
<tr> |
| 1380 | 1379 |
<th align=right>$ordlabel</th> |
| ... | ... | |
| 1464 | 1463 |
$number = $form->escape($form->{$ordnumber});
|
| 1465 | 1464 |
$name = $form->escape($form->{ $form->{vc} });
|
| 1466 | 1465 |
$department = $form->escape($form->{department});
|
| 1467 |
$warehouse = $form->escape($form->{warehouse});
|
|
| 1468 | 1466 |
|
| 1469 | 1467 |
# construct href |
| 1470 | 1468 |
$href = |
| 1471 |
"$form->{script}?path=$form->{path}&action=orders&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}¬delivered=$form->{notdelivered}&delivered=$form->{delivered}&$ordnumber=$number&$form->{vc}=$name&department=$department&warehouse=$warehouse";
|
|
| 1469 |
"$form->{script}?path=$form->{path}&action=orders&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}¬delivered=$form->{notdelivered}&delivered=$form->{delivered}&$ordnumber=$number&$form->{vc}=$name&department=$department";
|
|
| 1472 | 1470 |
|
| 1473 | 1471 |
# construct callback |
| 1474 | 1472 |
$number = $form->escape($form->{$ordnumber}, 1);
|
| 1475 | 1473 |
$name = $form->escape($form->{ $form->{vc} }, 1);
|
| 1476 | 1474 |
$department = $form->escape($form->{department}, 1);
|
| 1477 |
$warehouse = $form->escape($form->{warehouse}, 1);
|
|
| 1478 | 1475 |
|
| 1479 | 1476 |
$callback = |
| 1480 |
"$form->{script}?path=$form->{path}&action=orders&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}¬delivered=$form->{notdelivered}&delivered=$form->{delivered}&$ordnumber=$number&$form->{vc}=$name&department=$department&warehouse=$warehouse";
|
|
| 1477 |
"$form->{script}?path=$form->{path}&action=orders&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}¬delivered=$form->{notdelivered}&delivered=$form->{delivered}&$ordnumber=$number&$form->{vc}=$name&department=$department";
|
|
| 1481 | 1478 |
|
| 1482 | 1479 |
@columns = |
| 1483 | 1480 |
$form->sort_columns("transdate", "reqdate", "id", "$ordnumber",
|
| ... | ... | |
| 1583 | 1580 |
$option = $locale->text(ucfirst $form->{vc});
|
| 1584 | 1581 |
$option .= " : $form->{$form->{vc}}";
|
| 1585 | 1582 |
} |
| 1586 |
if ($form->{warehouse}) {
|
|
| 1587 |
($warehouse) = split /--/, $form->{warehouse};
|
|
| 1588 |
$option .= "\n<br>" if ($option); |
|
| 1589 |
$option .= $locale->text('Warehouse');
|
|
| 1590 |
$option .= " : $warehouse"; |
|
| 1591 |
} |
|
| 1592 | 1583 |
if ($form->{department}) {
|
| 1593 | 1584 |
$option .= "\n<br>" if ($option); |
| 1594 | 1585 |
($department) = split /--/, $form->{department};
|
| ... | ... | |
| 1646 | 1637 |
} |
| 1647 | 1638 |
|
| 1648 | 1639 |
$action = "edit"; |
| 1649 |
$action = "ship_receive" if ($form->{type} =~ /(ship|receive)_order/);
|
|
| 1650 |
|
|
| 1651 |
$warehouse = $form->escape($form->{warehouse});
|
|
| 1652 | 1640 |
|
| 1653 | 1641 |
foreach $oe (@{ $form->{OE} }) {
|
| 1654 | 1642 |
$form->{rowcount} = ++$j;
|
| ... | ... | |
| 1687 | 1675 |
$column_data{reqdate} = "<td>$oe->{reqdate} </td>";
|
| 1688 | 1676 |
|
| 1689 | 1677 |
$column_data{$ordnumber} =
|
| 1690 |
"<td><a href=oe.pl?path=$form->{path}&action=$action&type=$form->{type}&id=$oe->{id}&warehouse=$warehouse&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&callback=$callback_escaped>$oe->{$ordnumber}</a></td>";
|
|
| 1678 |
"<td><a href=oe.pl?path=$form->{path}&action=$action&type=$form->{type}&id=$oe->{id}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&callback=$callback_escaped>$oe->{$ordnumber}</a></td>";
|
|
| 1691 | 1679 |
$column_data{name} = "<td>$oe->{name}</td>";
|
| 1692 | 1680 |
|
| 1693 | 1681 |
$column_data{employee} = "<td>$oe->{employee} </td>";
|
| ... | ... | |
| 1759 | 1747 |
. $locale->text('Continue') . qq|">
|
| 1760 | 1748 |
<input type="hidden" name="nextsub" value="edit"> |
| 1761 | 1749 |
<input type="hidden" name="type" value="$form->{type}">
|
| 1762 |
<input type="hidden" name="warehouse" value="$warehouse"> |
|
| 1763 | 1750 |
<input type="hidden" name="vc" value="$form->{vc}">
|
| 1764 | 1751 |
<input type="hidden" name="login" value="$form->{login}">
|
| 1765 | 1752 |
<input type="hidden" name="password" value="$form->{password}">
|
| ... | ... | |
| 1781 | 1768 |
<input type=hidden name=path value=$form->{path}>
|
| 1782 | 1769 |
<input type=hidden name=login value=$form->{login}>
|
| 1783 | 1770 |
<input type=hidden name=password value=$form->{password}>
|
| 1784 |
|; |
|
| 1785 | 1771 |
|
| 1786 |
if ($form->{type} !~ /(ship|receive)_order/) {
|
|
| 1787 |
print qq| |
|
| 1788 |
<input class=submit type=submit name=action value="| |
|
| 1789 |
. $locale->text('Add') . qq|">|;
|
|
| 1790 |
} |
|
| 1791 |
|
|
| 1792 |
print qq| |
|
| 1793 | 1772 |
</form> |
| 1794 | 1773 |
|
| 1795 | 1774 |
</body> |
| locale/de/all | ||
|---|---|---|
| 113 | 113 |
'Add User' => 'Benutzer erfassen', |
| 114 | 114 |
'Add Vendor' => 'Lieferant erfassen', |
| 115 | 115 |
'Add Vendor Invoice' => 'Einkaufsrechnung erfassen', |
| 116 |
'Add Warehouse' => 'Lager erfassen', |
|
| 117 | 116 |
'Add and edit %s' => '%s hinzufügen und bearbeiten', |
| 118 | 117 |
'Add unit' => 'Einheit hinzufügen', |
| 119 | 118 |
'Address' => 'Adresse', |
| ... | ... | |
| 434 | 433 |
'Edit User' => 'Benutzerdaten bearbeiten', |
| 435 | 434 |
'Edit Vendor' => 'Lieferant editieren', |
| 436 | 435 |
'Edit Vendor Invoice' => 'Einkaufsrechnung bearbeiten', |
| 437 |
'Edit Warehouse' => 'Lager bearbeiten', |
|
| 438 | 436 |
'Edit the purchase_order' => 'Bearbeiten des Lieferantenauftrags', |
| 439 | 437 |
'Edit the request_quotation' => 'Bearbeiten der Preisanfrage', |
| 440 | 438 |
'Edit the sales_order' => 'Bearbeiten des Auftrags', |
| ... | ... | |
| 1139 | 1137 |
'View License' => 'Lizenz ansehen', |
| 1140 | 1138 |
'Von Konto: ' => 'von Konto: ', |
| 1141 | 1139 |
'WEBDAV-Zugriff' => 'WEBDAV-Zugriff', |
| 1142 |
'Warehouse' => 'Lager', |
|
| 1143 |
'Warehouse deleted!' => 'Das Lager wurde gel?scht.', |
|
| 1144 |
'Warehouse saved!' => 'Das Lager wurde gespeichert.', |
|
| 1145 |
'Warehouses' => 'Lager', |
|
| 1146 | 1140 |
'Warnings during template upgrade' => 'Warnungen bei Aktualisierung der Dokumentenvorlagen', |
| 1147 | 1141 |
'Weight' => 'Gewicht', |
| 1148 | 1142 |
'What type of item is this?' => 'Was ist dieser Artikel?', |
| locale/de/am | ||
|---|---|---|
| 52 | 52 |
'Add Payment Terms' => 'Zahlungskonditionen hinzuf?gen', |
| 53 | 53 |
'Add Printer' => 'Drucker hinzuf?gen', |
| 54 | 54 |
'Add SIC' => 'SIC erfassen', |
| 55 |
'Add Warehouse' => 'Lager erfassen', |
|
| 56 | 55 |
'Add and edit %s' => '%s hinzufügen und bearbeiten', |
| 57 | 56 |
'Address' => 'Adresse', |
| 58 | 57 |
'Article Code' => 'Artikelk?rzel', |
| ... | ... | |
| 121 | 120 |
'Edit Printer' => 'Drucker bearbeiten', |
| 122 | 121 |
'Edit SIC' => 'SIC bearbeiten', |
| 123 | 122 |
'Edit Template' => 'Vorlage bearbeiten', |
| 124 |
'Edit Warehouse' => 'Lager bearbeiten', |
|
| 125 | 123 |
'Enforce transaction reversal for all dates' => 'Gegenbuchungen f?r jeden Zeitraum aktualisieren', |
| 126 | 124 |
'Enter longdescription' => 'Langtext eingeben', |
| 127 | 125 |
'Enter up to 3 letters separated by a colon (i.e CAD:USD:EUR) for your native and foreign currencies' => 'Geben Sie Ihre und weitere W?hrungen mit bis zu drei Buchstaben pro W?hrung und W?hrungen durch Doppelpunkte getrennt ein (z.B. EUR:USD:CAD)', |
| ... | ... | |
| 311 | 309 |
'Unknown dependency \'%s\'.' => 'Unbekannte Abhängigkeit \'%s\'.', |
| 312 | 310 |
'Value' => 'Wert', |
| 313 | 311 |
'Variable' => 'Variable', |
| 314 |
'Warehouse deleted!' => 'Das Lager wurde gel?scht.', |
|
| 315 |
'Warehouse saved!' => 'Das Lager wurde gespeichert.', |
|
| 316 |
'Warehouses' => 'Lager', |
|
| 317 | 312 |
'Year End' => 'Jahresende', |
| 318 | 313 |
'Yes' => 'Ja', |
| 319 | 314 |
'You can use the following strings in the long description and all translations. They will be replaced by their actual values by Lx-Office before they\'re output.' => 'Sie können im Langtext und allen ?bersetzungen die folgenden Variablen benutzen, die vor der Ausgabe von Lx-Office automatisch ersetzt werden:', |
| ... | ... | |
| 342 | 337 |
'add_printer' => 'add_printer', |
| 343 | 338 |
'add_sic' => 'add_sic', |
| 344 | 339 |
'add_unit' => 'add_unit', |
| 345 |
'add_warehouse' => 'add_warehouse', |
|
| 346 | 340 |
'audit_control' => 'audit_control', |
| 347 | 341 |
'backup' => 'backup', |
| 348 | 342 |
'buchungsgruppe_header' => 'buchungsgruppe_header', |
| ... | ... | |
| 361 | 355 |
'delete_payment' => 'delete_payment', |
| 362 | 356 |
'delete_printer' => 'delete_printer', |
| 363 | 357 |
'delete_sic' => 'delete_sic', |
| 364 |
'delete_warehouse' => 'delete_warehouse', |
|
| 365 | 358 |
'delivery_customer_selection' => 'delivery_customer_selection', |
| 366 | 359 |
'department_header' => 'department_header', |
| 367 | 360 |
'display_form' => 'display_form', |
| ... | ... | |
| 379 | 372 |
'edit_sic' => 'edit_sic', |
| 380 | 373 |
'edit_template' => 'edit_template', |
| 381 | 374 |
'edit_units' => 'edit_units', |
| 382 |
'edit_warehouse' => 'edit_warehouse', |
|
| 383 | 375 |
'employee_selection_internal' => 'employee_selection_internal', |
| 384 | 376 |
'form_footer' => 'form_footer', |
| 385 | 377 |
'format_dates' => 'format_dates', |
| ... | ... | |
| 394 | 386 |
'list_payment' => 'list_payment', |
| 395 | 387 |
'list_printer' => 'list_printer', |
| 396 | 388 |
'list_sic' => 'list_sic', |
| 397 |
'list_warehouse' => 'list_warehouse', |
|
| 398 | 389 |
'part_selection_internal' => 'part_selection_internal', |
| 399 | 390 |
'payment_header' => 'payment_header', |
| 400 | 391 |
'printer_header' => 'printer_header', |
| ... | ... | |
| 415 | 406 |
'save_sic' => 'save_sic', |
| 416 | 407 |
'save_template' => 'save_template', |
| 417 | 408 |
'save_unit' => 'save_unit', |
| 418 |
'save_warehouse' => 'save_warehouse', |
|
| 419 | 409 |
'select_employee' => 'select_employee', |
| 420 | 410 |
'select_employee_internal' => 'select_employee_internal', |
| 421 | 411 |
'select_part' => 'select_part', |
| ... | ... | |
| 427 | 417 |
'swap_payment_terms' => 'swap_payment_terms', |
| 428 | 418 |
'swap_units' => 'swap_units', |
| 429 | 419 |
'vendor_selection' => 'vendor_selection', |
| 430 |
'warehouse_header' => 'warehouse_header', |
|
| 431 | 420 |
'erfassen' => 'add', |
| 432 | 421 |
'konto_erfassen' => 'add_account', |
| 433 | 422 |
'weiter' => 'continue', |
| locale/de/oe | ||
|---|---|---|
| 2 | 2 |
' Date missing!' => ' Datum fehlt!', |
| 3 | 3 |
' missing!' => ' fehlt!', |
| 4 | 4 |
'*/' => '*/', |
| 5 |
'Add' => 'Erfassen', |
|
| 6 | 5 |
'Add Exchangerate' => 'Wechselkurs erfassen', |
| 7 | 6 |
'Add Purchase Order' => 'Lieferantenauftrag erfassen', |
| 8 | 7 |
'Add Quotation' => 'Angebot erfassen', |
| ... | ... | |
| 223 | 222 |
'Vendor Number' => 'Lieferantennummer', |
| 224 | 223 |
'Vendor missing!' => 'Lieferant fehlt!', |
| 225 | 224 |
'Vendor not on file!' => 'Lieferant ist nicht in der Datenbank!', |
| 226 |
'Warehouse' => 'Lager', |
|
| 227 | 225 |
'What type of item is this?' => 'Was ist dieser Artikel?', |
| 228 | 226 |
'Workflow purchase_order' => 'Workflow Lieferantenauftrag', |
| 229 | 227 |
'Workflow request_quotation' => 'Workflow Preisanfrage', |
| ... | ... | |
| 320 | 318 |
'vendor_invoice' => 'vendor_invoice', |
| 321 | 319 |
'vendor_selection' => 'vendor_selection', |
| 322 | 320 |
'yes' => 'yes', |
| 323 |
'erfassen' => 'add', |
|
| 324 | 321 |
'weiter' => 'continue', |
| 325 | 322 |
'l?schen' => 'delete', |
| 326 | 323 |
'email' => 'e_mail', |
| menu.ini | ||
|---|---|---|
| 443 | 443 |
action=edit_units |
| 444 | 444 |
unit_type=service |
| 445 | 445 |
|
| 446 |
#[System--Warehouses] |
|
| 447 |
#module=menu.pl |
|
| 448 |
#action=acc_menu |
|
| 449 |
#target=acc_menu |
|
| 450 |
#submenu=1 |
|
| 451 |
|
|
| 452 |
#[System--Warehouses--Add Warehouse] |
|
| 453 |
#module=am.pl |
|
| 454 |
#action=add_warehouse |
|
| 455 |
# |
|
| 456 |
#[System--Warehouses--List Warehouses] |
|
| 457 |
#module=am.pl |
|
| 458 |
#action=list_warehouse |
|
| 459 | 446 |
|
| 460 | 447 |
[System--Departments] |
| 461 | 448 |
module=menu.pl |
Auch abrufbar als: Unified diff
Mehr Codeteile entfernt, die zur Vorbereitung von Mehrlagerfähigkeit in SQL-Ledger gedient haben und nie benutzt wurden.