projekt kivitendo

          $taxbase{$item} += $taxbase;

        }

      }

      push(@{ $form->{tax_rate} }, qq|$tax_rate|);

      if ($form->{"assembly_$i"}) {

        $sameitem = "";

sub post_invoice {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form) = @_;

  # connect to database, turn off autocommit

        ? qq|'$form->{"deliverydate_$i"}'|

        : "NULL";

      # get pricegroup_id and save ist

      ($null, my $pricegroup_id) = split /--/, $form->{"sellprice_drag_$i"};

      $pricegroup_id *= 1;

sub retrieve_invoice {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form) = @_;

  # connect to database

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

# get pricegroups from database

# build up selected pricegroup

# for each part

#

sub get_pricegroups_for_parts {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form) = @_;

      $id = $form->{"new_id_$i"};

    }

    $pricegroup_old = $form->{"pricegroup_old_$i"};

    $price_new = $form->{"price_new_$i"};

    $price_old = $form->{"price_old_$i"};

    $pkq = $dbh->prepare($query);

    $pkq->execute || $form->dberror($query);

    while ($pkr = $pkq->fetchrow_hashref(NAME_lc)) {

      if (($form->{exchangerate} * 1) != 0) {

        $pkr->{price} /= $form->{exchangerate};

      }

      if ($selectedpricegroup_id eq undef) {

        if ($pkr->{pricegroup_id} eq $form->{customer_klass}) {

          $pkr->{selected}  = ' selected';

          $last->{selected} = '';

          if ($pkr->{price} == $pkr->{default_sellprice}) {

          } else {

          }

        } else {

          if ($pkr->{price} == $pkr->{default_sellprice}) {

          }

        }

      }

        if ($selectedpricegroup_id ne $pricegroup_old) {

          if ($pkr->{pricegroup_id} eq $selectedpricegroup_id) {

            if ($price_new != $form->{"sellprice_$i"}) {

            } else {

            }

          }

          if (($price_new != $form->{"sellprice_$i"}) and ($price_new ne 0)) {

            if ($pkr->{pricegroup_id} == 0) {

            }

          } else {

            if ($pkr->{pricegroup_id} eq $selectedpricegroup_id) {

                # $pkr->{price}                         = $form->{"sellprice_$i"};

                $pkr->{price} = $form->{"sellprice_$i"};

              }

            }

          }

        }

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

}

	        WHERE $where

		ORDER BY $sortorder|;

  }

  $sth = $dbh->prepare($query);

  $sth->execute || $form->dberror($query);

#

sub get_pricegroup {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form) = @_;

  # connect to database

  $sth->finish;

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

}

    $pricegroup .= qq|<select name=klass>$form->{selectpricegroup}</select>|;

  }

 }

  # $locale->text('Customer Number')

        qq|<td><input name="description_$i" size=30 value="$form->{"description_$i"}"></td>|;

    }

    $column_data{qty} =

    $column_data{ship} =

        qq|<td align=right><input name="ship_$i" size=5 value=|

      . $form->format_amount(\%myconfig, $form->{"ship_$i"})

    }

  }

  $lxdebug->leave_sub();

}

