projekt kivitendo

  $form->{cp_id} *= 1;

  $form->{title} = $locale->text('Add Purchase Order');

  $form->{vc}    = "vendor";

  $form->{type}  = "purchase_order";

  $form->get_employee();

  delete $form->{sales_order_to_purchase_order};

  $form->{cp_id} *= 1;

  $form->{title}  = $locale->text('Add Sales Order');

  $form->{vc}     = "customer";

  $form->{type}   = "sales_order";

  $form->get_employee();

  $main::lxdebug->leave_sub();

}

sub poso {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  $form->{transdate} = $form->current_date(\%myconfig);

  delete $form->{duedate};

  $form->{convert_from_oe_ids} = $form->{id};

  $form->{closed}              = 0;