+ 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 (valA[A_TODO]) {
+ fprintf(fbeleg, "\n Ausfuehrugsdatum ...........: %s\n", valA[A_TODO]);
+ }
+#ifndef DEFAULT_EURO
+ if (use_euro)
+ fprintf(fbeleg, "\n Waehrung ...................: Euro\n");
+ else
+ fprintf(fbeleg, "\n Waehrung ...................: DM\n");
+#else
+ fprintf(fbeleg, "\n Waehrung ...................: Euro\n");
+#endif
+ }