Revision b65a230d
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
| 727 | 727 |
map { print "$column_data{$_}\n" } @column_index;
|
| 728 | 728 |
|
| 729 | 729 |
print qq| |
| 730 |
</tr>
|
|
| 730 |
</tr>
|
|
| 731 | 731 |
|; |
| 732 | 732 |
} |
| 733 | 733 |
|
| ... | ... | |
| 929 | 929 |
map { print "$column_header{$_}\n" } @column_index;
|
| 930 | 930 |
|
| 931 | 931 |
print qq| |
| 932 |
</tr>
|
|
| 932 |
</tr> |
|
| 933 | 933 |
|; |
| 934 | 934 |
|
| 935 | 935 |
my ($i, %column_data); |
| ... | ... | |
| 939 | 939 |
$i %= 2; |
| 940 | 940 |
|
| 941 | 941 |
print qq| |
| 942 |
<tr valign=top class=listrow$i>
|
|
| 942 |
<tr valign=top class=listrow$i> |
|
| 943 | 943 |
|; |
| 944 | 944 |
|
| 945 |
# $lead = $ref->{lead};
|
|
| 945 |
# $lead = $ref->{lead};
|
|
| 946 | 946 |
|
| 947 | 947 |
$column_data{description} = qq|<td><a href="am.pl?action=edit_lead&id=$ref->{id}&callback=$callback">$ref->{lead}</td>|;
|
| 948 | 948 |
|
| 949 | 949 |
map { print "$column_data{$_}\n" } @column_index;
|
| 950 | 950 |
|
| 951 | 951 |
print qq| |
| 952 |
</tr>
|
|
| 952 |
</tr>
|
|
| 953 | 953 |
|; |
| 954 | 954 |
} |
| 955 | 955 |
|
| ... | ... | |
| 1163 | 1163 |
map { print "$column_data{$_}\n" } @column_index;
|
| 1164 | 1164 |
|
| 1165 | 1165 |
print qq| |
| 1166 |
</tr>
|
|
| 1166 |
</tr>
|
|
| 1167 | 1167 |
|; |
| 1168 | 1168 |
} |
| 1169 | 1169 |
|
| ... | ... | |
| 1417 | 1417 |
map { print "$column_data{$_}\n" } @column_index;
|
| 1418 | 1418 |
|
| 1419 | 1419 |
print qq| |
| 1420 |
</tr>
|
|
| 1420 |
</tr>
|
|
| 1421 | 1421 |
|; |
| 1422 | 1422 |
} |
| 1423 | 1423 |
|
| ... | ... | |
| 1769 | 1769 |
map { print "$column_data{$_}\n" } @column_index;
|
| 1770 | 1770 |
|
| 1771 | 1771 |
print qq| |
| 1772 |
</tr>
|
|
| 1772 |
</tr>
|
|
| 1773 | 1773 |
|; |
| 1774 | 1774 |
|
| 1775 | 1775 |
$row++; |
| ... | ... | |
| 1853 | 1853 |
if (!$main::eur) {
|
| 1854 | 1854 |
$linkaccounts = qq| |
| 1855 | 1855 |
<tr> |
| 1856 |
<th align=right>| . $locale->text('Inventory') . qq|</th>
|
|
| 1857 |
<td><select name=inventory_accno_id>$form->{selectIC}</select></td>
|
|
| 1858 |
<input name=selectIC type=hidden value="$form->{selectIC}">
|
|
| 1859 |
</tr>|;
|
|
| 1856 |
<th align=right>| . $locale->text('Inventory') . qq|</th>
|
|
| 1857 |
<td><select name=inventory_accno_id>$form->{selectIC}</select></td>
|
|
| 1858 |
<input name=selectIC type=hidden value="$form->{selectIC}">
|
|
| 1859 |
</tr>|;
|
|
| 1860 | 1860 |
} else {
|
| 1861 | 1861 |
$linkaccounts = qq| |
| 1862 | 1862 |
<input type=hidden name=inventory_accno_id value=$form->{inventory_accno_id}>|;
|
| ... | ... | |
| 1864 | 1864 |
|
| 1865 | 1865 |
|
| 1866 | 1866 |
$linkaccounts .= qq| |
| 1867 |
<tr>
|
|
| 1868 |
<th align=right>| . $locale->text('National Revenues') . qq|</th>
|
|
| 1869 |
<td><select name=income_accno_id_0>$form->{selectIC_income}</select></td>
|
|
| 1870 |
</tr>
|
|
| 1871 |
<tr>
|
|
| 1872 |
<th align=right>| . $locale->text('National Expenses') . qq|</th>
|
|
| 1873 |
<td><select name=expense_accno_id_0>$form->{selectIC_expense}</select></td>
|
|
| 1874 |
</tr>|;
|
|
| 1867 |
<tr>
|
|
| 1868 |
<th align=right>| . $locale->text('National Revenues') . qq|</th>
|
|
| 1869 |
<td><select name=income_accno_id_0>$form->{selectIC_income}</select></td>
|
|
| 1870 |
</tr>
|
|
| 1871 |
<tr>
|
|
| 1872 |
<th align=right>| . $locale->text('National Expenses') . qq|</th>
|
|
| 1873 |
<td><select name=expense_accno_id_0>$form->{selectIC_expense}</select></td>
|
|
| 1874 |
</tr>|;
|
|
| 1875 | 1875 |
if ($form->{id}) {
|
| 1876 | 1876 |
$form->{selectIC_income} =~ s/selected//g;
|
| 1877 | 1877 |
$form->{selectIC_income} =~ s/ value=\Q$form->{income_accno_id_1}\E/ value=$form->{income_accno_id_1} selected/;
|
| 1878 | 1878 |
$form->{selectIC_expense} =~ s/selected//g;
|
| 1879 | 1879 |
$form->{selectIC_expense} =~ s/ value=\Q$form->{expense_accno_id_1}\E/ value=$form->{expense_accno_id_1} selected/;
|
| 1880 | 1880 |
} |
| 1881 |
$linkaccounts .= qq| <tr>
|
|
| 1882 |
<th align=right>| . $locale->text('Revenues EU with UStId') . qq|</th>
|
|
| 1883 |
<td><select name=income_accno_id_1>$form->{selectIC_income}</select></td>
|
|
| 1884 |
</tr>
|
|
| 1885 |
<tr>
|
|
| 1886 |
<th align=right>| . $locale->text('Expenses EU with UStId') . qq|</th>
|
|
| 1887 |
<td><select name=expense_accno_id_1>$form->{selectIC_expense}</select></td>
|
|
| 1888 |
</tr>|;
|
|
| 1881 |
$linkaccounts .= qq| <tr>
|
|
| 1882 |
<th align=right>| . $locale->text('Revenues EU with UStId') . qq|</th>
|
|
| 1883 |
<td><select name=income_accno_id_1>$form->{selectIC_income}</select></td>
|
|
| 1884 |
</tr>
|
|
| 1885 |
<tr>
|
|
| 1886 |
<th align=right>| . $locale->text('Expenses EU with UStId') . qq|</th>
|
|
| 1887 |
<td><select name=expense_accno_id_1>$form->{selectIC_expense}</select></td>
|
|
| 1888 |
</tr>|;
|
|
| 1889 | 1889 |
|
| 1890 | 1890 |
if ($form->{id}) {
|
| 1891 | 1891 |
$form->{selectIC_income} =~ s/selected//g;
|
| ... | ... | |
| 1894 | 1894 |
$form->{selectIC_expense} =~ s/ value=\Q$form->{expense_accno_id_2}\E/ value=$form->{expense_accno_id_2} selected/;
|
| 1895 | 1895 |
} |
| 1896 | 1896 |
|
| 1897 |
$linkaccounts .= qq| <tr>
|
|
| 1898 |
<th align=right>| . $locale->text('Revenues EU without UStId') . qq|</th>
|
|
| 1899 |
<td><select name=income_accno_id_2>$form->{selectIC_income}</select></td>
|
|
| 1900 |
</tr>
|
|
| 1901 |
<tr>
|
|
| 1902 |
<th align=right>| . $locale->text('Expenses EU without UStId') . qq|</th>
|
|
| 1903 |
<td><select name=expense_accno_id_2>$form->{selectIC_expense}</select></td>
|
|
| 1904 |
</tr>|;
|
|
| 1897 |
$linkaccounts .= qq| <tr>
|
|
| 1898 |
<th align=right>| . $locale->text('Revenues EU without UStId') . qq|</th>
|
|
| 1899 |
<td><select name=income_accno_id_2>$form->{selectIC_income}</select></td>
|
|
| 1900 |
</tr>
|
|
| 1901 |
<tr>
|
|
| 1902 |
<th align=right>| . $locale->text('Expenses EU without UStId') . qq|</th>
|
|
| 1903 |
<td><select name=expense_accno_id_2>$form->{selectIC_expense}</select></td>
|
|
| 1904 |
</tr>|;
|
|
| 1905 | 1905 |
|
| 1906 | 1906 |
if ($form->{id}) {
|
| 1907 | 1907 |
$form->{selectIC_income} =~ s/selected//g;
|
| ... | ... | |
| 1910 | 1910 |
$form->{selectIC_expense} =~ s/ value=\Q$form->{expense_accno_id_3}\E/ value=$form->{expense_accno_id_3} selected/;
|
| 1911 | 1911 |
} |
| 1912 | 1912 |
|
| 1913 |
$linkaccounts .= qq| <tr>
|
|
| 1914 |
<th align=right>| . $locale->text('Foreign Revenues') . qq|</th>
|
|
| 1915 |
<td><select name=income_accno_id_3>$form->{selectIC_income}</select></td>
|
|
| 1916 |
</tr>
|
|
| 1917 |
<tr>
|
|
| 1918 |
<th align=right>| . $locale->text('Foreign Expenses') . qq|</th>
|
|
| 1919 |
<td><select name=expense_accno_id_3>$form->{selectIC_expense}</select></td>
|
|
| 1920 |
</tr>
|
|
| 1913 |
$linkaccounts .= qq| <tr>
|
|
| 1914 |
<th align=right>| . $locale->text('Foreign Revenues') . qq|</th>
|
|
| 1915 |
<td><select name=income_accno_id_3>$form->{selectIC_income}</select></td>
|
|
| 1916 |
</tr>
|
|
| 1917 |
<tr>
|
|
| 1918 |
<th align=right>| . $locale->text('Foreign Expenses') . qq|</th>
|
|
| 1919 |
<td><select name=expense_accno_id_3>$form->{selectIC_expense}</select></td>
|
|
| 1920 |
</tr>
|
|
| 1921 | 1921 |
|; |
| 1922 | 1922 |
|
| 1923 | 1923 |
|
| ... | ... | |
| 2106 | 2106 |
map { print "$column_data{$_}\n" } @column_index;
|
| 2107 | 2107 |
|
| 2108 | 2108 |
print qq| |
| 2109 |
</tr>
|
|
| 2109 |
</tr>
|
|
| 2110 | 2110 |
|; |
| 2111 | 2111 |
} |
| 2112 | 2112 |
|
| ... | ... | |
| 2393 | 2393 |
map { print "$column_data{$_}\n" } @column_index;
|
| 2394 | 2394 |
|
| 2395 | 2395 |
print qq| |
| 2396 |
</tr>
|
|
| 2396 |
</tr>
|
|
| 2397 | 2397 |
|; |
| 2398 | 2398 |
$row++; |
| 2399 | 2399 |
} |
| ... | ... | |
| 2787 | 2787 |
<tr> |
| 2788 | 2788 |
<td> |
| 2789 | 2789 |
<table> |
| 2790 |
<tr>
|
|
| 2791 |
<th>| . $locale->text('Close Books up to') . qq|</th>
|
|
| 2792 |
<td><input name=closedto size=11 title="$myconfig{dateformat}" value=$form->{closedto}></td>
|
|
| 2793 |
</tr>
|
|
| 2790 |
<tr>
|
|
| 2791 |
<th>| . $locale->text('Close Books up to') . qq|</th>
|
|
| 2792 |
<td><input name=closedto size=11 title="$myconfig{dateformat}" value=$form->{closedto}></td>
|
|
| 2793 |
</tr>
|
|
| 2794 | 2794 |
</table> |
| 2795 | 2795 |
</td> |
| 2796 | 2796 |
</tr> |
| 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 |
| bin/mozilla/ar.pl | ||
|---|---|---|
| 91 | 91 |
# saving the history |
| 92 | 92 |
if(!exists $form->{addition} && ($form->{id} ne "")) {
|
| 93 | 93 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 94 |
$form->{addition} = "ADDED";
|
|
| 95 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 94 |
$form->{addition} = "ADDED";
|
|
| 95 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 96 | 96 |
} |
| 97 | 97 |
# /saving the history |
| 98 | 98 |
|
| ... | ... | |
| 293 | 293 |
if ($form->{currency} ne $form->{defaultcurrency}) {
|
| 294 | 294 |
if ($form->{forex}) {
|
| 295 | 295 |
$exchangerate .= qq| |
| 296 |
<th align=right>| . $locale->text('Exchangerate') . qq|</th>
|
|
| 297 |
<td><input type=hidden name=exchangerate value=$form->{exchangerate}>$form->{exchangerate}</td>
|
|
| 296 |
<th align=right>| . $locale->text('Exchangerate') . qq|</th>
|
|
| 297 |
<td><input type=hidden name=exchangerate value=$form->{exchangerate}>$form->{exchangerate}</td>
|
|
| 298 | 298 |
|; |
| 299 | 299 |
} else {
|
| 300 | 300 |
$exchangerate .= qq| |
| ... | ... | |
| 305 | 305 |
} |
| 306 | 306 |
|
| 307 | 307 |
$taxincluded = qq| |
| 308 |
<tr>
|
|
| 309 |
<td align=right><input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td>
|
|
| 310 |
<th align=left nowrap>| . $locale->text('Tax Included') . qq|</th>
|
|
| 311 |
</tr>
|
|
| 308 |
<tr>
|
|
| 309 |
<td align=right><input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td>
|
|
| 310 |
<th align=left nowrap>| . $locale->text('Tax Included') . qq|</th>
|
|
| 311 |
</tr>
|
|
| 312 | 312 |
|; |
| 313 | 313 |
|
| 314 | 314 |
if (($rows = $form->numtextrows($form->{notes}, 50)) < 2) {
|
| ... | ... | |
| 318 | 318 |
qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
|
| 319 | 319 |
|
| 320 | 320 |
$department = qq| |
| 321 |
<tr>
|
|
| 322 |
<th align="right" nowrap>| . $locale->text('Department') . qq|</th>
|
|
| 323 |
<td colspan=3><select name=department>$form->{selectdepartment}</select>
|
|
| 324 |
<input type=hidden name=selectdepartment value="$form->{selectdepartment}">
|
|
| 325 |
</td>
|
|
| 326 |
</tr>
|
|
| 321 |
<tr>
|
|
| 322 |
<th align="right" nowrap>| . $locale->text('Department') . qq|</th>
|
|
| 323 |
<td colspan=3><select name=department>$form->{selectdepartment}</select>
|
|
| 324 |
<input type=hidden name=selectdepartment value="$form->{selectdepartment}">
|
|
| 325 |
</td>
|
|
| 326 |
</tr>
|
|
| 327 | 327 |
| if $form->{selectdepartment};
|
| 328 | 328 |
|
| 329 | 329 |
my $n = ($form->{creditremaining} =~ /-/) ? "0" : "1";
|
| ... | ... | |
| 338 | 338 |
|
| 339 | 339 |
if ($form->{selectemployee}) {
|
| 340 | 340 |
$employee = qq| |
| 341 |
<tr>
|
|
| 342 |
<th align=right nowrap>| . $locale->text('Salesperson') . qq|</th>
|
|
| 343 |
<td colspan=2><select name=employee>$form->{selectemployee}</select></td>
|
|
| 344 |
<input type=hidden name=selectemployee value="$form->{selectemployee}">
|
|
| 345 |
</tr>
|
|
| 341 |
<tr>
|
|
| 342 |
<th align=right nowrap>| . $locale->text('Salesperson') . qq|</th>
|
|
| 343 |
<td colspan=2><select name=employee>$form->{selectemployee}</select></td>
|
|
| 344 |
<input type=hidden name=selectemployee value="$form->{selectemployee}">
|
|
| 345 |
</tr>
|
|
| 346 | 346 |
|; |
| 347 | 347 |
} |
| 348 | 348 |
|
| ... | ... | |
| 478 | 478 |
<td> |
| 479 | 479 |
<table width=100%> |
| 480 | 480 |
<tr valign=top> |
| 481 |
<td>
|
|
| 482 |
<table>
|
|
| 483 |
<tr>
|
|
| 484 |
<th align="right" nowrap>| . $locale->text('Customer') . qq|</th>
|
|
| 485 |
<td colspan=3>$customer <input type="button" value="| . $locale->text('Details (one letter abbreviation)') . qq|" onclick="show_vc_details('customer')"></td>
|
|
| 486 |
<input type=hidden name=selectcustomer value="$form->{selectcustomer}">
|
|
| 487 |
<input type=hidden name=oldcustomer value="$form->{oldcustomer}">
|
|
| 488 |
<input type=hidden name=customer_id value="$form->{customer_id}">
|
|
| 489 |
<input type=hidden name=terms value=$form->{terms}>
|
|
| 490 |
</tr>
|
|
| 491 |
<tr>
|
|
| 492 |
<td></td>
|
|
| 493 |
<td colspan=3>
|
|
| 494 |
<table width=100%>
|
|
| 495 |
<tr>
|
|
| 496 |
<th align=left nowrap>| . $locale->text('Credit Limit') . qq|</th>
|
|
| 497 |
<td>$form->{creditlimit}</td>
|
|
| 498 |
<th align=left nowrap>| . $locale->text('Remaining') . qq|</th>
|
|
| 499 |
<td class="plus$n">$form->{creditremaining}</td>
|
|
| 500 |
<input type=hidden name=creditlimit value=$form->{creditlimit}>
|
|
| 501 |
<input type=hidden name=creditremaining value=$form->{creditremaining}>
|
|
| 502 |
</tr>
|
|
| 503 |
</table>
|
|
| 504 |
</td>
|
|
| 505 |
</tr>
|
|
| 506 |
<tr>
|
|
| 507 |
<th align=right>| . $locale->text('Currency') . qq|</th>
|
|
| 508 |
<td><select name=currency>$form->{selectcurrency}</select></td>
|
|
| 509 |
<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
|
|
| 510 |
<input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
|
|
| 511 |
<input type=hidden name=fxgain_accno value=$form->{fxgain_accno}>
|
|
| 512 |
<input type=hidden name=fxloss_accno value=$form->{fxloss_accno}>
|
|
| 513 |
$exchangerate
|
|
| 514 |
</tr>
|
|
| 515 |
$department
|
|
| 516 |
$taxincluded
|
|
| 517 |
</table>
|
|
| 518 |
</td>
|
|
| 519 |
<td align=right>
|
|
| 520 |
<table>
|
|
| 521 |
$employee
|
|
| 522 |
<tr>
|
|
| 523 |
<th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
|
|
| 524 |
<td><input name=invnumber size=11 value="$form->{invnumber}"></td>
|
|
| 525 |
</tr>
|
|
| 526 |
<tr>
|
|
| 527 |
<th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
|
|
| 528 |
<td><input name=ordnumber size=11 value="$form->{ordnumber}"></td>
|
|
| 529 |
</tr>
|
|
| 530 |
<tr>
|
|
| 531 |
<th align=right nowrap>| . $locale->text('Invoice Date') . qq|</th>
|
|
| 481 |
<td>
|
|
| 482 |
<table>
|
|
| 483 |
<tr>
|
|
| 484 |
<th align="right" nowrap>| . $locale->text('Customer') . qq|</th>
|
|
| 485 |
<td colspan=3>$customer <input type="button" value="| . $locale->text('Details (one letter abbreviation)') . qq|" onclick="show_vc_details('customer')"></td>
|
|
| 486 |
<input type=hidden name=selectcustomer value="$form->{selectcustomer}">
|
|
| 487 |
<input type=hidden name=oldcustomer value="$form->{oldcustomer}">
|
|
| 488 |
<input type=hidden name=customer_id value="$form->{customer_id}">
|
|
| 489 |
<input type=hidden name=terms value=$form->{terms}>
|
|
| 490 |
</tr>
|
|
| 491 |
<tr>
|
|
| 492 |
<td></td>
|
|
| 493 |
<td colspan=3>
|
|
| 494 |
<table width=100%>
|
|
| 495 |
<tr>
|
|
| 496 |
<th align=left nowrap>| . $locale->text('Credit Limit') . qq|</th>
|
|
| 497 |
<td>$form->{creditlimit}</td>
|
|
| 498 |
<th align=left nowrap>| . $locale->text('Remaining') . qq|</th>
|
|
| 499 |
<td class="plus$n">$form->{creditremaining}</td>
|
|
| 500 |
<input type=hidden name=creditlimit value=$form->{creditlimit}>
|
|
| 501 |
<input type=hidden name=creditremaining value=$form->{creditremaining}>
|
|
| 502 |
</tr>
|
|
| 503 |
</table>
|
|
| 504 |
</td>
|
|
| 505 |
</tr>
|
|
| 506 |
<tr>
|
|
| 507 |
<th align=right>| . $locale->text('Currency') . qq|</th>
|
|
| 508 |
<td><select name=currency>$form->{selectcurrency}</select></td>
|
|
| 509 |
<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
|
|
| 510 |
<input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
|
|
| 511 |
<input type=hidden name=fxgain_accno value=$form->{fxgain_accno}>
|
|
| 512 |
<input type=hidden name=fxloss_accno value=$form->{fxloss_accno}>
|
|
| 513 |
$exchangerate
|
|
| 514 |
</tr>
|
|
| 515 |
$department
|
|
| 516 |
$taxincluded
|
|
| 517 |
</table>
|
|
| 518 |
</td>
|
|
| 519 |
<td align=right>
|
|
| 520 |
<table>
|
|
| 521 |
$employee
|
|
| 522 |
<tr>
|
|
| 523 |
<th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
|
|
| 524 |
<td><input name=invnumber size=11 value="$form->{invnumber}"></td>
|
|
| 525 |
</tr>
|
|
| 526 |
<tr>
|
|
| 527 |
<th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
|
|
| 528 |
<td><input name=ordnumber size=11 value="$form->{ordnumber}"></td>
|
|
| 529 |
</tr>
|
|
| 530 |
<tr>
|
|
| 531 |
<th align=right nowrap>| . $locale->text('Invoice Date') . qq|</th>
|
|
| 532 | 532 |
$button1 |
| 533 |
</tr>
|
|
| 534 |
<tr>
|
|
| 535 |
<th align=right nowrap>| . $locale->text('Due Date') . qq|</th>
|
|
| 533 |
</tr>
|
|
| 534 |
<tr>
|
|
| 535 |
<th align=right nowrap>| . $locale->text('Due Date') . qq|</th>
|
|
| 536 | 536 |
$button2 |
| 537 |
</tr>
|
|
| 537 |
</tr>
|
|
| 538 | 538 |
</table> |
| 539 |
</td>
|
|
| 540 |
</tr>
|
|
| 539 |
</td>
|
|
| 540 |
</tr>
|
|
| 541 | 541 |
</table> |
| 542 | 542 |
</td> |
| 543 | 543 |
</tr> |
| ... | ... | |
| 547 | 547 |
<tr> |
| 548 | 548 |
<td> |
| 549 | 549 |
<table width=100%> |
| 550 |
<tr class=listheading>
|
|
| 551 |
<th class=listheading style="width:15%">|
|
|
| 550 |
<tr class=listheading>
|
|
| 551 |
<th class=listheading style="width:15%">|
|
|
| 552 | 552 |
. $locale->text('Account') . qq|</th>
|
| 553 |
<th class=listheading style="width:10%">|
|
|
| 553 |
<th class=listheading style="width:10%">|
|
|
| 554 | 554 |
. $locale->text('Amount') . qq|</th>
|
| 555 | 555 |
<th class=listheading style="width:10%">| |
| 556 | 556 |
. $locale->text('Tax') . qq|</th>
|
| ... | ... | |
| 558 | 558 |
. $locale->text('Taxkey') . qq|</th>
|
| 559 | 559 |
<th class=listheading style="width:10%">| |
| 560 | 560 |
. $locale->text('Project') . qq|</th>
|
| 561 |
</tr>
|
|
| 561 |
</tr>
|
|
| 562 | 562 |
|; |
| 563 | 563 |
|
| 564 | 564 |
$amount = $locale->text('Amount');
|
| ... | ... | |
| 622 | 622 |
'-default' => $form->{"project_id_$i"} ));
|
| 623 | 623 |
|
| 624 | 624 |
print qq| |
| 625 |
<tr>
|
|
| 625 |
<tr>
|
|
| 626 | 626 |
<td>$selectAR_amount</td> |
| 627 | 627 |
<td><input name="amount_$i" size=10 value=$form->{"amount_$i"}></td>
|
| 628 | 628 |
<td><input type="hidden" name="tax_$i" value="$form->{"tax_$i"}">$form->{"tax_$i"}</td>
|
| 629 | 629 |
$tax |
| 630 | 630 |
<td>$projectnumber</td> |
| 631 |
</tr>
|
|
| 631 |
</tr>
|
|
| 632 | 632 |
|; |
| 633 | 633 |
$amount = ""; |
| 634 | 634 |
$project = ""; |
| ... | ... | |
| 650 | 650 |
</td> |
| 651 | 651 |
</tr> |
| 652 | 652 |
<tr> |
| 653 |
<td>${ARselected}</td>
|
|
| 654 |
<th align=left>$form->{invtotal}</th>
|
|
| 653 |
<td>${ARselected}</td>
|
|
| 654 |
<th align=left>$form->{invtotal}</th>
|
|
| 655 | 655 |
|
| 656 |
<input type=hidden name=oldinvtotal value=$form->{oldinvtotal}>
|
|
| 657 |
<input type=hidden name=oldtotalpaid value=$form->{oldtotalpaid}>
|
|
| 656 |
<input type=hidden name=oldinvtotal value=$form->{oldinvtotal}>
|
|
| 657 |
<input type=hidden name=oldtotalpaid value=$form->{oldtotalpaid}>
|
|
| 658 | 658 |
|
| 659 |
<input type=hidden name=taxaccounts value="$form->{taxaccounts}">
|
|
| 659 |
<input type=hidden name=taxaccounts value="$form->{taxaccounts}">
|
|
| 660 | 660 |
|
| 661 |
<td colspan=4></td>
|
|
| 661 |
<td colspan=4></td>
|
|
| 662 | 662 |
|
| 663 | 663 |
|
| 664 | 664 |
</tr> |
| ... | ... | |
| 669 | 669 |
<td> |
| 670 | 670 |
<table width=100%> |
| 671 | 671 |
<tr> |
| 672 |
<th align=left width=1%>| . $locale->text('Notes') . qq|</th>
|
|
| 673 |
<td align=left>$notes</td>
|
|
| 674 |
</tr>
|
|
| 672 |
<th align=left width=1%>| . $locale->text('Notes') . qq|</th>
|
|
| 673 |
<td align=left>$notes</td>
|
|
| 674 |
</tr>
|
|
| 675 | 675 |
</table> |
| 676 | 676 |
</td> |
| 677 | 677 |
</tr> |
| 678 | 678 |
<tr> |
| 679 | 679 |
<td> |
| 680 | 680 |
<table width=100%> |
| 681 |
<tr class=listheading>
|
|
| 682 |
<th colspan=7 class=listheading>|
|
|
| 681 |
<tr class=listheading>
|
|
| 682 |
<th colspan=7 class=listheading>|
|
|
| 683 | 683 |
. $locale->text('Incoming Payments') . qq|</th>
|
| 684 |
</tr>
|
|
| 684 |
</tr>
|
|
| 685 | 685 |
|; |
| 686 | 686 |
|
| 687 | 687 |
if ($form->{currency} eq $form->{defaultcurrency}) {
|
| ... | ... | |
| 1159 | 1159 |
# saving the history |
| 1160 | 1160 |
if(!exists $form->{addition} && $form->{id} ne "") {
|
| 1161 | 1161 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 1162 |
$form->{addition} = "POSTED AS NEW";
|
|
| 1163 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1162 |
$form->{addition} = "POSTED AS NEW";
|
|
| 1163 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1164 | 1164 |
} |
| 1165 | 1165 |
# /saving the history |
| 1166 | 1166 |
&post; |
| ... | ... | |
| 1242 | 1242 |
# saving the history |
| 1243 | 1243 |
if(!exists $form->{addition}) {
|
| 1244 | 1244 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 1245 |
$form->{addition} = "DELETED";
|
|
| 1246 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1245 |
$form->{addition} = "DELETED";
|
|
| 1246 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1247 | 1247 |
} |
| 1248 | 1248 |
# /saving the history |
| 1249 | 1249 |
$form->redirect($locale->text('Transaction deleted!'));
|
| bin/mozilla/arap.pl | ||
|---|---|---|
| 173 | 173 |
<tr> |
| 174 | 174 |
<td> |
| 175 | 175 |
<table width=100%> |
| 176 |
<tr class=listheading>|;
|
|
| 176 |
<tr class=listheading>|;
|
|
| 177 | 177 |
|
| 178 | 178 |
map { print "\n$column_data{$_}" } @column_index;
|
| 179 | 179 |
|
| 180 | 180 |
print qq| |
| 181 |
</tr>
|
|
| 181 |
</tr>
|
|
| 182 | 182 |
|; |
| 183 | 183 |
|
| 184 | 184 |
my $i = 0; |
| ... | ... | |
| 197 | 197 |
$j++; |
| 198 | 198 |
$j %= 2; |
| 199 | 199 |
print qq| |
| 200 |
<tr class=listrow$j>|;
|
|
| 200 |
<tr class=listrow$j>|;
|
|
| 201 | 201 |
|
| 202 | 202 |
map { print "\n$column_data{$_}" } @column_index;
|
| 203 | 203 |
|
| 204 | 204 |
print qq| |
| 205 |
</tr>
|
|
| 205 |
</tr>
|
|
| 206 | 206 |
|
| 207 | 207 |
<input name="new_id_$i" type=hidden value=$ref->{id}>
|
| 208 | 208 |
|
| ... | ... | |
| 371 | 371 |
<tr> |
| 372 | 372 |
<td> |
| 373 | 373 |
<table width=100%> |
| 374 |
<tr class=listheading>|;
|
|
| 374 |
<tr class=listheading>|;
|
|
| 375 | 375 |
|
| 376 | 376 |
map { print "\n$column_data{$_}" } @column_index;
|
| 377 | 377 |
|
| bin/mozilla/bp.pl | ||
|---|---|---|
| 123 | 123 |
receipt => { title => 'Receipts', name => 'Customer' });
|
| 124 | 124 |
|
| 125 | 125 |
$label{invoice}{invnumber} = qq|
|
| 126 |
<tr>
|
|
| 127 |
<th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
|
|
| 128 |
<td colspan=3><input name=invnumber size=20></td>
|
|
| 129 |
</tr>
|
|
| 126 |
<tr>
|
|
| 127 |
<th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
|
|
| 128 |
<td colspan=3><input name=invnumber size=20></td>
|
|
| 129 |
</tr>
|
|
| 130 | 130 |
|; |
| 131 | 131 |
$label{invoice}{ordnumber} = qq|
|
| 132 |
<tr>
|
|
| 133 |
<th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
|
|
| 134 |
<td colspan=3><input name=ordnumber size=20></td>
|
|
| 135 |
</tr>
|
|
| 132 |
<tr>
|
|
| 133 |
<th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
|
|
| 134 |
<td colspan=3><input name=ordnumber size=20></td>
|
|
| 135 |
</tr>
|
|
| 136 | 136 |
|; |
| 137 | 137 |
$label{sales_quotation}{quonumber} = qq|
|
| 138 |
<tr>
|
|
| 139 |
<th align=right nowrap>| . $locale->text('Quotation Number') . qq|</th>
|
|
| 140 |
<td colspan=3><input name=quonumber size=20></td>
|
|
| 141 |
</tr>
|
|
| 138 |
<tr>
|
|
| 139 |
<th align=right nowrap>| . $locale->text('Quotation Number') . qq|</th>
|
|
| 140 |
<td colspan=3><input name=quonumber size=20></td>
|
|
| 141 |
</tr>
|
|
| 142 | 142 |
|; |
| 143 | 143 |
|
| 144 | 144 |
$label{check}{chknumber} = qq|
|
| 145 |
<tr>
|
|
| 146 |
<th align=right nowrap>| . $locale->text('Reference') . qq|</th>
|
|
| 147 |
<td colspan=3><input name=chknumber size=20></td>
|
|
| 148 |
</tr>
|
|
| 145 |
<tr>
|
|
| 146 |
<th align=right nowrap>| . $locale->text('Reference') . qq|</th>
|
|
| 147 |
<td colspan=3><input name=chknumber size=20></td>
|
|
| 148 |
</tr>
|
|
| 149 | 149 |
|; |
| 150 | 150 |
|
| 151 | 151 |
$label{packing_list}{invnumber} = $label{invoice}{invnumber};
|
| ... | ... | |
| 164 | 164 |
if (BP->payment_accounts(\%myconfig, \%$form)) {
|
| 165 | 165 |
$account = qq| |
| 166 | 166 |
<tr> |
| 167 |
<th align=right>| . $locale->text('Account') . qq|</th>
|
|
| 167 |
<th align=right>| . $locale->text('Account') . qq|</th>
|
|
| 168 | 168 |
|; |
| 169 | 169 |
|
| 170 | 170 |
if ($form->{accounts}) {
|
| 171 | 171 |
$account .= qq| |
| 172 |
<td colspan=3><select name=account>
|
|
| 172 |
<td colspan=3><select name=account>
|
|
| 173 | 173 |
|; |
| 174 | 174 |
foreach my $ref (@{ $form->{accounts} }) {
|
| 175 | 175 |
$account .= qq| |
| ... | ... | |
| 182 | 182 |
|; |
| 183 | 183 |
} else {
|
| 184 | 184 |
$account .= qq| |
| 185 |
<td colspan=3><input name=account></td>
|
|
| 185 |
<td colspan=3><input name=account></td>
|
|
| 186 | 186 |
|; |
| 187 | 187 |
|
| 188 | 188 |
} |
| 189 | 189 |
|
| 190 | 190 |
$account .= qq| |
| 191 |
</tr>
|
|
| 191 |
</tr>
|
|
| 192 | 192 |
|; |
| 193 | 193 |
|
| 194 | 194 |
} |
| ... | ... | |
| 243 | 243 |
<tr> |
| 244 | 244 |
<td> |
| 245 | 245 |
<table> |
| 246 |
<tr>
|
|
| 247 |
<th align=right>Kunde</th>
|
|
| 248 |
<td colspan=3>$name</td>
|
|
| 249 |
</tr>
|
|
| 250 |
$account
|
|
| 251 |
$label{$form->{type}}{invnumber}
|
|
| 252 |
$label{$form->{type}}{ordnumber}
|
|
| 253 |
$label{$form->{type}}{quonumber}
|
|
| 254 |
$label{$form->{type}}{chknumber}
|
|
| 255 |
$label{$form->{type}}{rctnumber}
|
|
| 256 |
<tr>
|
|
| 257 |
<th align=right nowrap>| . $locale->text('From') . qq|</th>
|
|
| 246 |
<tr>
|
|
| 247 |
<th align=right>Kunde</th>
|
|
| 248 |
<td colspan=3>$name</td>
|
|
| 249 |
</tr>
|
|
| 250 |
$account
|
|
| 251 |
$label{$form->{type}}{invnumber}
|
|
| 252 |
$label{$form->{type}}{ordnumber}
|
|
| 253 |
$label{$form->{type}}{quonumber}
|
|
| 254 |
$label{$form->{type}}{chknumber}
|
|
| 255 |
$label{$form->{type}}{rctnumber}
|
|
| 256 |
<tr>
|
|
| 257 |
<th align=right nowrap>| . $locale->text('From') . qq|</th>
|
|
| 258 | 258 |
$button1 |
| 259 |
<th align=right>| . $locale->text('Bis') . qq|</th>
|
|
| 259 |
<th align=right>| . $locale->text('Bis') . qq|</th>
|
|
| 260 | 260 |
$button2 |
| 261 |
</tr>
|
|
| 262 |
<input type=hidden name=sort value=transdate>
|
|
| 261 |
</tr>
|
|
| 262 |
<input type=hidden name=sort value=transdate>
|
|
| 263 | 263 |
</table> |
| 264 | 264 |
</td> |
| 265 | 265 |
</tr> |
| ... | ... | |
| 535 | 535 |
<tr> |
| 536 | 536 |
<td> |
| 537 | 537 |
<table width=100%> |
| 538 |
<tr class=listheading>
|
|
| 538 |
<tr class=listheading>
|
|
| 539 | 539 |
|; |
| 540 | 540 |
|
| 541 | 541 |
map { print "\n$column_header{$_}" } @column_index;
|
| 542 | 542 |
|
| 543 | 543 |
print qq| |
| 544 |
</tr>
|
|
| 544 |
</tr>
|
|
| 545 | 545 |
|; |
| 546 | 546 |
|
| 547 | 547 |
# add sort and escape callback, this one we use for the add sub |
| bin/mozilla/ca.pl | ||
|---|---|---|
| 172 | 172 |
|
| 173 | 173 |
my $department = qq| |
| 174 | 174 |
<tr> |
| 175 |
<th align=right nowrap>| . $locale->text('Department') . qq|</th>
|
|
| 176 |
<td colspan=3><select name=department>$form->{selectdepartment}</select></td>
|
|
| 177 |
</tr>
|
|
| 175 |
<th align=right nowrap>| . $locale->text('Department') . qq|</th>
|
|
| 176 |
<td colspan=3><select name=department>$form->{selectdepartment}</select></td>
|
|
| 177 |
</tr>
|
|
| 178 | 178 |
| if $form->{selectdepartment};
|
| 179 | 179 |
my $accrual = ($main::eur) ? "" : "checked"; |
| 180 | 180 |
my $cash = ($main::eur) ? "checked" : ""; |
| ... | ... | |
| 263 | 263 |
|
| 264 | 264 |
</table> |
| 265 | 265 |
<table> |
| 266 |
<tr>
|
|
| 267 |
<th align=left><input name=reporttype class=radio type=radio value="custom" checked> |
|
|
| 266 |
<tr>
|
|
| 267 |
<th align=left><input name=reporttype class=radio type=radio value="custom" checked> |
|
|
| 268 | 268 |
. $locale->text('Customized Report') . qq|</th>
|
| 269 |
</tr>
|
|
| 270 |
<tr>
|
|
| 271 |
<th colspan=1>| . $locale->text('Year') . qq|</th>
|
|
| 272 |
<td><input name=year size=11 title="|
|
|
| 269 |
</tr>
|
|
| 270 |
<tr>
|
|
| 271 |
<th colspan=1>| . $locale->text('Year') . qq|</th>
|
|
| 272 |
<td><input name=year size=11 title="|
|
|
| 273 | 273 |
. $locale->text('YYYY') . qq|" value="$year"></td>
|
| 274 |
</tr>
|
|
| 274 |
</tr>
|
|
| 275 | 275 |
|; |
| 276 | 276 |
|
| 277 | 277 |
our $checked; |
| 278 | 278 |
print qq| |
| 279 |
<tr>
|
|
| 280 |
<td align=right>
|
|
| 279 |
<tr>
|
|
| 280 |
<td align=right>
|
|
| 281 | 281 |
<b> | . $locale->text('Yearly') . qq|</b> </td>
|
| 282 |
<th align=left>| . $locale->text('Quarterly') . qq|</th>
|
|
| 283 |
<th align=left colspan=3>| . $locale->text('Monthly') . qq|</th>
|
|
| 284 |
</tr>
|
|
| 285 |
<tr>
|
|
| 286 |
<td align=right> <input name=duetyp class=radio type=radio value="13"
|
|
| 282 |
<th align=left>| . $locale->text('Quarterly') . qq|</th>
|
|
| 283 |
<th align=left colspan=3>| . $locale->text('Monthly') . qq|</th>
|
|
| 284 |
</tr>
|
|
| 285 |
<tr>
|
|
| 286 |
<td align=right> <input name=duetyp class=radio type=radio value="13"
|
|
| 287 | 287 |
$checked></td> |
| 288 |
<td><input name=duetyp class=radio type=radio value="A" $checked > 1. | |
|
| 289 |
. $locale->text('Quarter') . qq|</td>
|
|
| 288 |
<td><input name=duetyp class=radio type=radio value="A" $checked > 1. | . $locale->text('Quarter') . qq|</td>
|
|
| 290 | 289 |
|; |
| 291 | 290 |
$checked = "checked"; |
| 292 | 291 |
print qq| |
| 293 |
<td><input name=duetyp class=radio type=radio value="1" $checked > | |
|
| 294 |
. $locale->text('January') . qq|</td>
|
|
| 292 |
<td><input name=duetyp class=radio type=radio value="1" $checked > | . $locale->text('January') . qq|</td>
|
|
| 295 | 293 |
|; |
| 296 | 294 |
$checked = ""; |
| 297 | 295 |
print qq| |
| 298 |
<td><input name=duetyp class=radio type=radio value="5" $checked > | |
|
| 299 |
. $locale->text('May') . qq|</td>
|
|
| 300 |
<td><input name=duetyp class=radio type=radio value="9" $checked > | |
|
| 301 |
. $locale->text('September') . qq|</td>
|
|
| 302 |
|
|
| 303 |
</tr> |
|
| 304 |
<tr> |
|
| 305 |
<td align= right> </td> |
|
| 306 |
<td><input name=duetyp class=radio type=radio value="B" $checked> 2. | |
|
| 307 |
. $locale->text('Quarter') . qq|</td>
|
|
| 308 |
<td><input name=duetyp class=radio type=radio value="2" $checked > | |
|
| 309 |
. $locale->text('February') . qq|</td>
|
|
| 310 |
<td><input name=duetyp class=radio type=radio value="6" $checked > | |
|
| 311 |
. $locale->text('June') . qq|</td>
|
|
| 312 |
<td><input name=duetyp class=radio type=radio value="10" $checked > | |
|
| 313 |
. $locale->text('October') . qq|</td>
|
|
| 314 |
</tr> |
|
| 315 |
<tr> |
|
| 316 |
<td> </td> |
|
| 317 |
<td><input name=duetyp class=radio type=radio value="C" $checked> 3. | |
|
| 318 |
. $locale->text('Quarter') . qq|</td>
|
|
| 319 |
<td><input name=duetyp class=radio type=radio value="3" $checked > | |
|
| 320 |
. $locale->text('March') . qq|</td>
|
|
| 321 |
<td><input name=duetyp class=radio type=radio value="7" $checked > | |
|
| 322 |
. $locale->text('July') . qq|</td>
|
|
| 323 |
<td><input name=duetyp class=radio type=radio value="11" $checked > | |
|
| 324 |
. $locale->text('November') . qq|</td>
|
|
| 325 |
|
|
| 326 |
</tr> |
|
| 327 |
<tr> |
|
| 328 |
<td> </td> |
|
| 329 |
<td><input name=duetyp class=radio type=radio value="D" $checked> 4. | |
|
| 330 |
. $locale->text('Quarter') . qq| </td>
|
|
| 331 |
<td><input name=duetyp class=radio type=radio value="4" $checked > | |
|
| 332 |
. $locale->text('April') . qq|</td>
|
|
| 333 |
<td><input name=duetyp class=radio type=radio value="8" $checked > | |
|
| 334 |
. $locale->text('August') . qq|</td>
|
|
| 335 |
<td><input name=duetyp class=radio type=radio value="12" $checked > | |
|
| 336 |
. $locale->text('December') . qq|</td>
|
|
| 337 |
|
|
| 338 |
</tr> |
|
| 339 |
<tr> |
|
| 340 |
<td colspan=5><hr size=3 noshade></td> |
|
| 341 |
</tr> |
|
| 342 |
<tr> |
|
| 343 |
<th align=left><input name=reporttype class=radio type=radio value="free" $checked> | |
|
| 344 |
. $locale->text('Free report period') . qq|</th>
|
|
| 345 |
<td align=left colspan=4>| . $locale->text('From') . qq|
|
|
| 346 |
$button1 |
|
| 296 |
<td><input name=duetyp class=radio type=radio value="5" $checked > | . $locale->text('May') . qq|</td>
|
|
| 297 |
<td><input name=duetyp class=radio type=radio value="9" $checked > | . $locale->text('September') . qq|</td>
|
|
| 298 |
|
|
| 299 |
</tr> |
|
| 300 |
<tr> |
|
| 301 |
<td align= right> </td> |
|
| 302 |
<td><input name=duetyp class=radio type=radio value="B" $checked> 2. | . $locale->text('Quarter') . qq|</td>
|
|
| 303 |
<td><input name=duetyp class=radio type=radio value="2" $checked > | . $locale->text('February') . qq|</td>
|
|
| 304 |
<td><input name=duetyp class=radio type=radio value="6" $checked > | . $locale->text('June') . qq|</td>
|
|
| 305 |
<td><input name=duetyp class=radio type=radio value="10" $checked > | . $locale->text('October') . qq|</td>
|
|
| 306 |
</tr> |
|
| 307 |
<tr> |
|
| 308 |
<td> </td> |
|
| 309 |
<td><input name=duetyp class=radio type=radio value="C" $checked> 3. | . $locale->text('Quarter') . qq|</td>
|
|
| 310 |
<td><input name=duetyp class=radio type=radio value="3" $checked > | . $locale->text('March') . qq|</td>
|
|
| 311 |
<td><input name=duetyp class=radio type=radio value="7" $checked > | . $locale->text('July') . qq|</td>
|
|
| 312 |
<td><input name=duetyp class=radio type=radio value="11" $checked > | . $locale->text('November') . qq|</td>
|
|
| 313 |
|
|
| 314 |
</tr> |
|
| 315 |
<tr> |
|
| 316 |
<td> </td> |
|
| 317 |
<td><input name=duetyp class=radio type=radio value="D" $checked> 4. | . $locale->text('Quarter') . qq| </td>
|
|
| 318 |
<td><input name=duetyp class=radio type=radio value="4" $checked > | . $locale->text('April') . qq|</td>
|
|
| 319 |
<td><input name=duetyp class=radio type=radio value="8" $checked > | . $locale->text('August') . qq|</td>
|
|
| 320 |
<td><input name=duetyp class=radio type=radio value="12" $checked > | . $locale->text('December') . qq|</td>
|
|
| 321 |
|
|
| 322 |
</tr> |
|
| 323 |
<tr> |
|
| 324 |
<td colspan=5><hr size=3 noshade></td> |
|
| 325 |
</tr> |
|
| 326 |
<tr> |
|
| 327 |
<th align=left><input name=reporttype class=radio type=radio value="free" $checked> | . $locale->text('Free report period') . qq|</th>
|
|
| 328 |
<td align=left colspan=4>| . $locale->text('From') . qq|
|
|
| 329 |
$button1 |
|
| 347 | 330 |
$button1_2 |
| 348 |
| . $locale->text('Bis') . qq|
|
|
| 349 |
$button2
|
|
| 331 |
| . $locale->text('Bis') . qq|
|
|
| 332 |
$button2
|
|
| 350 | 333 |
$button2_2 |
| 351 | 334 |
</td> |
| 352 | 335 |
</tr> |
| 353 |
<tr> |
|
| 354 |
<td colspan=5><hr size=3 noshade></td> |
|
| 355 |
</tr> |
|
| 356 |
<tr> |
|
| 357 |
<th align=leftt>| . $locale->text('Method') . qq|</th>
|
|
| 358 |
<td colspan=3><input name=method class=radio type=radio value=accrual $accrual>| |
|
| 359 |
. $locale->text('Accrual') . qq|
|
|
| 360 |
<input name=method class=radio type=radio value=cash $cash>| |
|
| 361 |
. $locale->text('EUR') . qq|</td>
|
|
| 362 |
</tr> |
|
| 363 | 336 |
<tr> |
| 364 |
<th align=right colspan=4>| |
|
| 365 |
. $locale->text('Decimalplaces')
|
|
| 366 |
. qq|</th> |
|
| 337 |
<td colspan=5><hr size=3 noshade></td> |
|
| 338 |
</tr> |
|
| 339 |
<tr> |
|
| 340 |
<th align=leftt>| . $locale->text('Method') . qq|</th>
|
|
| 341 |
<td colspan=3><input name=method class=radio type=radio value=accrual $accrual>| . $locale->text('Accrual') . qq|
|
|
| 342 |
<input name=method class=radio type=radio value=cash $cash>| . $locale->text('EUR') . qq|</td>
|
|
| 343 |
</tr> |
|
| 344 |
<tr> |
|
| 345 |
<th align=right colspan=4>| . $locale->text('Decimalplaces') . qq|</th>
|
|
| 367 | 346 |
<td><input name=decimalplaces size=3 value="2"></td> |
| 368 | 347 |
</tr> |
| 369 | 348 |
<tr> |
| bin/mozilla/common.pl | ||
|---|---|---|
| 92 | 92 |
"nextsub" => "select_part_internal", |
| 93 | 93 |
"callback_sub" => $callback_sub, |
| 94 | 94 |
"has_charge" => $has_charge, |
| 95 |
"has_ean" => $has_ean,
|
|
| 95 |
"has_ean" => $has_ean,
|
|
| 96 | 96 |
"remap_parts_id" => $remap_parts_id, |
| 97 | 97 |
"remap_partnumber" => $remap_partnumber }); |
| 98 | 98 |
|
| ... | ... | |
| 477 | 477 |
# ------------------------------------------------------------------------- |
| 478 | 478 |
|
| 479 | 479 |
sub show_history {
|
| 480 |
$main::lxdebug->enter_sub();
|
|
| 480 |
$main::lxdebug->enter_sub();
|
|
| 481 | 481 |
|
| 482 | 482 |
my $form = $main::form; |
| 483 | 483 |
my %myconfig = %main::myconfig; |
| 484 | 484 |
my $locale = $main::locale; |
| 485 | 485 |
|
| 486 |
my $dbh = $form->dbconnect(\%myconfig);
|
|
| 487 |
my ($sort, $sortby) = split(/\-\-/, $form->{order});
|
|
| 486 |
my $dbh = $form->dbconnect(\%myconfig);
|
|
| 487 |
my ($sort, $sortby) = split(/\-\-/, $form->{order});
|
|
| 488 | 488 |
$sort =~ s/.*\.(.*)/$1/; |
| 489 | 489 |
|
| 490 |
$form->{title} = $locale->text("History");
|
|
| 491 |
$form->header();
|
|
| 492 |
print $form->parse_html_template( "common/show_history", {
|
|
| 493 |
"DATEN" => $form->get_history($dbh,$form->{input_name},"",$form->{order}),
|
|
| 494 |
"SUCCESS" => ($form->get_history($dbh,$form->{input_name}) ne "0"),
|
|
| 495 |
uc($sort) => 1,
|
|
| 496 |
uc($sort)."BY" => $sortby
|
|
| 497 |
} );
|
|
| 498 |
|
|
| 499 |
$dbh->disconnect();
|
|
| 500 |
$main::lxdebug->leave_sub();
|
|
| 490 |
$form->{title} = $locale->text("History");
|
|
| 491 |
$form->header(); |
|
| 492 |
print $form->parse_html_template( "common/show_history", {
|
|
| 493 |
"DATEN" => $form->get_history($dbh,$form->{input_name},"",$form->{order}),
|
|
| 494 |
"SUCCESS" => ($form->get_history($dbh,$form->{input_name}) ne "0"),
|
|
| 495 |
uc($sort) => 1,
|
|
| 496 |
uc($sort)."BY" => $sortby |
|
| 497 |
} ); |
|
| 498 |
|
|
| 499 |
$dbh->disconnect();
|
|
| 500 |
$main::lxdebug->leave_sub();
|
|
| 501 | 501 |
} |
| 502 | 502 |
|
| 503 | 503 |
# ------------------------------------------------------------------------- |
| ... | ... | |
| 531 | 531 |
# ------------------------------------------------------------------------- |
| 532 | 532 |
|
| 533 | 533 |
sub show_vc_details {
|
| 534 |
$main::lxdebug->enter_sub();
|
|
| 534 |
$main::lxdebug->enter_sub();
|
|
| 535 | 535 |
|
| 536 | 536 |
my $form = $main::form; |
| 537 | 537 |
my %myconfig = %main::myconfig; |
| ... | ... | |
| 550 | 550 |
$form->header(); |
| 551 | 551 |
print $form->parse_html_template("common/show_vc_details", { "is_customer" => $form->{vc} eq "customer" });
|
| 552 | 552 |
|
| 553 |
$main::lxdebug->leave_sub();
|
|
| 553 |
$main::lxdebug->leave_sub();
|
|
| 554 | 554 |
} |
| 555 | 555 |
|
| 556 | 556 |
# ------------------------------------------------------------------------- |
| bin/mozilla/cp.pl | ||
|---|---|---|
| 145 | 145 |
$form->format_amount(\%myconfig, $form->{exchangerate});
|
| 146 | 146 |
if ($form->{forex}) {
|
| 147 | 147 |
$exchangerate = qq| |
| 148 |
<tr>
|
|
| 149 |
<th align=right nowrap>| . $locale->text('Exchangerate') . qq|</th>
|
|
| 150 |
<td colspan=3><input type=hidden name=exchangerate size=10 value=$form->{exchangerate}>$form->{exchangerate}</td>
|
|
| 151 |
</tr>
|
|
| 148 |
<tr>
|
|
| 149 |
<th align=right nowrap>| . $locale->text('Exchangerate') . qq|</th>
|
|
| 150 |
<td colspan=3><input type=hidden name=exchangerate size=10 value=$form->{exchangerate}>$form->{exchangerate}</td>
|
|
| 151 |
</tr>
|
|
| 152 | 152 |
|; |
| 153 | 153 |
} else {
|
| 154 | 154 |
$exchangerate = qq| |
| 155 |
<tr>
|
|
| 156 |
<th align=right nowrap>| . $locale->text('Exchangerate') . qq|</th>
|
|
| 157 |
<td colspan=3><input name=exchangerate size=10 value=$form->{exchangerate}></td>
|
|
| 158 |
</tr>
|
|
| 155 |
<tr>
|
|
| 156 |
<th align=right nowrap>| . $locale->text('Exchangerate') . qq|</th>
|
|
| 157 |
<td colspan=3><input name=exchangerate size=10 value=$form->{exchangerate}></td>
|
|
| 158 |
</tr>
|
|
| 159 | 159 |
|; |
| 160 | 160 |
} |
| 161 | 161 |
} |
| ... | ... | |
| 340 | 340 |
<tr> |
| 341 | 341 |
<td> |
| 342 | 342 |
<table width=100%> |
| 343 |
<tr>
|
|
| 344 |
<th class=listheading colspan=$colspan>$invoice</th>
|
|
| 345 |
</tr>
|
|
| 343 |
<tr>
|
|
| 344 |
<th class=listheading colspan=$colspan>$invoice</th>
|
|
| 345 |
</tr>
|
|
| 346 | 346 |
|; |
| 347 | 347 |
|
| 348 | 348 |
$column_data{invnumber} =
|
| ... | ... | |
| 405 | 405 |
$j++; |
| 406 | 406 |
$j %= 2; |
| 407 | 407 |
print qq| |
| 408 |
<tr class=listrow$j>
|
|
| 408 |
<tr class=listrow$j>
|
|
| 409 | 409 |
|; |
| 410 | 410 |
map { print "$column_data{$_}\n" } @column_index;
|
| 411 | 411 |
print qq| |
| ... | ... | |
| 466 | 466 |
$format .= qq| |
| 467 | 467 |
<option value=postscript $form->{DF}{postscript}>|
|
| 468 | 468 |
. $locale->text('Postscript') . qq|
|
| 469 |
<option value=pdf $form->{DF}{pdf}>| . $locale->text('PDF');
|
|
| 469 |
<option value=pdf $form->{DF}{pdf}>| . $locale->text('PDF');
|
|
| 470 | 470 |
} |
| 471 | 471 |
|
| 472 | 472 |
print qq| |
| bin/mozilla/ct.pl | ||
|---|---|---|
| 347 | 347 |
|
| 348 | 348 |
# # saving the history |
| 349 | 349 |
# if(!exists $form->{addition}) {
|
| 350 |
# $form->{addition} = "ADD TRANSACTION";
|
|
| 351 |
# $form->save_history($form->dbconnect(\%myconfig));
|
|
| 350 |
# $form->{addition} = "ADD TRANSACTION";
|
|
| 351 |
# $form->save_history($form->dbconnect(\%myconfig));
|
|
| 352 | 352 |
# } |
| 353 | 353 |
# # /saving the history |
| 354 | 354 |
|
| ... | ... | |
| 381 | 381 |
# saving the history |
| 382 | 382 |
if(!exists $form->{addition}) {
|
| 383 | 383 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 384 |
$form->{addition} = "SAVED";
|
|
| 385 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 384 |
$form->{addition} = "SAVED";
|
|
| 385 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 386 | 386 |
} |
| 387 | 387 |
# /saving the history |
| 388 | 388 |
&add_transaction; |
| ... | ... | |
| 401 | 401 |
# saving the history |
| 402 | 402 |
if(!exists $form->{addition}) {
|
| 403 | 403 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 404 |
$form->{addition} = "SAVED";
|
|
| 405 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 404 |
$form->{addition} = "SAVED";
|
|
| 405 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 406 | 406 |
} |
| 407 | 407 |
# /saving the history |
| 408 | 408 |
&add_transaction; |
| ... | ... | |
| 426 | 426 |
# saving the history |
| 427 | 427 |
if(!exists $form->{addition}) {
|
| 428 | 428 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 429 |
$form->{addition} = "SAVED";
|
|
| 430 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 429 |
$form->{addition} = "SAVED";
|
|
| 430 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 431 | 431 |
} |
| 432 | 432 |
# /saving the history |
| 433 | 433 |
&add_transaction; |
| ... | ... | |
| 447 | 447 |
# saving the history |
| 448 | 448 |
if(!exists $form->{addition}) {
|
| 449 | 449 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 450 |
$form->{addition} = "SAVED";
|
|
| 451 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 450 |
$form->{addition} = "SAVED";
|
|
| 451 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 452 | 452 |
} |
| 453 | 453 |
# /saving the history |
| 454 | 454 |
&add_transaction; |
| ... | ... | |
| 468 | 468 |
# saving the history |
| 469 | 469 |
if(!exists $form->{addition}) {
|
| 470 | 470 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 471 |
$form->{addition} = "SAVED";
|
|
| 472 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 471 |
$form->{addition} = "SAVED";
|
|
| 472 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 473 | 473 |
} |
| 474 | 474 |
# /saving the history |
| 475 | 475 |
&add_transaction; |
| ... | ... | |
| 494 | 494 |
# saving the history |
| 495 | 495 |
if(!exists $form->{addition}) {
|
| 496 | 496 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 497 |
$form->{addition} = "SAVED";
|
|
| 498 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 497 |
$form->{addition} = "SAVED";
|
|
| 498 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 499 | 499 |
} |
| 500 | 500 |
# /saving the history |
| 501 | 501 |
&add_transaction; |
| ... | ... | |
| 528 | 528 |
if(!exists $form->{addition}) {
|
| 529 | 529 |
$form->{snumbers} = ($form->{"db"} eq "customer" ? qq|customernumber_| . $form->{customernumber} : qq|vendornumber_| . $form->{vendornumber});
|
| 530 | 530 |
$form->{addition} = "SAVED";
|
| 531 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 531 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 532 | 532 |
} |
| 533 | 533 |
# /saving the history |
| 534 | 534 |
$form->redirect($locale->text($msg)); |
| ... | ... | |
| 567 | 567 |
# saving the history |
| 568 | 568 |
if(!exists $form->{addition}) {
|
| 569 | 569 |
$form->{snumbers} = ($form->{"db"} eq "customer" ? qq|customernumber_| . $form->{customernumber} : qq|vendornumber_| . $form->{vendornumber});
|
| 570 |
$form->{addition} = "SAVED";
|
|
| 571 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 570 |
$form->{addition} = "SAVED";
|
|
| 571 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 572 | 572 |
} |
| 573 | 573 |
# /saving the history |
| 574 | 574 |
&edit; |
| ... | ... | |
| 592 | 592 |
# saving the history |
| 593 | 593 |
if(!exists $form->{addition}) {
|
| 594 | 594 |
$form->{snumbers} = ($form->{"db"} eq "customer" ? qq|customernumber_| . $form->{customernumber} : qq|vendornumber_| . $form->{vendornumber});
|
| 595 |
$form->{addition} = "DELETED";
|
|
| 596 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 595 |
$form->{addition} = "DELETED";
|
|
| 596 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 597 | 597 |
} |
| 598 | 598 |
# /saving the history |
| 599 | 599 |
$form->redirect($locale->text($msg)); |
| bin/mozilla/datev.pl | ||
|---|---|---|
| 72 | 72 |
<tr valign=top> |
| 73 | 73 |
<td> |
| 74 | 74 |
<table> |
| 75 |
<tr>
|
|
| 76 |
<td align=left nowrap>| . $locale->text("Beraternummer") . qq|</td>
|
|
| 77 |
<td><input name=beraternr size=10 maxlength=7 value="$form->{beraternr}"></td>
|
|
| 78 |
|
|
| 79 |
<td align=left nowrap>| . $locale->text("DFV-Kennzeichen") . qq|</td>
|
|
| 80 |
<td><input name=dfvkz size=5 maxlength=2 value="$form->{dfvkz}"></td>
|
|
| 81 |
</tr>
|
|
| 82 |
<tr>
|
|
| 83 |
<td align=left nowrap>| . $locale->text("Beratername") . qq|</td>
|
|
| 84 |
<td><input name=beratername size=10 maxlength=9 value="$form->{beratername}"></td>
|
|
| 85 |
|
|
| 86 |
<td align=left nowrap>| . $locale->text("Password") . qq|</td>
|
|
| 87 |
<td><input name=passwort size=5 maxlength=4 value="$form->{passwort}"></td>
|
|
| 88 |
</tr>
|
|
| 89 |
<tr>
|
|
| 90 |
<td align=left nowrap>| . $locale->text("Mandantennummer") . qq|</td>
|
|
| 91 |
<td><input name=mandantennr size=10 maxlength=5 value="$form->{mandantennr}"></td>
|
|
| 92 |
|
|
| 93 |
<td align=left nowrap>| . $locale->text("Medium Number") . qq|</td>
|
|
| 94 |
<td><input name=datentraegernr size=5 maxlength=3 value="$form->{datentraegernr}"></td>
|
|
| 95 |
</tr>
|
|
| 96 |
<tr>
|
|
| 97 |
| . # OBE-Export noch nicht implementiert! <td><input checked name=kne type=checkbox class=checkbox value=1> | . $locale->text("Kontonummernerweiterung (KNE)") . qq|</td>
|
|
| 75 |
<tr>
|
|
| 76 |
<td align=left nowrap>| . $locale->text("Beraternummer") . qq|</td>
|
|
| 77 |
<td><input name=beraternr size=10 maxlength=7 value="$form->{beraternr}"></td>
|
|
| 78 |
|
|
| 79 |
<td align=left nowrap>| . $locale->text("DFV-Kennzeichen") . qq|</td>
|
|
| 80 |
<td><input name=dfvkz size=5 maxlength=2 value="$form->{dfvkz}"></td>
|
|
| 81 |
</tr>
|
|
| 82 |
<tr>
|
|
| 83 |
<td align=left nowrap>| . $locale->text("Beratername") . qq|</td>
|
|
| 84 |
<td><input name=beratername size=10 maxlength=9 value="$form->{beratername}"></td>
|
|
| 85 |
|
|
| 86 |
<td align=left nowrap>| . $locale->text("Password") . qq|</td>
|
|
| 87 |
<td><input name=passwort size=5 maxlength=4 value="$form->{passwort}"></td>
|
|
| 88 |
</tr>
|
|
| 89 |
<tr>
|
|
| 90 |
<td align=left nowrap>| . $locale->text("Mandantennummer") . qq|</td>
|
|
| 91 |
<td><input name=mandantennr size=10 maxlength=5 value="$form->{mandantennr}"></td>
|
|
| 92 |
|
|
| 93 |
<td align=left nowrap>| . $locale->text("Medium Number") . qq|</td>
|
|
| 94 |
<td><input name=datentraegernr size=5 maxlength=3 value="$form->{datentraegernr}"></td>
|
|
| 95 |
</tr>
|
|
| 96 |
<tr>
|
|
| 97 |
| . # OBE-Export noch nicht implementiert! <td><input checked name=kne type=checkbox class=checkbox value=1> | . $locale->text("Kontonummernerweiterung (KNE)") . qq|</td>
|
|
| 98 | 98 |
qq|<td><input type="hidden" name="kne" value="1"></td> |
| 99 | 99 |
<td></td> |
| 100 | 100 |
|
| 101 |
<td align=left nowrap>| . $locale->text("Abrechnungsnummer") . qq|</td>
|
|
| 102 |
<td><input name=abrechnungsnr size=5 maxlength=3 value="$form->{abrechnungsnr}"></td>
|
|
| 103 |
</tr>
|
|
| 101 |
<td align=left nowrap>| . $locale->text("Abrechnungsnummer") . qq|</td>
|
|
| 102 |
<td><input name=abrechnungsnr size=5 maxlength=3 value="$form->{abrechnungsnr}"></td>
|
|
| 103 |
</tr>
|
|
| 104 | 104 |
|
| 105 | 105 |
<tr> |
| 106 | 106 |
<td><input name=exporttype type=radio class=radio value=0 checked> | |
| 107 | 107 |
. $locale->text("Export Buchungsdaten") . qq|</td>
|
| 108 | 108 |
<td></td> |
| 109 | 109 |
|
| 110 |
<td><input name=exporttype type=radio class=radio value=1> |
|
|
| 110 |
<td><input name=exporttype type=radio class=radio value=1> |
|
|
| 111 | 111 |
. $locale->text("Export Stammdaten") . qq|</td>
|
| 112 | 112 |
<td></td> |
| 113 |
</td>
|
|
| 113 |
</td>
|
|
| 114 | 114 |
</table> |
| 115 | 115 |
</td> |
| 116 | 116 |
</tr> |
| ... | ... | |
| 214 | 214 |
<tr valign=top> |
| 215 | 215 |
<td> |
| 216 | 216 |
<table> |
| 217 |
<tr>
|
|
| 217 |
<tr>
|
|
| 218 | 218 |
<td align=left><input checked name=zeitraum class=radio type=radio value=monat> </td><td align=left>| |
| 219 | 219 |
. $locale->text('Monat') . qq|</td>
|
| 220 | 220 |
<td align=left></td> |
| 221 |
<td align=left></td> |
|
| 221 |
<td align=left></td> |
|
Auch abrufbar als: Unified diff
Tabs aus *.pl Dateien entfernt.