/*
** Exportieren von MT-RechnungIII-Adressen nach ADM
** $VER: Import_ADM.rexx V1.02 (21.12.99)
*/

PARSE ARG ARexxPort;

ADDRESS VALUE ARexxPort;
OPTIONS RESULTS;

LF					= '0a'x;							/* Zeilenvorschub				*/

RC = 0;

/* Oberfläche sperren */
LOCKGUI;

IF ~show(ports, "ADM.1") THEN
	DO;
		ES_TITLE				= "Warnung";
		ES_TEXTFORMAT		= "ADM ist nicht aktiv, bitte starten sie dieses" || LF || "und versuchen Sie es erneut";
		ES_GADGETFORMAT	= "Abbrechen";
		EASY_REQUEST;
		RC = 1;
	END;

IF RC = 0 THEN
	DO;
		ES_TITLE				= "Achtung!!!!";
		ES_TEXTFORMAT		= "Es werden alle Adressen aus" || LF || "MT-Rechnung exportiert!" || LF || LF;
		ES_TEXTFORMAT		= ES_TEXTFORMAT || "Es erfolgt keine Prüfung, ob" || LF ||  "die Adressen bereits in ADM" || LF || "existieren" || LF || LF;
		ES_TEXTFORMAT		= ES_TEXTFORMAT || "Wollen Sie trotzdem fortfahren?";
		ES_GADGETFORMAT	= "Ok|Abbrechen";
		EASY_REQUEST;
		IF MTR_RESULT = 0 THEN
			DO;
				FREEGUI;
				EXIT;
			END;
		/* Länder einlesen */
		NUMBER_COUNTRY;
		AnzLaender = MTR_RESULT;

		DO i = 1 to AnzLaender;
			GET_COUNTRY i;
			Land.Name.i = COUNTRY.NAME;
		END;

		/* Anzahl Adressen ermitteln */
		NUMBER_ADDRESS;
		AnzAdressen = MTR_RESULT;

		DO Position = 1 to AnzAdressen;

			GET_ADDRESS Position;

			IF ADDRESS.STATE < 65534 THEN
				DO;
					NAME_OF_SALUTATION ADDRESS.SALUTATION;
					ADM.SALUTATION				= MTR_RESULT;
					ADM.FIRSTNAME				= ADDRESS.PRENAME;
					ADM.LASTNAME				= ADDRESS.SURNAME;
					ADM.COMPANY					= ADDRESS.COMPANY1;
					ADM.ADDRESS1				= ADDRESS.STREET;
					ADM.POSTCODE				= ADDRESS.ZIP;
					ADM.CITY						= ADDRESS.CITY;
					i								= ADDRESS.COUNTRY_NUMBER + 1;
					ADM.COUNTRY					= Land.Name.i;
					FORMAT_DATE_SHORT  ADDRESS.BIRTHDAY;
					ADM.BIRTHDAY				= MTR_RESULT;
					ADM.TELEPHONE				= ADDRESS.PHONE;
					ADM.EMAIL1					= ADDRESS.EMAIL.0
					ADM.EMAIL2					= ADDRESS.EMAIL.1
					ADM.FAX						= ADDRESS.FAX
					ADM.BANKCODE				= ADDRESS.BANK_CODE_NUMBER;
					ADM.BANKNAME				= ADDRESS.BANK_NAME;
					ADM.ACCOUNT					= ADDRESS.ACCOUNT;
					ADM.REMARK					= ADDRESS.ADDITIONAL_TEXT;

					ADDRESS "ADM.1";
					NEWADDRESS ADM;


					ADDRESS VALUE ARexxPort;
					IF RESULT != 0 THEN
						DO;
							ES_TITLE				= "Warnung";
							ES_TEXTFORMAT		= "ADM bringt einen Fehler" RESULT "beim lesen!";
							ES_GADGETFORMAT	= "Abbrechen";
							EASY_REQUEST;

							FREEGUI;
							EXIT;
						END;
				END;
		END;
	END;

/* Oberfläche freigeben */
ADDRESS VALUE ARexxPort;
FREEGUI;

EXIT;