projekt kivitendo

  $sth->finish;

  # get taxkeys and description

              FROM tax|;

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

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

		WHERE id = $form->{id}|;

  } else {

                (accno, description, charttype, gifi_accno, category, link, taxkey_id, pos_ustva, pos_bwa, pos_bilanz,pos_eur)

                VALUES ('$form->{accno}', '$form->{description}',

		'$form->{charttype}', '$form->{gifi_accno}',

  # set inventory_accno_id, income_accno_id, expense_accno_id to defaults

  $query = qq|UPDATE parts

	                 (SELECT inventory_accno_id FROM defaults)

	      WHERE inventory_accno_id = $form->{id}|;

  $dbh->do($query) || $form->dberror($query);

		description = '$form->{description}'

		WHERE accno = '$form->{id}'|;

  } else {

                (accno, description)

                VALUES ('$form->{accno}', '$form->{description}')|;

  }

		role = '$form->{role}'

		WHERE id = $form->{id}|;

  } else {

                (description, role)

                VALUES ('$form->{description}', '$form->{role}')|;

  }

                salesman = '$form->{salesman}'

		WHERE id = $form->{id}|;

  } else {

                (description, discount, customernumberinit, salesman)

                VALUES ('$form->{description}', $form->{discount}, '$form->{customernumberinit}', '$form->{salesman}')|;

  }

		description = '$form->{description}'

		WHERE code = '$form->{id}'|;

  } else {

                (code, sictype, description)

                VALUES ('$form->{code}', '$form->{sictype}', '$form->{description}')|;

  }

  # user specific variables are in myconfig

  # save defaults

  my $query = qq|UPDATE defaults SET

		     (SELECT c.id FROM chart c

		                WHERE c.accno = '$form->{inventory_accno}'),

                 income_accno_id =

}

1;

      $query .= qq|

             UNION ALL

                 SELECT a.id, a.invnumber, c.name, a.transdate,

	         a.invoice, ac.sellprice, 'ar' as module

		 FROM ar a

		 $todate_where

		 $dpt_where

		 $project

             UNION ALL

                 SELECT a.id, a.invnumber, v.name, a.transdate,

	         a.invoice, ac.sellprice, 'ap' as module

		 FROM ap a

}

1;

       <!--

       $trigger_1

       $trigger_2

        </script>

        |;

  my ($self, $dbh, $id) = @_;

  my $query = qq|SELECT c.*

              WHERE cp_id=$id|;

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

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

  my ($self, $dbh, $id) = @_;

              WHERE cp_cv_id=$id|;

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

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

    $where = "quotation = '1'";

  }

                 WHERE id IN (SELECT MAX(id) FROM $arap

		              WHERE $where

			      AND ${table}_id > 0)|;

}

1;

  if ($form->{id}) {

    # delete individual transactions

                WHERE trans_id = $form->{id}|;

    $dbh->do($query) || $form->dberror($query);

  my ($null, $department_id) = split /--/, $form->{department};

  $department_id *= 1;

	      reference = '$form->{reference}',

	      description = '$form->{description}',

	      notes = '$form->{notes}',

    $query = "SELECT g.reference, g.description, g.notes, g.transdate,

              d.description AS department, e.name as employee, g.taxincluded, g.gldate

              FROM gl g

	    WHERE g.id = $form->{id}";

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

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

}

1;

    ($partsgroup, $partsgroup_id) = split /--/, $form->{partsgroup};

  }

	      partnumber = '$form->{partnumber}',

	      description = '$form->{description}',

	      makemodel = '$form->{makemodel}',

  foreach $item (split / /, $form->{taxaccounts}) {

    if ($form->{"IC_tax_$item"}) {

      $query = qq|INSERT INTO partstax (parts_id, chart_id)

		          (SELECT c.id

			   FROM chart c

			   WHERE c.accno = '$item'))|;

}

