Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 4091b37c

Von Jan Büren vor mehr als 15 Jahren hinzugefügt

  • ID 4091b37c72307f33791bb7dadb922152f70e6760
  • Vorgänger 85422b20
  • Nachfolger f5b11c75

Mindestlagerbestand bei Lieferantenaufträgen anzeigen. Offen: Wiederverwendung is_purchase

Unterschiede anzeigen:

bin/mozilla/io.pl
4 4 
# Based on SQL-Ledger Version 2.1.9
5 5 
# Web http://www.lx-office.org
6 6 
#############################################################################
7 
# Veraendert 2005-01-05 - Marco Welter <mawe@linux-studio.de> - Neue Optik  #
7 
# Changelog: Wann - Wer - Was
8 
# Veraendert 2005-01-05 - Marco Welter <mawe@linux-studio.de> - Neue Optik
9 
# 08.11.2008 - information@richardson-bueren.de jb  - Backport von Revision 7339 xplace - E-Mail-Vorlage automatisch auswählen
10 
# 02.02.2009 - information@richardson-bueren.de jb - Backport von Revision 8535 xplace - Erweiterung der Waren bei Lieferantenauftrag um den Eintrag Mindestlagerbestand. Offen: Auswahlliste auf Lieferantenaufträge einschränken -> Erledigt 2.2.09 Prüfung wie das Skript heisst (oe.pl) -> das ist nur die halbe Miete, nochmal mb fragen -> mb gefragt und es gibt die variable is_purchase
8 11 
#############################################################################
9 12 
# SQL-Ledger, Accounting
10 13 
# Copyright (c) 1998-2002
......
89 92 
use SL::AM;
90 93 
use Data::Dumper;
91 94 

  		




  
  95
  
    
#die variablen sind doch auch noch in anderen unterroutinen interessant:


  		




  
  96
  
    

  		




  
  97
  
    

  		




  92
  98
  
    
sub _check_io_auth {


  		




  93
  99
  
    
  $auth->assert('part_service_assembly_edit   | vendor_invoice_edit       | sales_order_edit    | invoice_edit |' .


  		




  94
  100
  
    
                'request_quotation_edit       | sales_quotation_edit      | purchase_order_edit | ' .


  		




  ......




  395
  401
  
    

  		




  396
  402
  
    
sub select_item {


  		




  397
  403
  
    
  $lxdebug->enter_sub();


  		




  398
  
  
    

  		




  
  404
  
    
# diese variable kommt schon in der methode display_row vor, kann man die besser wiederverwenden? @mb fragen.  ich check das jetzt erstmal so ein


  		




  
  405
  
    
  my $is_purchase        = (first { $_ eq $form->{type} } qw(request_quotation purchase_order purchase_delivery_order)) || ($form->{script} eq 'ir.pl');


  		




  399
  406
  
    
  _check_io_auth();


  		




  400
  407
  
    

  		




  401
  
  
    
  @column_index = qw(ndx partnumber description onhand unit sellprice);


  		




  
  408
  
    
  @column_index = qw(ndx partnumber description rop onhand unit sellprice);


  		




  402
  409
  
    

  		




  403
  410
  
    
  $column_data{ndx}        = qq|<th>&nbsp;</th>|;


  		




  404
  411
  
    
  $column_data{partnumber} =


  		




  ......




  407
  414
  
    
    qq|<th class="listheading">| . $locale->text('Part Description') . qq|</th>|;


  		




  408
  415
  
    
  $column_data{sellprice} =


  		




  409
  416
  
    
    qq|<th class="listheading">| . $locale->text('Price') . qq|</th>|;


  		




  
  417
  
    
    if ($is_purchase){ 


  		




  
  418
  
    
      $column_data{rop} =


  		




  
  419
  
    
      qq|<th class="listheading">| . $locale->text('ROP') . qq|</th>|;


  		




  
  420
  
    
    }


  		




  410
  421
  
    
  $column_data{onhand} =


  		




  411
  422
  
    
    qq|<th class="listheading">| . $locale->text('Qty') . qq|</th>|;


  		




  412
  423
  
    
  $column_data{unit} =


  		




  ......




  469
  480
  
    
      qq|<td align="right"><input name="new_onhand_$i" type="hidden" value="$ref->{onhand}">|


  		




  470
  481
  
    
      . $form->format_amount(\%myconfig, $ref->{onhand}, '', "&nbsp;")


  		




  471
  482
  
    
      . qq|</td>|;


  		




  
  483
  
    
    if ($is_purchase){ 


  		




  
  484
  
    
    $column_data{rop} =


  		




  
  485
  
    
      qq|<td align="right"><input name="new_rop$i" type="hidden" value="$ref->{rop}">|


  		




  
  486
  
    
      . $form->format_amount(\%myconfig, $ref->{rop}, '', "&nbsp;")


  		




  
  487
  
    
      . qq|</td>|;


  		




  
  488
  
    
    } # ende if oe.pl -> Falls der Aufruf über oe.pl kam, handelt es sich um einen Lieferantenauftrag und uns interessiert auch die Mindestbestandsmenge


  		




  472
  489
  
    
    $column_data{unit} =


  		




  473
  490
  
    
      qq|<td>$ref->{unit}</td>|;


  		




  474
  491
  
    
    $j++;


  		




  ......




  1126
  1143
  
    
sub print {


  		




  1127
  1144
  
    
  $lxdebug->enter_sub();


  		




  1128
  1145
  
    

  		




  
  1146
  
    
# einfach mal hier die sachen für aufrufen


  		




  
  1147
  
    

  		




  
  1148
  
    
  IC->prepare_parts_for_printing();


  		




  
  1149
  
    

  		




  1129
  1150
  
    
  _check_io_auth();


  		




  1130
  1151
  
    

  		




  1131
  1152
  
    
  if ($form->{print_nextsub}) {


  		




  ......




  1363
  1384
  
    
  } elsif ($order) {


  		




  1364
  1385
  
    
    OE->order_details(\%myconfig, \%$form);


  		




  1365
  1386
  
    
  } else {


  		




  
  1387
  
    

  		




  
  1388
  
    
print(STDERR "davor");


  		




  
  1389
  
    

  		




  1366
  1390
  
    
    IS->invoice_details(\%myconfig, \%$form, $locale);


  		




  1367
  1391
  
    
  }


  		




  1368
  1392
  
    

  		












Auch abrufbar als:  Unified diff