Revision 2827b2dc
Von Moritz Bunkus vor etwa 14 Jahren hinzugefügt
| bin/mozilla/common.pl | ||
|---|---|---|
| 692 | 692 |
sub sales_invoice {
|
| 693 | 693 |
$main::lxdebug->enter_sub(); |
| 694 | 694 |
|
| 695 |
$main::auth->assert('invoice_edit');
|
|
| 696 |
|
|
| 697 |
my $form = $main::form; |
|
| 698 |
my %myconfig = %main::myconfig; |
|
| 699 |
my $locale = $main::locale; |
|
| 700 |
|
|
| 701 |
$form->{script} = 'is.pl';
|
|
| 702 |
my $script = "is"; |
|
| 703 |
$form->{type} = "invoice";
|
|
| 704 |
$locale = new Locale "$myconfig{countrycode}", "$script";
|
|
| 705 |
|
|
| 706 |
require "bin/mozilla/$form->{script}";
|
|
| 707 |
&add; |
|
| 695 |
print $::form->redirect_header('is.pl?action=add&type=invoice');
|
|
| 708 | 696 |
|
| 709 | 697 |
$main::lxdebug->leave_sub(); |
| 710 | 698 |
} |
| ... | ... | |
| 712 | 700 |
sub ar_transaction {
|
| 713 | 701 |
$main::lxdebug->enter_sub(); |
| 714 | 702 |
|
| 715 |
$main::auth->assert('general_ledger');
|
|
| 716 |
|
|
| 717 |
my $form = $main::form; |
|
| 718 |
my %myconfig = %main::myconfig; |
|
| 719 |
my $locale = $main::locale; |
|
| 720 |
|
|
| 721 |
$form->{script} = 'ar.pl';
|
|
| 722 |
my $script = "ar"; |
|
| 723 |
$locale = new Locale "$myconfig{countrycode}", "$script";
|
|
| 724 |
|
|
| 725 |
require "bin/mozilla/$form->{script}";
|
|
| 726 |
&add; |
|
| 703 |
print $::form->redirect_header('ar.pl?action=add');
|
|
| 727 | 704 |
|
| 728 | 705 |
$main::lxdebug->leave_sub(); |
| 729 | 706 |
} |
| ... | ... | |
| 731 | 708 |
sub vendor_invoice {
|
| 732 | 709 |
$main::lxdebug->enter_sub(); |
| 733 | 710 |
|
| 734 |
$main::auth->assert('invoice_edit');
|
|
| 735 |
|
|
| 736 |
my $form = $main::form; |
|
| 737 |
my %myconfig = %main::myconfig; |
|
| 738 |
my $locale = $main::locale; |
|
| 739 |
|
|
| 740 |
$form->{script} = 'ir.pl';
|
|
| 741 |
my $script = "ir"; |
|
| 742 |
$form->{type} = "invoice";
|
|
| 743 |
$locale = new Locale "$myconfig{countrycode}", "$script";
|
|
| 744 |
|
|
| 745 |
require "bin/mozilla/$form->{script}";
|
|
| 746 |
&add; |
|
| 711 |
print $::form->redirect_header('ir.pl?action=add&type=invoice');
|
|
| 747 | 712 |
|
| 748 | 713 |
$main::lxdebug->leave_sub(); |
| 749 | 714 |
} |
| ... | ... | |
| 751 | 716 |
sub ap_transaction {
|
| 752 | 717 |
$main::lxdebug->enter_sub(); |
| 753 | 718 |
|
| 754 |
$main::auth->assert('general_ledger');
|
|
| 755 |
|
|
| 756 |
my $form = $main::form; |
|
| 757 |
my %myconfig = %main::myconfig; |
|
| 758 |
my $locale = $main::locale; |
|
| 759 |
|
|
| 760 |
$form->{script} = 'ap.pl';
|
|
| 761 |
my $script = "ap"; |
|
| 762 |
$locale = new Locale "$myconfig{countrycode}", "$script";
|
|
| 763 |
|
|
| 764 |
require "bin/mozilla/$form->{script}";
|
|
| 765 |
&add; |
|
| 719 |
print $::form->redirect_header('ap.pl?action=add');
|
|
| 766 | 720 |
|
| 767 | 721 |
$main::lxdebug->leave_sub(); |
| 768 | 722 |
} |
| ... | ... | |
| 770 | 724 |
sub gl_transaction {
|
| 771 | 725 |
$main::lxdebug->enter_sub(); |
| 772 | 726 |
|
| 773 |
$main::auth->assert('general_ledger');
|
|
| 774 |
|
|
| 775 |
my $form = $main::form; |
|
| 776 |
my %myconfig = %main::myconfig; |
|
| 777 |
my $locale = $main::locale; |
|
| 778 |
|
|
| 779 |
$form->{script} = 'gl.pl';
|
|
| 780 |
my $script = "gl"; |
|
| 781 |
$locale = new Locale "$myconfig{countrycode}", "$script";
|
|
| 782 |
|
|
| 783 |
require "bin/mozilla/$form->{script}";
|
|
| 784 |
&add; |
|
| 727 |
print $::form->redirect_header('gl.pl?action=add');
|
|
| 785 | 728 |
|
| 786 | 729 |
$main::lxdebug->leave_sub(); |
| 787 | 730 |
} |
Auch abrufbar als: Unified diff
Buttons zum Neuerfassen über HTTP-Redirect realisiert