/*
$VER: MT-RechnungII V1.01 (30-05-94)
 ******************************************************************/
/*	Programm zur Konvertierung der Daten von älteren Versionen auf	*/
/*	die neue Version 2.10 oder größer														*/
/******************************************************************/
/*	Autor:					Manfred Tremmel									*/
/*	Programmiersprache:	ARexx													*/
/******************************************************************/

CALL UP_Kund_lesen;								/* Einlesen der Kunden	*/
CALL UP_Artikel_lesen;							/* Einlesen der Artikel	*/
CALL UP_Rechnung_lesen;							/* Einlesen der Rechn.	*/

CALL UP_Kund_schreiben;							/* Schreiben der Kunden	*/
CALL UP_Artikel_schreiben;						/* Schreiben der Artikel*/
CALL UP_Rechnung_schreiben;					/* Schreiben der Rechn.	*/
EXIT;

/* Unterprogramm zum Einlesen der Kundenliste (Kunden.dat)          */
UP_Kund_lesen:
	Kunden_datei	= "Kunden.dat";
	Kunden_dat		= "Kunden.dat";
	Kunden_max		= 0;
	Kunden_aend		= 0;
	Suc				= OPEN(Kunden_dat,Kunden_datei,'read');
	IF Suc THEN
		DO;
			FI_VorName	= READLN(Kunden_dat);
			FI_Name		= READLN(Kunden_dat);
			FI_Strasse	= READLN(Kunden_dat);
			FI_PLZ		= READLN(Kunden_dat);
			FI_ORT		= READLN(Kunden_dat);
			FI_Land		= READLN(Kunden_dat);
			FI_GebTag	= READLN(Kunden_dat);
			FI_Rabatt	= READLN(Kunden_dat);
			FI_Tel		= READLN(Kunden_dat);
			FI_Fax		= READLN(Kunden_dat);
			FI_Dfue		= READLN(Kunden_dat);
			FI_EMail1	= READLN(Kunden_dat);
			FI_EMail2	= READLN(Kunden_dat);
			FI_EMail3	= READLN(Kunden_dat);
			FI_Anrede	= READLN(Kunden_dat);
			FI_BAnr		= READLN(Kunden_dat);
			FI_Komm		= READLN(Kunden_dat);
			FI_BLZ		= READLN(Kunden_dat);
			FI_BankBez	= READLN(Kunden_dat);
			FI_BankKurz	= READLN(Kunden_dat);
			FI_Konto		= READLN(Kunden_dat);
			FI_Dummy1	= READLN(Kunden_dat);
			FI_Dummy2	= READLN(Kunden_dat);
			FI_Dummy3	= READLN(Kunden_dat);
			FI_Dummy4	= READLN(Kunden_dat);
			FI_Dummy5	= READLN(Kunden_dat);
			FI_Dummy6	= READLN(Kunden_dat);
			FI_Dummy7	= READLN(Kunden_dat);
			FI_Dummy8	= READLN(Kunden_dat);
			DO forever;
				Kunden_max  = Kunden_max + 1;
				i = right(("000000" || Kunden_max),6);
				KD_VorName.i  = READLN(Kunden_dat);
				IF EOF(Kunden_dat) THEN LEAVE;
				KD_Name.i		= READLN(Kunden_dat);
				KD_Strasse.i	= READLN(Kunden_dat);
				KD_PLZ.i			= READLN(Kunden_dat);
				KD_ORT.i			= READLN(Kunden_dat);
				KD_Land.i		= READLN(Kunden_dat);
				KD_GebTag.i		= READLN(Kunden_dat);
				KD_Rabatt.i		= READLN(Kunden_dat);
				KD_Tel.i			= READLN(Kunden_dat);
				KD_Fax.i			= READLN(Kunden_dat);
				KD_Dfue.i		= READLN(Kunden_dat);
				KD_EMail1.i		= READLN(Kunden_dat);
				KD_EMail2.i		= READLN(Kunden_dat);
				KD_EMail3.i		= READLN(Kunden_dat);
				KD_Anrede.i		= READLN(Kunden_dat);
				KD_BAnr.i		= READLN(Kunden_dat);
				KD_Komm.i		= READLN(Kunden_dat);
				KD_BLZ.i			= READLN(Kunden_dat);
				KD_BankBez.i	= READLN(Kunden_dat);
				KD_BankKurz.i	= READLN(Kunden_dat);
				KD_Konto.i		= READLN(Kunden_dat);
				KD_Dummy1.i		= READLN(Kunden_dat);
				KD_Dummy2.i		= READLN(Kunden_dat);
				KD_Dummy3.i		= READLN(Kunden_dat);
				KD_Dummy4.i		= READLN(Kunden_dat);
				KD_Dummy5.i		= READLN(Kunden_dat);
				KD_Dummy6.i		= READLN(Kunden_dat);
				KD_Dummy7.i		= READLN(Kunden_dat);
				KD_Dummy8.i		= READLN(Kunden_dat);
			END;
		END;
	ELSE
		DO;
			Suc = OPEN(Kunden_dat,Kunden_datei,'write');
			Kunden_max  = 1;
		END;
	CLOSE(Kunden_dat);
