Revision d735aab3
Von Martin Helmling mh@waldpark.octosoft.eu vor etwa 9 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 1147 | 1147 |
my $locale = $main::locale; |
| 1148 | 1148 |
|
| 1149 | 1149 |
check_oe_access(); |
| 1150 |
$form->mtime_ischanged('oe');
|
|
| 1150 | 1151 |
|
| 1151 | 1152 |
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
|
| 1152 | 1153 |
|
| ... | ... | |
| 1253 | 1254 |
|
| 1254 | 1255 |
check_oe_access(); |
| 1255 | 1256 |
|
| 1257 |
$form->mtime_ischanged('oe');
|
|
| 1256 | 1258 |
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
|
| 1257 | 1259 |
|
| 1258 | 1260 |
|
| ... | ... | |
| 1404 | 1406 |
|
| 1405 | 1407 |
check_oe_access(); |
| 1406 | 1408 |
check_oe_conversion_to_sales_invoice_allowed(); |
| 1409 |
$form->mtime_ischanged('oe');
|
|
| 1410 |
|
|
| 1407 | 1411 |
$main::auth->assert($form->{type} eq 'purchase_order' || $form->{type} eq 'request_quotation' ? 'vendor_invoice_edit' : 'invoice_edit');
|
| 1408 | 1412 |
|
| 1409 | 1413 |
$form->{old_salesman_id} = $form->{salesman_id};
|
| ... | ... | |
| 1751 | 1755 |
my $locale = $main::locale; |
| 1752 | 1756 |
|
| 1753 | 1757 |
check_oe_access(); |
| 1758 |
$form->mtime_ischanged('oe');
|
|
| 1759 |
|
|
| 1754 | 1760 |
$main::auth->assert('purchase_order_edit');
|
| 1755 | 1761 |
|
| 1756 | 1762 |
$form->{sales_order_to_purchase_order} = 0;
|
| ... | ... | |
| 1788 | 1794 |
my $locale = $main::locale; |
| 1789 | 1795 |
|
| 1790 | 1796 |
check_oe_access(); |
| 1797 |
|
|
| 1798 |
$form->mtime_ischanged('oe');
|
|
| 1791 | 1799 |
$main::auth->assert('sales_order_edit');
|
| 1792 | 1800 |
|
| 1793 | 1801 |
if ($form->{type} eq "purchase_order") {
|
| ... | ... | |
| 1878 | 1886 |
my $form = $main::form; |
| 1879 | 1887 |
my %myconfig = %main::myconfig; |
| 1880 | 1888 |
|
| 1889 |
$form->mtime_ischanged('oe');
|
|
| 1890 |
|
|
| 1881 | 1891 |
if ($form->{type} =~ /^sales/) {
|
| 1882 | 1892 |
$main::auth->assert('sales_delivery_order_edit');
|
| 1883 | 1893 |
|
| ... | ... | |
| 1934 | 1944 |
$main::lxdebug->enter_sub(); |
| 1935 | 1945 |
|
| 1936 | 1946 |
my $form = $main::form; |
| 1947 |
my $locale = $main::locale; |
|
| 1937 | 1948 |
|
| 1938 | 1949 |
check_oe_access(); |
| 1939 | 1950 |
|
| 1951 |
$form->mtime_ischanged('oe','mail');
|
|
| 1940 | 1952 |
$form->{print_and_save} = 1;
|
| 1941 | 1953 |
|
| 1942 | 1954 |
my $saved_form = save_form(); |
Auch abrufbar als: Unified diff
Prüfen beim Speichern, ob Dokument geändert wurde.
Allgemeine Funktion in Forms zum Lesen und Vergleichen der mtime
überall Form variable lastmtime da mtime mehrfach auftaucht
Conflicts:
templates/webpages/ar/form_header.html
templates/webpages/do/form_header.html