1;

            # add entry for inventory, this one is for the sold item

            if ($linetotal != 0) {

			  transdate)

			  VALUES ($ref->{trans_id}, $ref->{inventory_accno_id},

			  $linetotal, '$ref->{transdate}')|;

              $dbh->do($query) || $form->dberror($query);

              # add expense

			  transdate, taxkey)

			  VALUES ($ref->{trans_id}, $ref->{expense_accno_id},

                          (SELECT taxkey from tax WHERE chart_id = $ref->{expense_accno_id}))|;

              $dbh->do($query) || $form->dberror($query);

            }

           $form->round_amount($form->{amount}{$trans_id}{$accno}, 2)

          ) != 0

        ) {

		    transdate, taxkey)

		    VALUES ($trans_id, (SELECT c.id FROM chart c

		                         WHERE c.accno = '$accno'),

}

1;

  $query .= " AND ac.transdate <= '$form->{todate}'"   if $form->{todate};

  $query .= qq|

      UNION

              SELECT v.name, ac.source, ac.transdate, ac.cleared,

	      ac.fx_transaction, ac.amount, a.id,

	      FROM vendor v, acc_trans ac, ap a, chart ch

	      WHERE v.id = a.vendor_id

--	      AND NOT ac.fx_transaction

  $query .= " AND ac.transdate <= '$form->{todate}'"   if $form->{todate};

  $query .= qq|

      UNION

	      SELECT g.description, ac.source, ac.transdate, ac.cleared,

	      ac.fx_transaction, ac.amount, g.id,

	      FROM gl g, acc_trans ac, chart ch

	      WHERE g.id = ac.trans_id

--	      AND NOT ac.fx_transaction

}

1;

    if ($form->{method} eq 'cash') {

      $query = qq|

	         SELECT g.accno, sum(ac.amount) AS amount,

		 g.description, c.category

		 FROM acc_trans ac

		   )

		 $project

		 GROUP BY g.accno, g.description, c.category

       UNION ALL

		 SELECT '' AS accno, SUM(ac.amount) AS amount,

		 '' AS description, c.category

		 FROM acc_trans ac

		   )

		 $project

		 GROUP BY g.accno, g.description, c.category

       UNION ALL

		 SELECT '' AS accno, SUM(ac.amount) AS amount,

		 '' AS description, c.category

		 FROM acc_trans ac

       UNION ALL

