X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fbp.pl;h=3afd23a7c8da59ebfe84150bb8c379ecbe216c1e;hb=a1e47d425a58b8342992daab4907591506949f07;hp=56f886fe170ac419247a1af84ab5fd32dda0c322;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git diff --git a/bin/mozilla/bp.pl b/bin/mozilla/bp.pl index 56f886fe1..3afd23a7c 100644 --- a/bin/mozilla/bp.pl +++ b/bin/mozilla/bp.pl @@ -31,147 +31,158 @@ # #====================================================================== - use SL::BP; 1; -# end of main +# end of main sub search { $lxdebug->enter_sub(); - -# $locale->text('Sales Invoices') -# $locale->text('Packing Lists') -# $locale->text('Sales Orders') -# $locale->text('Purchase Orders') -# $locale->text('Quotations') -# $locale->text('RFQs') -# $locale->text('Checks') -# $locale->text('Receipts') + # $locale->text('Sales Invoices') + # $locale->text('Packing Lists') + # $locale->text('Sales Orders') + # $locale->text('Purchase Orders') + # $locale->text('Quotations') + # $locale->text('RFQs') + # $locale->text('Checks') + # $locale->text('Receipts') # setup customer/vendor selection BP->get_vc(\%myconfig, \%$form); - - if (@{ $form->{"all_$form->{vc}"} }) { - map { $name .= "$_->{name}--$_->{id}\n" } @{ $form->{"all_$form->{vc}"} }; + + if (@{ $form->{"all_$form->{vc}"} }) { + map { $name .= "$_->{name}--$_->{id}\n" } + @{ $form->{"all_$form->{vc}"} }; $name = qq|{vc}>\n$name|; } else { $name = qq|{vc} size=35>|; } - -# $locale->text('Customer') -# $locale->text('Vendor') - - %label = ( invoice => { title => 'Sales Invoices', name => 'Customer', l_invnumber => 'Y' }, - packing_list => { title => 'Packing Lists', name => 'Customer', l_invnumber => 'Y' }, - sales_order => { title => 'Sales Orders', name => 'Customer', l_ordnumber => 'Y' }, - purchase_order => { title => 'Purchase Orders', name => 'Vendor', l_ordnumber => 'Y' }, - sales_quotation => { title => 'Quotations', name => 'Customer', l_quonumber => 'Y' }, - request_quotation => { title => 'RFQs', name => 'Vendor', l_quonumber => 'Y' }, - check => { title => 'Checks', name => 'Vendor' }, - receipt => { title => 'Receipts', name => 'Customer' } - ); + + # $locale->text('Customer') + # $locale->text('Vendor') + + %label = ( + invoice => + { title => 'Sales Invoices', name => 'Customer', l_invnumber => 'Y' }, + packing_list => + { title => 'Packing Lists', name => 'Customer', l_invnumber => 'Y' }, + sales_order => + { title => 'Sales Orders', name => 'Customer', l_ordnumber => 'Y' }, + purchase_order => + { title => 'Purchase Orders', name => 'Vendor', l_ordnumber => 'Y' }, + sales_quotation => + { title => 'Quotations', name => 'Customer', l_quonumber => 'Y' }, + request_quotation => + { title => 'RFQs', name => 'Vendor', l_quonumber => 'Y' }, + check => { title => 'Checks', name => 'Vendor' }, + receipt => { title => 'Receipts', name => 'Customer' }); $label{invoice}{invnumber} = qq| - |.$locale->text('Invoice Number').qq| + | . $locale->text('Invoice Number') . qq| |; $label{invoice}{ordnumber} = qq| - |.$locale->text('Order Number').qq| + | . $locale->text('Order Number') . qq| |; $label{sales_quotation}{quonumber} = qq| - |.$locale->text('Quotation Number').qq| + | . $locale->text('Quotation Number') . qq| |; $label{check}{chknumber} = qq| - |.$locale->text('Reference').qq| + | . $locale->text('Reference') . qq| |; - $label{packing_list}{invnumber} = $label{invoice}{invnumber}; - $label{packing_list}{ordnumber} = $label{invoice}{ordnumber}; - $label{sales_order}{ordnumber} = $label{invoice}{ordnumber}; - $label{purchase_order}{ordnumber} = $label{invoice}{ordnumber}; + $label{packing_list}{invnumber} = $label{invoice}{invnumber}; + $label{packing_list}{ordnumber} = $label{invoice}{ordnumber}; + $label{sales_order}{ordnumber} = $label{invoice}{ordnumber}; + $label{purchase_order}{ordnumber} = $label{invoice}{ordnumber}; $label{request_quotation}{quonumber} = $label{sales_quotation}{quonumber}; - $label{receipt}{rctnumber} = $label{check}{chknumber}; - + $label{receipt}{rctnumber} = $label{check}{chknumber}; + # do one call to text - $form->{title} = $locale->text('Print')." ".$locale->text($label{$form->{type}}{title}); + $form->{title} = + $locale->text('Print') . " " + . $locale->text($label{ $form->{type} }{title}); if ($form->{type} =~ /(check|receipt)/) { if (BP->payment_accounts(\%myconfig, \%$form)) { $account = qq| - |.$locale->text('Account').qq| + | . $locale->text('Account') . qq| |; if ($form->{accounts}) { - $account .= qq| + $account .= qq| |; - foreach $ref (@{ $form->{accounts} }) { - $account .= qq| + foreach $ref (@{ $form->{accounts} }) { + $account .= qq| $ref->{accno}--$ref->{description} |; - } + } - $account .= qq| + $account .= qq| |; } else { - $account .= qq| + $account .= qq| |; } - + $account .= qq| |; } } - - # use JavaScript Calendar or not + + # use JavaScript Calendar or not $form->{jsscript} = $jscalendar; - $jsscript = ""; - if ($form->{jsscript}) - { + $jsscript = ""; + if ($form->{jsscript}) { + # with JavaScript Calendar $button1 = qq| - text('button').qq|> + text('button') . qq|> |; - $button2 = qq| + $button2 = qq| - text('button').qq|> + text('button') . qq|> |; + #write Trigger - $jsscript = Form->write_trigger(\%myconfig,"2","transdatefrom","BR","trigger1","transdateto","BL","trigger2"); - } - else - { - # without JavaScript Calendar - $button1 = qq| + $jsscript = + Form->write_trigger(\%myconfig, "2", "transdatefrom", "BR", "trigger1", + "transdateto", "BL", "trigger2"); + } else { + + # without JavaScript Calendar + $button1 = qq| |; - $button2 = qq| + $button2 = qq| |; - } - + } + $form->header; - + print qq| @@ -198,9 +209,9 @@ sub search { $label{$form->{type}}{chknumber} $label{$form->{type}}{rctnumber} - |.$locale->text('From').qq| + | . $locale->text('From') . qq| $button1 - |.$locale->text('Bis').qq| + | . $locale->text('Bis') . qq| $button2 @@ -219,7 +230,8 @@ sub search { {password}> - + @@ -233,14 +245,11 @@ $jsscript $lxdebug->leave_sub(); } - - sub remove { $lxdebug->enter_sub(); - $selected = 0; - + for $i (1 .. $form->{rowcount}) { if ($form->{"checked_$i"}) { $selected = 1; @@ -249,9 +258,9 @@ sub remove { } $form->error('Nothing selected!') unless $selected; - + $form->{title} = $locale->text('Confirm!'); - + $form->header; print qq| @@ -261,7 +270,7 @@ sub remove { |; map { delete $form->{$_} } qw(action header); - + foreach $key (keys %$form) { print qq|\n|; } @@ -269,9 +278,13 @@ sub remove { print qq| $form->{title} -|.$locale->text('Are you sure you want to remove the marked entries from the queue?').qq| +| + . $locale->text( + 'Are you sure you want to remove the marked entries from the queue?') + . qq| - + @@ -281,28 +294,25 @@ sub remove { $lxdebug->leave_sub(); } - - sub yes { $lxdebug->enter_sub(); - $form->info($locale->text('Removing marked entries from queue ...')); $form->{callback} .= "&header=1" if $form->{callback}; - $form->redirect($locale->text('Removed spoolfiles!')) if (BP->delete_spool(\%myconfig, \%$form, $spool)); + $form->redirect($locale->text('Removed spoolfiles!')) + if (BP->delete_spool(\%myconfig, \%$form, $spool)); $form->error($locale->text('Cannot remove files!')); $lxdebug->leave_sub(); } - sub print { $lxdebug->enter_sub(); - if ($form->{callback}) { - map { $form->{callback} .= "&checked_$_=1" if $form->{"checked_$_"} } (1 .. $form->{rowcount}); + map { $form->{callback} .= "&checked_$_=1" if $form->{"checked_$_"} } + (1 .. $form->{rowcount}); $form->{callback} .= "&header=1"; } @@ -312,8 +322,8 @@ sub print { $form->info($locale->text('Printing ... ')); if (BP->print_spool(\%myconfig, \%$form, $spool)) { - print $locale->text('done'); - $form->redirect($locale->text('Marked entries printed!')); + print $locale->text('done'); + $form->redirect($locale->text('Marked entries printed!')); } exit; } @@ -324,68 +334,76 @@ sub print { $lxdebug->leave_sub(); } - sub list_spool { $lxdebug->enter_sub(); - - $form->{$form->{vc}} = $form->unescape($form->{$form->{vc}}); - ($form->{$form->{vc}}, $form->{"$form->{vc}_id"}) = split(/--/, $form->{$form->{vc}}); + $form->{ $form->{vc} } = $form->unescape($form->{ $form->{vc} }); + ($form->{ $form->{vc} }, $form->{"$form->{vc}_id"}) = + split(/--/, $form->{ $form->{vc} }); BP->get_spoolfiles(\%myconfig, \%$form); $title = $form->escape($form->{title}); - $href = "$form->{script}?action=list_spool&path=$form->{path}&login=$form->{login}&password=$form->{password}&vc=$form->{vc}&type=$form->{type}&title=$title"; - - $title = $form->escape($form->{title},1); - $callback = "$form->{script}?action=list_spool&path=$form->{path}&login=$form->{login}&password=$form->{password}&vc=$form->{vc}&type=$form->{type}&title=$title"; - - if ($form->{$form->{vc}}) { - $callback .= "&$form->{vc}=".$form->escape($form->{$form->{vc}},1); - $href .= "&$form->{vc}=".$form->escape($form->{$form->{vc}}); - $option = ($form->{vc} eq 'customer') ? $locale->text('Customer') : $locale->text('Vendor'); + $href = + "$form->{script}?action=list_spool&path=$form->{path}&login=$form->{login}&password=$form->{password}&vc=$form->{vc}&type=$form->{type}&title=$title"; + + $title = $form->escape($form->{title}, 1); + $callback = + "$form->{script}?action=list_spool&path=$form->{path}&login=$form->{login}&password=$form->{password}&vc=$form->{vc}&type=$form->{type}&title=$title"; + + if ($form->{ $form->{vc} }) { + $callback .= "&$form->{vc}=" . $form->escape($form->{ $form->{vc} }, 1); + $href .= "&$form->{vc}=" . $form->escape($form->{ $form->{vc} }); + $option = + ($form->{vc} eq 'customer') + ? $locale->text('Customer') + : $locale->text('Vendor'); $option .= " : $form->{$form->{vc}}"; } if ($form->{account}) { - $callback .= "&account=".$form->escape($form->{account},1); - $href .= "&account=".$form->escape($form->{account}); + $callback .= "&account=" . $form->escape($form->{account}, 1); + $href .= "&account=" . $form->escape($form->{account}); $option .= "\n" if ($option); - $option .= $locale->text('Account')." : $form->{account}"; + $option .= $locale->text('Account') . " : $form->{account}"; } if ($form->{invnumber}) { - $callback .= "&invnumber=".$form->escape($form->{invnumber},1); - $href .= "&invnumber=".$form->escape($form->{invnumber}); + $callback .= "&invnumber=" . $form->escape($form->{invnumber}, 1); + $href .= "&invnumber=" . $form->escape($form->{invnumber}); $option .= "\n" if ($option); - $option .= $locale->text('Invoice Number')." : $form->{invnumber}"; + $option .= $locale->text('Invoice Number') . " : $form->{invnumber}"; } if ($form->{ordnumber}) { - $callback .= "&ordnumber=".$form->escape($form->{ordnumber},1); - $href .= "&ordnumber=".$form->escape($form->{ordnumber}); + $callback .= "&ordnumber=" . $form->escape($form->{ordnumber}, 1); + $href .= "&ordnumber=" . $form->escape($form->{ordnumber}); $option .= "\n" if ($option); - $option .= $locale->text('Order Number')." : $form->{ordnumber}"; + $option .= $locale->text('Order Number') . " : $form->{ordnumber}"; } if ($form->{quonumber}) { - $callback .= "&quonumber=".$form->escape($form->{quonumber},1); - $href .= "&quonumber=".$form->escape($form->{quonumber}); + $callback .= "&quonumber=" . $form->escape($form->{quonumber}, 1); + $href .= "&quonumber=" . $form->escape($form->{quonumber}); $option .= "\n" if ($option); - $option .= $locale->text('Quotation Number')." : $form->{quonumber}"; + $option .= $locale->text('Quotation Number') . " : $form->{quonumber}"; } - + if ($form->{transdatefrom}) { $callback .= "&transdatefrom=$form->{transdatefrom}"; - $href .= "&transdatefrom=$form->{transdatefrom}"; - $option .= "\n" if ($option); - $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{transdatefrom}, 1); + $href .= "&transdatefrom=$form->{transdatefrom}"; + $option .= "\n" if ($option); + $option .= + $locale->text('From') . " " + . $locale->date(\%myconfig, $form->{transdatefrom}, 1); } if ($form->{transdateto}) { $callback .= "&transdateto=$form->{transdateto}"; - $href .= "&transdateto=$form->{transdateto}"; - $option .= "\n" if ($option); - $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{transdateto}, 1); + $href .= "&transdateto=$form->{transdateto}"; + $option .= "\n" if ($option); + $option .= + $locale->text('To') . " " + . $locale->date(\%myconfig, $form->{transdateto}, 1); } $name = ucfirst $form->{vc}; - + @columns = (transdate); if ($form->{type} =~ /(invoice|packing_list|check|receipt)/) { push @columns, "invnumber"; @@ -401,14 +419,29 @@ sub list_spool { @column_index = $form->sort_columns(@columns); unshift @column_index, "checked"; - $column_header{checked} = " "; - $column_header{transdate} = "".$locale->text('Date').""; - $column_header{invnumber} = "".$locale->text('Invoice').""; - $column_header{ordnumber} = "".$locale->text('Order').""; - $column_header{quonumber} = "".$locale->text('Quotation').""; - $column_header{name} = "".$locale->text($name).""; - $column_header{spoolfile} = "".$locale->text('Spoolfile').""; - + $column_header{checked} = " "; + $column_header{transdate} = + "" + . $locale->text('Date') + . ""; + $column_header{invnumber} = + "" + . $locale->text('Invoice') + . ""; + $column_header{ordnumber} = + "" + . $locale->text('Order') + . ""; + $column_header{quonumber} = + "" + . $locale->text('Quotation') + . ""; + $column_header{name} = + "" + . $locale->text($name) + . ""; + $column_header{spoolfile} = + "" . $locale->text('Spoolfile') . ""; $form->header; @@ -437,45 +470,50 @@ sub list_spool { |; - # add sort and escape callback, this one we use for the add sub $form->{callback} = $callback .= "&sort=$form->{sort}"; # escape callback for href $callback = $form->escape($callback); - + $i = 0; - + foreach $ref (@{ $form->{SPOOL} }) { $i++; - + $form->{"checked_$i"} = "checked" if $form->{"checked_$i"}; - + if ($ref->{invoice}) { $ref->{module} = ($ref->{module} eq 'ar') ? "is" : "ir"; } $module = "$ref->{module}.pl"; - + $column_data{transdate} = "$ref->{transdate} "; if ($spoolfile eq $ref->{spoolfile}) { $column_data{checked} = qq||; } else { - $column_data{checked} = qq|{"checked_$i"} $form->{"checked_$i"}>|; + $column_data{checked} = + qq|{"checked_$i"} $form->{"checked_$i"}>|; } - - $column_data{invnumber} = "{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&type=$form->{type}&callback=$callback>$ref->{invnumber}"; - $column_data{ordnumber} = "{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&type=$form->{type}&callback=$callback>$ref->{ordnumber}"; - $column_data{quonumber} = "{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&type=$form->{type}&callback=$callback>$ref->{quonumber}"; - $column_data{name} = "$ref->{name}"; - $column_data{spoolfile} = qq|{spoolfile}>$ref->{spoolfile} + + $column_data{invnumber} = + "{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&type=$form->{type}&callback=$callback>$ref->{invnumber}"; + $column_data{ordnumber} = + "{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&type=$form->{type}&callback=$callback>$ref->{ordnumber}"; + $column_data{quonumber} = + "{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&type=$form->{type}&callback=$callback>$ref->{quonumber}"; + $column_data{name} = "$ref->{name}"; + $column_data{spoolfile} = + qq|{spoolfile}>$ref->{spoolfile} {spoolfile}> |; $spoolfile = $ref->{spoolfile}; - - $j++; $j %= 2; + + $j++; + $j %= 2; print " "; @@ -517,17 +555,22 @@ sub list_spool { if ($myconfig{printer}) { print qq| - - - +{transdateto}> +{transdatefrom}> +{invnumber}> +{ordnumber}> +{quonumber}> +{customer}> +{vendor}> + + + |; } - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } - print qq| @@ -538,18 +581,14 @@ sub list_spool { $lxdebug->leave_sub(); } - sub select_all { $lxdebug->enter_sub(); - map { $form->{"checked_$_"} = 1 } (1 .. $form->{rowcount}); &list_spool; - + $lxdebug->leave_sub(); } - -sub continue { &{ $form->{nextsub} } }; - +sub continue { &{ $form->{nextsub} } }