X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Foe.pl;h=32fe7a11fb6d7402a5dd1dd248f435f13dab1b72;hb=f06a2509037f88f8361d989b1bc638665c367558;hp=dbb74a9f9ec674876a96cf94b45cef7cdb860e69;hpb=626e02403cbcee241b2be41f3c2d827663864523;p=kivitendo-erp.git diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl index dbb74a9f9..32fe7a11f 100644 --- a/bin/mozilla/oe.pl +++ b/bin/mozilla/oe.pl @@ -31,40 +31,78 @@ # Quotation module #====================================================================== +use POSIX qw(strftime); + use SL::OE; use SL::IR; use SL::IS; use SL::PE; +use SL::ReportGenerator; +use List::Util qw(max); -require "$form->{path}/io.pl"; -require "$form->{path}/arap.pl"; +require "bin/mozilla/io.pl"; +require "bin/mozilla/arap.pl"; +require "bin/mozilla/reportgenerator.pl"; 1; # end of main -sub add { +# For locales.pl: +# $locale->text('Edit the purchase_order'); +# $locale->text('Edit the sales_order'); +# $locale->text('Edit the request_quotation'); +# $locale->text('Edit the sales_quotation'); + +# $locale->text('Workflow purchase_order'); +# $locale->text('Workflow sales_order'); +# $locale->text('Workflow request_quotation'); +# $locale->text('Workflow sales_quotation'); + +sub set_headings { $lxdebug->enter_sub(); + my ($action) = @_; + if ($form->{type} eq 'purchase_order') { - $form->{title} = $locale->text('Add Purchase Order'); - $form->{vc} = 'vendor'; + $form->{title} = $action eq "edit" ? + $locale->text('Edit Purchase Order') : + $locale->text('Add Purchase Order'); + $form->{heading} = $locale->text('Purchase Order'); + $form->{vc} = 'vendor'; } if ($form->{type} eq 'sales_order') { - $form->{title} = $locale->text('Add Sales Order'); - $form->{vc} = 'customer'; + $form->{title} = $action eq "edit" ? + $locale->text('Edit Sales Order') : + $locale->text('Add Sales Order'); + $form->{heading} = $locale->text('Sales Order'); + $form->{vc} = 'customer'; } if ($form->{type} eq 'request_quotation') { - $form->{title} = $locale->text('Add Request for Quotation'); - $form->{vc} = 'vendor'; + $form->{title} = $action eq "edit" ? + $locale->text('Edit Request for Quotation') : + $locale->text('Add Request for Quotation'); + $form->{heading} = $locale->text('Request for Quotation'); + $form->{vc} = 'vendor'; } if ($form->{type} eq 'sales_quotation') { - $form->{title} = $locale->text('Add Quotation'); - $form->{vc} = 'customer'; + $form->{title} = $action eq "edit" ? + $locale->text('Edit Quotation') : + $locale->text('Add Quotation'); + $form->{heading} = $locale->text('Quotation'); + $form->{vc} = 'customer'; } + $lxdebug->leave_sub(); +} + +sub add { + $lxdebug->enter_sub(); + + set_headings("add"); + $form->{callback} = - "$form->{script}?action=add&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&path=$form->{path}&password=$form->{password}" + "$form->{script}?action=add&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}" unless $form->{callback}; &order_links; @@ -76,46 +114,46 @@ sub add { sub edit { $lxdebug->enter_sub(); + # show history button + $form->{javascript} = qq||; + #/show hhistory button + + $form->{simple_save} = 0; + + set_headings("edit"); # editing without stuff to edit? try adding it first - if ($form->{rowcount}) { - map {$id++ if $form->{"id_$_"}} (1 .. $form->{rowcount}); + if ($form->{rowcount} && !$form->{print_and_save}) { + map { $id++ if $form->{"multi_id_$_"} } (1 .. $form->{rowcount}); if (!$id) { + # reset rowcount undef $form->{rowcount}; &add; + $lxdebug->leave_sub(); return; } - } else { - if (!$form->{id}) { - &add; - return; - } + } elsif (!$form->{id}) { + &add; + $lxdebug->leave_sub(); + return; } - if ($form->{type} eq 'purchase_order') { - $form->{title} = $locale->text('Edit Purchase Order'); - $form->{heading} = $locale->text('Purchase Order'); - $form->{vc} = 'vendor'; - } - if ($form->{type} eq 'sales_order') { - $form->{title} = $locale->text('Edit Sales Order'); - $form->{heading} = $locale->text('Sales Order'); - $form->{vc} = 'customer'; - } - if ($form->{type} eq 'request_quotation') { - $form->{title} = $locale->text('Edit Request for Quotation'); - $form->{heading} = $locale->text('Request for Quotation'); - $form->{vc} = 'vendor'; - } - if ($form->{type} eq 'sales_quotation') { - $form->{title} = $locale->text('Edit Quotation'); - $form->{heading} = $locale->text('Quotation'); - $form->{vc} = 'customer'; + if ($form->{print_and_save}) { + $form->{action} = "print"; + $form->{resubmit} = 1; + $language_id = $form->{language_id}; + $printer_id = $form->{printer_id}; } + set_headings("edit"); + &order_links; &prepare_order; + if ($form->{print_and_save}) { + $form->{language_id} = $language_id; + $form->{printer_id} = $printer_id; + } &display_form; $lxdebug->leave_sub(); @@ -123,26 +161,44 @@ sub edit { sub order_links { $lxdebug->enter_sub(); - # get customer/vendor $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP"); # retrieve order/quotation - $form->{webdav} = $webdav; + $form->{webdav} = $webdav; + $form->{jsscript} = 1; - - # set jscalendar - $form->{jscalendar} = $jscalendar; + my $editing = $form->{id}; OE->retrieve(\%myconfig, \%$form); + if ($form->{payment_id}) { + $payment_id = $form->{payment_id}; + } + if ($form->{language_id}) { + $language_id = $form->{language_id}; + } + if ($form->{taxzone_id}) { + $taxzone_id = $form->{taxzone_id}; + } + + $salesman_id = $form->{salesman_id} if ($editing); + + # if multiple rowcounts (== collective order) then check if the - # there were more than one customer (in that case OE::retrieve removes + # there were more than one customer (in that case OE::retrieve removes # the content from the field) - if ($form->{rowcount} && $form->{type} eq 'sales_order' && $form->{customer} eq '') { -# $main::lxdebug->message(0, "Detected Edit order with concurrent customers"); - $form->error($locale->text('Collective Orders only work for orders from one customer!')); + if ( $form->{rowcount} + && $form->{type} eq 'sales_order' + && defined $form->{customer} + && $form->{customer} eq '') { + + # $main::lxdebug->message(0, "Detected Edit order with concurrent customers"); + $form->error( + $locale->text( + 'Collective Orders only work for orders from one customer!') + ); } $taxincluded = $form->{taxincluded}; @@ -158,15 +214,36 @@ sub order_links { $intnotes = $form->{intnotes}; # get customer / vendor - if ($form->{type} =~ /(purchase_order|request_quotation|receive_order)/) { + if ($form->{type} =~ /(purchase_order|request_quotation)/) { IR->get_vendor(\%myconfig, \%$form); + + #quote all_vendor Bug 133 + foreach $ref (@{ $form->{all_vendor} }) { + $ref->{name} = $form->quote($ref->{name}); + } + } - if ($form->{type} =~ /(sales|ship)_(order|quotation)/) { + if ($form->{type} =~ /sales_(order|quotation)/) { IS->get_customer(\%myconfig, \%$form); + + #quote all_vendor Bug 133 + foreach $ref (@{ $form->{all_customer} }) { + $ref->{name} = $form->quote($ref->{name}); + } + } $form->{cp_id} = $cp_id; - $form->{intnotes} = $intnotes; + if ($payment_id) { + $form->{payment_id} = $payment_id; + } + if ($language_id) { + $form->{language_id} = $language_id; + } + if ($taxzone_id) { + $form->{taxzone_id} = $taxzone_id; + } + $form->{intnotes} = $intnotes if $intnotes; ($form->{ $form->{vc} }) = split /--/, $form->{ $form->{vc} }; $form->{"old$form->{vc}"} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|; @@ -175,18 +252,11 @@ sub order_links { if (@{ $form->{"all_$form->{vc}"} }) { $form->{ $form->{vc} } = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|; - map { $form->{"select$form->{vc}"} .= "$_->{name}--$_->{id}\n" } + map { $form->{"select$form->{vc}"} .= +"$_->{name}--$_->{id}\n" } (@{ $form->{"all_$form->{vc}"} }); } - # currencies - @curr = split /:/, $form->{currencies}; - chomp $curr[0]; - $form->{defaultcurrency} = $curr[0]; - $form->{currency} = $form->{defaultcurrency} unless $form->{currency}; - - map { $form->{selectcurrency} .= "$_\n" } @curr; - $form->{taxincluded} = $taxincluded if ($form->{id}); # departments @@ -196,59 +266,58 @@ sub order_links { map { $form->{selectdepartment} .= - "$_->{description}--$_->{id}\n" + "$_->{description}--$_->{id}\n" } (@{ $form->{all_departments} }); } $form->{employee} = "$form->{employee}--$form->{employee_id}"; - # sales staff - if (@{ $form->{all_employees} }) { - $form->{selectemployee} = ""; - map { $form->{selectemployee} .= "$_->{name}--$_->{id}\n" } - (@{ $form->{all_employees} }); - } - # forex $form->{forex} = $form->{exchangerate}; + $form->{salesman_id} = $salesman_id if ($editing); + $lxdebug->leave_sub(); } sub prepare_order { $lxdebug->enter_sub(); - $form->{format} = "html"; - $form->{media} = "screen"; - $form->{formname} = $form->{type}; + $form->{formname} = $form->{type} unless $form->{formname}; - map { $form->{$_} =~ s/\"/"/g } - qw(ordnumber quonumber shippingpoint shipvia notes intnotes shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact); + my $i = 0; + foreach $ref (@{ $form->{form_details} }) { + $form->{rowcount} = ++$i; - foreach $ref (@{ $form->{form_details} }) { - $form->{rowcount} = ++$i; - - map { $form->{"${_}_$i"} = $ref->{$_} } keys %{$ref}; - } - - for my $i (1 .. $form->{rowcount}) { - $form->{"discount_$i"} = + map { $form->{"${_}_$i"} = $ref->{$_} } keys %{$ref}; + } + for my $i (1 .. $form->{rowcount}) { + if ($form->{id}) { + $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100); + } else { + $form->{"discount_$i"} = + $form->format_amount(\%myconfig, $form->{"discount_$i"}); + } + ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; - ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/); - $dec = length $dec; - $decimalplaces = ($dec > 2) ? $dec : 2; + # copy reqdate from deliverydate for invoice -> order conversion + $form->{"reqdate_$i"} = $form->{"deliverydate_$i"} + unless $form->{"reqdate_$i"}; - $form->{"sellprice_$i"} = - $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, - $decimalplaces); - - (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/); - $dec_qty = length $dec_qty; - $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty); + $form->{"sellprice_$i"} = + $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, + $decimalplaces); - map { $form->{"${_}_$i"} =~ s/\"/"/g } - qw(partnumber description unit); - } + (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/); + $dec_qty = length $dec_qty; + $form->{"qty_$i"} = + $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty); + + map { $form->{"${_}_$i"} =~ s/\"/"/g } + qw(partnumber description unit); + } $lxdebug->leave_sub(); } @@ -256,133 +325,297 @@ sub prepare_order { sub form_header { $lxdebug->enter_sub(); - $checkedopen = ($form->{closed}) ? "" : "checked"; - $checkedclosed = ($form->{closed}) ? "checked" : ""; + my $checkedclosed = $form->{"closed"} ? "checked" : ""; + my $checkeddelivered = $form->{"delivered"} ? "checked" : ""; + + $form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id}; + $form->{salesman_id} = $form->{old_salesman_id} if $form->{old_salesman_id}; + + $form->{defaultcurrency} = $form->get_default_currency(\%myconfig); + + $form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id}; + $form->{salesman_id} = $form->{old_salesman_id} if $form->{old_salesman_id}; + + map { $form->{$_} =~ s/\"/"/g } + qw(ordnumber quonumber shippingpoint shipvia notes intnotes shiptoname + shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact + shiptophone shiptofax shiptodepartment_1 shiptodepartment_2); # use JavaScript Calendar or not - $form->{jsscript} = $form->{jscalendar}; + $form->{jsscript} = 1; $jsscript = ""; - if ($form->{jsscript}) { - - # with JavaScript Calendar - $button1 = qq| - {transdate}> - text('button') . qq|> - |; - $button2 = qq| - {reqdate}> - text('button') . qq|> - |; - - #write Trigger - $jsscript = - Form->write_trigger(\%myconfig, "2", "transdate", "BL", "trigger1", - "reqdate", "BL", "trigger2"); + $button1 = qq| + + text('button') . qq|> + |; + $button2 = qq| + + text('button') . qq|> + |; - } else { + #write Trigger + $jsscript = Form->write_trigger(\%myconfig, "2", "transdate", "BL", "trigger1", "reqdate", "BL", "trigger2"); + + my @tmp; - # without JavaScript Calendar - $button1 = qq| - {transdate}>|; - $button2 = qq| - {reqdate}>|; + if (($form->{"type"} eq "sales_order") || + ($form->{"type"} eq "purchase_order")) { + push(@tmp, qq| + | . $locale->text('Delivered') . qq||); } if ($form->{id}) { - $openclosed = qq| - - - - - | - . $locale->text('Open') . qq| - | - . $locale->text('Closed') . qq| - - - - -|; + push(@tmp, qq| + | . $locale->text('Closed') . qq||); + } + + if (@tmp) { + $openclosed .= qq| + | . join("\n", @tmp) . qq| + + \n|; } # set option selected - foreach $item ($form->{vc}, currency, department, employee, contact) { + foreach $item ($form->{vc}, currency, department, ($form->{vc} eq "customer" ? customer : vendor)) { $form->{"select$item"} =~ s/ selected//; - $form->{"select$item"} =~ - s/option>\Q$form->{$item}\E/option selected>$form->{$item}/; + $form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/; } - #build contacts - if ($form->{all_contacts}) { + #quote select[customer|vendor] Bug 133 + $form->{"select$form->{vc}"} = $form->quote($form->{"select$form->{vc}"}); - $form->{selectcontact} = ""; - foreach $item (@{ $form->{all_contacts} }) { - if ($form->{cp_id} == $item->{cp_id}) { - $form->{selectcontact} .= - "$item->{cp_name}--$item->{cp_id}"; - } else { - $form->{selectcontact} .= "$item->{cp_name}--$item->{cp_id}"; - } + #substitute \n and \r to \s (bug 543) + $form->{"select$form->{vc}"} =~ s/[\n\r]/ /g; + + my @old_project_ids = ($form->{"globalproject_id"}); + map({ push(@old_project_ids, $form->{"project_id_$_"}) + if ($form->{"project_id_$_"}); } (1..$form->{"rowcount"})); + + my $vc = $form->{vc} eq "customer" ? "customers" : "vendors"; + $form->get_lists("contacts" => "ALL_CONTACTS", + "shipto" => "ALL_SHIPTO", + "projects" => { + "key" => "ALL_PROJECTS", + "all" => 0, + "old_id" => \@old_project_ids + }, + "employees" => "ALL_EMPLOYEES", + "salesmen" => "ALL_SALESMEN", + "taxzones" => "ALL_TAXZONES", + "payments" => "ALL_PAYMENTS", + "currencies" => "ALL_CURRENCIES", + $vc => "ALL_" . uc($vc), + "price_factors" => "ALL_PRICE_FACTORS"); + + my %labels; + my @values = (undef); + foreach my $item (@{ $form->{"ALL_CONTACTS"} }) { + push(@values, $item->{"cp_id"}); + $labels{$item->{"cp_id"}} = $item->{"cp_name"} . ($item->{"cp_abteilung"} ? " ($item->{cp_abteilung})" : ""); + } + + my $contact; + if (scalar @values > 1) { + $contact = qq| + + | . $locale->text('Contact Person') . qq| + | . + NTI($cgi->popup_menu('-name' => 'cp_id', '-values' => \@values, '-style' => 'width: 250px', + '-labels' => \%labels, '-default' => $form->{"cp_id"})) + . qq| + + |; + } + + %labels = (); + @values = (); + + foreach my $item (@{ $form->{($form->{vc} eq "customer" ? "ALL_CUSTOMERS" : "ALL_VENDORS")}}) { + push(@values, $item->{"name"}.qq|--|.$item->{"id"}); + $labels{$item->{"name"}.qq|--|.$item->{"id"}} = $item->{name}; + } + + $vc = qq| + {vc}_id"}) . qq|"> + {vc}"}) . qq|"> + | . $locale->text(ucfirst($form->{vc})) . qq| + | . + (($myconfig{vclimit} <= scalar(@values)) + ? qq|{vc}"} =~ /^(.*)\-\-.*$/)) . qq|" name="$form->{vc}">| + : (NTI($cgi->popup_menu('-name' => "$form->{vc}", '-default' => $form->{"old$form->{vc}"}, + '-onChange' => 'document.getElementById(\'update_button\').click();', + '-values' => \@values, '-labels' => \%labels, '-style' => 'width: 250px')))) . qq| + + {vc}"}) . qq|">|; + + if ($form->{vc} eq 'customer') { + $vc .= qq||; + } + + %labels = (); + @values = (""); + foreach my $item (@{ $form->{"ALL_PAYMENTS"} }) { + push(@values, $item->{"id"}); + $labels{$item->{"id"}} = $item->{"description"}; + } + + $payments = qq| + | . $locale->text('Payment Terms') . qq| + | . + NTI($cgi->popup_menu('-name' => 'payment_id', '-values' => \@values, '-style' => 'width: 250px', + '-labels' => \%labels, '-default' => $form->{payment_id})) + . qq||; + + %labels = (); + @values = (""); + foreach my $item (@{ $form->{"ALL_SHIPTO"} }) { + push(@values, $item->{"shipto_id"}); + $labels{$item->{"shipto_id"}} = join "; ", grep { $_ } map { $item->{"shipto${_}" } } qw(name department_1 street city); + } + + my $shipto; + if (scalar @values > 1) { + $shipto = qq| + + | . $locale->text('Shipping Address') . qq| + | . + NTI($cgi->popup_menu('-name' => 'shipto_id', '-values' => \@values, '-style' => 'width: 250px', + '-labels' => \%labels, '-default' => $form->{"shipto_id"})) + . qq||; + } + + %labels = (); + @values = (""); + foreach my $item (@{ $form->{"ALL_PROJECTS"} }) { + push(@values, $item->{"id"}); + $labels{$item->{"id"}} = $item->{"projectnumber"}; + } + my $globalprojectnumber = NTI($cgi->popup_menu('-name' => 'globalproject_id', '-values' => \@values, + '-labels' => \%labels, + '-default' => $form->{"globalproject_id"})); + + my $salesmen = ""; + %labels = (); + @values = (); + if ($form->{type} =~ /^sales_/) { + foreach my $item (@{ $form->{"ALL_SALESMEN"} }) { + push(@values, $item->{"id"}); + $labels{$item->{"id"}} = ($item->{"name"} ne "" ? $item->{"name"} : $item->{"login"}); } + $salesmen = + qq| + | . $locale->text('Salesman') . qq| + | . + NTI($cgi->popup_menu('-name' => 'salesman_id', '-default' => $form->{"salesman_id"} ? $form->{"salesman_id"} : $form->{"employee_id"}, + '-values' => \@values, '-labels' => \%labels)) + . qq| + |; + } + + %labels = (); + @values = (); + foreach my $item (@{ $form->{"ALL_EMPLOYEES"} }) { + push(@values, $item->{"id"}); + $labels{$item->{"id"}} = $item->{"name"} ne "" ? $item->{"name"} : $item->{"login"}; + } + + my $employee = qq| + + | . $locale->text('Employee') . qq| + | . + NTI($cgi->popup_menu('-name' => 'employee_id', '-default' => $form->{"employee_id"}, + '-values' => \@values, '-labels' => \%labels)) . qq| + + |; + + %labels = (); + @values = (); + foreach my $item (@{ $form->{"ALL_TAXZONES"} }) { + push(@values, $item->{"id"}); + $labels{$item->{"id"}} = $item->{"description"}; } - $form->{exchangerate} = - $form->format_amount(\%myconfig, $form->{exchangerate}); + $taxzone = qq| + + | . $locale->text('Steuersatz') . qq| + | . + NTI($cgi->popup_menu('-name' => 'taxzone_id', '-default' => $form->{"taxzone_id"}, + '-values' => \@values, '-labels' => \%labels, '-style' => 'width: 250px')) . qq| + + |; + + %labels = (); + @values = (); + my $i = 0; + foreach my $item (@{ $form->{"ALL_CURRENCIES"} }) { + push(@values, $item); + $labels{$item} = $item; + } + + $form->{currency} = $form->{defaultcurrency} unless $form->{currency}; + my $currencies; + if (scalar @values) { + $currencies = qq| + + | . $locale->text('Currency') . qq| + | . + NTI($cgi->popup_menu('-name' => 'currency', '-default' => $form->{"currency"}, + '-values' => \@values, '-labels' => \%labels)) . qq| + + |; + } - $form->{creditlimit} = - $form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0"); - $form->{creditremaining} = - $form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0"); + $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate}); + $form->{exchangerate} = "" unless $form->{exchangerate}; - $contact = - ($form->{selectcontact}) - ? qq|$form->{selectcontact}\n| - : qq||; + $creditwarning = (($form->{creditlimit} != 0) && ($form->{creditremaining} < 0) && !$form->{update}) ? 1 : 0; - $exchangerate = qq| -{forex}> -|; + $form->{creditlimit} = $form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0"); + $form->{creditremaining} = $form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0"); + + $exchangerate = qq|\n{forex}>\n|; if ($form->{currency} ne $form->{defaultcurrency}) { if ($form->{forex}) { $exchangerate .= - qq|| - . $locale->text('Exchangerate') + qq|| . $locale->text('Exchangerate') . qq|$form->{exchangerate} {exchangerate}> |; } else { $exchangerate .= - qq|| - . $locale->text('Exchangerate') + qq|| . $locale->text('Exchangerate') . qq|{exchangerate}>|; } } - $vclabel = ucfirst $form->{vc}; - $vclabel = $locale->text($vclabel); - - $terms = qq| - - | . $locale->text('Terms: Net') . qq| - {terms}> | - . $locale->text('days') . qq| - -|; - if ($form->{business}) { $business = qq| - | . $locale->text('Business') . qq| - $form->{business} - | . $locale->text('Trade Discount') . qq| - | + | . ($form->{vc} eq "customer" ? $locale->text('Customer type') : $locale->text('Vendor type')) . qq| + $form->{business}; | . $locale->text('Trade Discount') . qq| | . $form->format_amount(\%myconfig, $form->{tradediscount} * 100) . qq| % - + +|; + } + + if ($form->{max_dunning_level}) { + $dunning = qq| + + | . $locale->text('Max. Dunning Level') . qq|: + + $form->{max_dunning_level}; + | . $locale->text('Dunning Amount') . qq|: | + . $form->format_amount(\%myconfig, $form->{dunning_amount},2) + . qq| + + |; } @@ -416,26 +649,15 @@ sub form_header { $n = ($form->{creditremaining} =~ /-/) ? "0" : "1"; $creditremaining = qq| - - - - - - | . $locale->text('Credit Limit') . qq| - $form->{creditlimit} - - | . $locale->text('Remaining') . qq| - $form->{creditremaining} - - - + $shipto + + | . $locale->text('Credit Limit') . qq| + $form->{creditlimit}; | . $locale->text('Remaining') . qq| $form->{creditremaining} + |; } else { - $reqlabel = - ($form->{type} eq 'sales_quotation') - ? $locale->text('Valid until') - : $locale->text('Required by'); + $reqlabel = ($form->{type} eq 'sales_quotation') ? $locale->text('Valid until') : $locale->text('Required by'); if ($form->{type} eq 'sales_quotation') { $ordnumber = qq| @@ -454,93 +676,56 @@ sub form_header { |; - $terms = ""; } - $ordnumber .= qq| - - | . $locale->text('Quotation Date') . qq| - $button1 - - - $reqlabel - $button2 - -|; - + $ordnumber .= qq| | . $locale->text('Quotation Date') . qq| $button1 + $reqlabel $button2 \n|; + $creditremaining = qq| $shipto |; } - $vc = - ($form->{"select$form->{vc}"}) - ? qq|{vc}>$form->{"select$form->{vc}"}\n{vc}"}">| - : qq|{vc} value="$form->{$form->{vc}}" size=35>|; - $department = qq| | . $locale->text('Department') . qq| - $form->{selectdepartment} + $form->{selectdepartment} - -| if $form->{selectdepartment}; + | if $form->{selectdepartment}; - $employee = qq| - -|; + $credittext = $locale->text('Credit Limit exceeded!!!'); - if ($form->{type} eq 'sales_order') { - if ($form->{selectemployee}) { - $employee = qq| - {customer_klass}> - - | . $locale->text('Salesperson') . qq| - $form->{selectemployee} - - - -|; - } - } else { - $employee = qq| - {customer_klass}> - - | . $locale->text('Employee') . qq| - $form->{selectemployee} - - - -|; - } + $onload = ($form->{resubmit} && ($form->{format} eq "html")) ? "window.open('about:blank','Beleg'); document.oe.target = 'Beleg';document.oe.submit()" + : ($form->{resubmit}) ? "document.oe.submit()" + : ($creditwarning) ? "alert('$credittext')" + : "focus()"; + + $onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|; + $onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|; + + $form->{javascript} .= qq||; + $form->{javascript} .= qq||; + $form->{javascript} .= qq||; $form->header; print qq| - - -{script}> - -{id}> - -{type}> -{formname}> -{media}> -{format}> + - - - +{script}> -{vc}> - - - -{discount}> -{creditlimit}> -{creditremaining}> + + + + +|; -{tradediscount}> -{business}> - + $form->hide_form(qw(id action type vc formname media format proforma queued printed emailed + title discount creditlimit creditremaining tradediscount business + max_dunning_level dunning_amount shiptoname shiptostreet shiptozipcode + shiptocity shiptocountry shiptocontact shiptophone shiptofax + shiptodepartment_1 shiptodepartment_2 shiptoemail + message email subject cc bcc taxpart taxservice taxaccounts), + map { $_.'_rate', $_.'_description' } split / /, $form->{taxaccounts} ); + print qq| @@ -554,22 +739,15 @@ sub form_header { - $vclabel - $vc - {vc}_id value=$form->{"$form->{vc}_id"}> - {vc}"}"> - | - . $locale->text('Contact Person') . qq| - $contact - + $vc + $contact $creditremaining $business + $dunning + $taxzone $department - | . $locale->text('Currency') . qq| - $form->{selectcurrency} - - {defaultcurrency}> + $currencies $exchangerate @@ -580,14 +758,42 @@ sub form_header { | . $locale->text('Ship via') . qq| - + + | . $locale->text('Transaction description') . qq| + + |; +# +# +# +# +# +# | . $locale->text('Choose Customer') . qq| +# +# +# +# +# +# +# | . $locale->text('Choose Vendor') . qq| +# +# +# +# +# +# +# +print qq| $openclosed $employee + $salesmen $ordnumber - $terms + + | . $locale->text('Project Number') . qq| + $globalprojectnumber + @@ -597,37 +803,8 @@ sub form_header { $jsscript - - - - - - - - - - - - - - - - - - - - - - - |; - foreach $item (split / /, $form->{taxaccounts}) { - print qq| -{"${item}_rate"}> - -|; - } $lxdebug->leave_sub(); } @@ -671,7 +848,8 @@ sub form_footer { $tax .= qq| - $form->{"${item}_description"} + $form->{"${item}_description"} | + . $form->{"${item}_rate"} * 100 .qq|% $form->{"${item}_total"} |; @@ -710,7 +888,8 @@ sub form_footer { $tax .= qq| - Enthaltene $form->{"${item}_description"} + Enthaltene $form->{"${item}_description"} | + . $form->{"${item}_rate"} * 100 .qq|% $form->{"${item}_total"} @@ -742,11 +921,36 @@ sub form_footer { $notes $intnotes - + + $payments + + - + + +|; + + if ($form->{type} =~ /^sales_/) { + print qq| + + | . $locale->text('Ertrag') . qq| + | . $form->format_amount(\%myconfig, $form->{marge_total}, 2, 0) . qq| + + + | . $locale->text('Ertrag prozentual') . qq| + | . $form->format_amount(\%myconfig, $form->{marge_percent}, 2, 0) . qq| % + +|; + } + + print qq| + + + + + $taxincluded - + $subtotal $tax @@ -776,11 +980,11 @@ sub form_footer { Dateiname Webdavlink |; - foreach $file (keys %{ $form->{WEBDAV} }) { + foreach $file (@{ $form->{WEBDAV} }) { $webdav_list .= qq| - $file - $form->{WEBDAV}{$file} + $file->{name} + $file->{type} |; } @@ -794,22 +998,20 @@ sub form_footer { print $webdav_list; } - print qq| -{jscalendar}> -|; + print qq| |; - &print_options; + print_options(); print qq| -Bearbeiten des $form->{heading} -{type}") . qq| + @@ -819,19 +1021,32 @@ Bearbeiten des $form->{heading} . $locale->text('E-mail') . qq|"> + |; - if ($form->{id}) { + if (($form->{id})) { print qq| -Workflow $form->{heading} + + +| . $locale->text("Workflow $form->{type}") . qq| |; - if ($form->{type} =~ /quotation$/) { + if (($form->{type} =~ /sales_quotation$/)) { + print qq| +|; + } + if ($form->{type} =~ /request_quotation$/) { print qq| |; + . $locale->text('Purchase Order') . qq|">|; } print qq| text('Sales Order') . qq|"> + . $locale->text('Request for Quotation') . qq|"> |; } else { @@ -863,21 +1078,9 @@ Bearbeiten des $form->{heading} . $locale->text('Order') . qq|"> |; } - } elsif ($form->{type} =~ /sales_order$/ && $form->{rowcount}) { - print qq| -Workflow $form->{heading} - - -|; } - - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } + $form->hide_form("saved_xyznumber"); print qq| @@ -885,7 +1088,6 @@ Bearbeiten des $form->{heading} -{path}> {login}> {password}> @@ -900,27 +1102,26 @@ Bearbeiten des $form->{heading} sub update { $lxdebug->enter_sub(); - map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } - qw(exchangerate creditlimit creditremaining); + set_headings($form->{"id"} ? "edit" : "add"); + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining); + $form->{update} = 1; + + $payment_id = $form->{payment_id} if $form->{payment_id}; + &check_name($form->{vc}); - - &check_project; - + + $form->{payment_id} = $payment_id if $form->{payment_id} eq ""; + $buysell = 'buy'; $buysell = 'sell' if ($form->{vc} eq 'vendor'); - $form->{exchangerate} = $exchangerate - if ( - $form->{forex} = ( - $exchangerate = - $form->check_exchangerate( - \%myconfig, $form->{currency}, $form->{transdate}, $buysell - ))); + $form->{exchangerate} = $exchangerate if + $form->{forex} = $exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, $buysell); # for pricegroups $i = $form->{rowcount}; - $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1; + $exchangerate = $form->{exchangerate} || 1; if ( ($form->{"partnumber_$i"} eq "") && ($form->{"description_$i"} eq "") @@ -929,20 +1130,20 @@ sub update { $form->{creditremaining} += ($form->{oldinvtotal} - $form->{oldtotalpaid}); &check_form; - } else { + } else { if ( $form->{type} eq 'purchase_order' || $form->{type} eq 'request_quotation') { IR->retrieve_item(\%myconfig, \%$form); } - if ($form->{type} eq 'sales_order' || $form->{type} eq 'sales_quotation') { + if ( $form->{type} eq 'sales_order' + || $form->{type} eq 'sales_quotation') { IS->retrieve_item(\%myconfig, \%$form); } my $rows = scalar @{ $form->{item_list} }; - $form->{"discount_$i"} = - $form->format_amount(\%myconfig, $form->{discount} * 100); + $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{discount} * 100); if ($rows) { $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"}); @@ -954,45 +1155,33 @@ sub update { } else { - $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"}); - - map { $form->{item_list}[$i]{$_} =~ s/\"/"/g } - qw(partnumber description unit); - map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } - keys %{ $form->{item_list}[0] }; + $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"}); + $form->{"discount_$i"} = 0 if $form->{"not_discountable_$i"}; + map { $form->{item_list}[$i]{$_} =~ s/\"/"/g } qw(partnumber description unit); + map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] }; + $form->{payment_id} = $form->{"part_payment_id_$i"} if $form->{"part_payment_id_$i"} ne ""; - $s = ($sellprice) ? $sellprice : $form->{"sellprice_$i"}; + $form->{"marge_price_factor_$i"} = $form->{item_list}->[0]->{price_factor}; - ($dec) = ($s =~ /\.(\d+)/); - $dec = length $dec; - $decimalplaces = ($dec > 2) ? $dec : 2; + ($sellprice || $form->{"sellprice_$i"}) =~ /\.(\d+)/; + $decimalplaces = max 2, length $1; if ($sellprice) { $form->{"sellprice_$i"} = $sellprice; } else { - $form->{"sellprice_$i"} *= (1 - $form->{tradediscount}); - # if there is an exchange rate adjust sellprice - $form->{"sellprice_$i"} /= $exchangerate; + $form->{"sellprice_$i"} /= $exchangerate; # if there is an exchange rate adjust sellprice } - $amount = - $form->{"sellprice_$i"} * $form->{"qty_$i"} * - (1 - $form->{"discount_$i"} / 100); - map { $form->{"${_}_base"} = 0 } (split / /, $form->{taxaccounts}); - map { $form->{"${_}_base"} += $amount } - (split / /, $form->{"taxaccounts_$i"}); - map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } - split / /, $form->{taxaccounts} - if !$form->{taxincluded}; + $amount = $form->{"sellprice_$i"} * $form->{"qty_$i"} * (1 - $form->{"discount_$i"} / 100); + map { $form->{"${_}_base"} = 0 } split / /, $form->{taxaccounts}; + map { $form->{"${_}_base"} += $amount } split / /, $form->{"taxaccounts_$i"}; + map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{taxaccounts} if !$form->{taxincluded}; $form->{creditremaining} -= $amount; - $form->{"sellprice_$i"} = - $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, - $decimalplaces); - $form->{"qty_$i"} = - $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty); + $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces); + $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty); # get pricegroups for parts IS->get_pricegroups_for_parts(\%myconfig, \%$form); @@ -1013,19 +1202,15 @@ sub update { && ($form->{"description_$i"} eq "")) { $form->{rowcount}--; $form->{"discount_$i"} = ""; - &display_form; - } else { + display_form(); + } else { $form->{"id_$i"} = 0; - $form->{"unit_$i"} = $locale->text('ea'); - - &new_item; - + new_item(); } } } - $lxdebug->leave_sub(); } @@ -1039,6 +1224,7 @@ sub search { $ordnumber = 'ordnumber'; $employee = $locale->text('Employee'); } + if ($form->{type} eq 'request_quotation') { $form->{title} = $locale->text('Request for Quotations'); $form->{vc} = 'vendor'; @@ -1046,27 +1232,13 @@ sub search { $ordnumber = 'quonumber'; $employee = $locale->text('Employee'); } - if ($form->{type} eq 'receive_order') { - $form->{title} = $locale->text('Receive Merchandise'); - $form->{vc} = 'vendor'; - $ordlabel = $locale->text('Order Number'); - $ordnumber = 'ordnumber'; - $employee = $locale->text('Employee'); - } + if ($form->{type} eq 'sales_order') { $form->{title} = $locale->text('Sales Orders'); $form->{vc} = 'customer'; $ordlabel = $locale->text('Order Number'); $ordnumber = 'ordnumber'; - $employee = $locale->text('Salesperson'); - } - if ($form->{type} eq 'ship_order') { - $form->{title} = $locale->text('Ship Merchandise'); - $form->{vc} = 'customer'; - $ordlabel = $locale->text('Order Number'); - $ordnumber = 'ordnumber'; - $employee = $locale->text('Salesperson'); - + $employee = $locale->text('Employee'); } if ($form->{type} eq 'sales_quotation') { @@ -1077,55 +1249,17 @@ sub search { $employee = $locale->text('Employee'); } - if ($form->{type} =~ /(ship|receive)_order/) { - OE->get_warehouses(\%myconfig, \%$form); - - # warehouse - if (@{ $form->{all_warehouses} }) { - $form->{selectwarehouse} = "\n"; - $form->{warehouse} = qq|$form->{warehouse}--$form->{warehouse_id}|; - - map { - $form->{selectwarehouse} .= - "$_->{description}--$_->{id}\n" - } (@{ $form->{all_warehouses} }); - - $warehouse = qq| - - | . $locale->text('Warehouse') . qq| - $form->{selectwarehouse} - - -|; - - } - } - # setup vendor / customer selection $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP"); - map { $vc .= "$_->{name}--$_->{id}\n" } - @{ $form->{"all_$form->{vc}"} }; - - $vclabel = ucfirst $form->{vc}; - $vclabel = $locale->text($vclabel); - - # $locale->text('Vendor') - # $locale->text('Customer') - - $vc = - ($vc) - ? qq|{vc}>\n$vc| - : qq|{vc} size=35>|; - # departments if (@{ $form->{all_departments} }) { $form->{selectdepartment} = "\n"; map { $form->{selectdepartment} .= - "$_->{description}--$_->{id}\n" + "$_->{description}--$_->{id}\n" } (@{ $form->{all_departments} }); } @@ -1136,52 +1270,109 @@ sub search { | if $form->{selectdepartment}; - if ($form->{type} !~ /(ship_order|receive_order)/) { - $openclosed = qq| - - | - . $locale->text('Open') . qq| - {closed}> | - . $locale->text('Closed') . qq| - -|; - } else { - - $openclosed = qq| - + my $delivered; + if (($form->{"type"} eq "sales_order") || + ($form->{"type"} eq "purchase_order")) { + $delivered = qq| + + + |. $locale->text('Not delivered') . qq| + + | . $locale->text('Delivered') . qq| + |; } # use JavaScript Calendar or not - $form->{jsscript} = $jscalendar; + $form->{jsscript} = 1; $jsscript = ""; - if ($form->{jsscript}) { - - # with JavaScript Calendar - $button1 = qq| - - text('button') . qq|> - |; - $button2 = qq| - - text('button') . qq|> - |; - - #write Trigger - $jsscript = - Form->write_trigger(\%myconfig, "2", "transdatefrom", "BR", "trigger3", - "transdateto", "BL", "trigger4"); - } else { - # without JavaScript Calendar - $button1 = qq| - |; - $button2 = qq| - |; + $button1 = qq| + + text('button') . qq|> + |; + $button2 = qq| + + text('button') . qq|> + |; + + #write Trigger + $jsscript = + Form->write_trigger(\%myconfig, "2", "transdatefrom", "BR", "trigger3", + "transdateto", "BL", "trigger4"); + + my $vc = $form->{vc} eq "customer" ? "customers" : "vendors"; + + $form->get_lists("projects" => { "key" => "ALL_PROJECTS", + "all" => 1 }, + "employees" => "ALL_EMPLOYEES", + "salesmen" => "ALL_SALESMEN", + $vc => "ALL_" . uc($vc) + ); + + my %labels = (); + my @values = (""); + foreach my $item (@{ $form->{"ALL_PROJECTS"} }) { + push(@values, $item->{"id"}); + $labels{$item->{"id"}} = $item->{"projectnumber"}; + } + my $projectnumber = + NTI($cgi->popup_menu('-name' => 'project_id', '-values' => \@values, + '-labels' => \%labels)); + + #employees + %labels = (); + @values = (""); + foreach my $item (@{ $form->{"ALL_EMPLOYEES"} }) { + push(@values, $item->{"id"}); + $labels{$item->{"id"}} = $item->{"name"} ne "" ? $item->{"name"} : $item->{"login"}; + } + + #salesmen + my %labels_salesmen = (); + my @values_salesmen = (''); + foreach my $item (@{ $form->{"ALL_SALESMEN"} }) { + push(@values_salesmen, $item->{"id"}); + $labels_salesmen{$item->{"id"}} = $item->{"name"} ne "" ? $item->{"name"} : $item->{"login"}; + } + + my $employee_block = qq| + + | . $locale->text('Employee') . qq| + | . + NTI($cgi->popup_menu('-name' => 'employee_id', + '-values' => \@values, + '-labels' => \%labels)) . qq| + + + + | . $locale->text('Salesman') . qq| + | . + NTI($cgi->popup_menu('-name' => 'salesman_id', + '-values' => \@values_salesmen, + '-labels' => \%labels_salesmen)) . qq| + + |; + + %labels = (); + @values = (""); + + foreach my $item (@{ $form->{($form->{vc} eq "customer" ? "ALL_CUSTOMERS" : "ALL_VENDORS")}}) { + push(@values, $item->{name}.qq|--|.$item->{"id"}); + $labels{$item->{name}.qq|--|.$item->{"id"}} = $item->{"name"}; } + my $vc_label = $form->{vc} eq "customer" ? $locale->text('Customer') : $locale->text('Vendor'); + $vc = + $myconfig{vclimit} <= scalar(@values) + ? qq|{vc}"} =~ /^(.*)\-\-.*$/)) . qq|" name="$form->{vc}">| + : NTI($cgi->popup_menu('-name' => "$form->{vc}", + '-default' => $form->{"old$form->{vc}"}, + '-onChange' => 'document.getElementById(\'update_button\').click();', + '-values' => \@values, + '-labels' => \%labels)); $form->header; print qq| @@ -1198,15 +1389,23 @@ sub search { - $vclabel + $vc_label $vc - $warehouse $department $ordlabel + $employee_block + + | . $locale->text('Transaction description') . qq| + + + + | . $locale->text("Project Number") . qq| + $projectnumber + | . $locale->text('From') . qq| $button1 @@ -1218,7 +1417,13 @@ sub search { | . $locale->text('Include in Report') . qq| - $openclosed + + + | . $locale->text("Open") . qq| + + | . $locale->text("Closed") . qq| + + $delivered | . $locale->text('ID') . qq| @@ -1229,8 +1434,9 @@ sub search { . $locale->text('Required by') . qq| - $vclabel + $vc_label $employee + | . $locale->text('Ship via') . qq| @@ -1241,10 +1447,24 @@ sub search { . $locale->text('Tax') . qq| | . $locale->text('Total') . qq| + + + | + . $locale->text('Ertrag') . qq| + | + . $locale->text('Ertrag prozentual') . qq| + + + | + . $locale->text('Project Number') . qq| + | + . $locale->text('Transaction description') . qq| | . $locale->text('Subtotal') . qq| + | + . $locale->text('Salesman') . qq| @@ -1259,7 +1479,6 @@ $jsscript -{path}> {login}> {password}> {vc}> @@ -1276,383 +1495,365 @@ $jsscript $lxdebug->leave_sub(); } -sub orders { +sub create_subtotal_row { $lxdebug->enter_sub(); - # split vendor / customer - ($form->{ $form->{vc} }, $form->{"$form->{vc}_id"}) = - split(/--/, $form->{ $form->{vc} }); + my ($totals, $columns, $column_alignment, $subtotal_columns, $class) = @_; - OE->transactions(\%myconfig, \%$form); + my $row = { map { $_ => { 'data' => '', 'class' => $class, 'align' => $column_alignment->{$_}, } } @{ $columns } }; - $ordnumber = ($form->{type} =~ /_order$/) ? "ordnumber" : "quonumber"; + map { $row->{$_}->{data} = $form->format_amount(\%myconfig, $totals->{$_}, 2) } @{ $subtotal_columns }; - $number = $form->escape($form->{$ordnumber}); - $name = $form->escape($form->{ $form->{vc} }); - $department = $form->escape($form->{department}); - $warehouse = $form->escape($form->{warehouse}); + $row->{tax}->{data} = $form->format_amount(\%myconfig, $totals->{amount} - $totals->{netamount}, 2); - # construct href - $href = - "$form->{script}?path=$form->{path}&action=orders&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}&$ordnumber=$number&$form->{vc}=$name&department=$department&warehouse=$warehouse"; + map { $totals->{$_} = 0 } @{ $subtotal_columns }; - # construct callback - $number = $form->escape($form->{$ordnumber}, 1); - $name = $form->escape($form->{ $form->{vc} }, 1); - $department = $form->escape($form->{department}, 1); - $warehouse = $form->escape($form->{warehouse}, 1); + $lxdebug->leave_sub(); - $callback = - "$form->{script}?path=$form->{path}&action=orders&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}&$ordnumber=$number&$form->{vc}=$name&department=$department&warehouse=$warehouse"; + return $row; +} - @columns = - $form->sort_columns("transdate", "reqdate", "id", "$ordnumber", - "name", "netamount", "tax", "amount", - "curr", "employee", "shipvia", "open", - "closed"); +sub orders { + $lxdebug->enter_sub(); - $form->{l_open} = $form->{l_closed} = "Y" - if ($form->{open} && $form->{closed}); + $ordnumber = ($form->{type} =~ /_order$/) ? "ordnumber" : "quonumber"; - foreach $item (@columns) { - if ($form->{"l_$item"} eq "Y") { - push @column_index, $item; + ($form->{ $form->{vc} }, $form->{"${form->{vc}}_id"}) = split(/--/, $form->{ $form->{vc} }); - # add column to href and callback - $callback .= "&l_$item=Y"; - $href .= "&l_$item=Y"; - } - } + $form->{sort} ||= 'transdate'; + + OE->transactions(\%myconfig, \%$form); + + $form->{rowcount} = scalar @{ $form->{OE} }; + + my @columns = ( + "transdate", "reqdate", + "id", $ordnumber, + "name", "netamount", + "tax", "amount", + "curr", "employee", + "salesman", + "shipvia", "globalprojectnumber", + "transaction_description", "open", + "delivered", "marge_total", "marge_percent" + ); # only show checkboxes if gotten here via sales_order form. - if ($form->{type} =~ /sales_order/) { - unshift @column_index, "ids"; + my $allow_multiple_orders = $form->{type} eq 'sales_order'; + if ($allow_multiple_orders) { + unshift @columns, "ids"; } - if ($form->{l_subtotal} eq 'Y') { - $callback .= "&l_subtotal=Y"; - $href .= "&l_subtotal=Y"; - } + $form->{l_open} = $form->{l_closed} = "Y" if ($form->{open} && $form->{closed}); + $form->{l_delivered} = "Y" if ($form->{delivered} && $form->{notdelivered}); + my $attachment_basename; if ($form->{vc} eq 'vendor') { - if ($form->{type} eq 'receive_order') { - $form->{title} = $locale->text('Receive Merchandise'); - } elsif ($form->{type} eq 'purchase_order') { - $form->{title} = $locale->text('Purchase Orders'); + if ($form->{type} eq 'purchase_order') { + $form->{title} = $locale->text('Purchase Orders'); + $attachment_basename = $locale->text('purchase_order_list'); } else { - $form->{title} = $locale->text('Request for Quotations'); + $form->{title} = $locale->text('Request for Quotations'); + $attachment_basename = $locale->text('rfq_list'); } - $name = $locale->text('Vendor'); - $employee = $locale->text('Employee'); - } - if ($form->{vc} eq 'customer') { + + } else { if ($form->{type} eq 'sales_order') { - $form->{title} = $locale->text('Sales Orders'); - $employee = $locale->text('Salesperson'); - } elsif ($form->{type} eq 'ship_order') { - $form->{title} = $locale->text('Ship Merchandise'); - $employee = $locale->text('Salesperson'); + $form->{title} = $locale->text('Sales Orders'); + $attachment_basename = $locale->text('sales_order_list'); } else { - $form->{title} = $locale->text('Quotations'); - $employee = $locale->text('Employee'); + $form->{title} = $locale->text('Quotations'); + $attachment_basename = $locale->text('quotation_list'); } - $name = $locale->text('Customer'); - } - - $column_header{id} = - qq|| - . $locale->text('ID') - . qq||; - $column_header{transdate} = - qq|| - . $locale->text('Date') - . qq||; - $column_header{reqdate} = - qq|| - . $locale->text('Required by') - . qq||; - $column_header{ordnumber} = - qq|| - . $locale->text('Order') - . qq||; - $column_header{quonumber} = - qq|| - . $locale->text('Quotation') - . qq||; - $column_header{name} = - qq|$name|; - $column_header{netamount} = - qq|| . $locale->text('Amount') . qq||; - $column_header{tax} = - qq|| . $locale->text('Tax') . qq||; - $column_header{amount} = - qq|| . $locale->text('Total') . qq||; - $column_header{curr} = - qq|| . $locale->text('Curr') . qq||; - $column_header{shipvia} = - qq|| - . $locale->text('Ship via') - . qq||; - $column_header{open} = - qq|| . $locale->text('O') . qq||; - $column_header{closed} = - qq|| . $locale->text('C') . qq||; - - $column_header{employee} = - qq|$employee|; - - $column_header{ids} = qq||; - - if ($form->{ $form->{vc} }) { - $option = $locale->text(ucfirst $form->{vc}); - $option .= " : $form->{$form->{vc}}"; - } - if ($form->{warehouse}) { - ($warehouse) = split /--/, $form->{warehouse}; - $option .= "\n" if ($option); - $option .= $locale->text('Warehouse'); - $option .= " : $warehouse"; + } + + my $report = SL::ReportGenerator->new(\%myconfig, $form); + + my @hidden_variables = map { "l_${_}" } @columns; + push @hidden_variables, "l_subtotal", $form->{vc}, qw(l_closed l_notdelivered open closed delivered notdelivered ordnumber quonumber + transaction_description transdatefrom transdateto type vc employee_id salesman_id); + + my $href = build_std_url('action=orders', grep { $form->{$_} } @hidden_variables); + + my %column_defs = ( + 'ids' => { 'text' => '', }, + 'transdate' => { 'text' => $locale->text('Date'), }, + 'reqdate' => { 'text' => $locale->text('Required by'), }, + 'id' => { 'text' => $locale->text('ID'), }, + 'ordnumber' => { 'text' => $locale->text('Order'), }, + 'quonumber' => { 'text' => $form->{type} eq "request_quotation" ? $locale->text('RFQ') : $locale->text('Quotation'), }, + 'name' => { 'text' => $form->{vc} eq 'customer' ? $locale->text('Customer') : $locale->text('Vendor'), }, + 'netamount' => { 'text' => $locale->text('Amount'), }, + 'tax' => { 'text' => $locale->text('Tax'), }, + 'amount' => { 'text' => $locale->text('Total'), }, + 'curr' => { 'text' => $locale->text('Curr'), }, + 'employee' => { 'text' => $locale->text('Employee'), }, + 'salesman' => { 'text' => $locale->text('Salesman'), }, + 'shipvia' => { 'text' => $locale->text('Ship via'), }, + 'globalprojectnumber' => { 'text' => $locale->text('Project Number'), }, + 'transaction_description' => { 'text' => $locale->text('Transaction description'), }, + 'open' => { 'text' => $locale->text('Open'), }, + 'delivered' => { 'text' => $locale->text('Delivered'), }, + 'marge_total' => { 'text' => $locale->text('Ertrag'), }, + 'marge_percent' => { 'text' => $locale->text('Ertrag prozentual'), } + ); + + foreach my $name (qw(id transdate reqdate quonumber ordnumber name employee salesman shipvia)) { + $column_defs{$name}->{link} = $href . "&sort=$name"; + } + + my %column_alignment = map { $_ => 'right' } qw(netamount tax amount curr); + + $form->{"l_type"} = "Y"; + map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns; + $column_defs{ids}->{visible} = $allow_multiple_orders ? 'HTML' : 0; + + $report->set_columns(%column_defs); + $report->set_column_order(@columns); + + $report->set_export_options('orders', @hidden_variables); + + $report->set_sort_indicator($form->{sort}, 1); + + my @options; + if ($form->{customer}) { + push @options, $locale->text('Customer') . " : $form->{customer}"; + } + if ($form->{vendor}) { + push @options, $locale->text('Vendor') . " : $form->{vendor}"; } if ($form->{department}) { - $option .= "\n" if ($option); ($department) = split /--/, $form->{department}; - $option .= $locale->text('Department') . " : $department"; + push @options, $locale->text('Department') . " : $department"; + } + if ($form->{ordnumber}) { + push @options, $locale->text('Order Number') . " : $form->{ordnumber}"; + } + if ($form->{notes}) { + push @options, $locale->text('Notes') . " : $form->{notes}"; + } + if ($form->{transaction_description}) { + push @options, $locale->text('Transaction description') . " : $form->{transaction_description}"; } if ($form->{transdatefrom}) { - $option .= "\n" - . $locale->text('From') . " " - . $locale->date(\%myconfig, $form->{transdatefrom}, 1); + push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1); } if ($form->{transdateto}) { - $option .= "\n" - . $locale->text('Bis') . " " - . $locale->date(\%myconfig, $form->{transdateto}, 1); + push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{transdateto}, 1); } if ($form->{open}) { - $option .= "\n" if ($option); - $option .= $locale->text('Open'); + push @options, $locale->text('Open'); } if ($form->{closed}) { - $option .= "\n" if ($option); - $option .= $locale->text('Closed'); + push @options, $locale->text('Closed'); + } + if ($form->{delivered}) { + push @options, $locale->text('Delivered'); + } + if ($form->{notdelivered}) { + push @options, $locale->text('Not delivered'); } - $form->header; + $report->set_options('top_info_text' => join("\n", @options), + 'raw_top_info_text' => $form->parse_html_template('oe/orders_top'), + 'raw_bottom_info_text' => $form->parse_html_template('oe/orders_bottom', { 'SHOW_CONTINUE_BUTTON' => $allow_multiple_orders }), + 'output_format' => 'HTML', + 'title' => $form->{title}, + 'attachment_basename' => $attachment_basename . strftime('_%Y%m%d', localtime time), + ); + $report->set_options_from_form(); - print qq| - + # add sort and escape callback, this one we use for the add sub + $form->{callback} = $href .= "&sort=$form->{sort}"; - - - - $form->{title} - - - - $option - - - - - |; + # escape callback for href + $callback = $form->escape($href); - map { print "\n$column_header{$_}" } @column_index; + my @subtotal_columns = qw(netamount amount marge_total marge_percent); - print qq| - -|; + my %totals = map { $_ => 0 } @subtotal_columns; + my %subtotals = map { $_ => 0 } @subtotal_columns; - # add sort and escape callback - $callback_escaped = $form->escape($callback . "&sort=$form->{sort}"); + my $idx = 0; - if (@{ $form->{OE} }) { - $sameitem = $form->{OE}->[0]->{ $form->{sort} }; - } + my $edit_url = build_std_url('action=edit', 'type', 'vc'); - $action = "edit"; - $action = "ship_receive" if ($form->{type} =~ /(ship|receive)_order/); + foreach $oe (@{ $form->{OE} }) { + map { $oe->{$_} *= $oe->{exchangerate} } @subtotal_columns; - $warehouse = $form->escape($form->{warehouse}); + $oe->{tax} = $oe->{amount} - $oe->{netamount}; + $oe->{open} = $oe->{closed} ? $locale->text('No') : $locale->text('Yes'); + $oe->{delivered} = $oe->{delivered} ? $locale->text('Yes') : $locale->text('No'); - foreach $oe (@{ $form->{OE} }) { - $form->{rowcount} = ++$j; + map { $subtotals{$_} += $oe->{$_}; + $totals{$_} += $oe->{$_} } @subtotal_columns; - if ($form->{l_subtotal} eq 'Y') { - if ($sameitem ne $oe->{ $form->{sort} }) { - &subtotal; - $sameitem = $oe->{ $form->{sort} }; - } - } + $subtotals{marge_percent} = $subtotals{netamount} ? ($subtotals{marge_total} * 100 / $subtotals{netamount}) : 0; + $totals{marge_percent} = $totals{netamount} ? ($totals{marge_total} * 100 / $totals{netamount} ) : 0; - map { $oe->{$_} *= $oe->{exchangerate} } (qw(netamount amount)); - - $column_data{netamount} = - "" - . $form->format_amount(\%myconfig, $oe->{netamount}, 2, " ") - . ""; - $column_data{tax} = "" - . $form->format_amount(\%myconfig, $oe->{amount} - $oe->{netamount}, - 2, " ") - . ""; - $column_data{amount} = - "" - . $form->format_amount(\%myconfig, $oe->{amount}, 2, " ") . ""; - - $totalnetamount += $oe->{netamount}; - $totalamount += $oe->{amount}; - - $subtotalnetamount += $oe->{netamount}; - $subtotalamount += $oe->{amount}; - - $column_data{ids} = qq||; - $column_data{id} = "$oe->{id}"; - $column_data{transdate} = "$oe->{transdate} "; - $column_data{reqdate} = "$oe->{reqdate} "; - - $column_data{$ordnumber} = - "{path}&action=$action&type=$form->{type}&id=$oe->{id}&warehouse=$warehouse&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&callback=$callback_escaped>$oe->{$ordnumber}"; - $column_data{name} = "$oe->{name}"; - - $column_data{employee} = "$oe->{employee} "; - $column_data{shipvia} = "$oe->{shipvia} "; - - if ($oe->{closed}) { - $column_data{closed} = "X"; - $column_data{open} = " "; - } else { - $column_data{closed} = " "; - $column_data{open} = "X"; + map { $oe->{$_} = $form->format_amount(\%myconfig, $oe->{$_}, 2) } qw(netamount tax amount marge_total marge_percent); + + my $row = { }; + + foreach my $column (@columns) { + next if ($column eq 'ids'); + $row->{$column} = { + 'data' => $oe->{$column}, + 'align' => $column_alignment{$column}, + }; } - $i++; - $i %= 2; - print " - "; + $row->{ids} = { + 'raw_data' => $cgi->hidden('-name' => "trans_id_${idx}", '-value' => $oe->{id}) + . $cgi->checkbox('-name' => "multi_id_${idx}", '-value' => 1, '-label' => ''), + 'valign' => 'center', + 'align' => 'center', + }; - map { print "\n$column_data{$_}" } @column_index; + $row->{$ordnumber}->{link} = $edit_url . "&id=" . E($oe->{id}) . "&callback=${callback}"; - print qq| - -|; + my $row_set = [ $row ]; + + if (($form->{l_subtotal} eq 'Y') + && (($idx == (scalar @{ $form->{OE} } - 1)) + || ($oe->{ $form->{sort} } ne $form->{OE}->[$idx + 1]->{ $form->{sort} }))) { + push @{ $row_set }, create_subtotal_row(\%subtotals, \@columns, \%column_alignment, \@subtotal_columns, 'listsubtotal'); + } + $report->add_data($row_set); + + $idx++; } - if ($form->{l_subtotal} eq 'Y') { - &subtotal; + $report->add_separator(); + $report->add_data(create_subtotal_row(\%totals, \@columns, \%column_alignment, \@subtotal_columns, 'listtotal')); + + $report->generate_with_headers(); + + $lxdebug->leave_sub(); +} + +sub check_delivered_flag { + $lxdebug->enter_sub(); + + if (($form->{type} ne 'sales_order') && ($form->{type} ne 'purchase_order')) { + return $lxdebug->leave_sub(); } - # print totals - print qq| - |; + my $all_delivered = 0; - map { $column_data{$_} = " " } @column_index; + foreach my $i (1 .. $form->{rowcount}) { + next if (!$form->{"id_$i"}); - $column_data{netamount} = - "" - . $form->format_amount(\%myconfig, $totalnetamount, 2, " ") . ""; - $column_data{tax} = "" - . $form->format_amount(\%myconfig, $totalamount - $totalnetamount, - 2, " ") - . ""; - $column_data{amount} = - "" - . $form->format_amount(\%myconfig, $totalamount, 2, " ") . ""; + if ($form->parse_amount(\%myconfig, $form->{"qty_$i"}) == $form->parse_amount(\%myconfig, $form->{"ship_$i"})) { + $all_delivered = 1; + next; + } - map { print "\n$column_data{$_}" } @column_index; + $all_delivered = 0; + last; + } - print qq| - - - - - - - -|; - -# multiple invoice edit button only if gotten there via sales_order form. - -if ($form->{type} =~ /sales_order/) { -print qq| - - - - - - - - - - |; + $form->{delivered} = 1 if $all_delivered; + + $lxdebug->leave_sub(); } -print qq| - +sub save_and_close { + $lxdebug->enter_sub(); - -{script}> + $form->{defaultcurrency} = $form->get_default_currency(\%myconfig); - + if ($form->{type} =~ /_order$/) { + $form->isblank("transdate", $locale->text('Order Date missing!')); + } else { + $form->isblank("transdate", $locale->text('Quotation Date missing!')); + } -{type}> -{vc}> + my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber"; + $form->{$idx} =~ s/^\s*//g; + $form->{$idx} =~ s/\s*$//g; -{path}> -{login}> -{password}> -|; + $msg = ucfirst $form->{vc}; + $form->isblank($form->{vc}, $locale->text($msg . " missing!")); - if ($form->{type} !~ /(ship|receive)_order/) { - print qq| -|; - } + # $locale->text('Customer missing!'); + # $locale->text('Vendor missing!'); + + $form->isblank("exchangerate", $locale->text('Exchangerate missing!')) + if ($form->{currency} ne $form->{defaultcurrency}); - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; + &validate_items; + + if($form->{payment_id}) { + $payment_id = $form->{payment_id}; + } + + # if the name changed get new values + if (&check_name($form->{vc})) { + if($form->{payment_id} eq "") { + $form->{payment_id} = $payment_id; + } + &update; + exit; } - print qq| - + $form->{id} = 0 if $form->{saveasnew}; - - -|; + # this is for the internal notes section for the [email] Subject + if ($form->{type} =~ /_order$/) { + if ($form->{type} eq 'sales_order') { + $form->{label} = $locale->text('Sales Order'); - $lxdebug->leave_sub(); -} + $numberfld = "sonumber"; + $ordnumber = "ordnumber"; + } else { + $form->{label} = $locale->text('Purchase Order'); -sub subtotal { - $lxdebug->enter_sub(); + $numberfld = "ponumber"; + $ordnumber = "ordnumber"; + } + + $err = $locale->text('Cannot save order!'); + + check_delivered_flag(); + + } else { + if ($form->{type} eq 'sales_quotation') { + $form->{label} = $locale->text('Quotation'); + + $numberfld = "sqnumber"; + $ordnumber = "quonumber"; + } else { + $form->{label} = $locale->text('Request for Quotation'); - map { $column_data{$_} = " " } @column_index; + $numberfld = "rfqnumber"; + $ordnumber = "quonumber"; + } - $column_data{netamount} = - "" - . $form->format_amount(\%myconfig, $subtotalnetamount, 2, " ") - . ""; - $column_data{tax} = "" - . $form->format_amount(\%myconfig, $subtotalamount - $subtotalnetamount, - 2, " ") - . ""; - $column_data{amount} = - "" - . $form->format_amount(\%myconfig, $subtotalamount, 2, " ") . ""; + $err = $locale->text('Cannot save quotation!'); - $subtotalnetamount = 0; - $subtotalamount = 0; + } - print " - -"; + # get new number in sequence if no number is given or if saveasnew was requested + if (!$form->{$ordnumber} || $form->{saveasnew}) { + $form->{$ordnumber} = $form->update_defaults(\%myconfig, $numberfld); + } - map { print "\n$column_data{$_}" } @column_index; + relink_accounts(); - print qq| - -|; + $form->error($err) if (!OE->save(\%myconfig, \%$form)); + + # saving the history + if(!exists $form->{addition}) { + $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber}; + $form->{addition} = "SAVED"; + $form->save_history($form->dbconnect(\%myconfig)); + } + # /saving the history + + $form->redirect($form->{label} . " $form->{$ordnumber} " . + $locale->text('saved!')); $lxdebug->leave_sub(); } @@ -1660,12 +1861,19 @@ sub subtotal { sub save { $lxdebug->enter_sub(); + $form->{defaultcurrency} = $form->get_default_currency(\%myconfig); + + if ($form->{type} =~ /_order$/) { $form->isblank("transdate", $locale->text('Order Date missing!')); } else { $form->isblank("transdate", $locale->text('Quotation Date missing!')); } + my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber"; + $form->{$idx} =~ s/^\s*//g; + $form->{$idx} =~ s/\s*$//g; + $msg = ucfirst $form->{vc}; $form->isblank($form->{vc}, $locale->text($msg . " missing!")); @@ -1676,9 +1884,16 @@ sub save { if ($form->{currency} ne $form->{defaultcurrency}); &validate_items; - + + if($form->{payment_id}) { + $payment_id = $form->{payment_id}; + } + # if the name changed get new values if (&check_name($form->{vc})) { + if($form->{payment_id} eq "") { + $form->{payment_id} = $payment_id; + } &update; exit; } @@ -1701,6 +1916,8 @@ sub save { $err = $locale->text('Cannot save order!'); + check_delivered_flag(); + } else { if ($form->{type} eq 'sales_quotation') { $form->{label} = $locale->text('Quotation'); @@ -1721,11 +1938,24 @@ sub save { $form->{$ordnumber} = $form->update_defaults(\%myconfig, $numberfld) unless $form->{$ordnumber}; - $form->redirect( - $form->{label} . " $form->{$ordnumber} " . $locale->text('saved!')) - if (OE->save(\%myconfig, \%$form)); - $form->error($err); + relink_accounts(); + + OE->save(\%myconfig, \%$form); + + # saving the history + if(!exists $form->{addition}) { + $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber}; + $form->{addition} = "SAVED"; + $form->save_history($form->dbconnect(\%myconfig)); + } + # /saving the history + $form->{simple_save} = 1; + if(!$form->{print_and_save}) { + set_headings("edit"); + &update; + exit; + } $lxdebug->leave_sub(); } @@ -1761,8 +1991,11 @@ sub delete { $msg $form->{$ordnumber} + +| + . $locale->text('No') . qq| @@ -1772,7 +2005,7 @@ sub delete { $lxdebug->leave_sub(); } -sub yes { +sub delete_order_quotation { $lxdebug->enter_sub(); if ($form->{type} =~ /_order$/) { @@ -1782,8 +2015,17 @@ sub yes { $msg = $locale->text('Quotation deleted!'); $err = $locale->text('Cannot delete quotation!'); } - - $form->redirect($msg) if (OE->delete(\%myconfig, \%$form, $spool)); + if (OE->delete(\%myconfig, \%$form, $spool)){ + # saving the history + if(!exists $form->{addition}) { + $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber}; + $form->{addition} = "DELETED"; + $form->save_history($form->dbconnect(\%myconfig)); + } + # /saving the history + $form->info($msg); + exit(); + } $form->error($err); $lxdebug->leave_sub(); @@ -1792,27 +2034,45 @@ sub yes { sub invoice { $lxdebug->enter_sub(); + $form->{old_employee_id} = $form->{employee_id}; + $form->{old_salesman_id} = $form->{salesman_id}; + if ($form->{type} =~ /_order$/) { + # these checks only apply if the items don't bring their own ordnumbers/transdates. # The if clause ensures that by searching for empty ordnumber_#/transdate_# fields. - $form->isblank("ordnumber", $locale->text('Order Number missing!')) if ( +{ map { $form->{"ordnumber_$_"}, 1 } ( 1 .. $form->{rowcount}-1 ) }->{''} ); - $form->isblank("transdate", $locale->text('Order Date missing!')) if ( +{ map { $form->{"transdate_$_"}, 1 } ( 1 .. $form->{rowcount}-1 ) }->{''} ); - + $form->isblank("ordnumber", $locale->text('Order Number missing!')) + if (+{ map { $form->{"ordnumber_$_"}, 1 } (1 .. $form->{rowcount} - 1) }->{''}); + $form->isblank("transdate", $locale->text('Order Date missing!')) + if (+{ map { $form->{"transdate_$_"}, 1 } (1 .. $form->{rowcount} - 1) }->{''}); + + # also copy deliverydate from the order + $form->{deliverydate} = $form->{reqdate} if $form->{reqdate}; + $form->{orddate} = $form->{transdate}; } else { $form->isblank("quonumber", $locale->text('Quotation Number missing!')); $form->isblank("transdate", $locale->text('Quotation Date missing!')); - $form->{ordnumber} = ""; + $form->{ordnumber} = ""; + $form->{quodate} = $form->{transdate}; } - + + $payment_id = $form->{payment_id} if $form->{payment_id}; + # if the name changed get new values if (&check_name($form->{vc})) { + $form->{payment_id} = $payment_id if $form->{payment_id} eq ""; &update; exit; } - ($null, $form->{cp_id}) = split /--/, $form->{contact}; $form->{cp_id} *= 1; + for $i (1 .. $form->{rowcount}) { + for (qw(ship qty sellprice listprice basefactor)) { + $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"}; + } + } + if ( $form->{type} =~ /_order/ && $form->{currency} ne $form->{defaultcurrency}) { @@ -1820,9 +2080,7 @@ sub invoice { $buysell = ($form->{type} eq 'sales_order') ? "buy" : "sell"; $orddate = $form->current_date(\%myconfig); - $exchangerate = - $form->check_exchangerate(\%myconfig, $form->{currency}, $orddate, - $buysell); + $exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $orddate, $buysell); if (!$exchangerate) { &backorder_exchangerate($orddate, $buysell); @@ -1833,24 +2091,25 @@ sub invoice { # close orders/quotations $form->{closed} = 1; - # save order iff one ordnumber has been given + # save order if one ordnumber has been given # if not it's most likely a collective order, which can't be saved back # so they just have to be closed - if ($form->{ordnumber} ne '') { - OE->save(\%myconfig, \%$form); + if (($form->{ordnumber} ne '') || ($form->{quonumber} ne '')) { + OE->close_order(\%myconfig, \%$form) if ($form->{id}); } else { OE->close_orders(\%myconfig, \%$form); } $form->{transdate} = $form->{invdate} = $form->current_date(\%myconfig); - $form->{duedate} = - $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1); + $form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1); $form->{id} = ''; $form->{closed} = 0; $form->{rowcount}--; $form->{shipto} = 1; + $form->{defaultcurrency} = $form->get_default_currency(\%myconfig); + if ($form->{type} =~ /_order$/) { $form->{exchangerate} = $exchangerate; &create_backorder; @@ -1863,7 +2122,9 @@ sub invoice { $script = "ir"; $buysell = 'sell'; } - if ($form->{type} eq 'sales_order' || $form->{type} eq 'sales_quotation') { + + if ( $form->{type} eq 'sales_order' + || $form->{type} eq 'sales_quotation') { $form->{title} = $locale->text('Add Sales Invoice'); $form->{script} = 'is.pl'; $script = "is"; @@ -1871,15 +2132,14 @@ sub invoice { } # bo creates the id, reset it - map { delete $form->{$_} } - qw(id subject message cc bcc printed emailed queued); + map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued); $form->{ $form->{vc} } =~ s/--.*//g; $form->{type} = "invoice"; # locale messages $locale = new Locale "$myconfig{countrycode}", "$script"; - require "$form->{path}/$form->{script}"; + require "bin/mozilla/$form->{script}"; map { $form->{"select$_"} = "" } ($form->{vc}, currency); @@ -1913,13 +2173,18 @@ sub invoice { $dec = length $dec; $decimalplaces = ($dec > 2) ? $dec : 2; + # copy delivery date from reqdate for order -> invoice conversion + $form->{"deliverydate_$i"} = $form->{"reqdate_$i"} + unless $form->{"deliverydate_$i"}; + $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces); - + (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/); - $dec_qty = length $dec_qty; - $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty); + $dec_qty = length $dec_qty; + $form->{"qty_$i"} = + $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty); map { $form->{"${_}_$i"} =~ s/\"/"/g } qw(partnumber description unit); @@ -1955,7 +2220,6 @@ sub backorder_exchangerate { print qq| -{path}> {login}> {password}> @@ -2056,6 +2320,8 @@ sub create_backorder { } qw(sellprice discount); } + relink_accounts(); + OE->save(\%myconfig, \%$form); # rebuild rows for invoice @@ -2086,710 +2352,184 @@ sub save_as_new { $form->{closed} = 0; map { delete $form->{$_} } qw(printed emailed queued); + # Let Lx-Office assign a new order number if the user hasn't changed the + # previous one. If it has been changed manually then use it as-is. + my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber"; + $form->{$idx} =~ s/^\s*//g; + $form->{$idx} =~ s/\s*$//g; + if ($form->{saved_xyznumber} && + ($form->{saved_xyznumber} eq $form->{$idx})) { + delete($form->{$idx}); + } + &save; $lxdebug->leave_sub(); } -sub purchase_order { +sub check_for_direct_delivery_yes { $lxdebug->enter_sub(); - $form->{title} = $locale->text('Add Purchase Order'); - $form->{vc} = "vendor"; - $form->{type} = "purchase_order"; + $form->{direct_delivery_checked} = 1; + delete @{$form}{grep /^shipto/, keys %{ $form }}; + map { s/^CFDD_//; $form->{$_} = $form->{"CFDD_${_}"} } grep /^CFDD_/, keys %{ $form }; + $form->{shipto} = 1; + purchase_order(); + $lxdebug->leave_sub(); +} - &poso; +sub check_for_direct_delivery_no { + $lxdebug->enter_sub(); + + $form->{direct_delivery_checked} = 1; + delete @{$form}{grep /^shipto/, keys %{ $form }}; + purchase_order(); $lxdebug->leave_sub(); } -sub sales_order { +sub check_for_direct_delivery { $lxdebug->enter_sub(); - if ( $form->{type} eq 'sales_quotation' - || $form->{type} eq 'request_quotation') { - $form->{closed} = 1; - OE->save(\%myconfig, \%$form); + if ($form->{direct_delivery_checked} + || (!$form->{shiptoname} && !$form->{shiptostreet} && !$form->{shipto_id})) { + $lxdebug->leave_sub(); + return; } - ($null, $form->{cp_id}) = split /--/, $form->{contact}; - $form->{cp_id} *= 1; + if ($form->{shipto_id}) { + Common->get_shipto_by_id(\%myconfig, $form, $form->{shipto_id}, "CFDD_"); - $form->{title} = $locale->text('Add Sales Order'); - $form->{vc} = "customer"; - $form->{type} = "sales_order"; + } else { + map { $form->{"CFDD_${_}"} = $form->{$_ } } grep /^shipto/, keys %{ $form }; + } - &poso; + delete $form->{action}; + $form->{VARIABLES} = [ map { { "key" => $_, "value" => $form->{$_} } } grep { ref $_ eq "" } keys %{ $form } ]; + + $form->header(); + print $form->parse_html_template("oe/check_for_direct_delivery"); $lxdebug->leave_sub(); -} - -sub poso { - $lxdebug->enter_sub(); - - $form->{transdate} = $form->current_date(\%myconfig); - delete $form->{duedate}; - - $form->{closed} = 0; - - # reset - map { delete $form->{$_} } - qw(id subject message cc bcc printed emailed queued customer vendor creditlimit creditremaining discount tradediscount oldinvtotal); - - &order_links; - - &prepare_order; - - # format amounts - for $i (1 .. $form->{rowcount} - 1) { - map { $form->{"${_}_$i"} =~ s/\"/"/g } - qw(partnumber description unit); - } - - map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 0, "0") } - qw(creditlimit creditremaining); - - &update; - $lxdebug->leave_sub(); + exit 0; } -sub ship_receive { +sub purchase_order { $lxdebug->enter_sub(); - &order_links; - - &prepare_order; - - OE->get_warehouses(\%myconfig, \%$form); - - # warehouse - if (@{ $form->{all_warehouses} }) { - $form->{selectwarehouse} = "\n"; - - map { $form->{selectwarehouse} .= "$_->{description}--$_->{id}\n" } - (@{ $form->{all_warehouses} }); - - if ($form->{warehouse}) { - $form->{selectwarehouse} = "$form->{warehouse}"; - } + if ($form->{type} eq 'sales_order') { + check_for_direct_delivery(); } - $form->{shippingdate} = $form->current_date(\%myconfig); - $form->{"$form->{vc}"} =~ s/--.*//; - - @flds = (); - @a = (); - $count = 0; - foreach $key (keys %$form) { - if ($key =~ /_1$/) { - $key =~ s/_1//; - push @flds, $key; - } + if ( $form->{type} eq 'sales_quotation' + || $form->{type} eq 'request_quotation') { + OE->close_order(\%myconfig, \%$form); } - for $i (1 .. $form->{rowcount}) { - - # undo formatting from prepare_order - map { - $form->{"${_}_$i"} = - $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) - } qw(qty ship); - $n = ($form->{"qty_$i"} -= $form->{"ship_$i"}); - if (abs($n) > 0 - && ($form->{"inventory_accno_$i"} || $form->{"assembly_$i"})) { - $form->{"ship_$i"} = ""; - $form->{"serialnumber_$i"} = ""; - - push @a, {}; - $j = $#a; - - map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; - $count++; - } + if ($form->{type} =~ /^sales_/) { + delete($form->{ordnumber}); } - $form->redo_rows(\@flds, \@a, $count, $form->{rowcount}); - $form->{rowcount} = $count; + $form->{cp_id} *= 1; - &display_ship_receive; + $form->{title} = $locale->text('Add Purchase Order'); + $form->{vc} = "vendor"; + $form->{type} = "purchase_order"; + + &poso; $lxdebug->leave_sub(); } -sub display_ship_receive { +sub sales_order { $lxdebug->enter_sub(); - $vclabel = ucfirst $form->{vc}; - $vclabel = $locale->text($vclabel); - - $form->{rowcount}++; - - if ($form->{vc} eq 'customer') { - $form->{title} = $locale->text('Ship Merchandise'); - $shipped = $locale->text('Shipping Date'); - } else { - $form->{title} = $locale->text('Receive Merchandise'); - $shipped = $locale->text('Date Received'); - } - - # set option selected - foreach $item (warehouse, employee) { - $form->{"select$item"} =~ s/ selected//; - $form->{"select$item"} =~ - s/option>\Q$form->{$item}\E/option selected>$form->{$item}/; - } - - $warehouse = qq| - - | . $locale->text('Warehouse') . qq| - $form->{selectwarehouse} - - -| if $form->{selectwarehouse}; - - $employee = qq| - - | . $locale->text('Contact') . qq| - $form->{selectemployee} - - -|; - - $form->header; - - print qq| - - -{script}> - -{id}> - - - -{type}> -{media}> -{format}> - - - - - -{vc}> - - - - $form->{title} - - - - - - - - - - $vclabel - $form->{$form->{vc}} - {vc} value="$form->{$form->{vc}}"> - {"$form->{vc}_id"}> - - $department - - | . $locale->text('Shipping Point') . qq| - - - - - | . $locale->text('Ship via') . qq| - - - - $warehouse - - - - - $employee - - | . $locale->text('Order Number') . qq| - $form->{ordnumber} - - - - | . $locale->text('Order Date') . qq| - $form->{transdate} - {transdate}> - - - $shipped - {shippingdate}> - - - - - - - - - - - - - - - - - - - - - - - - - - - -|; - - @column_index = - (partnumber, description, qty, ship, unit, bin, serialnumber); - - if ($form->{type} eq "ship_order") { - $column_data{ship} = - qq|| - . $locale->text('Ship') - . qq||; - } - if ($form->{type} eq "receive_order") { - $column_data{ship} = - qq|| - . $locale->text('Recd') - . qq||; - } - - my $colspan = $#column_index + 1; - - $column_data{partnumber} = - qq|| . $locale->text('Number') . qq||; - $column_data{description} = - qq|| - . $locale->text('Description') - . qq||; - $column_data{qty} = - qq|| . $locale->text('Qty') . qq||; - $column_data{unit} = - qq|| . $locale->text('Unit') . qq||; - $column_data{bin} = - qq|| . $locale->text('Bin') . qq||; - $column_data{serialnumber} = - qq|| - . $locale->text('Serial No.') - . qq||; - - print qq| - - - - |; - - map { print "\n$column_data{$_}" } @column_index; - - print qq| - -|; - - for $i (1 .. $form->{rowcount} - 1) { - - # undo formatting - $form->{"ship_$i"} = $form->parse_amount(\%myconfig, $form->{"ship_$i"}); - - # convert " to " - map { $form->{"${_}_$i"} =~ s/\"/"/g } - qw(partnumber description unit bin serialnumber); - - $description = $form->{"description_$i"}; - $description =~ s/\n//g; - - $column_data{partnumber} = - qq|$form->{"partnumber_$i"}|; - $column_data{description} = - qq|$description|; - $column_data{qty} = - qq|| - . $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty) - . qq||; - $column_data{ship} = - qq|format_amount(\%myconfig, $form->{"ship_$i"}) - . qq|>|; - $column_data{unit} = - qq|$form->{"unit_$i"}|; - $column_data{bin} = - qq|$form->{"bin_$i"}|; - - $column_data{serialnumber} = - qq||; - - print qq| - |; - - map { print "\n$column_data{$_}" } @column_index; - - print qq| - - -{"orderitems_id_$i"}> -{"id_$i"}> - - - -|; - - } - - print qq| - - - - - - - - -|; - - $form->{copies} = 1; - - &print_options; - - print qq| - - - - - - -|; - - if ($form->{type} eq 'ship_order') { - print qq| - - -|; + if ( $form->{type} eq 'sales_quotation' + || $form->{type} eq 'request_quotation') { + OE->close_order(\%myconfig, $form); } - print qq| - - -|; - - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; + if ($form->{type} eq "purchase_order") { + delete($form->{ordnumber}); } - print qq| - -{rowcount}> - - - -{path}> -{login}> -{password}> + $form->{cp_id} *= 1; - + $form->{title} = $locale->text('Add Sales Order'); + $form->{vc} = "customer"; + $form->{type} = "sales_order"; - -
+ +| + . $locale->text('No') . qq| @@ -1772,7 +2005,7 @@ sub delete { $lxdebug->leave_sub(); } -sub yes { +sub delete_order_quotation { $lxdebug->enter_sub(); if ($form->{type} =~ /_order$/) { @@ -1782,8 +2015,17 @@ sub yes { $msg = $locale->text('Quotation deleted!'); $err = $locale->text('Cannot delete quotation!'); } - - $form->redirect($msg) if (OE->delete(\%myconfig, \%$form, $spool)); + if (OE->delete(\%myconfig, \%$form, $spool)){ + # saving the history + if(!exists $form->{addition}) { + $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber}; + $form->{addition} = "DELETED"; + $form->save_history($form->dbconnect(\%myconfig)); + } + # /saving the history + $form->info($msg); + exit(); + } $form->error($err); $lxdebug->leave_sub(); @@ -1792,27 +2034,45 @@ sub yes { sub invoice { $lxdebug->enter_sub(); + $form->{old_employee_id} = $form->{employee_id}; + $form->{old_salesman_id} = $form->{salesman_id}; + if ($form->{type} =~ /_order$/) { + # these checks only apply if the items don't bring their own ordnumbers/transdates. # The if clause ensures that by searching for empty ordnumber_#/transdate_# fields. - $form->isblank("ordnumber", $locale->text('Order Number missing!')) if ( +{ map { $form->{"ordnumber_$_"}, 1 } ( 1 .. $form->{rowcount}-1 ) }->{''} ); - $form->isblank("transdate", $locale->text('Order Date missing!')) if ( +{ map { $form->{"transdate_$_"}, 1 } ( 1 .. $form->{rowcount}-1 ) }->{''} ); - + $form->isblank("ordnumber", $locale->text('Order Number missing!')) + if (+{ map { $form->{"ordnumber_$_"}, 1 } (1 .. $form->{rowcount} - 1) }->{''}); + $form->isblank("transdate", $locale->text('Order Date missing!')) + if (+{ map { $form->{"transdate_$_"}, 1 } (1 .. $form->{rowcount} - 1) }->{''}); + + # also copy deliverydate from the order + $form->{deliverydate} = $form->{reqdate} if $form->{reqdate}; + $form->{orddate} = $form->{transdate}; } else { $form->isblank("quonumber", $locale->text('Quotation Number missing!')); $form->isblank("transdate", $locale->text('Quotation Date missing!')); - $form->{ordnumber} = ""; + $form->{ordnumber} = ""; + $form->{quodate} = $form->{transdate}; } - + + $payment_id = $form->{payment_id} if $form->{payment_id}; + # if the name changed get new values if (&check_name($form->{vc})) { + $form->{payment_id} = $payment_id if $form->{payment_id} eq ""; &update; exit; } - ($null, $form->{cp_id}) = split /--/, $form->{contact}; $form->{cp_id} *= 1; + for $i (1 .. $form->{rowcount}) { + for (qw(ship qty sellprice listprice basefactor)) { + $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"}; + } + } + if ( $form->{type} =~ /_order/ && $form->{currency} ne $form->{defaultcurrency}) { @@ -1820,9 +2080,7 @@ sub invoice { $buysell = ($form->{type} eq 'sales_order') ? "buy" : "sell"; $orddate = $form->current_date(\%myconfig); - $exchangerate = - $form->check_exchangerate(\%myconfig, $form->{currency}, $orddate, - $buysell); + $exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $orddate, $buysell); if (!$exchangerate) { &backorder_exchangerate($orddate, $buysell); @@ -1833,24 +2091,25 @@ sub invoice { # close orders/quotations $form->{closed} = 1; - # save order iff one ordnumber has been given + # save order if one ordnumber has been given # if not it's most likely a collective order, which can't be saved back # so they just have to be closed - if ($form->{ordnumber} ne '') { - OE->save(\%myconfig, \%$form); + if (($form->{ordnumber} ne '') || ($form->{quonumber} ne '')) { + OE->close_order(\%myconfig, \%$form) if ($form->{id}); } else { OE->close_orders(\%myconfig, \%$form); } $form->{transdate} = $form->{invdate} = $form->current_date(\%myconfig); - $form->{duedate} = - $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1); + $form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1); $form->{id} = ''; $form->{closed} = 0; $form->{rowcount}--; $form->{shipto} = 1; + $form->{defaultcurrency} = $form->get_default_currency(\%myconfig); + if ($form->{type} =~ /_order$/) { $form->{exchangerate} = $exchangerate; &create_backorder; @@ -1863,7 +2122,9 @@ sub invoice { $script = "ir"; $buysell = 'sell'; } - if ($form->{type} eq 'sales_order' || $form->{type} eq 'sales_quotation') { + + if ( $form->{type} eq 'sales_order' + || $form->{type} eq 'sales_quotation') { $form->{title} = $locale->text('Add Sales Invoice'); $form->{script} = 'is.pl'; $script = "is"; @@ -1871,15 +2132,14 @@ sub invoice { } # bo creates the id, reset it - map { delete $form->{$_} } - qw(id subject message cc bcc printed emailed queued); + map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued); $form->{ $form->{vc} } =~ s/--.*//g; $form->{type} = "invoice"; # locale messages $locale = new Locale "$myconfig{countrycode}", "$script"; - require "$form->{path}/$form->{script}"; + require "bin/mozilla/$form->{script}"; map { $form->{"select$_"} = "" } ($form->{vc}, currency); @@ -1913,13 +2173,18 @@ sub invoice { $dec = length $dec; $decimalplaces = ($dec > 2) ? $dec : 2; + # copy delivery date from reqdate for order -> invoice conversion + $form->{"deliverydate_$i"} = $form->{"reqdate_$i"} + unless $form->{"deliverydate_$i"}; + $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces); - + (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/); - $dec_qty = length $dec_qty; - $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty); + $dec_qty = length $dec_qty; + $form->{"qty_$i"} = + $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty); map { $form->{"${_}_$i"} =~ s/\"/"/g } qw(partnumber description unit); @@ -1955,7 +2220,6 @@ sub backorder_exchangerate { print qq| -{path}> {login}> {password}> @@ -2056,6 +2320,8 @@ sub create_backorder { } qw(sellprice discount); } + relink_accounts(); + OE->save(\%myconfig, \%$form); # rebuild rows for invoice @@ -2086,710 +2352,184 @@ sub save_as_new { $form->{closed} = 0; map { delete $form->{$_} } qw(printed emailed queued); + # Let Lx-Office assign a new order number if the user hasn't changed the + # previous one. If it has been changed manually then use it as-is. + my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber"; + $form->{$idx} =~ s/^\s*//g; + $form->{$idx} =~ s/\s*$//g; + if ($form->{saved_xyznumber} && + ($form->{saved_xyznumber} eq $form->{$idx})) { + delete($form->{$idx}); + } + &save; $lxdebug->leave_sub(); } -sub purchase_order { +sub check_for_direct_delivery_yes { $lxdebug->enter_sub(); - $form->{title} = $locale->text('Add Purchase Order'); - $form->{vc} = "vendor"; - $form->{type} = "purchase_order"; + $form->{direct_delivery_checked} = 1; + delete @{$form}{grep /^shipto/, keys %{ $form }}; + map { s/^CFDD_//; $form->{$_} = $form->{"CFDD_${_}"} } grep /^CFDD_/, keys %{ $form }; + $form->{shipto} = 1; + purchase_order(); + $lxdebug->leave_sub(); +} - &poso; +sub check_for_direct_delivery_no { + $lxdebug->enter_sub(); + + $form->{direct_delivery_checked} = 1; + delete @{$form}{grep /^shipto/, keys %{ $form }}; + purchase_order(); $lxdebug->leave_sub(); } -sub sales_order { +sub check_for_direct_delivery { $lxdebug->enter_sub(); - if ( $form->{type} eq 'sales_quotation' - || $form->{type} eq 'request_quotation') { - $form->{closed} = 1; - OE->save(\%myconfig, \%$form); + if ($form->{direct_delivery_checked} + || (!$form->{shiptoname} && !$form->{shiptostreet} && !$form->{shipto_id})) { + $lxdebug->leave_sub(); + return; } - ($null, $form->{cp_id}) = split /--/, $form->{contact}; - $form->{cp_id} *= 1; + if ($form->{shipto_id}) { + Common->get_shipto_by_id(\%myconfig, $form, $form->{shipto_id}, "CFDD_"); - $form->{title} = $locale->text('Add Sales Order'); - $form->{vc} = "customer"; - $form->{type} = "sales_order"; + } else { + map { $form->{"CFDD_${_}"} = $form->{$_ } } grep /^shipto/, keys %{ $form }; + } - &poso; + delete $form->{action}; + $form->{VARIABLES} = [ map { { "key" => $_, "value" => $form->{$_} } } grep { ref $_ eq "" } keys %{ $form } ]; + + $form->header(); + print $form->parse_html_template("oe/check_for_direct_delivery"); $lxdebug->leave_sub(); -} - -sub poso { - $lxdebug->enter_sub(); - - $form->{transdate} = $form->current_date(\%myconfig); - delete $form->{duedate}; - - $form->{closed} = 0; - - # reset - map { delete $form->{$_} } - qw(id subject message cc bcc printed emailed queued customer vendor creditlimit creditremaining discount tradediscount oldinvtotal); - - &order_links; - - &prepare_order; - - # format amounts - for $i (1 .. $form->{rowcount} - 1) { - map { $form->{"${_}_$i"} =~ s/\"/"/g } - qw(partnumber description unit); - } - - map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 0, "0") } - qw(creditlimit creditremaining); - - &update; - $lxdebug->leave_sub(); + exit 0; } -sub ship_receive { +sub purchase_order { $lxdebug->enter_sub(); - &order_links; - - &prepare_order; - - OE->get_warehouses(\%myconfig, \%$form); - - # warehouse - if (@{ $form->{all_warehouses} }) { - $form->{selectwarehouse} = "\n"; - - map { $form->{selectwarehouse} .= "$_->{description}--$_->{id}\n" } - (@{ $form->{all_warehouses} }); - - if ($form->{warehouse}) { - $form->{selectwarehouse} = "$form->{warehouse}"; - } + if ($form->{type} eq 'sales_order') { + check_for_direct_delivery(); } - $form->{shippingdate} = $form->current_date(\%myconfig); - $form->{"$form->{vc}"} =~ s/--.*//; - - @flds = (); - @a = (); - $count = 0; - foreach $key (keys %$form) { - if ($key =~ /_1$/) { - $key =~ s/_1//; - push @flds, $key; - } + if ( $form->{type} eq 'sales_quotation' + || $form->{type} eq 'request_quotation') { + OE->close_order(\%myconfig, \%$form); } - for $i (1 .. $form->{rowcount}) { - - # undo formatting from prepare_order - map { - $form->{"${_}_$i"} = - $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) - } qw(qty ship); - $n = ($form->{"qty_$i"} -= $form->{"ship_$i"}); - if (abs($n) > 0 - && ($form->{"inventory_accno_$i"} || $form->{"assembly_$i"})) { - $form->{"ship_$i"} = ""; - $form->{"serialnumber_$i"} = ""; - - push @a, {}; - $j = $#a; - - map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; - $count++; - } + if ($form->{type} =~ /^sales_/) { + delete($form->{ordnumber}); } - $form->redo_rows(\@flds, \@a, $count, $form->{rowcount}); - $form->{rowcount} = $count; + $form->{cp_id} *= 1; - &display_ship_receive; + $form->{title} = $locale->text('Add Purchase Order'); + $form->{vc} = "vendor"; + $form->{type} = "purchase_order"; + + &poso; $lxdebug->leave_sub(); } -sub display_ship_receive { +sub sales_order { $lxdebug->enter_sub(); - $vclabel = ucfirst $form->{vc}; - $vclabel = $locale->text($vclabel); - - $form->{rowcount}++; - - if ($form->{vc} eq 'customer') { - $form->{title} = $locale->text('Ship Merchandise'); - $shipped = $locale->text('Shipping Date'); - } else { - $form->{title} = $locale->text('Receive Merchandise'); - $shipped = $locale->text('Date Received'); - } - - # set option selected - foreach $item (warehouse, employee) { - $form->{"select$item"} =~ s/ selected//; - $form->{"select$item"} =~ - s/option>\Q$form->{$item}\E/option selected>$form->{$item}/; - } - - $warehouse = qq| - - | . $locale->text('Warehouse') . qq| - $form->{selectwarehouse} - - -| if $form->{selectwarehouse}; - - $employee = qq| - - | . $locale->text('Contact') . qq| - $form->{selectemployee} - - -|; - - $form->header; - - print qq| - - -{script}> - -{id}> - - - -{type}> -{media}> -{format}> - - - - - -{vc}> - - - - $form->{title} - - - - - - - - - - $vclabel - $form->{$form->{vc}} - {vc} value="$form->{$form->{vc}}"> - {"$form->{vc}_id"}> - - $department - - | . $locale->text('Shipping Point') . qq| - - - - - | . $locale->text('Ship via') . qq| - - - - $warehouse - - - - - $employee - - | . $locale->text('Order Number') . qq| - $form->{ordnumber} - - - - | . $locale->text('Order Date') . qq| - $form->{transdate} - {transdate}> - - - $shipped - {shippingdate}> - - - - - - - - - - - - - - - - - - - - - - - - - - - -|; - - @column_index = - (partnumber, description, qty, ship, unit, bin, serialnumber); - - if ($form->{type} eq "ship_order") { - $column_data{ship} = - qq|| - . $locale->text('Ship') - . qq||; - } - if ($form->{type} eq "receive_order") { - $column_data{ship} = - qq|| - . $locale->text('Recd') - . qq||; - } - - my $colspan = $#column_index + 1; - - $column_data{partnumber} = - qq|| . $locale->text('Number') . qq||; - $column_data{description} = - qq|| - . $locale->text('Description') - . qq||; - $column_data{qty} = - qq|| . $locale->text('Qty') . qq||; - $column_data{unit} = - qq|| . $locale->text('Unit') . qq||; - $column_data{bin} = - qq|| . $locale->text('Bin') . qq||; - $column_data{serialnumber} = - qq|| - . $locale->text('Serial No.') - . qq||; - - print qq| - - - - |; - - map { print "\n$column_data{$_}" } @column_index; - - print qq| - -|; - - for $i (1 .. $form->{rowcount} - 1) { - - # undo formatting - $form->{"ship_$i"} = $form->parse_amount(\%myconfig, $form->{"ship_$i"}); - - # convert " to " - map { $form->{"${_}_$i"} =~ s/\"/"/g } - qw(partnumber description unit bin serialnumber); - - $description = $form->{"description_$i"}; - $description =~ s/\n//g; - - $column_data{partnumber} = - qq|$form->{"partnumber_$i"}|; - $column_data{description} = - qq|$description|; - $column_data{qty} = - qq|| - . $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty) - . qq||; - $column_data{ship} = - qq|format_amount(\%myconfig, $form->{"ship_$i"}) - . qq|>|; - $column_data{unit} = - qq|$form->{"unit_$i"}|; - $column_data{bin} = - qq|$form->{"bin_$i"}|; - - $column_data{serialnumber} = - qq||; - - print qq| - |; - - map { print "\n$column_data{$_}" } @column_index; - - print qq| - - -{"orderitems_id_$i"}> -{"id_$i"}> - - - -|; - - } - - print qq| - - - - - - - - -|; - - $form->{copies} = 1; - - &print_options; - - print qq| - - - - - - -|; - - if ($form->{type} eq 'ship_order') { - print qq| - - -|; + if ( $form->{type} eq 'sales_quotation' + || $form->{type} eq 'request_quotation') { + OE->close_order(\%myconfig, $form); } - print qq| - - -|; - - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; + if ($form->{type} eq "purchase_order") { + delete($form->{ordnumber}); } - print qq| - -{rowcount}> - - - -{path}> -{login}> -{password}> + $form->{cp_id} *= 1; - + $form->{title} = $locale->text('Add Sales Order'); + $form->{vc} = "customer"; + $form->{type} = "sales_order"; - -