-- add gl

	         SELECT g.accno, sum(ac.amount) AS amount,

		 g.description, c.category

		 FROM acc_trans ac

		 AND NOT (c.link = 'AR' OR c.link = 'AP')

		 $project

		 GROUP BY g.accno, g.description, c.category

       UNION ALL

		 SELECT '' AS accno, SUM(ac.amount) AS amount,

		 '' AS description, c.category

		 FROM acc_trans ac

      if ($form->{project_id}) {

        $query .= qq|

       UNION ALL

		 SELECT g.accno AS accno, SUM(ac.sellprice * ac.qty) AS amount,

		 g.description AS description, c.category

		 FROM invoice ac

		 GROUP BY g.accno, g.description, c.category

       UNION ALL

		 SELECT g.accno AS accno, SUM(ac.sellprice * ac.qty) * -1 AS amount,

		 g.description AS description, c.category

		 FROM invoice ac

      }

      $query = qq|

	      SELECT g.accno, SUM(ac.amount) AS amount,

	      g.description, c.category

	      FROM acc_trans ac

	      $category

	      $project

	      GROUP BY g.accno, g.description, c.category

	   UNION ALL

	      SELECT '' AS accno, SUM(ac.amount) AS amount,

	      '' AS description, c.category

	      FROM acc_trans ac

      if ($form->{project_id}) {

        $query .= qq|

	 UNION ALL

		 SELECT g.accno AS accno, SUM(ac.sellprice * ac.qty) AS amount,

		 g.description AS description, c.category

		 FROM invoice ac

		 GROUP BY g.accno, g.description, c.category

       UNION ALL

		 SELECT g.accno AS accno, SUM(ac.sellprice * ac.qty) * -1 AS amount,

		 g.description AS description, c.category

		 FROM invoice ac

    if ($form->{method} eq 'cash') {

      $query = qq|

	         SELECT c.accno, sum(ac.amount) AS amount,

		 c.description, c.category

		 FROM acc_trans ac

		     WHERE link LIKE '%AR_paid%'

		     $subwhere

		   )

		 $project

		 GROUP BY c.accno, c.description, c.category

	UNION ALL

	         SELECT c.accno, sum(ac.amount) AS amount,

		 c.description, c.category

		 FROM acc_trans ac

		     WHERE link LIKE '%AP_paid%'

		     $subwhere

		   )

		 $project

		 GROUP BY c.accno, c.description, c.category

        UNION ALL

		 SELECT c.accno, sum(ac.amount) AS amount,

      if ($form->{project_id}) {

        $query .= qq|

	 UNION ALL

		 SELECT c.accno AS accno, SUM(ac.sellprice * ac.qty) AS amount,

		 c.description AS description, c.category

		 FROM invoice ac

		 GROUP BY c.accno, c.description, c.category

	 UNION ALL

		 SELECT c.accno AS accno, SUM(ac.sellprice) AS amount,

		 c.description AS description, c.category

		 FROM invoice ac

      }

      $query = qq|

		 SELECT c.accno, sum(ac.amount) AS amount,

		 c.description, c.category

		 FROM acc_trans ac

      if ($form->{project_id}) {

        $query .= qq|

	UNION ALL

		 SELECT c.accno AS accno, SUM(ac.sellprice * ac.qty) AS amount,

		 c.description AS description, c.category

		 FROM invoice ac

		 GROUP BY c.accno, c.description, c.category

	UNION ALL

		 SELECT c.accno AS accno, SUM(ac.sellprice * ac.qty) * -1 AS amount,

		 c.description AS description, c.category

		 FROM invoice ac

  if ($form->{method} eq 'cash') {

    $query = qq|

	         SELECT sum(ac.amount) AS amount,

		 c.$category

		 FROM acc_trans ac

		     WHERE link LIKE '%AR_paid%'

		     $subwhere

		   )

		 $project

		 GROUP BY c.$category

	UNION

	         SELECT sum(ac.amount) AS amount,

		 c.$category

		 FROM acc_trans ac

		     WHERE link LIKE '%AP_paid%'

		     $subwhere

		   )

		 $project

		 GROUP BY c.$category

        UNION

		 SELECT sum(ac.amount) AS amount,

    if ($form->{project_id}) {

      $query .= qq|

	 UNION

		 SELECT SUM(ac.sellprice * ac.qty) AS amount,

		 c.$category

		 FROM invoice ac

		 GROUP BY c.$category

	 UNION

		 SELECT SUM(ac.sellprice) AS amount,

		 c.$category

		 FROM invoice ac

    }

    $query = qq|

		 SELECT sum(ac.amount) AS amount,

		 c.$category

		 FROM acc_trans ac

    if ($form->{project_id}) {

      $query .= qq|

	UNION

		 SELECT SUM(ac.sellprice * ac.qty) AS amount,

		 c.$category

		 FROM invoice ac

		 GROUP BY c.$category

	UNION

		 SELECT SUM(ac.sellprice * ac.qty) * -1 AS amount,

		 c.$category

		 FROM invoice ac

      $query .= qq|

	-- add project transactions from invoice

	UNION ALL

	        SELECT g.accno, g.description, c.category,

		SUM(ac.sellprice * ac.qty) AS amount

		FROM invoice ac

		GROUP BY g.accno, g.description, c.category

	UNION ALL

	        SELECT g.accno, g.description, c.category,

		SUM(ac.sellprice * ac.qty) * -1 AS amount

		FROM invoice ac

      $query .= qq|

	-- add project transactions from invoice

	UNION ALL

	        SELECT c.accno, c.description, c.category,

		SUM(ac.sellprice * ac.qty) AS amount

		FROM invoice ac

		GROUP BY c.accno, c.description, c.category

	UNION ALL

	        SELECT c.accno, c.description, c.category,

		SUM(ac.sellprice * ac.qty) * -1 AS amount

		FROM invoice ac

	      $project

	      AND ac.amount < 0

	      AND c.accno = ?) AS debit,

	     (SELECT SUM(ac.amount)

	      FROM acc_trans ac

	      JOIN chart c ON (c.id = ac.chart_id)

		$project

		AND ac.amount < 0

		AND c.gifi_accno = ?) AS debit,

	       (SELECT SUM(ac.amount)

		FROM acc_trans ac

		JOIN chart c ON (c.id = ac.chart_id)

	      $dpt_where

	      $project

	      AND c.accno = ?) AS debit,

	     (SELECT SUM(ac.sellprice * ac.qty)

	      FROM invoice ac

	      JOIN parts p ON (ac.parts_id = p.id)

	  (SELECT $buysell FROM exchangerate

	   WHERE $form->{arap}.curr = exchangerate.curr

	   AND exchangerate.transdate = $form->{arap}.transdate) AS exchangerate

	WHERE paid != amount

	AND $form->{arap}.$form->{ct}_id = $form->{ct}.id

	AND $form->{ct}.id = $id

	AND (

	        AND transdate >= (date '$form->{todate}' - interval '30 days')

	    )

	UNION

-- between 31-60 days

	SELECT $form->{ct}.id AS ctid, $form->{ct}.name,

	street, zipcode, city, country, contact, email,

	phone as customerphone, fax as customerfax, $form->{ct}number,

	0.00 as "c0", (amount - paid) as "c30", 0.00 as "c60", 0.00 as "c90",

	"duedate", invoice, $form->{arap}.id,

	  (SELECT $buysell FROM exchangerate

	   WHERE $form->{arap}.curr = exchangerate.curr

	   AND exchangerate.transdate = $form->{arap}.transdate) AS exchangerate

  FROM $form->{arap}, $form->{ct}

	AND $form->{ct}.id = $id

	AND (

		AND transdate >= (date '$form->{todate}' - interval '60 days')

		)

	UNION

-- between 61-90 days

	SELECT $form->{ct}.id AS ctid, $form->{ct}.name,

	street, zipcode, city, country, contact, email,

	phone as customerphone, fax as customerfax, $form->{ct}number,

	0.00 as "c0", 0.00 as "c30", (amount - paid) as "c60", 0.00 as "c90",

	"duedate", invoice, $form->{arap}.id,

	  (SELECT $buysell FROM exchangerate

	   WHERE $form->{arap}.curr = exchangerate.curr

	   AND exchangerate.transdate = $form->{arap}.transdate) AS exchangerate

	WHERE paid != amount

	AND $form->{ct}.id = $id

	AND (

		AND transdate >= (date '$form->{todate}' - interval '90 days')

		)

	UNION

-- over 90 days

	SELECT $form->{ct}.id AS ctid, $form->{ct}.name,

	street, zipcode, city, country, contact, email,

	phone as customerphone, fax as customerfax, $form->{ct}number,

	0.00 as "c0", 0.00 as "c30", 0.00 as "c60", (amount - paid) as "c90",

	"duedate", invoice, $form->{arap}.id,

	  (SELECT $buysell FROM exchangerate

	   WHERE $form->{arap}.curr = exchangerate.curr

	   AND exchangerate.transdate = $form->{arap}.transdate) AS exchangerate

	WHERE paid != amount

	AND $form->{ct}.id = $id

	ORDER BY

  ctid, transdate, invnumber

		|;

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

		WHERE ac.chart_id = $ref->{id}

		$where

		$invnumber

 	UNION

		SELECT g.description, g.reference, NULL AS ordnumber,

		ac.transdate, ac.amount * $ml AS paid, ac.source,

  $main::lxdebug->leave_sub();

}

