- if ($form->{type} eq "sales_quotation") {
- ($path, $number) = ("angebote", $form->{quonumber});
- } elsif ($form->{type} eq "sales_order") {
- ($path, $number) = ("bestellungen", $form->{ordnumber});
- } elsif ($form->{type} eq "request_quotation") {
- ($path, $number) = ("anfragen", $form->{quonumber});
- } elsif ($form->{type} eq "purchase_order") {
- ($path, $number) = ("lieferantenbestellungen", $form->{ordnumber});
- } elsif ($form->{type} eq "sales_delivery_order") {
- ($path, $number) = ("verkaufslieferscheine", $form->{donumber});
- } elsif ($form->{type} eq "purchase_delivery_order") {
- ($path, $number) = ("einkaufslieferscheine", $form->{donumber});
- } elsif ($form->{type} eq "credit_note") {
- ($path, $number) = ("gutschriften", $form->{invnumber});
- } elsif ($form->{vc} eq "customer") {
- ($path, $number) = ("rechnungen", $form->{invnumber});
- } elsif ($form->{vc} eq "vendor") {
- ($path, $number) = ("einkaufsrechnungen", $form->{invnumber});
- } else {
- # wir befinden uns nicht in einer belegmaske
- # scheinbar wird diese routine auch bspw. bei waren
- # aufgerufen - naja, steuerung über Form.pm halt ...
- $main::lxdebug->leave_sub();
- return undef;
- }