Revision 081a4f97
Von Moritz Bunkus vor mehr als 18 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 588 | 588 |
my $evfile = "EV01"; |
| 589 | 589 |
my @ed_versionsets; |
| 590 | 590 |
my $fileno = 0; |
| 591 |
|
|
| 591 |
|
|
| 592 | 592 |
$form->header; |
| 593 | 593 |
print qq| |
| 594 | 594 |
<html> |
| ... | ... | |
| 616 | 616 |
$remaining_bytes -= length($header); |
| 617 | 617 |
|
| 618 | 618 |
while (scalar(@{ $form->{DATEV} }) > 0) {
|
| 619 |
$transaction = shift @{ $form->{DATEV} };
|
|
| 620 |
$trans_lines = scalar(@{$transaction});
|
|
| 619 |
$transaction = shift @{ $form->{DATEV} };
|
|
| 620 |
$trans_lines = scalar(@{$transaction});
|
|
| 621 | 621 |
$counter++; |
| 622 | 622 |
if (($counter % 500) == 0) {
|
| 623 | 623 |
print("$counter ");
|
| ... | ... | |
| 829 | 829 |
print(EV $ed_versionset[$file]); |
| 830 | 830 |
} |
| 831 | 831 |
close(EV); |
| 832 |
print qq|<br>Done. <br></body> |
|
| 832 |
print qq|<br>Done. <br></body>
|
|
| 833 | 833 |
</html> |
| 834 | 834 |
|; |
| 835 | 835 |
### |
| ... | ... | |
| 865 | 865 |
qq|SELECT c.accno, c.description FROM chart c WHERE c.accno >=| |
| 866 | 866 |
. $dbh->quote($form->{accnofrom}) . qq|
|
| 867 | 867 |
AND c.accno <= | |
| 868 |
. $dbh->quote($form->{accnoto})
|
|
| 869 |
. qq| ORDER BY c.accno|; |
|
| 868 |
. $dbh->quote($form->{accnoto}) . qq| ORDER BY c.accno|;
|
|
| 870 | 869 |
|
| 871 | 870 |
$sth = $dbh->prepare($query); |
| 872 | 871 |
$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.