1;

           <input type=hidden name="patterncount" value="$patterncount">

           <input type=hidden name="patternlength" value="$patterncount">

           <input type=hidden name="delimiter" value="$delimiter">

  |;

  my $h = 0;

  my $i = 0;

  #}

  #if ( $terminal eq 'mozilla' or $terminal eq 'js' ) {

        <br>

        <script language="Javascript">

        function update_auswahl()

    print qq|

               }|;

  }

        }

        </script>

  print qq|

           <tr>

              <td>Finanzamt

              <td>

                 <select size="1" name="elsterFFFF_new">|;

  if ($elsterFFFF eq '') {

  print qq|

                 </td>

              </tr>

            </select>|;

  $main::lxdebug->leave_sub();

  if ($DBI::err) {

    #There is no table, read the table from sql/finanzamt.sql

    $myconfig->{dbname} als Benutzer: $myconfig->{dbuser} hinzugef?gt...</p>|;

    process_query($form, $dbh, $filename) || $self->error(DBI->errstr);

}

1;

	  <td><input name="${item}_dbuser" size=15 value=$form->{"${item}_dbuser"}></td>

	  <th align=right>| . $locale->text('Password') . qq|</th>

	  <td><input name="${item}_dbpasswd" type=password size=10 value=$form->{"${item}_dbpasswd"}></td>

	</tr>|;

    }

        $webdav{"${directory}c"} = "";

      }

    }

   <tr>

    <td colspan=2><hr size=3 noshade></td>

  </tr>

  <table width=100%>

	<tr>

	<td><input name=angebote class=checkbox type=checkbox value=1 $webdav{angebotec}>&nbsp;Angebot</td>

	<td><input name=rechnungen class=checkbox type=checkbox value=1 $webdav{rechnungenc}>&nbsp;Rechnung</td>

	</tr>

	<tr>

	<td><input name=anfragen class=checkbox type=checkbox value=1 $webdav{anfragenc}>&nbsp;Angebot</td>

	<td><input name=einkaufsrechnungen class=checkbox type=checkbox value=1 $webdav{einkaufsrechnungenc}>&nbsp;Einkaufsrechnung</td>

	</tr>

  <tr>

    <td colspan=2><hr size=3 noshade></td>

  </tr>

    <td><input type=password name=dbpasswd size=10></td>

  </tr>

  <tr>

    <th align=right>$form->{connectstring}</th>

    <td>$dbsources</td>

  </tr>

  <tr>

    <th align=right nowrap>| . $locale->text('Create Dataset') . qq|</th>

    <td><select name=encoding>$selectencoding</select></td>

  </tr>

  <tr>

    <th align=right nowrap>|

    <td>@charts</td>

  </tr>

  <tr><td colspan=2>

