Revision b65a230d
Von Sven Schöling vor fast 15 Jahren hinzugefügt
| bin/mozilla/ap.pl | ||
|---|---|---|
| 265 | 265 |
if ($form->{forex}) {
|
| 266 | 266 |
$exchangerate .= qq| |
| 267 | 267 |
<tr> |
| 268 |
<th align=right>| . $locale->text('Exchangerate') . qq|</th>
|
|
| 268 |
<th align=right>| . $locale->text('Exchangerate') . qq|</th>
|
|
| 269 | 269 |
<td><input type=hidden name=exchangerate value=$form->{exchangerate}>$form->{exchangerate}</td>
|
| 270 | 270 |
</tr> |
| 271 | 271 |
|; |
| 272 | 272 |
} else {
|
| 273 | 273 |
$exchangerate .= qq| |
| 274 |
<th align=right>| . $locale->text('Exchangerate') . qq|</th>
|
|
| 274 |
<th align=right>| . $locale->text('Exchangerate') . qq|</th>
|
|
| 275 | 275 |
<td><input name=exchangerate size=10 value=$form->{exchangerate}></td>
|
| 276 | 276 |
|; |
| 277 | 277 |
} |
| ... | ... | |
| 296 | 296 |
|
| 297 | 297 |
my $department = qq| |
| 298 | 298 |
<tr> |
| 299 |
<th align="right" nowrap>| . $locale->text('Department') . qq|</th>
|
|
| 300 |
<td colspan=3><select name=department>$form->{selectdepartment}</select>
|
|
| 301 |
<input type=hidden name=selectdepartment value="$form->{selectdepartment}">
|
|
| 302 |
</td>
|
|
| 303 |
</tr>
|
|
| 299 |
<th align="right" nowrap>| . $locale->text('Department') . qq|</th>
|
|
| 300 |
<td colspan=3><select name=department>$form->{selectdepartment}</select>
|
|
| 301 |
<input type=hidden name=selectdepartment value="$form->{selectdepartment}">
|
|
| 302 |
</td>
|
|
| 303 |
</tr>
|
|
| 304 | 304 |
| if $form->{selectdepartment};
|
| 305 | 305 |
|
| 306 | 306 |
my $n = ($form->{creditremaining} =~ /-/) ? "0" : "1";
|
| ... | ... | |
| 440 | 440 |
<td> |
| 441 | 441 |
<table width=100%> |
| 442 | 442 |
<tr valign=top> |
| 443 |
<td>
|
|
| 444 |
<table>
|
|
| 445 |
<tr>
|
|
| 446 |
<th align=right nowrap>| . $locale->text('Vendor') . qq|</th>
|
|
| 447 |
<td colspan=3>$vendor <input type="button" value="D" onclick="show_vc_details('vendor')"></td>
|
|
| 448 |
<input type=hidden name=selectvendor value="| . H($form->{selectvendor}) . qq|">
|
|
| 449 |
<input type=hidden name=oldvendor value="| . H($form->{oldvendor}) . qq|">
|
|
| 450 |
<input type=hidden name=vendor_id value="| . H($form->{vendor_id}) . qq|">
|
|
| 451 |
<input type=hidden name=terms value="| . H($form->{terms}) . qq|">
|
|
| 452 |
</tr>
|
|
| 453 |
<tr>
|
|
| 454 |
<td></td>
|
|
| 455 |
<td colspan=3>
|
|
| 456 |
<table width=100%>
|
|
| 457 |
<tr>
|
|
| 458 |
<th align=left nowrap>| . $locale->text('Credit Limit') . qq|</th>
|
|
| 459 |
<td>$form->{creditlimit}</td>
|
|
| 460 |
<th align=left nowrap>| . $locale->text('Remaining') . qq|</th>
|
|
| 461 |
<td class="plus$n">$form->{creditremaining}</td>
|
|
| 462 |
<input type=hidden name=creditlimit value=$form->{creditlimit}>
|
|
| 463 |
<input type=hidden name=creditremaining value=$form->{creditremaining}>
|
|
| 464 |
</tr>
|
|
| 465 |
</table>
|
|
| 466 |
</td>
|
|
| 467 |
<tr>
|
|
| 468 |
<th align=right nowrap>| . $locale->text('Currency') . qq|</th>
|
|
| 469 |
<td><select name=currency>$form->{selectcurrency}</select></td>
|
|
| 470 |
<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
|
|
| 471 |
<input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
|
|
| 472 |
<input type=hidden name=fxgain_accno value=$form->{fxgain_accno}>
|
|
| 473 |
<input type=hidden name=fxloss_accno value=$form->{fxloss_accno}>
|
|
| 474 |
$exchangerate
|
|
| 475 |
</tr>
|
|
| 476 |
$department
|
|
| 477 |
$taxincluded
|
|
| 478 |
</table>
|
|
| 479 |
</td>
|
|
| 480 |
<td align=right>
|
|
| 481 |
<table>
|
|
| 482 |
<tr>
|
|
| 483 |
<th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
|
|
| 484 |
<td><input name=invnumber size=11 value="$form->{invnumber}" $readonly></td>
|
|
| 485 |
</tr>
|
|
| 486 |
<tr>
|
|
| 487 |
<th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
|
|
| 488 |
<td><input name=ordnumber size=11 value="$form->{ordnumber}" $readonly></td>
|
|
| 489 |
</tr>
|
|
| 490 |
<tr>
|
|
| 491 |
<th align=right nowrap>| . $locale->text('Invoice Date') . qq|</th>
|
|
| 443 |
<td>
|
|
| 444 |
<table>
|
|
| 445 |
<tr>
|
|
| 446 |
<th align=right nowrap>| . $locale->text('Vendor') . qq|</th>
|
|
| 447 |
<td colspan=3>$vendor <input type="button" value="D" onclick="show_vc_details('vendor')"></td>
|
|
| 448 |
<input type=hidden name=selectvendor value="| . H($form->{selectvendor}) . qq|">
|
|
| 449 |
<input type=hidden name=oldvendor value="| . H($form->{oldvendor}) . qq|">
|
|
| 450 |
<input type=hidden name=vendor_id value="| . H($form->{vendor_id}) . qq|">
|
|
| 451 |
<input type=hidden name=terms value="| . H($form->{terms}) . qq|">
|
|
| 452 |
</tr>
|
|
| 453 |
<tr>
|
|
| 454 |
<td></td>
|
|
| 455 |
<td colspan=3>
|
|
| 456 |
<table width=100%>
|
|
| 457 |
<tr>
|
|
| 458 |
<th align=left nowrap>| . $locale->text('Credit Limit') . qq|</th>
|
|
| 459 |
<td>$form->{creditlimit}</td>
|
|
| 460 |
<th align=left nowrap>| . $locale->text('Remaining') . qq|</th>
|
|
| 461 |
<td class="plus$n">$form->{creditremaining}</td>
|
|
| 462 |
<input type=hidden name=creditlimit value=$form->{creditlimit}>
|
|
| 463 |
<input type=hidden name=creditremaining value=$form->{creditremaining}>
|
|
| 464 |
</tr>
|
|
| 465 |
</table>
|
|
| 466 |
</td>
|
|
| 467 |
<tr>
|
|
| 468 |
<th align=right nowrap>| . $locale->text('Currency') . qq|</th>
|
|
| 469 |
<td><select name=currency>$form->{selectcurrency}</select></td>
|
|
| 470 |
<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
|
|
| 471 |
<input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
|
|
| 472 |
<input type=hidden name=fxgain_accno value=$form->{fxgain_accno}>
|
|
| 473 |
<input type=hidden name=fxloss_accno value=$form->{fxloss_accno}>
|
|
| 474 |
$exchangerate
|
|
| 475 |
</tr>
|
|
| 476 |
$department
|
|
| 477 |
$taxincluded
|
|
| 478 |
</table>
|
|
| 479 |
</td>
|
|
| 480 |
<td align=right>
|
|
| 481 |
<table>
|
|
| 482 |
<tr>
|
|
| 483 |
<th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
|
|
| 484 |
<td><input name=invnumber size=11 value="$form->{invnumber}" $readonly></td>
|
|
| 485 |
</tr>
|
|
| 486 |
<tr>
|
|
| 487 |
<th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
|
|
| 488 |
<td><input name=ordnumber size=11 value="$form->{ordnumber}" $readonly></td>
|
|
| 489 |
</tr>
|
|
| 490 |
<tr>
|
|
| 491 |
<th align=right nowrap>| . $locale->text('Invoice Date') . qq|</th>
|
|
| 492 | 492 |
$button1 |
| 493 |
</tr>
|
|
| 494 |
<tr>
|
|
| 495 |
<th align=right nowrap>| . $locale->text('Due Date') . qq|</th>
|
|
| 493 |
</tr>
|
|
| 494 |
<tr>
|
|
| 495 |
<th align=right nowrap>| . $locale->text('Due Date') . qq|</th>
|
|
| 496 | 496 |
$button2 |
| 497 |
</tr>
|
|
| 498 |
</table>
|
|
| 499 |
</td>
|
|
| 500 |
</tr>
|
|
| 497 |
</tr>
|
|
| 498 |
</table>
|
|
| 499 |
</td>
|
|
| 500 |
</tr>
|
|
| 501 | 501 |
</table> |
| 502 | 502 |
</td> |
| 503 | 503 |
</tr> |
| ... | ... | |
| 507 | 507 |
$jsscript |
| 508 | 508 |
<input type=hidden name=rowcount value=$form->{rowcount}>
|
| 509 | 509 |
<tr> |
| 510 |
<td> |
|
| 511 |
<table width=100%> |
|
| 512 |
<tr class=listheading> |
|
| 513 |
<th class=listheading style="width:15%">| |
|
| 514 |
. $locale->text('Account') . qq|</th>
|
|
| 515 |
<th class=listheading style="width:10%">| |
|
| 516 |
. $locale->text('Amount') . qq|</th>
|
|
| 517 |
<th class=listheading style="width:10%">| |
|
| 518 |
. $locale->text('Tax') . qq|</th>
|
|
| 519 |
<th class=listheading style="width:10%">| |
|
| 520 |
. $locale->text('Taxkey') . qq|</th>
|
|
| 521 |
<th class=listheading style="width:10%">| |
|
| 522 |
. $locale->text('Project') . qq|</th>
|
|
| 523 |
</tr> |
|
| 510 |
<td> |
|
| 511 |
<table width=100%> |
|
| 512 |
<tr class=listheading> |
|
| 513 |
<th class=listheading style="width:15%">| . $locale->text('Account') . qq|</th>
|
|
| 514 |
<th class=listheading style="width:10%">| . $locale->text('Amount') . qq|</th>
|
|
| 515 |
<th class=listheading style="width:10%">| . $locale->text('Tax') . qq|</th>
|
|
| 516 |
<th class=listheading style="width:10%">| . $locale->text('Taxkey') . qq|</th>
|
|
| 517 |
<th class=listheading style="width:10%">| . $locale->text('Project') . qq|</th>
|
|
| 518 |
</tr> |
|
| 524 | 519 |
|; |
| 525 | 520 |
|
| 526 | 521 |
my $amount = $locale->text('Amount');
|
| ... | ... | |
| 578 | 573 |
'-default' => $form->{"project_id_$i"} ));
|
| 579 | 574 |
|
| 580 | 575 |
print qq| |
| 581 |
<tr>
|
|
| 576 |
<tr>
|
|
| 582 | 577 |
<td>$selectAP_amount</td> |
| 583 | 578 |
<td><input name="amount_$i" size=10 value=$form->{"amount_$i"}></td>
|
| 584 | 579 |
<td><input type="hidden" name="tax_$i" value="$form->{"tax_$i"}">$form->{"tax_$i"}</td>
|
| 585 | 580 |
$tax |
| 586 | 581 |
<td>$projectnumber</td> |
| 587 |
</tr>
|
|
| 582 |
</tr>
|
|
| 588 | 583 |
|; |
| 589 | 584 |
$amount = ""; |
| 590 | 585 |
$project = ""; |
| ... | ... | |
| 610 | 605 |
</td> |
| 611 | 606 |
</tr> |
| 612 | 607 |
<tr> |
| 613 |
<td>${APselected}</td>
|
|
| 614 |
<th align=left>$form->{invtotal}</th>
|
|
| 608 |
<td>${APselected}</td>
|
|
| 609 |
<th align=left>$form->{invtotal}</th>
|
|
| 615 | 610 |
|
| 616 |
<input type=hidden name=oldinvtotal value=$form->{oldinvtotal}>
|
|
| 617 |
<input type=hidden name=oldtotalpaid value=$form->{oldtotalpaid}>
|
|
| 611 |
<input type=hidden name=oldinvtotal value=$form->{oldinvtotal}>
|
|
| 612 |
<input type=hidden name=oldtotalpaid value=$form->{oldtotalpaid}>
|
|
| 618 | 613 |
|
| 619 |
<input type=hidden name=taxaccounts value="$form->{taxaccounts}">
|
|
| 614 |
<input type=hidden name=taxaccounts value="$form->{taxaccounts}">
|
|
| 620 | 615 |
|
| 621 |
<td colspan=4></td>
|
|
| 616 |
<td colspan=4></td>
|
|
| 622 | 617 |
|
| 623 | 618 |
|
| 624 | 619 |
</tr> |
| 625 |
</table>
|
|
| 626 |
</td>
|
|
| 620 |
</table> |
|
| 621 |
</td> |
|
| 627 | 622 |
</tr> |
| 628 | 623 |
<tr> |
| 629 | 624 |
<td> |
| 630 | 625 |
<table width=100%> |
| 631 | 626 |
<tr> |
| 632 |
<th align=left width=1%>| . $locale->text('Notes') . qq|</th>
|
|
| 633 |
<td align=left>$notes</td>
|
|
| 634 |
</tr>
|
|
| 627 |
<th align=left width=1%>| . $locale->text('Notes') . qq|</th>
|
|
| 628 |
<td align=left>$notes</td>
|
|
| 629 |
</tr>
|
|
| 635 | 630 |
</table> |
| 636 | 631 |
</td> |
| 637 | 632 |
</tr> |
| 638 | 633 |
<tr> |
| 639 | 634 |
<td> |
| 640 | 635 |
<table width=100%> |
| 641 |
<tr class=listheading>
|
|
| 642 |
<th class=listheading colspan=7>| . $locale->text('Payments') . qq|</th>
|
|
| 643 |
</tr>
|
|
| 636 |
<tr class=listheading>
|
|
| 637 |
<th class=listheading colspan=7>| . $locale->text('Payments') . qq|</th>
|
|
| 638 |
</tr>
|
|
| 644 | 639 |
|; |
| 645 | 640 |
|
| 646 | 641 |
my @column_index; |
| ... | ... | |
| 1105 | 1100 |
# saving the history |
| 1106 | 1101 |
if(!exists $form->{addition} && $form->{id} ne "") {
|
| 1107 | 1102 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 1108 |
$form->{addition} = "POSTED AS NEW";
|
|
| 1109 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1103 |
$form->{addition} = "POSTED AS NEW";
|
|
| 1104 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1110 | 1105 |
} |
| 1111 | 1106 |
# /saving the history |
| 1112 | 1107 |
&post; |
| ... | ... | |
| 1188 | 1183 |
# saving the history |
| 1189 | 1184 |
if(!exists $form->{addition}) {
|
| 1190 | 1185 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 1191 |
$form->{addition} = "DELETED";
|
|
| 1186 |
$form->{addition} = "DELETED";
|
|
| 1192 | 1187 |
$form->save_history($form->dbconnect(\%myconfig)); |
| 1193 | 1188 |
} |
| 1194 | 1189 |
# /saving the history |
Auch abrufbar als: Unified diff
Tabs aus *.pl Dateien entfernt.