Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 00738f6f

Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt

  • ID 00738f6f4e43355ae9e70cd5350d7c75c1533f5f
  • Vorgänger 5df2b57a
  • Nachfolger 94e11003

1. Variable umbenannt, in der die IDs aus OE zwischengespeichert werden, aus denen ein Lieferschein erzeugt wurde.
2. Erweiterung von "RecordLinks->create_links()" um einen Modus, um die IDs aus einem String zu erhalten.
3. Bug: Bei Umwandlung von Auftrag in Lieferschein Variable "delivered" leeren, weil ansonsten evtl der noch nicht gespeicherte Liferschein bereits als ausgelagert gilt.

Unterschiede anzeigen:

bin/mozilla/oe.pl
1814 1814
    delete($form->{ordnumber});
1815 1815
  }
1816 1816

  
1817
  $form->{cp_id}  *= 1;
1818
  $form->{oe_ids}  = $form->{id};
1817
  $form->{cp_id}               *= 1;
1818
  $form->{convert_from_oe_ids}  = $form->{id};
1819 1819

  
1820
  $form->{title} = $locale->text('Add Sales Order');
1821
  $form->{vc}    = "customer";
1822
  $form->{type}  = "sales_order";
1820
  $form->{title}                = $locale->text('Add Sales Order');
1821
  $form->{vc}                   = "customer";
1822
  $form->{type}                 = "sales_order";
1823 1823

  
1824 1824
  &poso;
1825 1825

  
......
1883 1883

  
1884 1884
  require "bin/mozilla/do.pl";
1885 1885

  
1886
  $form->{cp_id}           *= 1;
1887
  $form->{oe_ids}           = $form->{id};
1888
  $form->{transdate}        = $form->current_date(\%myconfig);
1886
  $form->{cp_id}               *= 1;
1887
  $form->{convert_from_oe_ids}  = $form->{id};
1888
  $form->{transdate}            = $form->current_date(\%myconfig);
1889 1889
  delete $form->{duedate};
1890 1890

  
1891
  $form->{closed}           = 0;
1892

  
1893 1891
  $form->{old_employee_id}  = $form->{employee_id};
1894 1892
  $form->{old_salesman_id}  = $form->{salesman_id};
1895 1893

  
1896 1894
  # reset
1897
  map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued creditlimit creditremaining discount tradediscount oldinvtotal);
1895
  delete @{$form}{qw(id subject message cc bcc printed emailed queued creditlimit creditremaining discount tradediscount oldinvtotal closed delivered)};
1898 1896

  
1899 1897
  for $i (1 .. $form->{rowcount}) {
1900 1898
    map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if ($form->{"${_}_${i}"}) } qw(ship qty sellprice listprice basefactor);

Auch abrufbar als: Unified diff