projekt kivitendo

require "bin/mozilla/invoice_io.pl";

require "bin/mozilla/invoice_io.pl";

#=====================================================================

# LX-Office ERP

# Copyright (C) 2004

# Based on SQL-Ledger Version 2.1.9

# Web http://www.lx-office.org

#############################################################################

# Veraendert 2005-01-05 - Marco Welter <mawe@linux-studio.de> - Neue Optik  #

#############################################################################

# SQL-Ledger, Accounting

# Copyright (c) 1998-2002

#

#  Author: Dieter Simader

#   Email: dsimader@sql-ledger.org

#     Web: http://www.sql-ledger.org

#

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#

#######################################################################

#

# common routines used in is, ir but not in oe

#

#######################################################################

use CGI;

use List::Util qw(max);

use SL::Common;

use SL::CT;

use SL::IC;

require "bin/mozilla/common.pl";

use strict;

# any custom scripts for this one

if (-f "bin/mozilla/custom_invoice_io.pl") {

  eval { require "bin/mozilla/custom_invoice_io.pl"; };

}

if (-f "bin/mozilla/$::myconfig{login}_invoice_io.pl") {

  eval { require "bin/mozilla/$::myconfig{login}_invoice_io.pl"; };

}

1;

# end of main

# this is for our long dates

# $locale->text('January')

# $locale->text('February')

# $locale->text('March')

# $locale->text('April')

# $locale->text('May ')

# $locale->text('June')

# $locale->text('July')

# $locale->text('August')

# $locale->text('September')

# $locale->text('October')

# $locale->text('November')

# $locale->text('December')

# this is for our short month

# $locale->text('Jan')

# $locale->text('Feb')

# $locale->text('Mar')

# $locale->text('Apr')

# $locale->text('May')

# $locale->text('Jun')

# $locale->text('Jul')

# $locale->text('Aug')

# $locale->text('Sep')

# $locale->text('Oct')

# $locale->text('Nov')

# $locale->text('Dec')

use SL::IS;

use SL::PE;

use SL::AM;

use Data::Dumper;

sub display_form {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  $main::auth->assert('part_service_assembly_edit   | vendor_invoice_edit       | sales_order_edit    | invoice_edit |' .

                'request_quotation_edit       | sales_quotation_edit      | purchase_order_edit | '.

                'purchase_delivery_order_edit | sales_delivery_order_edit | part_service_assembly_details');

  relink_accounts();

  retrieve_partunits() if ($form->{type} =~ /_delivery_order$/);

  my $new_rowcount = $form->{"rowcount"} * 1 + 1;

  $form->{"project_id_${new_rowcount}"} = $form->{"globalproject_id"};

  $form->language_payment(\%myconfig);

  # if we have a display_form

  if ($form->{display_form}) {

    call_sub($form->{"display_form"});

    ::end_of_request();

  }

  Common::webdav_folder($form);

  #   if (   $form->{print_and_post}

  #       && $form->{second_run}

  #       && ($form->{action} eq "display_form")) {

  #     for (keys %$form) { $old_form->{$_} = $form->{$_} }

  #     $old_form->{rowcount}++;

  #

  #     #$form->{rowcount}--;

  #     #$form->{rowcount}--;

  #

  #     $form->{print_and_post} = 0;

  #

  #     &print_form($old_form);

  #     ::end_of_request();

  #   }

  #

  #   $form->{action}   = "";

  #   $form->{resubmit} = 0;

  #

  #   if ($form->{print_and_post} && !$form->{second_run}) {

  #     $form->{second_run} = 1;

  #     $form->{action}     = "display_form";

  #     $form->{rowcount}--;

  #     my $rowcount = $form->{rowcount};

  #

  #     $form->{resubmit} = 1;

  #

  #   }

  &form_header;

  {

    no strict 'refs';

    my $numrows    = ++$form->{rowcount};

    my $subroutine = "display_row";

    if ($form->{item} =~ /(part|service)/) {

      #set preisgruppenanzahl

      $numrows    = $form->{price_rows};

      $subroutine = "price_row";

      &{$subroutine}($numrows);

      $numrows    = ++$form->{makemodel_rows};

      $subroutine = "makemodel_row";

    }

    if ($form->{item} eq 'assembly') {

      $numrows    = $form->{price_rows};

      $subroutine = "price_row";

      &{$subroutine}($numrows);

      $numrows    = ++$form->{makemodel_rows};

      $subroutine = "makemodel_row";

      # assemblies are built from components, they aren't purchased from a vendor

      # also the lastcost_$i from makemodel conflicted with the component lastcost_$i

      # so we don't need the makemodel rows for assemblies

      # create makemodel rows

      # &{$subroutine}($numrows);

      $numrows    = ++$form->{assembly_rows};

      $subroutine = "assembly_row";

    }

    # create rows

    &{$subroutine}($numrows) if $numrows;

  }

  &form_footer;

  $main::lxdebug->leave_sub();

}

require "bin/mozilla/invoice_io.pl";

require "bin/mozilla/invoice_io.pl";