$sth->finish;
# get taxkeys and description
- $query = qq|SELECT taxkey, taxdescription
+ $query = qq|SELECT taxkey, taxdescription
FROM tax|;
$sth = $dbh->prepare($query);
$sth->execute || $form->dberror($query);
WHERE id = $form->{id}|;
} else {
- $query = qq|INSERT INTO chart
+ $query = qq|INSERT INTO chart
(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
- SET inventory_accno_id =
+ SET inventory_accno_id =
(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 {
- $query = qq|INSERT INTO gifi
+ $query = qq|INSERT INTO gifi
(accno, description)
VALUES ('$form->{accno}', '$form->{description}')|;
}
role = '$form->{role}'
WHERE id = $form->{id}|;
} else {
- $query = qq|INSERT INTO department
+ $query = qq|INSERT INTO department
(description, role)
VALUES ('$form->{description}', '$form->{role}')|;
}
salesman = '$form->{salesman}'
WHERE id = $form->{id}|;
} else {
- $query = qq|INSERT INTO business
+ $query = qq|INSERT INTO business
(description, discount, customernumberinit, salesman)
VALUES ('$form->{description}', $form->{discount}, '$form->{customernumberinit}', '$form->{salesman}')|;
}
description = '$form->{description}'
WHERE code = '$form->{id}'|;
} else {
- $query = qq|INSERT INTO sic
+ $query = qq|INSERT INTO sic
(code, sictype, description)
VALUES ('$form->{code}', '$form->{sictype}', '$form->{description}')|;
}
# user specific variables are in myconfig
# save defaults
my $query = qq|UPDATE defaults SET
- inventory_accno_id =
+ inventory_accno_id =
(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.*
- FROM contacts c
+ FROM contacts c
WHERE cp_id=$id|;
$sth = $dbh->prepare($query);
$sth->execute || $self->dberror($query);
my ($self, $dbh, $id) = @_;
- my $query = qq|SELECT c.cp_id, c.cp_cv_id, c.cp_name, c.cp_givenname
- FROM contacts c
+ my $query = qq|SELECT c.cp_id, c.cp_cv_id, c.cp_name, c.cp_givenname
+ FROM contacts c
WHERE cp_cv_id=$id|;
my $sth = $dbh->prepare($query);
$sth->execute || $self->dberror($query);
$where = "quotation = '1'";
}
- my $query = qq|SELECT id FROM $arap
+ my $query = qq|SELECT id FROM $arap
WHERE id IN (SELECT MAX(id) FROM $arap
WHERE $where
AND ${table}_id > 0)|;
}
1;
-
if ($form->{id}) {
# delete individual transactions
- $query = qq|DELETE FROM acc_trans
+ $query = qq|DELETE FROM acc_trans
WHERE trans_id = $form->{id}|;
$dbh->do($query) || $form->dberror($query);
my ($null, $department_id) = split /--/, $form->{department};
$department_id *= 1;
- $query = qq|UPDATE gl SET
+ $query = qq|UPDATE gl SET
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
- LEFT JOIN department d ON (d.id = g.department_id)
- LEFT JOIN employee e ON (e.id = g.employee_id)
+ LEFT JOIN department d ON (d.id = g.department_id)
+ LEFT JOIN employee e ON (e.id = g.employee_id)
WHERE g.id = $form->{id}";
$sth = $dbh->prepare($query);
$sth->execute || $form->dberror($query);
}
1;
-
($partsgroup, $partsgroup_id) = split /--/, $form->{partsgroup};
}
- $query = qq|UPDATE parts SET
+ $query = qq|UPDATE parts SET
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)
- VALUES ($form->{id},
+ VALUES ($form->{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) {
- $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
+ $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
transdate)
VALUES ($ref->{trans_id}, $ref->{inventory_accno_id},
$linetotal, '$ref->{transdate}')|;
$dbh->do($query) || $form->dberror($query);
# add expense
- $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
+ $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
transdate, taxkey)
VALUES ($ref->{trans_id}, $ref->{expense_accno_id},
- | . ($linetotal * -1) . qq|, '$ref->{transdate}',
+ | . ($linetotal * -1) . qq|, '$ref->{transdate}',
(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
) {
- $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
+ $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
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,
- $oid{$myconfig->{dbdriver}} AS oid
+ $oid{$myconfig->{dbdriver}} AS oid
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,
- $oid{$myconfig->{dbdriver}} AS oid
+ $oid{$myconfig->{dbdriver}} AS oid
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
- FROM $form->{arap}, $form->{ct}
+ FROM $form->{arap}, $form->{ct}
WHERE paid != amount
AND $form->{arap}.$form->{ct}_id = $form->{ct}.id
AND $form->{ct}.id = $id
AND (
- transdate <= (date '$form->{todate}' - interval '0 days')
+ transdate <= (date '$form->{todate}' - interval '0 days')
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,
- "invnumber", "transdate",
+ "invnumber", "transdate",
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}
- WHERE paid != amount
- AND $form->{arap}.$form->{ct}_id = $form->{ct}.id
+ WHERE paid != amount
+ AND $form->{arap}.$form->{ct}_id = $form->{ct}.id
AND $form->{ct}.id = $id
AND (
- transdate < (date '$form->{todate}' - interval '30 days')
+ transdate < (date '$form->{todate}' - interval '30 days')
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,
- "invnumber", "transdate",
+ "invnumber", "transdate",
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
- FROM $form->{arap}, $form->{ct}
+ FROM $form->{arap}, $form->{ct}
WHERE paid != amount
- AND $form->{arap}.$form->{ct}_id = $form->{ct}.id
+ AND $form->{arap}.$form->{ct}_id = $form->{ct}.id
AND $form->{ct}.id = $id
AND (
- transdate < (date '$form->{todate}' - interval '60 days')
+ transdate < (date '$form->{todate}' - interval '60 days')
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,
- "invnumber", "transdate",
+ "invnumber", "transdate",
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
- FROM $form->{arap}, $form->{ct}
+ FROM $form->{arap}, $form->{ct}
WHERE paid != amount
- AND $form->{arap}.$form->{ct}_id = $form->{ct}.id
+ AND $form->{arap}.$form->{ct}_id = $form->{ct}.id
AND $form->{ct}.id = $id
- AND transdate < (date '$form->{todate}' - interval '90 days')
+ AND transdate < (date '$form->{todate}' - interval '90 days')
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">
- <input type=hidden name="part" value="$part">
+ <input type=hidden name="part" value="$part">
|;
my $h = 0;
my $i = 0;
#}
#if ( $terminal eq 'mozilla' or $terminal eq 'js' ) {
- print qq|
+ print qq|
<br>
<script language="Javascript">
function update_auswahl()
print qq|
}|;
}
- print qq|
+ print qq|
}
</script>
print qq|
<tr>
<td>Finanzamt
- </td>
+ </td>
<td>
<select size="1" name="elsterFFFF_new">|;
if ($elsterFFFF eq '') {
print qq|
</td>
</tr>
- </table>
+ </table>
</select>|;
$main::lxdebug->leave_sub();
if ($DBI::err) {
#There is no table, read the table from sql/finanzamt.sql
- print qq|<p>Bitte warten, Tabelle $table wird einmalig in Datenbank:
+ print qq|<p>Bitte warten, Tabelle $table wird einmalig in Datenbank:
$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"} = "";
}
}
- print qq|
+ print qq|
<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}> Angebot</td>
- <td><input name=bestellungen class=checkbox type=checkbox value=1 $webdav{bestellungenc}> Bestellung</td>
+ <td><input name=bestellungen class=checkbox type=checkbox value=1 $webdav{bestellungenc}> Bestellung</td>
<td><input name=rechnungen class=checkbox type=checkbox value=1 $webdav{rechnungenc}> Rechnung</td>
</tr>
<tr>
<td><input name=anfragen class=checkbox type=checkbox value=1 $webdav{anfragenc}> Angebot</td>
- <td><input name=lieferantenbestellungen class=checkbox type=checkbox value=1 $webdav{lieferantenbestellungenc}> Lieferantenbestellung</td>
+ <td><input name=lieferantenbestellungen class=checkbox type=checkbox value=1 $webdav{lieferantenbestellungenc}> Lieferantenbestellung</td>
<td><input name=einkaufsrechnungen class=checkbox type=checkbox value=1 $webdav{einkaufsrechnungenc}> Einkaufsrechnung</td>
</tr>
- </table>
+ </table>
<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>
- </td>
- </tr>
+ </td>
+ </tr>
|;
}
print qq|
</form>
-
+
</body>
- </html>
+ </html>
|;
$lxdebug->leave_sub();
}
print qq|
-
+
</form>
-
+
</body>
- </html>
+ </html>
|;
$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>
- </tr>
+ </tr>
<td colspan=2><hr size=3 noshade></td>
</tr>
</table>
print qq|
</form>
-
+
</body>
- </html>
+ </html>
|;
$lxdebug->leave_sub();
print qq|
</form>
-
+
</body>
- </html>
+ </html>
|;
$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')
- . qq|></td>
+ . qq|></td>
|;
$button2 = qq|
<td><input name=duedate id=duedate size=11 title="$myconfig{dateformat}" value=$form->{duedate}> $readonly</td>
<td>
<table width=100%>
-$jsscript
+$jsscript
|;
$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>
- </tr>
+ </tr>
</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')
- . qq|></td>
+ . qq|></td>
|;
$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} });
}
- $department = qq|
- <tr>
+ $department = qq|
+ <tr>
<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>
+ </tr>
<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>
- <td><input name=bank size=30 tabindex=21 value="$form->{bank}"></td>
+ <td><input name=bank size=30 tabindex=21 value="$form->{bank}"></td>
</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>
+ </tr>
<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>
- <tr>
+ <tr>
<td align=left><input name=zeitraum class=radio type=radio value=quartal> </td><td align=left>|
. $locale->text('Quartal')
. qq|</td>
<td align=left></td>
<td align=left><select name=quartal>$form->{allequartale}</select></td>
</tr>
- <tr>
+ <tr>
<td align=left><input name=zeitraum class=radio type=radio value=zeit> </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>
- <td align=left><input name=transdateto size=8></td>
+ <td align=left><input name=transdateto size=8></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')
- . qq|></td>
+ . qq|></td>
|;
$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')
- . qq|></td>
+ . qq|></td>
|;
#write Trigger
</td>
</tr>|;
}
- print qq|
+ print qq|
$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>
+ </tr>
<tr>
<th align=right>| . $locale->text('Credit') . qq|</th>
<td><select name=creditchartselected tabindex="6">$form->{creditchart}</select></td>
|;
}
}
- print qq|
+ print qq|
<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="|
- . $locale->text('list') . qq|">
+ . $locale->text('list') . qq|">
</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>
+ </tr>
<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')
- . qq|></td>
+ . qq|></td>
|;
$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>
- <tr>
+ <tr>
<th class=listtop align=left>Dokumente im Webdav-Repository</th>
</tr>
<table width=100%>
|;
foreach $file (keys %{ $form->{WEBDAV} }) {
$webdav_list .= qq|
- <tr>
+ <tr>
<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')
- . qq|></td>
+ . qq|></td>
|;
$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>
- <tr>
+ <tr>
<th class=listtop align=left>Dokumente im Webdav-Repository</th>
</tr>
<table width=100%>
|;
foreach $file (keys %{ $form->{WEBDAV} }) {
$webdav_list .= qq|
- <tr>
+ <tr>
<td align=left>$file</td>
<td align=left><a href="$form->{WEBDAV}{$file}">$form->{WEBDAV}{$file}</a></td>
</tr>
$lxdebug->leave_sub();
}
-
</tr>
</table>
</tr>
- <tr><td colspan=4><hr size=3 noshade></td></tr>
+ <tr><td colspan=4><hr size=3 noshade></td></tr>
</table>
<input type=hidden name=nextsub value=\"do_search\">
<tr>
<th align=right>| . $locale->text('Login Name') . qq|</th>
<td><input class=login name=login size=30 tabindex="1"></td>
- </tr>
+ </tr>
<tr>
<th align=right>| . $locale->text('Password') . qq|</th>
<td><input class=login type=password name=password size=30 tabindex="2"></td>
</td>
</tr>
</table>
-
+
</body>
</html>
|;
$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')
- . qq|></td>
+ . qq|></td>
|;
$button2 = qq|
<td width="13"><input name=reqdate id=reqdate size=11 title="$myconfig{dateformat}" value=$form->{reqdate}></td>
</table>
</td>
</tr>
-
+
$jsscript
<!-- shipto are in hidden variables -->
<input type=hidden name=shiptoemail value="$form->{shiptoemail}">
<!-- email variables -->
-<input type=hidden name=message value="$form->{message}">
+<input type=hidden name=message value="$form->{message}">
<input type=hidden name=email value="$form->{email}">
<input type=hidden name=subject value="$form->{subject}">
<input type=hidden name=cc value="$form->{cc}">
if ($webdav) {
$webdav_list = qq|
- <tr>
+ <tr>
<th class=listtop align=left>Dokumente im Webdav-Repository</th>
</tr>
<table width=100%>
|;
foreach $file (keys %{ $form->{WEBDAV} }) {
$webdav_list .= qq|
- <tr>
+ <tr>
<td align=left>$file</td>
<td align=left><a href="$form->{WEBDAV}{$file}">$form->{WEBDAV}{$file}</a></td>
</tr>
<input class=submit type=submit name=action value="|
. $locale->text('Order') . qq|">|;
}
- print qq|
+ print qq|
<input class=submit type=submit name=action value="|
. $locale->text('Invoice') . qq|">
|;
&menubar;
}
- print qq|
+ print qq|
<input type=hidden name=rowcount value=$form->{rowcount}>
} (@{ $form->{all_departments} });
}
- $department = qq|
- <tr>
+ $department = qq|
+ <tr>
<th align=right nowrap>| . $locale->text('Department') . qq|</th>
<td colspan=3><select name=department>$form->{selectdepartment}</select></td>
</tr>
<input type=hidden name=shiptoemail value="$form->{shiptoemail}">
<!-- email variables -->
-<input type=hidden name=message value="$form->{message}">
+<input type=hidden name=message value="$form->{message}">
<input type=hidden name=email value="$form->{email}">
<input type=hidden name=subject value="$form->{subject}">
<input type=hidden name=cc value="$form->{cc}">
}
print qq|
-
+
<input type=hidden name=rowcount value=$form->{rowcount}>
<input name=callback type=hidden value="$callback">
</table>
</td>
</tr>
-
+
<tr>
<td><hr size=3 noshade></td>
</tr>
$lxdebug->leave_sub();
}
-
print qq|
</form>
-
+
</body>
</html>
|;
$lxdebug->leave_sub();
}
-
. $locale->text('button') . qq|>|;
$button2 = qq|
<input name=$name_2 id=$id_2 size=11 title="$myconfig{dateformat}">|;
- $button2_2 = qq|
+ $button2_2 = qq|
<input type=button name=$name_2 id="$trigger_2" value=|
. $locale->text('button') . qq|>
|;
</tr>
<tr>
<td colspan=5><hr size=3 noshade></td>
- </tr>
+ </tr>
<tr>
<th align=leftt>| . $locale->text('Method') . qq|</th>
<td colspan=3><input name=method class=radio type=radio value=accrual $accrual>|
</tr>
<tr>
<td colspan=5><hr size=3 noshade></td>
- </tr>
+ </tr>
<tr>
<th align=leftt>| . $locale->text('Method') . qq|</th>
<td colspan=3><input name=method class=radio type=radio value=accrual $accrual>|
. $locale->text('EUR')
. qq|</td>
</tr>
-
-$jsscript
+
+$jsscript
|;
}
if ($form->{report} eq "ustva") {
print qq|
-
+
<br>
<input type=hidden name=nextsub value=generate_ustva>
</table>
</tr>
<tr>
<td colspan=5><hr size=3 noshade></td>
- </tr>
+ </tr>
<tr>
<th align=left>| . $locale->text('Method') . qq|</th>
<td colspan=3><input name=method class=radio type=radio value=accrual $accrual>|
. $locale->text('Account Number')
. qq|</td>
</tr>
-
+
$jsscript
|;
}
. $locale->text('All Accounts')
. qq|</td>
</tr>
-
+
$jsscript
|;
}
<input type=hidden name=nextsub value=$nextsub>
<input type=hidden name=action value=$nextsub>
-
+
$jsscript
|;
}
. qq|</td>
</tr>
-$jsscript
-
+$jsscript
+
<input type=hidden name=db value=$form->{db}>
<input type=hidden name=sort value=transdate>
|;
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>
-
+
<br>
<input class=submit type=submit name=action value="|
. $locale->text('Select all') . qq|">
}
$lxdebug->leave_sub();
}
-
$form->{tel}
<br>
| . $locale->text('Fax.: ') . qq|
- $form->{fax}
+ $form->{fax}
<br>
<br>
- $form->{email}
+ $form->{email}
<br>
<br>
| . $locale->text('Steuernummer: ') . qq|
. qq|" name="FA_steuerberater" id=steuerberater class=checkbox type=checkbox value="1">
<b>| . $locale->text('Steuerberater/-in') . qq|</b>
</legend>
-
+
$form->{FA_steuerberater_name}<br>
$form->{FA_steuerberater_street}<br>
$form->{FA_steuerberater_city}<br>
if ($form->{FA_Name} ne '') {
print qq|
- <td width="50%" valign="top">
+ <td width="50%" valign="top">
<fieldset>
<legend>
<b>| . $locale->text('Finanzamt') . qq|</b>
<br>
| . $locale->text('Tel. : ') . qq|
$form->{FA_Telefon}
- <br>
+ <br>
| . $locale->text('Fax. : ') . qq|
$form->{FA_Fax}
<br>
<tr>
<td>
$form->{FA_Bankbezeichnung_1}
- <br>
+ <br>
| . $locale->text('Konto: ') . qq|
$form->{FA_Kontonummer_1}
<br>
<br>
| . $locale->text('Konto: ') . qq|
$form->{FA_Kontonummer_2}
- <br>
+ <br>
| . $locale->text('BLZ: ') . qq|
$form->{FA_BLZ_2}
</td>
<br>
<br>
$form->{FA_Bankbezeichnung_1}
- <br>
+ <br>
| . $locale->text('Konto: ') . qq|
$form->{FA_Kontonummer_1}
- <br>
+ <br>
| . $locale->text('BLZ: ') . qq|
$form->{FA_BLZ_1} <br>
<br>|;
<br>
<br>
$form->{FA_Bankbezeichnung_oertlich}
- <br>
+ <br>
| . $locale->text('Konto: ') . qq|
$form->{FA_Kontonummer_2}
- <br>
+ <br>
| . $locale->text('BLZ: ') . qq|
$form->{FA_BLZ_2}
|;
<option value="$key" $selected>|
. $locale->text("$liste{$key}")
. qq|</option>
-
+
|;
}
print qq|</select>|;
<option value="$key">$listea{$key} |
. $locale->text('Quarter')
. qq|</option>
-
+
|;
}
foreach $key (sort keys %listeb) {
print qq|
<option value="$key">| . $locale->text("$listeb{$key}") . qq|</option>
-
+
|;
}
print qq|</select>|;
<label for="">|
. $locale->text('Dauerfristverlängerung')
. qq|</label>
-
+
</fieldset>
<br>
<fieldset>
<input name="FA_steuerberater_tel" id=steuerberater size=25 value="$form->{FA_steuerberater_tel}">
</tr>
</table>
-
+
</fieldset>
<br>
my @variables = qw( steuernummer elsterland elstersteuernummer elsterFFFF);
my $variable = '';
foreach $variable (@variables) {
- print qq|
+ print qq|
<input name=$variable type=hidden value="$form->{$variable}">|;
}
my $steuernummer_new = '';
FA_Email FA_Internet);
foreach $variable (@variables) {
- print qq|
+ print qq|
<input name=$variable type=hidden value="$form->{$variable}">|;
}
|| $form->{elsterland_new} eq 'Auswahl');
USTVA::info(
$locale->text(
- 'Es fehlen Angaben zur Versteuerung.
- Wenn Sie Ist Versteuert sind, wählen Sie die Einnahmen/Überschuß-Rechnung aus.
+ '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.'
))
if ($form->{method} eq '');
| . $locale->text('Telefon') . qq|<br>
<input name="FA_Telefon" size="40" title="FA_Telefon" value="$form->{FA_Telefon}" $readonly>
<br>
- <br>
+ <br>
| . $locale->text('Fax') . qq|<br>
<input name="FA_Fax" size="40" title="FA_Fax" value="$form->{FA_Fax}" $readonly>
<br>
<b>|
. $locale->text('Bankverbindungen des Finanzamts') . qq|</b>
<legend>
- <table>
+ <table>
<tr>
<td>
| . $locale->text('Kreditinstitut') . qq|
<br>
<input name="FA_Kontonummer_1" size="15" value="$form->{FA_Kontonummer_1}" $readonly>
<br>
- <br>
+ <br>
| . $locale->text('Bankleitzahl') . qq|
<br>
<input name="FA_BLZ_1" size="15" value="$form->{FA_BLZ_1}" $readonly>
<br>
<input name="FA_Kontonummer_2" size="15" value="$form->{FA_Kontonummer_2}" $readonly>
<br>
- <br>
+ <br>
| . $locale->text('Bankleitzahl') . qq|
<br>
<input name="FA_BLZ_2" size="15" value="$form->{FA_BLZ_2}" $readonly>
<br>
<input name="FA_Kontonummer_1" size="30" value="$form->{FA_Kontonummer_1}" $readonly>
<br>
- <br>
+ <br>
| . $locale->text('Bankleitzahl (BLZ)') . qq|
<br>
<input name="FA_BLZ_1" size="15" value="$form->{FA_BLZ_1}" $readonly>
<legend>
<b>|
. $locale->text('Bankverbindung des Finanzamts') . qq|</b>
- <legend>
+ <legend>
| . $locale->text('Kontonummer') . qq|
<br>
<input name="FA_Kontonummer_2" size="30" value="$form->{FA_Kontonummer_2}" $readonly>
<br>
- <br>
+ <br>
| . $locale->text('Bankleitzahl (BLZ)') . qq|
<br>
<input name="FA_BLZ_2" size="15" value="$form->{FA_BLZ_2}" $readonly>
}
print qq|
</td>
- </tr>
+ </tr>
</table>
</fieldset>
|;
do {
$form->error(
"Ungültiger Anmeldezeitraum.\n
- Sie können für ELSTER nur einen monatlichen oder
+ Sie können für ELSTER nur einen monatlichen oder
quartalsweisen Anmeldezeitraum auswählen."
);
};
close XML;
$lxdebug->leave_sub();
}
-
projects / mfinanz.git / commitdiff