sub add {

  $lxdebug->enter_sub();

  $form->{title} = $locale->text('Add Vendor Invoice');

  &invoice_links;

sub invoice_links {

  $lxdebug->enter_sub();

  # create links

  $form->{webdav} = $webdav;

sub prepare_invoice {

  $lxdebug->enter_sub();

  if ($form->{id}) {

    map { $form->{$_} =~ s/\"/"/g } qw(invnumber ordnumber quonumber);

      $form->{"sellprice_$i"} =

        $form->format_amount(\%myconfig, $form->{"sellprice_$i"},

                             $decimalplaces);

      (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);

      $form->{"qty_$i"} =

        $form->format_amount(\%myconfig, ($form->{"qty_$i"} * -1), $dec_qty);

sub form_header {

  $lxdebug->enter_sub();

  # set option selected

  foreach $item (qw(AP vendor currency department contact)) {

    $form->{"select$item"} =~ s/ selected//;

    if ($form->{forex}) {

      $exchangerate .= qq|

                <th align=right nowrap>|

                <td>$form->{exchangerate}<input type=hidden name=exchangerate value=$form->{exchangerate}></td>

|;

    } else {

      $exchangerate .= qq|

                <th align=right nowrap>|

                <td><input name=exchangerate size=10 value=$form->{exchangerate}></td>

|;

    }

    $button1 = qq|

       <td><input name=invdate id=invdate size=11 title="$myconfig{dateformat}" value=$form->{invdate}></td>

       <td><input type=button name=invdate id="trigger1" value=|

       |;

    $button2 = qq|

       <td width="13"><input name=duedate id=duedate size=11 title="$myconfig{dateformat}" value=$form->{duedate}></td>

       <td width="4"><input type=button name=duedate id="trigger2" value=|

     |;

    #write Trigger

		<td colspan=3>$vendor</td>

                <th align=richt nowrap>|

                <td colspan=3>$contact</td>

                <input type=hidden name=vendor_id value=$form->{vendor_id}>

sub form_footer {

  $lxdebug->enter_sub();

  $form->{invtotal} = $form->{invsubtotal};

  if (($rows = $form->numtextrows($form->{notes}, 25, 8)) < 2) {

sub edit {

  $lxdebug->enter_sub();

  $form->{title} = $locale->text('Edit Sales Invoice');

  if ($myconfig{acs} =~ "AR--Add Sales Invoice" || $myconfig{acs} =~ "AR--AR")

sub invoice_links {

  $lxdebug->enter_sub();

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

  # create links

sub prepare_invoice {

  $lxdebug->enter_sub();

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

  $form->{formname} = "invoice";

  $form->{format}   = "html";

      $form->{"sellprice_$i"} =

        $form->format_amount(\%myconfig, $form->{"sellprice_$i"},

                             $decimalplaces);

      (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);

      map { $form->{"${_}_$i"} =~ s/\"/"/g }

        qw(partnumber description unit partnotes);

sub form_header {

  $lxdebug->enter_sub();

  # set option selected

  foreach $item (qw(AR customer currency department employee contact)) {

sub form_footer {

  $lxdebug->enter_sub();

  $form->{invtotal} = $form->{invsubtotal};

  if (($rows = $form->numtextrows($form->{notes}, 26, 8)) < 2) {

        $sellprice = $form->format_amount(\%myconfig, $form->{"sellprice_$i"});

        map { $form->{item_list}[$i]{$_} =~ s/\"/"/g }

          qw(partnumber description unit);

        map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }

  'Company'                     => 'Firma',

  'Company Name'                => 'Firmenname',

  'Compare to'                  => 'Gegen?berstellen zu',

  'Confirm!'                    => 'Best?tigen Sie!',

  'Confirmation'                => 'Auftragsbest?tigung',

  'Connect to'                  => 'Als Vorlage verwenden',

  'Enforce transaction reversal for all dates' => 'Gegenbuchungen f?r jeden Zeitraum aktualisieren',

  'Enter up to 3 letters separated by a colon (i.e CAD:USD:EUR) for your native and foreign currencies' => 'Geben Sie Ihre und weitere W?hrungen mit bis zu drei Buchstaben pro W?hrung und W?hrungen durch Doppelpunkte getrennt ein (z.B. EUR:USD:CAD)',

  'Equity'                      => 'Passiva',

  'Es fehlen Angaben zur Versteuerung. 

  Wenn Sie Ist Versteuert sind, w?hlen Sie die Einnahmen/?berschu?-Rechnung aus. 

  Sind Sie Soll-Versteuert und Bilanzverpflichtet, dann w?hlen Sie Bilanz aus.' => 'Es fehlen Angaben zur Versteuerung. 

  'Help'                        => 'Hilfe',

  'Hier den Berechnungszeitraum ausw?hlen...' => 'Hier den Berechnungszeitraum ausw?hlen...',

  'Hinweise'                    => 'Hinweise',

  'Homepage'                    => 'Homepage',

  'Host'                        => 'Datenbankcomputer',

  'Hostname missing!'           => 'Computername fehlt!',

  'soldtotal'                   => 'Verkaufte Anzahl',

  'successfully created!'       => 'wurde erfolgreich erstellt',

  'successfully deleted!'       => 'wurde erfolgreich gel?scht',

  'ustva'                       => 'UStVA',

  'website'                     => 'Webseite',

  'winston_export'              => 'Winston-Export',

  'GIFI'                        => 'GIFI',

  'Given Name'                  => 'Vorname',

  'Greeting'                    => 'Anrede',

  'Homepage'                    => 'Homepage',

  'ID'                          => 'Buchungsnummer',

  'Include in Report'           => 'In Bericht aufnehmen',

action=add

type=project

[Master Data--Add Pricegroup]

module=pe.pl

action=add

action=report

report=projects

[Master Data--Reports--Pricegroups]

module=pe.pl

action=search

type=pricegroup

[AR]