<p>

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

    $dbsources

    </td>

  </tr>

  <tr><td>

<p>

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

  $form->redirect($locale->text('Lockfile created!'));

}

		</td>

	      </tr>

	    </table>

|;

  }

  print qq|

  </form>

  </body>

|;

  $lxdebug->leave_sub();

  }

  print qq|

  </form>

  </body>

|;

  $lxdebug->leave_sub();

  <tr>

    <td align=right>| . $locale->text('Salesman') . qq|</td>

    <td><input name=salesman class=checkbox type=checkbox value=1 $form->{salesman}></td>

  <td colspan=2><hr size=3 noshade></td>

  </tr>

</table>

  print qq|

  </form>

  </body>

|;

  $lxdebug->leave_sub();

  print qq|

  </form>

  </body>

|;

  $lxdebug->leave_sub();

  $lxdebug->leave_sub();

}

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

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

      . $locale->text('button')

       |;

    $button2 = qq|

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

    <td>

      <table width=100%>

|;

  $amount  = $locale->text('Amount');

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

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

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

	  <td colspan=2></td>

          <td><select name=APselected>$form->{selectAP}</select></td>

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

	</tr>

	<tr>

	  <th align=right nowrap>| . $locale->text('Notes') . qq|</th>

  print qq|

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

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

      </table>

    </td>

  </tr>

  </tr>

  <tr>

    <td><hr size=3 noshade></td>

