+1998-11-16 Martin Schulze <joey@finlandia.infodrom.north.de>
+
+ * Added information about different types of dtaus files to README
+ file.
+
+ * Better support for "Gutschriften", the former version forgot to
+ write this where needed. Fixed now.
+
1998-10-15 Martin Schulze <joey@finlandia.infodrom.north.de>
* Version 0.3
* Added better support for zero-padded numbers. sprintf() from
libc4 had no problems accepting `%08s' while this didn't produce
zero-padded strings with libc5 and libc6. Now we've got our own
- routine to handle these.
+ routine to handle these. Thanks to Peter Tobias for notifying me.
Fri Jul 3 13:28:28 1998 Martin Schulze <joey@finlandia.infodrom.north.de>
. Reading dtaus, simple support for currency field
. When reading dtaus, divert the field for amount
+Additional Info
+---------------
+
+The A record (the first one in the .ctl file) needs to contain one
+"Art foo" field. This field may contain one of the following, only
+the two-letter code within the double quotes.
+
+ "LB" für Lastschriften Bankseitig
+ "LK" für Lastschriften Kundenseitig
+ "GB" für Gutschriften Bankseitig
+ "GK" für Gutschriften Kundenseitig
+
+
Good luck!
Martin Schulze
control_nextline ((void *)line, 100, fcontrol);
ident = extract_ident(line);
if (!strcmp(ident, "begin") && (line[0] == '{')) {
- fprintf(fbeleg, "\n\n");
- fprintf(fbeleg, "\n Begleitzettel\n\n");
- fprintf(fbeleg, "\n Belegloser Datentraegeraustausch\n\n");
- fprintf(fbeleg, "\n Sammeleinziehungsauftrag\n\n");
- fprintf(fbeleg, "\n VOL ........................:\n");
- fprintf(fbeleg, "\n Erstellungsdatum ...........: %s\n", get_date());
-
control_nextline ((void *)line, 100, fcontrol);
while (strlen(line) && line[0] != '}') {
ident = extract_ident(line);
strcpy(valA[recindex], line);
control_nextline ((void *)line, 100, fcontrol);
}
+ if (((recindex = rec_index("art", REC_A)) != -1) && valA[recindex] && strlen(valA[recindex])) {
+ fprintf(fbeleg, "\n\n");
+ fprintf(fbeleg, "\n Begleitzettel\n\n");
+ fprintf(fbeleg, "\n Belegloser Datentraegeraustausch\n\n");
+ if (valA[recindex][0] == 'L')
+ fprintf(fbeleg, "\n Sammeleinziehungsauftrag\n\n");
+ else if (valA[recindex][0] == 'G')
+ fprintf(fbeleg, "\n Sammelueberweisungsauftrag\n\n");
+ else
+ fprintf(fbeleg, "\n Sammelauftrag\n\n");
+ fprintf(fbeleg, "\n VOL ........................:\n");
+ fprintf(fbeleg, "\n Erstellungsdatum ...........: %s\n", get_date());
+ }
if (!dtaus_writeA(fdtaus, valA)) {
fprintf (stderr, "Konnte den Anfangsdatensatz nicht schreiben.\n");
return 0;