Revision 081a4f97
Von Moritz Bunkus vor mehr als 19 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
|
my $evfile = "EV01";
|
||
|
my @ed_versionsets;
|
||
|
my $fileno = 0;
|
||
|
|
||
|
|
||
|
$form->header;
|
||
|
print qq|
|
||
|
<html>
|
||
| ... | ... | |
|
$remaining_bytes -= length($header);
|
||
|
|
||
|
while (scalar(@{ $form->{DATEV} }) > 0) {
|
||
|
$transaction = shift @{ $form->{DATEV} };
|
||
|
$trans_lines = scalar(@{$transaction});
|
||
|
$transaction = shift @{ $form->{DATEV} };
|
||
|
$trans_lines = scalar(@{$transaction});
|
||
|
$counter++;
|
||
|
if (($counter % 500) == 0) {
|
||
|
print("$counter ");
|
||
| ... | ... | |
|
print(EV $ed_versionset[$file]);
|
||
|
}
|
||
|
close(EV);
|
||
|
print qq|<br>Done. <br></body>
|
||
|
print qq|<br>Done. <br></body>
|
||
|
</html>
|
||
|
|;
|
||
|
###
|
||
| ... | ... | |
|
qq|SELECT c.accno, c.description FROM chart c WHERE c.accno >=|
|
||
|
. $dbh->quote($form->{accnofrom}) . qq|
|
||
|
AND c.accno <= |
|
||
|
. $dbh->quote($form->{accnoto})
|
||
|
. qq| ORDER BY c.accno|;
|
||
|
. $dbh->quote($form->{accnoto}) . qq| ORDER BY c.accno|;
|
||
|
|
||
|
$sth = $dbh->prepare($query);
|
||
|
$sth->execute || $form->dberror($query);
|
||
Auch abrufbar als: Unified diff
Kosmetik: Perltidy-Lauf nach den Einstellungen in doc/programmierrichtlinien.txt ueber alle .pl und .pm.