</table>

<br>

<form method=post action=$form->{script}>

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

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

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

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

<input class=submit type=submit name=action value="|

    . $locale->text('AP Transaction') . qq|">

  $lxdebug->leave_sub();

}

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

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

      . $locale->text('button')

       |;

    $button2 = qq|

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

      <table width=100%>

$jsscript

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

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

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

	  <td colspan=2></td>

	  <td><select name=ARselected>$form->{selectAR}</select></td>

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

        </tr>

        <tr>

	  <th align=right>| . $locale->text('Notes') . qq|</th>

    } (@{ $form->{all_departments} });

  }

	  <th align=right nowrap>| . $locale->text('Department') . qq|</th>

	  <td colspan=3><select name=department>$form->{selectdepartment}</select></td>

	</tr>

  $lxdebug->leave_sub();

}

  print qq|

<body>

<table border=0 width=100%>

  <tr><th class=listtop colspan=$colspan>$form->{title}</th></tr>

  <tr height="5"></tr>

  $lxdebug->leave_sub();

}

      </table>

    </td>

  </tr>

$jsscript

|;

  $lxdebug->leave_sub();

}

	  <input name=department_2 size=16 maxlength=75 tabindex=3 value="$form->{department_2}"></td>

          <td><input name=shiptodepartment_1 size=16 maxlength=75 value="$form->{shiptodepartment_1}">

	  <input name=shiptodepartment_2 size=16 maxlength=75 value="$form->{shiptodepartment_2}"></td>

	<tr>

	  <th align=right nowrap>| . $locale->text('Street') . qq|</th>

	  <td><input name=street size=35 tabindex=4 maxlength=75 value="$form->{street}"></td>

          <th align=right>| . $locale->text('Bank Code Number') . qq|</th>

          <td><input name=bank_code size=10 tabindex=20 value="$form->{bank_code}"></td>

          <th align=right>| . $locale->text('Bank') . qq|</th>

        </tr>

	<tr>

          $business

  }

  print qq|

  </form>

</body>

}

