93e8b3c1f55acf975aad543b75a5decb54b82f79
[infodrom/dtaus] / dtaus.c
1 /*
2     dtaus.c - Datenträgeraustausch mit einer Bank
3     Copyright (c) 1996,8,2001  Martin Schulze <joey@infodrom.org>
4
5     This program is free software; you can redistribute it and/or modify
6     it under the terms of the GNU General Public License as published by
7     the Free Software Foundation; either version 2 of the License, or
8     (at your option) any later version.
9
10     This program is distributed in the hope that it will be useful,
11     but WITHOUT ANY WARRANTY; without even the implied warranty of
12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13     GNU General Public License for more details.
14
15     You should have received a copy of the GNU General Public License
16     along with this program; if not, write to the Free Software
17     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA.
18
19     $Id$
20  */
21
22 #include "dtaus.h"
23 #include "bigint.h"
24 #include <stdio.h>
25 #include <stdlib.h>
26 #include <string.h>
27 #include <ctype.h>
28 #include <time.h>
29 #include <malloc.h>
30
31 /*
32  *  First: Some control structures
33  */
34
35 typedef struct
36 {
37   char *name;
38   unsigned short int pos;
39   unsigned short int len;
40   int type;
41 } dtaus_record;
42
43 #define REC_A   1
44 #define REC_C   2
45 #define REC_E   3
46
47 #define REQ     1
48 #define OPT     2
49 #define IGN     3
50
51 dtaus_record recA[] = {
52   {"Art", 5, 2, REQ},
53   {"Name", 23, 27, REQ},
54   {"Konto", 60, 10, REQ},
55   {"BLZ", 7, 8, REQ},
56   {"Referenz", 70, 10, OPT},
57   {"Datum", 50, 6, IGN},
58   {"Euro", 127, 1, OPT},
59   {NULL, 0, 0}
60 };
61
62 #define A_TRANS 0
63 #define A_NAME  1
64 #define A_KTO   2
65 #define A_BLZ   3
66 #define A_REF   4
67 #define A_DATE  5
68 #define A_EURO  6
69 #define A_LEN   7
70
71 dtaus_record recC[] = {
72   {"Name", 93, 27, REQ},
73   {"Konto", 21, 10, REQ},
74   {"BLZ", 13, 8, REQ},
75   {"Transaktion", 44, 5, REQ},
76   {"Betrag", 50, 11, REQ},
77   {"Zweck", 155, 27, REQ},
78   {"myName", 128, 27, OPT},
79   {"myKonto", 69, 10, OPT},
80   {"myBLZ", 61, 8, OPT},
81   {"Euro", 182, 1, IGN},
82   {"Text", 187, 29, OPT},
83   {"Extension", 216, 29, OPT},
84   {NULL, 0, 0}
85 };
86
87 #define C_NAME  0
88 #define C_KTO   1
89 #define C_BLZ   2
90 #define C_TRANS 3
91 #define C_VAL   4
92 #define C_ZWECK 5
93 #define C_MYNAM 6
94 #define C_MYKTO 7
95 #define C_MYBLZ 8
96 #define C_EURO  9
97 #define C_TEXT 10
98 #define C_EXT  11
99 #define C_LEN  12
100
101 #define MAX_TEXT 61
102
103 dtaus_record recE[] = {
104   {"Anzahl", 10, 7, IGN},
105   {"Summe", 17, 13, IGN},
106   {"Kontos", 30, 17, IGN},
107   {"BLZs", 47, 17, IGN},
108   {NULL, 0, 0}
109 };
110
111 #define E_COUNT 0
112 #define E_VAL   1
113 #define E_KTO   2
114 #define E_BLZ   3
115 #define E_LEN   0
116
117 /*
118  *  Second: Some low level routines
119  */
120
121 size_t dtaus_nextrec (void **buf, FILE *f)
122 {
123   bzero (buf, 128);
124   return fread(buf, 128, 1, f);
125 }
126
127 char *upcase(char *s)
128 {
129   static char x[100];
130   static char *xp;
131   char *cp;
132
133   for (cp=s,xp=x; *cp; cp++,xp++) {
134     if (strchr(" 0123456789.,&-/+*$%ABCDEFGHIJKLMNOPQRSTUVWXYZ",*cp)) {
135         *xp = *cp;
136     } else if (strchr("abcdefghijklmnopqrstuvwxyz",*cp)) {
137       *xp = toupper(*cp);
138     } else if (strchr ("üÜäÄöÖß", *cp)) {
139       switch (*cp) {
140       case 'ü': *(xp++) = 'U'; *xp='E'; break;
141       case 'Ü': *(xp++) = 'U'; *xp='E'; break;
142       case 'ä': *(xp++) = 'A'; *xp='E'; break;
143       case 'Ä': *(xp++) = 'A'; *xp='E'; break;
144       case 'ö': *(xp++) = 'O'; *xp='E'; break;
145       case 'Ö': *(xp++) = 'O'; *xp='E'; break;
146       case 'ß': *(xp++) = 'S'; *xp='S'; break;
147       }
148     } else
149       /*
150        * Filter out all other characters since credit institutes won't
151        * accept the file otherwise.
152        */
153       *xp = ' ';
154   }
155   *xp = '\0';
156
157   return x;
158 }
159
160 char *downcase(char *s)
161 {
162   static char x[100];
163   char *cp;
164
165   memset (x, 0, sizeof (x));
166   strncpy (x, s, 99);
167   
168   for (cp=x;*cp;cp++)
169     if (isupper(*cp))
170       *cp = tolower(*cp);
171   return x;
172 }
173
174 char *strip_spaces (char *s)
175 {
176   int i;
177   char *p;
178
179   for (i=strlen(s);(s[i-1] == ' '||s[i-1] == '\t')&&i>0; i--)
180     s[i-1] = '\0';
181   for (p=s; *p==' '; p++);
182   return p;
183 }
184
185 char *strip_zeros (char *s)
186 {
187   char *p;
188
189   for (p=s; *p=='0'; p++);
190   return p;
191 }
192
193 char *strip_nondigits (char *s)
194 {
195   char *p;
196   char *x;
197
198   for (x=s,p=s;*x;x++)
199     if (isdigit (*x))
200       *(p++) = *x;
201   *(p++) = '\0';
202
203   return s;
204 }
205
206 char dtaus_char (void *buf, unsigned int pos)
207 {
208   static char res;
209   char *bufp = buf;
210
211   bufp+=pos;
212   memcpy(&res, bufp, 1);
213   return res;
214 }
215
216 char *string2real(char *s)
217 {
218   static char res[20];
219   char *cp = s;
220
221   cp+=strlen(s)-2;
222   strncpy(res, s, strlen(s)-2);
223   res[strlen(s)-2] = '.';
224   res[strlen(s)-1] = s[strlen(s)-2];
225   res[strlen(s)] = s[strlen(s)-1];
226   return res;
227 }
228
229 char *real2string(char *s)
230 {
231   static char res[20];
232   char *cp;
233
234   strcpy(res, s);
235   for (cp=res; *cp&&!(*cp == ',')&&!(*cp == '.');cp++);
236   *(cp++) = *(cp+1);
237   *(cp++) = *(cp+1);
238   *cp = '\0';
239   return res;
240 }
241
242 char *string2trans (char *s)
243 {
244   static char res[30];
245
246   res[0] = '\0';
247   if (!strcmp(s, "04000"))
248     sprintf (res, "Abbuchung");
249   else if (!strcmp(s, "05000"))
250     sprintf (res, "Einzug");
251   else if (!strcmp(s, "05005"))
252     sprintf (res, "E-Cash");
253   else if (!strcmp(s, "05006"))
254     sprintf (res, "E-Cash-A");
255   else if (!strcmp(s, "51000"))
256     sprintf (res, "Gutschrift");
257   else if (!strcmp(s, "53000"))
258     sprintf (res, "Lohn");
259   else if (!strncmp(s, "5400", 4))
260     sprintf (res, "Vermögen");
261   /*  else if (!strcmp(s, "56000"))
262     sprintf (res, ""); / * Überweisung öffentlicher Kassen */
263   return res;
264 }
265
266 char *trans2string (char *s)
267 {
268   static char res[30];
269
270   res[0] = '\0';
271   if (!strcmp(s, "Abbuchung"))
272     sprintf (res, "04000");
273   else if (!strcmp(s, "Einzug"))
274     sprintf (res, "05000");
275   else if (!strcmp(s, "E-Cash"))
276     sprintf (res, "05005");
277   else if (!strcmp(s, "E-Cash-A"))
278     sprintf (res, "05006");
279   else if (!strcmp(s, "Gutschrift"))
280     sprintf (res, "51000");
281   else if (!strcmp(s, "Lohn"))
282     sprintf (res, "53000");
283   else if (!strncmp(s, "Vermögen", 4))
284     sprintf (res, "5400");
285   /*  else if (!strcmp(s, ""))
286     sprintf (res, "56000"); / * Überweisung öffentlicher Kassen */
287   return res;
288 }
289
290 char *string2ext (char *s)
291 {
292   static char res[30];
293
294   res[0] = '\0';
295   if (!strcmp(s, "01"))
296     sprintf (res, "Kunde");
297   else if (!strcmp(s, "02"))
298     sprintf (res, "Text");
299   else if (!strcmp(s, "03"))
300     sprintf (res, "Auftraggeber");
301   return res;
302 }
303
304 char *ext2string (char *s)
305 {
306   static char res[3];
307
308   res[0] = '\0';
309   if (!strcmp(s, "Kunde"))
310     sprintf (res, "01");
311   else if (!strcmp(s, "Text"))
312     sprintf (res, "02");
313   else if (!strcmp(s, "Auftraggeber"))
314     sprintf (res, "03");
315   return res;
316 }
317     
318 unsigned long int dtaus_int(void *buf, unsigned int pos, unsigned int len)
319 {
320   char tmp[30];
321   char *bufp = buf;
322   static unsigned long int res;
323
324   bufp+=pos;
325   memcpy(tmp, bufp, len);
326   tmp[len] = '\0';
327   sscanf(tmp, "%lu", &res);
328   return res;
329 }
330
331 /*
332  * returns the first word in this line, returns it and shortens the
333  * line.
334  */
335 char *extract_ident (char *line)
336 {
337   char *c, *x, *y;
338   static char word[30];
339
340   if (strlen(line) > 0) {
341     x = index (line, ' ');
342     y = index (line, '\t');
343
344     if (!x && !y) {
345         strncpy(word, line, 29);
346         line[0] = '\0';
347         return word;
348     }
349
350     /* Check which index returns the lower value, and check if the
351        value is non-NULL */
352     if ((c = (x && x<y)?x:(y?y:x))) { 
353       strncpy(word, line, c - line);
354       word[c-line] = '\0';
355       for (;*c == '\t' || *c == ' '; c++);
356       for (x=line; *c; c++,x++)
357         *x = *c;
358       *x = '\0';
359       strcpy(word, downcase(word));
360       return word;
361     }
362     return NULL;
363   }
364   return line;
365 }
366
367 /*
368  * Pads a string with zero's on the left side.
369  */
370 char *padzeroclip (char *s, int len)
371 {
372   char *p, *q;
373
374   if (strlen(s) == len) return s;
375   if (strlen(s) > len) {
376       q=s+len;
377       *(q--) = '\0';
378       return s;
379   }
380
381   q=s+len;
382   *(q--) = '\0';
383   for (p=s+strlen(s)-1;p>=s;p--)
384     *(q--)=*p;
385   for (;q>=s;) *(q--)='0';
386   return s;
387 }
388
389 int rec_index(char *ident, int type)
390 {
391   int i;
392   dtaus_record *rec = NULL;
393
394   switch (type) {
395   case REC_A:   rec = recA; break;
396   case REC_C:   rec = recC; break;
397   case REC_E:   rec = recE; break;
398   }
399
400   for (i=0; (rec[i].name); i++) {
401     if (!strcmp(ident, downcase(rec[i].name)))
402       return i;
403   }
404
405   return -1;
406 }
407
408 size_t control_nextline (void **buf, int len, FILE *f)
409 {
410   char line[100];
411   char tmp[100];
412   char *cp;
413   int i;
414
415   bzero (line, sizeof(line));
416   bzero (buf, len);
417   cp = line;
418
419   while (!strlen(line) && (cp = fgets(line, 100, f))) {
420     if (strlen(line)) {
421       if (line[0] != '#') {
422         if (line[strlen(line)-1] != '\n') { 
423           strcpy(tmp, line);
424           while (tmp[strlen(tmp)-1] != '\n' && (cp = fgets(tmp, 100, f)));
425         } else
426           line[strlen(line)-1] = '\0';
427         if (line[strlen(line)-1] == '\r')
428           line[strlen(line)-1] = '\0';
429         for (i=strlen(line);(line[i-1] == ' '||line[i-1] == '\t')&&i>0; i--)
430           line[i-1] = '\0';
431         if (line[0] == '#')
432           line[0] = '\0';
433       } else
434         line[0] = '\0';
435     }
436   }
437   for (cp=line; *cp==' '; cp++);
438
439   if (strlen(cp)) {
440     memcpy(buf, cp, strlen(cp));
441     return 1;
442   } else
443     return 0;
444 }
445
446 char *get_date()
447 {
448   static char res[10];
449   time_t timer;
450   struct tm *loctime;
451
452   timer = time ( NULL );
453   loctime = localtime(&timer);
454   sprintf(res, "%02d.%02d.%02d", loctime->tm_mday, loctime->tm_mon+1, loctime->tm_year % 100);
455   return res;
456 }
457
458 /*
459  *  Prepare a record A according to the specs.
460  *  See dtaus.txt for explanation
461  */
462 void dtaus_prepareA (char *buf)
463 {
464   int i;
465   time_t timer;
466   struct tm *loctime;
467   char tmp[10];
468
469   bzero (buf, 129);
470   timer = time ( NULL );
471   loctime = localtime(&timer);
472
473   buf[0] = '0';
474   buf[1] = '1';
475   buf[2] = '2';
476   buf[3] = '8';
477   buf[4] = 'A';
478   for (i=15;i<15+8; i++) buf[i] = '0';          /* A5 */
479   sprintf(tmp, "%02d%02d%02d", loctime->tm_mday, loctime->tm_mon+1, loctime->tm_year % 100);
480   for (i=0; i<6; i++) buf[50+i] = tmp[i];       /* A7 (Date) */
481   for (i=56;i<56+4; i++) buf[i] = ' ';          /* A8 */
482   for (i=70;i<70+10; i++) buf[i] = '0';         /* A10 */
483   for (i=80;i<80+48; i++) buf[i] = ' ';         /* A11 */
484   buf[127] = ' ';                               /* A12 (Currency) */
485 }
486
487 /*
488  *  Prepare a record C according to the specs.
489  *  See dtaus.txt for explanation
490  */
491 void dtaus_prepareC (char *buf, int normaltext, int maxtext)
492 {
493   int i;
494   int appendix = 0;
495   div_t res;
496
497   bzero (buf, 257);
498   buf[0] = '0';
499
500   if (normaltext)
501     appendix = 1;
502   if (maxtext) {
503     res = div (maxtext-1, 4);
504     appendix += res.quot;
505     if (res.rem) appendix++;
506   }
507   i = 187 + (appendix * 29);
508
509   /* Bail out if the number is too large, shouldn't be possible though */
510   if (i >= 1000)
511     exit (1);
512
513   buf[1] = (i/100)+48;i-=(i/100)*100;
514   buf[2] = (i/10)+48;i-=(i/10)*10;
515   buf[3] = i+48;
516   buf[4] = 'C';
517
518   for (i=31;i<31+13; i++) buf[i] = '0';         /* C6 */
519   buf[49] = ' ';                                /* C8 */
520   for (i=50;i<50+11; i++) buf[i] = '0';         /* C9 (Betrag) */
521   for (i=79;i<79+11; i++) buf[i] = '0';         /* C12 (Euro) */
522   for (i=90;i<90+3; i++) buf[i] = ' ';          /* C13 */
523   for (i=93;i<90+27; i++) buf[i] = ' ';         /* C14a (Kunde) */
524   for (i=120;i<120+8; i++) buf[i] = ' ';        /* C14b */
525   buf[182] = ' ';                               /* C17a (Currency) */
526   for (i=183;i<183+2; i++) buf[i] = ' ';        /* C17b */
527   for (i=185;i<185+2; i++) buf[i] = '0';        /* C18 (#Extension) */
528   for (i=187;i<187+(29*2); i++) buf[i] = ' ';   /* C19-C22 (misc text) */
529   for (i=245;i<245+11; i++) buf[i] = ' ';       /* C23 */
530 }
531
532 /*
533  *  Prepare a record E according to the specs.
534  *  See dtaus.txt for explanation
535  */
536 void dtaus_prepareE (char *buf)
537 {
538   int i;
539
540   bzero (buf, 129);
541   buf[0] = '0';
542   buf[1] = '1';
543   buf[2] = '2';
544   buf[3] = '8';
545   buf[4] = 'E';
546   for (i=5;i<5+5; i++) buf[i] = ' ';    /* E3 */
547   for (i=17;i<17+13; i++) buf[i] = '0'; /* E8 (Check Betrag) */
548   for (i=64;i<64+13; i++) buf[i] = '0'; /* E8 (Check Euro) */
549   for (i=77;i<77+51; i++) buf[i] = ' '; /* E9 */
550 }
551
552 int dtaus_writeA(FILE *f, char **values)
553 {
554   char buf[129];
555   char tmp[30];
556   int i;
557   
558   for (i=0; (recA[i].name); i++)
559     if ((recA[i].type == REQ) && !values[i]) {
560       fprintf (stderr, "Anfangsdatensatz ist nicht vollständig, kein %s.\n", recA[i].name);
561       return 0;
562     }
563   if (!(((values[A_TRANS][0] == 'L')||(values[A_TRANS][0] == 'G'))
564         &&((values[A_TRANS][1] == 'B')||(values[A_TRANS][1] == 'K')))) {
565     fprintf (stderr, "Ungültiger Typ, nur LK, GK, LB oder GB erlaubt.\n");
566     return 0;
567   }
568
569   i=A_NAME;if (values[i] && strlen(values[i]) > recA[i].len)
570     values[i][recA[i].len] = '\0';
571
572   dtaus_prepareA(buf);
573   buf[5] = values[A_TRANS][0];
574   buf[6] = values[A_TRANS][1];
575   sprintf (tmp, "%s", padzeroclip (strip_nondigits (values[A_BLZ]),8));
576   for (i=0; i<8; i++) buf[recA[A_BLZ].pos+i] = tmp[i];
577   sprintf (tmp, "%-27s", upcase(values[A_NAME]));
578   for (i=0; i<27; i++) buf[recA[A_NAME].pos+i] = tmp[i];
579   sprintf (tmp, "%s", padzeroclip (strip_nondigits (values[A_KTO]),10));
580   for (i=0; i<10; i++) buf[recA[A_KTO].pos+i] = tmp[i];
581
582   fputs(buf, f);
583   return 1;
584 }
585
586 int dtaus_writeC(FILE *f, char **valuesA, char **values, char **text)
587 {
588   char buf[257];
589   char appendix[129];
590   char tmp[30];
591   int i, k;
592   int maxtext = 0;
593   int fieldnr;
594   div_t res;
595
596   if (text)
597     for (maxtext=0;text[maxtext];maxtext++);
598
599 #if DEBUG
600   for (i=0; (recC[i].name); i++)
601     if (values[i])
602       printf ("%s: %s\n", recC[i].name, values[i]);
603 #endif
604
605   for (i=0; (recC[i].name); i++)
606     if ((recC[i].type == REQ) && !values[i]) {
607       fprintf (stderr, "Datensatz ist nicht vollständig, kein %s.\n", recC[i].name);
608       return 0;
609     }
610   sprintf (tmp, "%s", trans2string(values[C_TRANS]));
611   if (!strlen(tmp)) {
612     fprintf (stderr, "Ungültiger Typ, nur Abbuchung, Einzug, E-Cash, E-Cash-A, Gutschrift und Lohn erlaubt.\n");
613     return 0;
614   }
615
616   i=C_TEXT;if (values[i] && strlen(values[i]) > recC[i].len)
617     values[i][recC[i].len] = '\0';
618   i=C_ZWECK;if (values[i] && strlen(values[i]) > recC[i].len)
619     values[i][recC[i].len] = '\0';
620   i=C_MYNAM;if (values[i] && strlen(values[i]) > recC[i].len)
621     values[i][recC[i].len] = '\0';
622   i=C_TEXT;if (values[i] && strlen(values[i]) > recC[i].len)
623     values[i][recC[i].len] = '\0';
624   i=C_EXT;if (values[i] && strlen(values[i]) > recC[i].len)
625     values[i][recC[i].len] = '\0';
626
627   dtaus_prepareC (buf, values[C_TEXT] != NULL, maxtext);
628   for (i=0; i<5; i++) buf[recC[C_TRANS].pos+i] = tmp[i];
629   if (values[C_MYBLZ])
630     sprintf (tmp, "%s", padzeroclip (strip_nondigits (values[C_MYBLZ]),8));
631   else
632     sprintf (tmp, "%s", padzeroclip (strip_nondigits (valuesA[A_BLZ]),8));
633   for (i=0; i<recC[C_MYBLZ].len; i++) buf[5+i] = tmp[i];
634   for (i=0; i<recC[C_MYBLZ].len; i++) buf[recC[C_MYBLZ].pos+i] = tmp[i];
635   sprintf (tmp, "%s", padzeroclip (strip_nondigits (values[C_BLZ]),8));
636   for (i=0; i<recC[C_BLZ].len; i++) buf[recC[C_BLZ].pos+i] = tmp[i];
637   sprintf (tmp, "%s", padzeroclip (strip_nondigits (values[C_KTO]),10));
638   for (i=0; i<recC[C_KTO].len; i++) buf[recC[C_KTO].pos+i] = tmp[i];
639   sprintf (tmp, "%s", padzeroclip (real2string(values[C_VAL]),11));
640   for (i=0; i<recC[C_VAL].len; i++) buf[recC[C_VAL].pos+i] = tmp[i];
641   if (values[C_MYKTO])
642     sprintf (tmp, "%s", padzeroclip (strip_nondigits (values[C_MYKTO]),10));
643   else
644     sprintf (tmp, "%s", padzeroclip (strip_nondigits (valuesA[A_KTO]),10));
645   for (i=0; i<recC[C_MYKTO].len; i++) buf[recC[C_MYKTO].pos+i] = tmp[i];
646   sprintf (tmp, "%-27s", upcase(values[C_NAME]));
647   for (i=0; i<recC[C_NAME].len; i++) buf[recC[C_NAME].pos+i] = tmp[i];
648   if (values[C_MYNAM])
649     sprintf (tmp, "%-27s", upcase(values[C_MYNAM]));
650   else
651     sprintf (tmp, "%-27s", upcase(valuesA[A_NAME]));
652   for (i=0; i<recC[C_MYNAM].len; i++) buf[recC[C_MYNAM].pos+i] = tmp[i];
653   sprintf (tmp, "%-27s", upcase(values[C_ZWECK]));
654   for (i=0; i<recC[C_ZWECK].len; i++) buf[recC[C_ZWECK].pos+i] = tmp[i];
655
656   if (values[C_TEXT]) {
657     buf[recC[C_TEXT].pos+0] = '0';
658     buf[recC[C_TEXT].pos+1] = '2';
659     sprintf (tmp, "%-27s", upcase(values[C_TEXT]));
660     for (i=0; i<recC[C_TEXT].len-2; i++) buf[recC[C_TEXT].pos+2+i] = tmp[i];
661   }
662
663   if (text) {
664     buf[recC[C_EXT].pos+0] = '0';
665     buf[recC[C_EXT].pos+1] = '2';
666     sprintf (tmp, "%-27s", upcase(text[0]));
667     for (i=0; i<recC[C_EXT].len-2; i++) buf[recC[C_EXT].pos+2+i] = tmp[i];
668
669     res = div (maxtext-1, 4);
670     i=res.quot;
671     if (res.rem) i++;
672
673     buf[185+0] = (i/10)+48;i-=(i/10)*10;
674     buf[185+1] = i+48;
675   }
676
677   fputs(buf, f);
678
679   if (text && maxtext > 1) {
680     fieldnr=1;
681     while (fieldnr<maxtext) {
682       memset (appendix, ' ', 128);
683       appendix[128] = '\0';
684       for (k=0; k<4 && (fieldnr+k)<maxtext; k++) {
685         sprintf (tmp, "%-27s", upcase(text[fieldnr+k]));
686         appendix[k*29] = '0';
687         appendix[(k*29)+1] = '2';
688         for (i=0; i<recC[C_TEXT].len-2; i++) appendix[(k*29)+2+i] = tmp[i];
689       }
690       fputs(appendix, f);
691       fieldnr += k;
692     }
693   }
694
695   return 1;
696 }
697
698 int dtaus_writeE(FILE *f, int count, bigint sum, bigint blz, bigint kto)
699 {
700   char buf[129];
701   char tmp[30];
702   int i;
703   
704   dtaus_prepareE(buf);
705
706   sprintf (tmp, "%07d", count);
707   for (i=0; i<recE[E_COUNT].len; i++) buf[recE[E_COUNT].pos+i] = tmp[i];
708   bigint_sprintf (tmp, "%s", sum);
709   padzeroclip (tmp,13);
710   for (i=0; i<recE[E_VAL].len; i++) buf[recE[E_VAL].pos+i] = tmp[i];
711   bigint_sprintf (tmp, "%s", sum);
712   padzeroclip (tmp,13);
713   for (i=0; i<recE[E_VAL].len; i++) buf[recE[E_VAL].pos+i] = tmp[i];
714   bigint_sprintf (tmp, "%s", kto);
715   padzeroclip (tmp,17);
716   for (i=0; i<recE[E_KTO].len; i++) buf[recE[E_KTO].pos+i] = tmp[i];
717   bigint_sprintf (tmp, "%s", blz);
718   padzeroclip (tmp,17);
719   for (i=0; i<recE[E_BLZ].len; i++) buf[recE[E_BLZ].pos+i] = tmp[i];
720
721   fputs(buf, f);
722   return 1;
723 }
724
725 void printctln(FILE *f, char *field, char *value)
726 {
727   if (strlen(field) && strlen(value))
728     fprintf(f, "  %s\t%s\n", field, value);
729 }
730
731
732 /*
733  *  Third: Some high level routines
734  */
735
736 void dtaus2control (char *cdtaus, char *ccontrol)
737 {
738   FILE *fdtaus, *fcontrol;
739   void *buf;
740   void *bufp;
741   char tmp[30];
742   char x[30];
743   int index;
744   int extC;
745
746   if (!cdtaus) {
747     if (!(fdtaus = fopen("DTAUS0.TXT", "r")))
748       if (!(fdtaus = fopen("dtaus0.txt", "r")))
749         return;
750   } else {
751     if (!strcmp (cdtaus, "-"))
752       fdtaus = stdin;
753     else
754       if (!(fdtaus = fopen(cdtaus, "r")))
755         return;
756   }
757   if (!ccontrol) 
758     fcontrol = stdout;
759   else
760     if (!strcmp (ccontrol, "-"))
761       fcontrol = stdout;
762     else
763       if (!(fcontrol = fopen(ccontrol, "w")))
764         return;
765   if (!(buf = (char *)malloc (512)))
766     return;
767
768   /* 
769    * Record A lesen
770    */
771   if (dtaus_nextrec(buf, fdtaus) == 1) {
772     if (dtaus_char(buf,4) == 'A') {
773       fprintf(fcontrol, "BEGIN {\n");
774       bufp = buf;
775
776       for (index=A_TRANS; index < A_DATE; index++) {
777         bufp = buf + recA[index].pos;
778         memcpy(tmp, bufp, recA[index].len); tmp[recA[index].len] = '\0';
779         printctln(fcontrol, recA[index].name, strip_zeros(strip_spaces(tmp)));
780       }
781
782       index = A_DATE; bufp = buf + recA[index].pos;
783       memcpy(tmp, bufp, recA[index].len); tmp[recA[index].len] = '\0';
784       printctln(fcontrol, recA[index].name, strip_spaces(tmp));
785
786       index = A_EURO; bufp = buf + recA[index].pos;
787       memcpy(tmp, bufp, recA[index].len); tmp[recA[index].len] = '\0';
788       printctln(fcontrol, recA[index].name, strip_zeros(strip_spaces(tmp)));
789
790       fprintf(fcontrol, "}\n\n");
791     } else {
792       fprintf (stderr, "Datei fängt nicht mit dem Anfangsdatensatz an.\n");
793       return;
794     }
795   } else {
796     fprintf (stderr, "Der Anfangsdatensatz ist kaputt.\n");
797     return;
798   }
799
800   /*
801    * Record C lesen
802    */
803   if (dtaus_nextrec(buf, fdtaus) == 1) {
804     while (dtaus_char(buf,4) == 'C') {
805       bufp = buf + 128;
806       if (dtaus_nextrec(bufp, fdtaus) != 1) {
807         fprintf (stderr, "Der zweite Teil der Transaktion ist kaputt.\n");
808         return;
809       } else {
810         fprintf(fcontrol, "{\n");
811
812         for (index=C_NAME; index <= C_EURO; index++) {
813           bufp = buf + recC[index].pos;
814           memcpy(tmp, bufp, recC[index].len); tmp[recC[index].len] = '\0';
815           if (index == C_VAL)
816             printctln(fcontrol, recC[index].name, strip_zeros(string2real(tmp)));
817           else if (index == C_TRANS)
818             printctln(fcontrol, recC[index].name, strip_zeros(string2trans(tmp)));
819           else
820             printctln(fcontrol, recC[index].name, strip_zeros(strip_spaces(tmp)));
821         }
822
823         for (index=C_TEXT; index <= C_EXT; index++) {
824           if (!(dtaus_char(buf,recC[index].pos) == ' ')) {
825             bufp = buf + recC[index].pos;
826             memcpy(x, bufp, 2); tmp[2] = '\0'; bufp+=2;
827             memcpy(tmp, bufp, recC[index].len-2); tmp[recC[index].len-2] = '\0';
828             printctln(fcontrol, string2ext(x), strip_spaces(tmp));
829           }
830         }
831
832         /* Number of extension records for this C record */
833         extC = dtaus_int(buf, 185, 2);
834
835       }
836       if (dtaus_nextrec(buf, fdtaus) != 1)
837         bzero (buf, sizeof(buf));
838
839       /*
840        * Are there extension records that we have to check?
841        *
842        * 2nd half of the AND is wrong, but since dtaus < 0.5 wrote 01
843        *     instead of 00 we should let it in so it can read its own
844        *     old files...  *sigh*
845        */
846       while (extC > 0 && dtaus_char(buf,4) != 'C' && dtaus_char(buf,4) != 'E') {
847         for (index=0; index < 4; index++) {
848           if ((dtaus_char(buf,index*29) != ' ')) {
849             bufp = buf + index*29;
850             memcpy(x, bufp, 2); tmp[2] = '\0'; bufp+=2;
851             memcpy(tmp, bufp, recC[C_TEXT].len-2); tmp[recC[C_TEXT].len-2] = '\0';
852             printctln(fcontrol, string2ext(x), strip_spaces(tmp));
853           }
854         }
855         if (dtaus_nextrec(buf, fdtaus) != 1)
856           bzero (buf, sizeof(buf));
857         extC--;
858       }
859       fprintf(fcontrol, "}\n");
860     }
861   }
862
863   /*
864    * Record E lesen
865    *   (gelesen ist er eigentlich schon...)
866    */
867   if (dtaus_char(buf,4) == 'E') {
868     if (dtaus_char(buf,4) == 'E') {
869       fprintf(fcontrol, "\nEND {\n");
870
871       for (index=E_COUNT; index <= E_BLZ; index++) {
872         bufp = buf + recE[index].pos;
873         memcpy(tmp, bufp, recE[index].len); tmp[recE[index].len] = '\0';
874         if (index == E_VAL)
875           printctln(fcontrol, recE[index].name, strip_zeros(string2real(tmp)));
876         else
877           printctln(fcontrol, recE[index].name, strip_zeros(tmp));
878       }
879
880       fprintf(fcontrol, "}\n");
881     } else {
882       fprintf (stderr, "Das ist kein Abschlußdatensatz.\n");
883       return;
884     }
885   } else {
886     fprintf (stderr, "Der Abschlußdatensatz ist leer oder kaputt.\n");
887     return;
888   }
889   fclose(fcontrol);
890   fclose(fdtaus);
891 }
892
893 int control2dtaus (char *ccontrol, char *cdtaus, char *cbeleg, char *ccheck)
894 {
895   FILE *fdtaus, *fcontrol, *fbeleg, *fcheck;
896   void *buf;
897   char *ident;
898   int  recindex;
899   char tmp[30];
900   char line[100];
901   char *valA[A_LEN], *valC[C_LEN];
902   int count;
903   bigint sum_val, sum_blz, sum_kto, bi;
904   char **text = NULL;
905   char *cp;
906   int textindex = 0;
907
908   if (!cdtaus) {
909     if (!(fdtaus = fopen("dtaus0.txt", "w")))
910       return 0;
911   } else {
912     if (!strcmp (cdtaus, "-"))
913       fdtaus = stdout;
914     else
915       if (!(fdtaus = fopen(cdtaus, "w")))
916         return 0;
917   }
918   if (!ccontrol) {
919     if (!(fcontrol = fopen("dtaus0.ctl", "r")))
920       if (!(fcontrol = fopen("DTAUS0.CTL", "r")))
921         return 0;
922   } else {
923     if (!strcmp (ccontrol, "-"))
924       fcontrol = stdin;
925     else
926       if (!(fcontrol = fopen(ccontrol, "r")))
927         return 0;
928   }
929   if (!cbeleg) {
930     if (!(fbeleg = fopen("dtaus0.doc", "w")))
931       return 0;
932   } else {
933     if (!(fbeleg = fopen(cbeleg, "w")))
934       return 0;
935   }
936   if (!ccheck)
937     fcheck = stdout;
938   else
939     if (!(fcheck = fopen(ccheck, "w")))
940       return 0;
941
942
943   if (!(buf = (char *)malloc (512)))
944     return 0;
945
946   /* 
947    * Record A lesen
948    */
949   bzero(valA, sizeof(valA));
950   control_nextline ((void *)line, 100, fcontrol);
951   ident = extract_ident(line);
952   if (!strcmp(ident, "begin") && (line[0] == '{')) {
953     control_nextline ((void *)line, 100, fcontrol);
954     while (strlen(line) && line[0] != '}') {
955       ident = extract_ident(line);
956       if ((recindex = rec_index(ident, REC_A)) != -1)
957         if (recA[recindex].type != IGN)
958           if ((valA[recindex] = (char *)malloc (strlen(line)+1)))
959             strcpy(valA[recindex], line);
960       control_nextline ((void *)line, 100, fcontrol);
961     }
962     if (((recindex = rec_index("art", REC_A)) != -1) && valA[recindex] && strlen(valA[recindex])) {
963       fprintf(fbeleg, "\n\n");
964       fprintf(fbeleg, "\n    Begleitzettel\n\n");
965       fprintf(fbeleg, "\n    Belegloser Datentraegeraustausch\n\n");
966       if (valA[recindex][0] == 'L')
967         fprintf(fbeleg, "\n    Sammeleinziehungsauftrag\n\n");
968       else if (valA[recindex][0] == 'G')
969         fprintf(fbeleg, "\n    Sammelueberweisungsauftrag\n\n");
970       else
971         fprintf(fbeleg, "\n    Sammelauftrag\n\n");
972       fprintf(fbeleg, "\n    VOL ........................:\n");
973       fprintf(fbeleg, "\n    Erstellungsdatum ...........: %s\n", get_date());
974       fprintf(fbeleg, "\n    Waehrung ...................: DM\n");
975     }
976     if (!dtaus_writeA(fdtaus, valA)) {
977       fprintf (stderr, "Konnte den Anfangsdatensatz nicht schreiben.\n");
978       return 0;
979     }
980
981     fprintf (fcheck, "\n\n\n");
982     if (valA[recindex][0] == 'L')
983       fprintf (fcheck, "    Sammeleinziehungsauftrag\n\n");
984     else if (valA[recindex][0] == 'G')
985       fprintf (fcheck, "    Sammelueberweisungsauftrag\n\n");
986     else
987       fprintf (fcheck, "    Sammelauftrag\n\n");
988     fprintf (fcheck, "    Erstellungsdatum : %s\n\n", get_date());
989     fprintf (fcheck, "    Waehrung         : DM\n\n\n");
990     fprintf (fcheck, "     %-10s  %-8s  %-30s   %12s\n", "Kontonr.", "BLZ", "Name", "Betrag");
991     fprintf (fcheck, "    --------------------------------------------------------------------\n");
992   } else {
993     fprintf (stderr, "Datei fängt nicht mit dem Anfangsdatensatz (BEGIN) an.\n");
994     return 0;
995   }
996
997   /* 
998    * Record C lesen
999    */
1000   count = 0;
1001   sum_val = bigint_int(0);
1002   sum_blz = bigint_int(0);
1003   sum_kto = bigint_int(0);
1004   bzero(valC, sizeof(valC));
1005   control_nextline ((void *)line, 100, fcontrol);
1006   if (line[0] == '{') {
1007     while (strlen(line) && line[0] == '{') {
1008       control_nextline ((void *)line, 100, fcontrol);
1009       if (text) {
1010         for (textindex=0; textindex < MAX_TEXT && text[textindex]; textindex++)
1011           free (text[textindex]);
1012         free (text);
1013         text = NULL;
1014       }
1015       while (strlen(line) && line[0] != '}') {
1016         ident = extract_ident(line);
1017         if ((recindex = rec_index(ident, REC_C)) != -1)
1018           if (recC[recindex].type != IGN) {
1019             /*
1020              * Special exception to support multiple Text fields
1021              */
1022             if (recindex == C_TEXT && valC[recindex]) {
1023               if (!text) {
1024                 if ((text = (char **)malloc ((MAX_TEXT+1) * sizeof (char *))) == NULL)
1025                   return 0;
1026                 else {
1027                   textindex = 0;
1028                   memset (text, 0, (MAX_TEXT+1) * sizeof (char *));
1029                 }
1030               }
1031               if (textindex < MAX_TEXT) {
1032                 if ((cp = (char *)malloc (strlen (line) + 1))) {
1033                   strcpy (cp, line);
1034                   cp[strlen (line)] = '\0';
1035                   text[textindex++] = cp;
1036                 }
1037               }
1038             } else {
1039               if ((valC[recindex] = (char *)malloc (strlen(line)+1)))
1040                 strcpy(valC[recindex], line);
1041               else
1042                 return 0;
1043             }
1044           }
1045         control_nextline ((void *)line, 100, fcontrol);
1046       }
1047       if (!dtaus_writeC(fdtaus, valA, valC, text)) {
1048         fprintf (stderr, "Konnte den regulären Datensatz nicht schreiben.\n");
1049         return 0;
1050       }
1051       count++;
1052       bi = bigint_string(real2string(valC[C_VAL])); sum_val = bigint_add(sum_val, bi);
1053       bi = bigint_string(valC[C_BLZ]); sum_blz = bigint_add(sum_blz, bi);
1054       bi = bigint_string(valC[C_KTO]); sum_kto = bigint_add(sum_kto, bi);
1055
1056       fprintf (fcheck, "     %10s  %8s  %-30s   %12s\n", valC[C_KTO], valC[C_BLZ], valC[C_NAME], valC[C_VAL]);
1057       for (recindex=0; recindex<C_LEN; recindex++)
1058         if (valC[recindex])
1059           free(valC[recindex]);
1060       bzero(valC, sizeof(valC));
1061       control_nextline ((void *)line, 100, fcontrol);
1062     }
1063   } else {
1064     fprintf (stderr, "Kein regulärer Datensatz?\n");
1065     return 0;
1066   }
1067
1068   /* 
1069    * Record E lesen
1070    */
1071   dtaus_writeE(fdtaus, count, sum_val, sum_blz, sum_kto);
1072   fprintf (fcheck, "    --------------------------------------------------------------------\n");
1073   bigint_sprintf (tmp, "%s", sum_val);
1074   fprintf (fbeleg, "\n    Anzahl .....................: %d\n", count);
1075   recindex=strlen(tmp);
1076   tmp[recindex+1] = '\0';
1077   tmp[recindex] = tmp[recindex-1];
1078   tmp[recindex-1] = tmp[recindex-2];
1079   tmp[recindex-2] = '.';
1080   fprintf (fcheck, "     %-52s %14s\n", "Summe", tmp);
1081   fprintf (fbeleg, "\n    Summe ......................: %s\n", tmp);
1082   bigint_sprintf (tmp, "%s", sum_kto);
1083   fprintf (fbeleg, "\n    Kontrollsumme Kontonummern .: %s\n", tmp);
1084   bigint_sprintf (tmp, "%s", sum_blz);
1085   fprintf (fbeleg, "\n    Kontrollsumme Bankleitzahlen: %s\n", tmp);
1086   fprintf (fbeleg, "\n    Unsere Kontonummer .........: %s\n", valA[A_KTO]);
1087   fprintf (fbeleg, "\n    Unsere Bankleitzahl ........: %s\n", valA[A_BLZ]);
1088   fprintf (fbeleg, "\n\n\n\n\n    __________________________________________________\n");
1089   fprintf (fbeleg, "    Ort, Datum                     Unterschrift\n");
1090   for (recindex=0; recindex<A_LEN; recindex++)
1091     if (valA[recindex])
1092       free(valA[recindex]);
1093   fclose(fdtaus);
1094   fclose(fcontrol);
1095   fclose(fbeleg);
1096   if (ccheck)
1097     fclose(fcheck);
1098   return count;
1099 }