RETURN;


/* Unterprogramm zum schreiben der Kundenliste (Kunden.dat)			*/
UP_Kund_schreiben:
	Suc  = OPEN(Kunden_dat,Kunden_datei,'write');
	IF Suc THEN
		DO;
			Suc = WRITELN(Kunden_dat,FI_VorName);
			Suc = WRITELN(Kunden_dat,FI_Name);
			Suc = WRITELN(Kunden_dat,FI_Strasse);
			Suc = WRITELN(Kunden_dat,FI_PLZ);
			Suc = WRITELN(Kunden_dat,FI_Ort);
			Suc = WRITELN(Kunden_dat,FI_Land);
			Suc = WRITELN(Kunden_dat,FI_GebTag);
			Suc = WRITELN(Kunden_dat,FI_Rabatt);
			Suc = WRITELN(Kunden_dat,FI_Tel);
			Suc = WRITELN(Kunden_dat,FI_Fax);
			Suc = WRITELN(Kunden_dat,FI_Dfue);
			Suc = WRITELN(Kunden_dat,FI_EMail1);
			Suc = WRITELN(Kunden_dat,FI_EMail2);
			Suc = WRITELN(Kunden_dat,FI_EMail3);
			Suc = WRITELN(Kunden_dat,FI_Anrede);
			Suc = WRITELN(Kunden_dat,FI_BAnr);
			Suc = WRITELN(Kunden_dat,FI_Komm);
			Suc = WRITELN(Kunden_dat,FI_BLZ);
			Suc = WRITELN(Kunden_dat,FI_BankBez);
			Suc = WRITELN(Kunden_dat,FI_BankKurz);
			Suc = WRITELN(Kunden_dat,FI_Konto);
			DO k = 1 to (Kunden_max - 1);
				i = right(("000000" || k),6);
				Suc = WRITELN(Kunden_dat,KD_VorName.i);
				Suc = WRITELN(Kunden_dat,KD_Name.i);
				Suc = WRITELN(Kunden_dat,KD_Strasse.i);
				Suc = WRITELN(Kunden_dat,KD_PLZ.i);
				Suc = WRITELN(Kunden_dat,KD_Ort.i);
				Suc = WRITELN(Kunden_dat,KD_Land.i);
				Suc = WRITELN(Kunden_dat,KD_GebTag.i);
				Suc = WRITELN(Kunden_dat,KD_Rabatt.i);
				Suc = WRITELN(Kunden_dat,KD_Tel.i);
				Suc = WRITELN(Kunden_dat,KD_Fax.i);
				Suc = WRITELN(Kunden_dat,KD_Dfue.i);
				Suc = WRITELN(Kunden_dat,KD_EMail1.i);
				Suc = WRITELN(Kunden_dat,KD_EMail2.i);
				Suc = WRITELN(Kunden_dat,KD_EMail3.i);
				Suc = WRITELN(Kunden_dat,KD_Anrede.i);
				Suc = WRITELN(Kunden_dat,KD_BAnr.i);
				Suc = WRITELN(Kunden_dat,KD_Komm.i);
				Suc = WRITELN(Kunden_dat,KD_BLZ.i);
				Suc = WRITELN(Kunden_dat,KD_BankBez.i);
				Suc = WRITELN(Kunden_dat,KD_BankKurz.i);
				Suc = WRITELN(Kunden_dat,KD_Konto.i);
			END;
		END;
	CLOSE(Kunden_dat);
RETURN;