sub continue { &{ $form->{nextsub} } }

	<tr>

	  <td align=left nowrap>| . $locale->text("Beraternummer") . qq|</td>

	  <td><input name=beraternr size=10 maxlength=7 value="$form->{beraternr}"></td>

	  <td align=left nowrap>| . $locale->text("DFV-Kennzeichen") . qq|</td>

	  <td><input name=dfvkz size=5 maxlength=2 value="$form->{dfvkz}"></td>

	</tr>

	<tr>

	  <td align=left nowrap>| . $locale->text("Beratername") . qq|</td>

	  <td><input name=beratername size=10 maxlength=9 value="$form->{beratername}"></td>

	  <td align=left nowrap>| . $locale->text("Password") . qq|</td>

	  <td><input name=passwort size=5 maxlength=4 value="$form->{passwort}"></td>

	</tr>

	<tr>

	  <td align=left nowrap>| . $locale->text("Mandantennummer") . qq|</td>

	  <td><input name=mandantennr size=10 maxlength=5 value="$form->{mandantennr}"></td>

	  <td align=left nowrap>| . $locale->text("Datentr?gernummer") . qq|</td>

	  <td><input name=datentraegernr size=5 maxlength=3 value="$form->{datentraegernr}"></td>

	<tr>

	  <td><input checked name=kne type=checkbox class=checkbox value=1> |

    . $locale->text("Kontonummernerweiterung (KNE)")

    . qq|</td>

          <td></td>

	  <td align=left nowrap>| . $locale->text("Abrechnungsnummer") . qq|</td>

	  <td><input name=abrechnungsnr size=5 maxlength=3 value="$form->{abrechnungsnr}"></td>

	</tr>

    . $locale->text("Export Buchungsdaten")

    . qq|</td>

          <td></td>

	  <td><input name=exporttype type=radio class=radio value=1> |

    . $locale->text("Export Stammdaten")

    . qq|</td>

	  <td align=left></td>

          <td align=left><select name=monat>$form->{allemonate}</select></td>

        </tr>

          <td align=left><input name=zeitraum class=radio type=radio value=quartal>&nbsp;</td><td align=left>|

    . $locale->text('Quartal')

    . qq|</td>

          <td align=left></td>

          <td align=left><select name=quartal>$form->{allequartale}</select></td>

        </tr>

          <td align=left><input name=zeitraum class=radio type=radio value=zeit>&nbsp;</td><td align=left>|

    . $locale->text('Datum von')

    . qq|</td>

          <td align=left><input name=transdatefrom size=8></td>

	  <td align=left>| . $locale->text('bis') . qq|</td>

	</tr>

      </table>

    </td>

       <td><input name=datefrom id=datefrom size=11 title="$myconfig{dateformat}">

       <input type=button name=datefrom id="trigger1" value=|

      . $locale->text('button')

       |;

    $button2 = qq|

       <td><input name=dateto id=dateto size=11 title="$myconfig{dateformat}">

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

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

      . $locale->text('button')

       |;

    #write Trigger

	  </td>

	</tr>|;

  }

	$department|;

  if ($form->{id}) {

    print qq|

      . $locale->text('Split Debit')

      . qq|"></td>

          <input  name=debit_splited type=hidden size=10 value=$form->{debit_splited}>

          <tr>

	  <th align=right>| . $locale->text('Credit') . qq|</th>

	  <td><select name=creditchartselected tabindex="6">$form->{creditchart}</select></td>

      |;

    }

  }

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

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

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

           function update_stilltopost (betrag){

           remaining = parseFloat(document.split_credit.creditpost.value) - parseFloat(betrag);

           document.split_credit.creditpost.value= remaining;

</script>

<table>|;

           function update_stilltopost (betrag){

           remaining = parseFloat(document.split_debit.debitpost.value) - parseFloat(betrag);

           document.split_debit.debitpost.value= remaining;

</script>

<table>|;

  print qq|

     <input class=submit type=submit name=action value="|

    </form>

   </body>

  print qq|

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

    <input class=submit type=submit name=action value="|

    . $locale->text('choice') . qq|">|;

  print qq|

  <body onLoad="fokus()">

<form method=post name="ic" action=$form->{script}>

    . $locale->text('Updated')

    . qq|</th>

                $button1

	      <tr>

		<th align="right" nowrap="true">| . $locale->text('List Price') . qq|</th>

		<td><input name=listprice size=11 value=$form->{listprice}></td>

    </td>

  </tr>

  $imagelinks

$jsscript

|;

  $lxdebug->leave_sub();

}

sub continue { &{ $form->{nextsub} } }

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

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

      . $locale->text('button')

       |;

    $button2 = qq|

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

	      <tr>

		<th align=right nowrap>| . $locale->text('Vendor') . qq|</th>

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

                <th align=richt nowrap>|

    . $locale->text('Contact Person')

    . qq|</th>

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

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

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

  </tr>

$jsscript

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

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

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

  <tr>

    <td><hr size=3 noshade></td>

  </tr>

    <th class=listtop align=left>Dokumente im Webdav-Repository</th>

  </tr>

    <table width=100%>

|;

    foreach $file (keys %{ $form->{WEBDAV} }) {

      $webdav_list .= qq|

        <td align=left>$file</td>

        <td align=left><a href="$form->{WEBDAV}{$file}">$form->{WEBDAV}{$file}</a></td>

      </tr>

  $lxdebug->leave_sub();

}

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

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

      . $locale->text('button')

       |;

    $button2 = qq|

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

  </tr>

$jsscript

<!-- shipto are in hidden variables -->

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

  <tr>

    <td><hr size=3 noshade></td>

  </tr>