Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 0c472ce6

Von Moritz Bunkus vor fast 18 Jahren hinzugefügt

  • ID 0c472ce6b2b803cd57b8361d778fb711dc3549ba
  • Vorgänger 9fa58e1b
  • Nachfolger f0167814

Einen Filter für den Kunden-/Lieferantentypen bei Berichten über Kunden-/Lieferantenstammdaten implementiert.

Unterschiede anzeigen:

bin/mozilla/ct.pl
68 68 
sub search {
69 69 
  $lxdebug->enter_sub();
70 70 

  		




  
  71
  
    
  my $vc_business_type = $form->{db} eq "customer" ?


  		




  
  72
  
    
    $locale->text("Customer type") : $locale->text("Vendor type");


  		




  
  73
  
    

  		




  
  74
  
    
  $form->get_lists("business_types" => "ALL_BUSINESS_TYPES");


  		




  
  75
  
    
  my (%labels, @values);


  		




  
  76
  
    

  		




  
  77
  
    
  my $business_types;


  		




  
  78
  
    
  if (scalar(@{ $form->{ALL_BUSINESS_TYPES} }) != 0) {


  		




  
  79
  
    
    push(@values, undef);


  		




  
  80
  
    
    foreach my $item (@{ $form->{ALL_BUSINESS_TYPES} }) {


  		




  
  81
  
    
      push(@values, $item->{id});


  		




  
  82
  
    
      $labels{$item->{id}} = $item->{description};


  		




  
  83
  
    
    }


  		




  
  84
  
    

  		




  
  85
  
    
    $business_types =


  		




  
  86
  
    
      qq|  <tr>


  		




  
  87
  
    
    <th align="right" nowrap>${vc_business_type}</th>


  		




  
  88
  
    
    <td>|


  		




  
  89
  
    
      . NTI($cgi->popup_menu('-name' => 'business_id', '-values' => \@values,


  		




  
  90
  
    
                             '-labels' => \%labels))


  		




  
  91
  
    
      . qq|</td>


  		




  
  92
  
    
  </tr>


  		




  
  93
  
    
|;


  		




  
  94
  
    
  }


  		




  
  95
  
    

  		




  71
  96
  
    
  $label = ucfirst $form->{db};


  		




  72
  97
  
    
  $form->{title} = $locale->text($label . "s");


  		




  73
  98
  
    

  		




  ......




  104
  129
  
    
	  <th align=right nowrap>| . $locale->text('E-mail') . qq|</th>


  		




  105
  130
  
    
	  <td><input name=email size=35></td>


  		




  106
  131
  
    
	</tr>


  		




  
  132
  
    
  $business_types


  		




  107
  133
  
    
	<tr>


  		




  108
  134
  
    
	  <td></td>


  		




  109
  135
  
    
	  <td><input name=status class=radio type=radio value=all checked>&nbsp;|


  		




  ......




  150
  176
  
    
		<td><input name="l_sic_code" type=checkbox class=checkbox value=Y> |


  		




  151
  177
  
    
    . $locale->text('SIC') . qq|</td>


  		




  152
  178
  
    
		<td><input name="l_business" type=checkbox class=checkbox value=Y> |


  		




  153
  
  
    
    . $locale->text('Type of Business') . qq|</td>


  		




  
  179
  
    
    . $vc_business_type . qq|</td>


  		




  154
  180
  
    
	      </tr>


  		




  155
  181
  
    
	      <tr>


  		




  156
  182
  
    
		<td><input name="l_invnumber" type=checkbox class=checkbox value=Y> |


  		












Auch abrufbar als:  Unified diff