* Added information about different types of dtaus files to README
authorJoey Schulze <joey@infodrom.org>
Mon, 16 Nov 1998 21:38:59 +0000 (21:38 +0000)
committerJoey Schulze <joey@infodrom.org>
Mon, 16 Nov 1998 21:38:59 +0000 (21:38 +0000)
        file.

        * Better support for "Gutschriften", the former version forgot to
        write this where needed.  Fixed now.

ChangeLog
README
dtaus.c

index 38d29e0..f6d9b7c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+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
@@ -9,7 +17,7 @@
        * 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>
 
diff --git a/README b/README
index 37416db..5cfa889 100644 (file)
--- a/README
+++ b/README
@@ -35,6 +35,19 @@ What needs to be done:
  . 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
diff --git a/dtaus.c b/dtaus.c
index 079bc2c..f76cbda 100644 (file)
--- a/dtaus.c
+++ b/dtaus.c
@@ -827,13 +827,6 @@ int control2dtaus (char *ccontrol, char *cdtaus, char *cbeleg, char *ccheck)
   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);
@@ -843,6 +836,19 @@ int control2dtaus (char *ccontrol, char *cdtaus, char *cbeleg, char *ccheck)
            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;