/* Unterprogramm zum Einlesen der Artikelliste (Artikel.dat)		*/
UP_Artikel_lesen:
	Artikel_datei	= "Artikel.dat"
	Artikel_dat		= "Artikel.dat";
	Artikel_max		= 0;
	Artikel_aend	= 0;
	Suc				= OPEN(Artikel_dat,Artikel_datei,'read');
	IF Suc THEN
		DO forever;
			Artikel_max		= Artikel_max + 1;
			i = right(("000000" || Artikel_max),6);
			AR_ArtBez.i		= READLN(Artikel_dat);
			IF EOF(Artikel_dat) THEN LEAVE;
			AR_ArtPreis.i	= READLN(Artikel_dat);
			AR_ArtBuch.i	= READLN(Artikel_dat);
			AR_ArtMWST.i	= READLN(Artikel_dat);
			AR_Dummy1.i		= READLN(Artikel_dat);
			AR_Dummy2.i		= READLN(Artikel_dat);
			AR_Dummy3.i		= READLN(Artikel_dat);
			AR_Dummy4.i		= READLN(Artikel_dat);
			AR_Dummy5.i		= READLN(Artikel_dat);
		END;
	ELSE
		DO;
			Kunden_aend  = 1;
			Suc = OPEN(Kunden_dat,Kunden_datei,'write');
			Artikel_max  = 1;
		END;
	CLOSE(Artikel_dat);
RETURN;

/* Unterprogramm zum schreiben der Artikelliste (Artikel.dat)       */
UP_Artikel_schreiben:
	Suc  = OPEN(Artikel_dat,Artikel_datei,'write');
	IF Suc THEN
		DO k = 1 to (Artikel_max - 1);
			i = right(("000000" || k),6);
			Suc = WRITELN(Artikel_dat,AR_ArtBez.i);
			Suc = WRITELN(Artikel_dat,AR_ArtPreis.i);
			Suc = WRITELN(Artikel_dat,AR_ArtBuch.i);
			Suc = WRITELN(Artikel_dat,AR_ArtMWSt.i);
		END;
	CLOSE(Artikel_dat);
RETURN;

/* Unterprogramm zum Einlesen der Rechnungsliste (Rechnung.dat)		*/
UP_Rechnung_lesen:
	Rechnung_datei	= "Rechnung.dat"
	Rechnung_dat	= "Rechnung.dat";
	Rechnung_max	= 0;
	Rechnung_aend	= 0;
	Suc				= OPEN(Rechnung_dat,Rechnung_datei,'read');
	IF Suc THEN
		DO forever;
			Rechnung_max	= Rechnung_max + 1;
			i = right(("000000" || Rechnung_max),6);
			RE_Kunde.i		= READLN(Rechnung_dat);
			IF EOF(Rechnung_dat) THEN LEAVE;
			RE_Datum.i		= READLN(Rechnung_dat);
			DO j = 1 to 13;
				RE_Art.j.i	= READLN(Rechnung_dat);
				RE_Anz.j.i	= READLN(Rechnung_dat);
			END;
			RE_Mahnung.i	= READLN(Rechnung_dat);
			RE_Dummy1.i		= READLN(Rechnung_dat);
			RE_Dummy2.i		= READLN(Rechnung_dat);
			RE_Dummy3.i		= READLN(Rechnung_dat);
			RE_Dummy4.i		= READLN(Rechnung_dat);
			RE_Dummy5.i		= READLN(Rechnung_dat);
			RE_Dummy6.i		= READLN(Rechnung_dat);
			RE_Dummy7.i		= READLN(Rechnung_dat);
			RE_Dummy8.i		= READLN(Rechnung_dat);
		END;
	ELSE
		DO;
			Suc	= OPEN(Rechnung_dat,Rechnung_datei,'write');
			Rechnung_max	= 1;
		END;
	CLOSE(Rechnung_dat);
RETURN;

/* Unterprogramm zum schreiben der Rechnungsliste (Rechnung.dat)		*/
UP_Rechnung_schreiben:
	Suc  = OPEN(Rechnung_dat,Rechnung_datei,'write');
	IF Suc THEN
		DO k = 1 to (Rechnung_max - 1);
			i = right(("000000" || k),6);
			Suc = WRITELN(Rechnung_dat,RE_Kunde.i);
			Suc = WRITELN(Rechnung_dat,RE_Datum.i);
			DO j = 1 to 13;
				Suc = WRITELN(Rechnung_dat,RE_Art.j.i);
				Suc = WRITELN(Rechnung_dat,RE_Anz.j.i);
			END;
			Suc = WRITELN(Rechnung_dat,RE_Mahnung.i);
		END;
	CLOSE(Rechnung_dat);
RETURN;