// ==============================================
// Erstelldatum : 12.07.2019 01:50:36
// Ersteller : arewa
// Eingerichtet von/am : AREWA
// Beschreibung : Feldmakro Lieferant  
// Version 1.0 vom 12.07.2019
// Version 2.0 vom 12.07.2020
// Version 3.0 vom 12.10.2022 mit konditionen
// Version 3.1 vom 20.01.2023 ohne FibuMacroObject für bmd.com + matchcode setzen bei kdlf
// Version 3.2 vom 13.03.2023 no BMD_CRLF
// Version 3.3 vom 25.04.2023 do_show_kdlf geht wieder
// Version 3.4 vom 10.05.2023 logging print dump_logfile 
// Version 3.5 vom 30.08.2023 no exec_sql
// Version 3.6 vom 02.11.2023 import kdlf file handle + unique file + delete
// Version 3.7 vom 23.11.2023 disable VorerfassenModel.SetValue('MCA_VEB_UIDNR', per_uidnr);
// Version 3.8 vom 08.12.2023 firmengruppen
// Version 3.9 vom 01.02.2024 update person auch wenn iban, zahlsperre
// Version 3.10 vom 21.11.2024 take lowest personenkreis
// ==============================================

Var
	FirmenNr :String;
	FibuNr :String;
	BS :String;  
	kdlf_string :String;
	vorerf_typ: Integer;
	VorerfassenModel :MacroObject;
	do_show_kdlf: Integer;
	do_modify_buchungstext: Integer;	
	do_auth: Integer;   
	created_list: MacroObject;
	fh_bmd_log: TBMDInt;

//------------------------------------------------------------------------------
// Parameter festlegen - Kunde/Lieferant nach Änderung anzeigen JA/NEIN
//------------------------------------------------------------------------------

function initParams;
begin
	do_show_kdlf := 1;	      // 1: anzeigen, 0: nicht anzeigen
	do_auth := 0;		   // 1: Steuerung über FWF_FREIFELDA01_50, 0: makro immer aktiv
	do_modify_buchungstext := 1;    // 1: buchungstext ändern auf Name des Lieferanten/Kunden
end;

// ================================================================================
// ================================================================================

function get_auth  (FirmenNr: String; FibuNr: String);
begin

	Result := 15;
	if not do_auth then begin
		exit;
	end;

	//BMD_FirmenwerteFibu := FibuMacroObject.CreateFMacroFirmenwerteFibu('eindeutige FirmenwerteFibuObj-ID');
	//BMD_FirmenwerteFibu.Load(FirmenNr, FibuNr);
	//Result := BMD_TEXTTONUMDEF (BMD_FirmenwerteFibu.GetValue('MCA_FWF_FREIFELDA01_50'))

	sqlText := 'SELECT FWF_FREIFELDA01_50
		FROM FIBU.FWF_FIRMENWERTEFIBU
		WHERE 
			FWF_FIRMENNR = :firmennr
			AND FWF_FIBUNR = :fibunr';

	iQuery  := MacroObject.CreateMacroQuery('fetch_fwf_freifeld');
	iQuery.setSQLText (sqlText);
	iQuery.setParamAsString('firmennr', FirmenNr);
	iQuery.setParamAsString('fibunr', FibuNr);
	iQuery.Open();


	if (iQuery.RecordCount() > 0) then begin
		Result := BMD_TEXTTONUMDEF (iQuery.getAsString ('FWF_FREIFELDA01_50'));
	end;

	iQuery.close();
end;

// ================================================================================  

procedure  fetch_json (var json_string, json_learned, fibunr, name, zusatzname, addresse, ort, plz, land_id, uid, uid_status, iban1, iban2, iban3, uid_datum, kondition, zahlsperre);
begin


	json := MacroObject.CreateMacroJsonVal();
	json.ParseJson(json_string);

	if json.KeyExists ('N1') then begin
		name    := json.GetValueAsString('N1');
	end;
	if json.KeyExists ('N2') then begin
		zusatzname    := json.GetValueAsString('N2');
	end;
	if json.KeyExists ('A') then begin
		addresse    := json.GetValueAsString('A');
	end;
	if json.KeyExists ('C') then begin
		ort    := json.GetValueAsString('C');
	end;
	if json.KeyExists ('P') then begin
		plz    := json.GetValueAsString('P');
	end;
	if json.KeyExists ('CC') then begin
		land_id    := json.GetValueAsString('CC');
	end;
	if json.KeyExists ('U') then begin
		uid_status    := json.GetValueAsString('U');
	end;
	if json.KeyExists ('TS') then begin
		uid_timestamp    := json.GetValueAsString('TS');
	end;
	if json.KeyExists ('I1') then begin
		iban1    := json.GetValueAsString('I1');
	end;
	if json.KeyExists ('I2') then begin
		iban2    := json.GetValueAsString('I2');
	end;
	if json.KeyExists ('I3') then begin
		iban3    := json.GetValueAsString('I3');
	end;
	if json.KeyExists ('Z') then begin
		zahlsperre    := json.GetValueAsString('Z');
	end;
	if json.KeyExists ('KD') then begin
		kondition    := json.GetValueAsString('KD');
	end;
	else begin
		kondition := '0';
	end;


	if (uid_status = '1') then begin
		uid_datum := uid_timestamp;
		uid_status := 'GÜLTIG, geprüft am ' + uid_timestamp;
	end;
	else if (uid_status = '4') then begin
		uid_status := 'UNGÜLTIG';
	end
	else if (BMD_LEN (uid_status) > 0) then begin	   // nur wenn es einen status gibt
		uid_status := 'NICHT GEPRÜFT';
	end;

	json.ParseJson(json_learned);

	if json.KeyExists ('U') then begin
		uid    := json.GetValueAsString('U');
	end;
end;

// ================================================================================

function show_kdlf  (FirmenNr: String; FibuNr: String; personenid: String);
begin
	if do_show_kdlf = 1 then begin
	
		lParams := 'STP_CUS_COMPANYNO=' + FirmenNr + ',STP_CUS_CUSTOMERID=' + personenid;  
		
		if vorerf_typ = 3 then begin	    // ER
			lParams := lParams + ',KLI_ISTLIEFERANT=1';
		end;
	
		BMD_STARTFUNCTION('MCS_MDKUNDE_EDIT_CREATE',lParams);   
	end;

end;       

// ================================================================================											  

function get_next_free_kdlf_nummer (FirmenNr: String; buchsymbol: String; FibuNr: String);
begin

	iQuery  := MacroObject.CreateMacroQuery('fetch_nummernkreis');

	sqlText := 'SELECT PNK_FIRMENKATEGORIELFDNR, PNK_VONNR, PNK_BISNR
		FROM BUERO.PNK_PERSONNUMMERNKREIS
		INNER JOIN FIBU.VBV_VORERFASSBUCH on VBV_FIRMENNR = PNK_FIRMENNR and VBV_FIBUNR=:fibunr and VBV_BUS_BUCHSYMSYMBOL=:buchsymbol
		WHERE 
			PNK_FIRMENNR = :firmennr
			AND PNK_PERSONKZNR = iif (VBV_VORERFASSTYP = 4, 1, iif (VBV_VORERFASSTYP = 3, 2, 99999))
		ORDER BY PNK_FIRMENKATEGORIELFDNR';

		// WHERE PNK_FIRMENKATEGORIELFDNR=1

	iQuery  := MacroObject.CreateMacroQuery('fetch_kreise');
	iQuery.setSQLText (sqlText);
	iQuery.setParamAsString('firmennr', Firmennr);
	iQuery.setParamAsString('fibunr', FibuNr);
	iQuery.setParamAsString('buchsymbol', buchsymbol);
	iQuery.Open();


	if (iQuery.RecordCount() > 0) then begin

		from_konto    := iQuery.getAsString('PNK_VONNR');
		to_konto    := iQuery.getAsString('PNK_BISNR');
		iQuery.close();

		sqlText :=  'SELECT min(P.PER_PERSONENNR)+1 as MIN_NR 
				FROM BUERO.PER_PERSON P 
			WHERE 
				P.PER_PERSONENNR between :from and :to 
				and not exists (select 1 from BUERO.PER_PERSON C, BUERO.KLI_KUNDE_LIEFERANT A 
			WHERE 
				C.PER_PERSONENNR = P.PER_PERSONENNR+1 
				AND C.PER_FIRMENNR in (
					SELECT FIG_FIRMENNR
					FROM BUERO.FIG_FIRMENGRUPPENZU A
					WHERE
						A.FIG_GRUPPE_FIRMENNR = (select B.FIG_GRUPPE_FIRMENNR FROM BUERO.FIG_FIRMENGRUPPENZU B WHERE B.FIG_FIRMENNR = :firmennr)
                                                union select :firmennr
                                        )
				AND C.PER_PERSONENART = ''KL'' 
				AND C.PER_JAHR >= 0 
				AND C.PER_ISTAKTUELLUNTERNR >= 1 
				AND A.KLI_FIRMENNR = C.PER_FIRMENNR 
				AND A.KLI_KLID = C.PER_PERSONENID 
				AND A.KLI_KLUNTERNR = C.PER_PERSONUNTERNR)';

		iQuery  := MacroObject.CreateMacroQuery('next_nummer');
		iQuery.setSQLText (sqlText);
		iQuery.setParamAsString('firmennr', Firmennr);
		iQuery.setParamAsString('from', from_konto);
		iQuery.setParamAsString('to', to_konto);
		iQuery.Open();

		if (iQuery.RecordCount() > 0) then begin

			next_kdlf    := iQuery.getAsString('MIN_NR');
			iQuery.close();
			Result := next_kdlf;
		end;
	end;
end;

// ================================================================================

procedure get_KDLF (var personenid, kontonr, uid, uid_datum, name, zusatzname, strasse, plz, land_id, iban1,iban2,iban3, kondition, zahlsperre);
begin

	Result := '';

	personenid := '';

	sqlText := 'SELECT  
		PER_NAME as NAME,
		isnull (PER_ZUSATZNAME, '''')  as ZUSATZNAME,
		isnull (PER_UIDNR, '''')  as VATREGNO,
		PER_PERSONENID as PERSONENID,
		isnull (BAI_IBAN, '''')  as IBAN,
		isnull (ADR_STRASSE, '''')  as ADDRESSE,
		ADR_PLZ as PLZ,
		isnull (KOD_KONDLFDNR, 0) as KOND,
		isnull (LAN_ISO_CODE, ''AT'') as COUNTRY,
		isnull (iif (KTO_KONTENGRUPPE = 2, iif (isnull (KLI_HATZAHLSPERRE, 0) = 1, 1, PEK_KUN_ZAHLSPERRE), iif (isnull (KLI_HATZAHLSPERRE, 0) = 1, 1, PEK_LIE_ZAHLSPERRE)), 0) as ZAHLSPERRE
	FROM FIBU.PEK_PERSONENKONTO P1
		INNER JOIN BUERO.KLI_KUNDE_LIEFERANT KL ON KL.KLI_FIRMENNR = P1.PEK_FIRMENNR AND KL.KLI_KLID = P1.PEK_KLID
		INNER JOIN BUERO.PER_PERSON ON PER_FIRMENNR = PEK_FIRMENNR AND PER_PERSONENID = P1.PEK_KLID
		INNER JOIN FIBU.KTO_KONTO ON KTO_FIRMENNR = PEK_FIRMENNR AND KTO_FIBUNR = PEK_FIBUNR AND KTO_KONTONR = PEK_KONTONR
		INNER JOIN BUERO.ADR_ADRESSE ON ADR_FIRMENNR = PEK_FIRMENNR AND ADR_ADRESSLFDNR = PER_ADRESSLFDNR
		LEFT JOIN BUERO.BAI_BANKINSTITUTIONSZU ON BAI_BANKINSTLFDNR=PER_SENDER_BANKINSTLFDNR
		LEFT JOIN BUERO.KOD_KONDITIONEN ON KOD_KONDNR=KLI_LIEF_KONDNR
		LEFT JOIN BUERO.LAN_LAND ON LAN_LANDNR = PER_LANDNR
	WHERE
		PEK_FIRMENNR = :firmennr AND PEK_FIBUNR = :fibunr AND PEK_KONTONR = :kontonr';

	//BMD_SHOWMESSAGE ('get_KDLF firmennr: ' + Firmennr + ' fibunr: ' + FibuNr + ' kontonr: ' + kontonr);

	iQuery  := MacroObject.CreateMacroQuery('get_person');
	iQuery.setSQLText (sqlText);
	iQuery.setParamAsString('firmennr', Firmennr);
	iQuery.setParamAsString('kontonr', KontoNr);
	iQuery.setParamAsString('fibunr', FibuNr);
	iQuery.Open();
	if (iQuery.RecordCount() > 0) then begin

		uid    := iQuery.getAsString('VATREGNO');
		name    := iQuery.getAsString('NAME');
		zusatzname    := iQuery.getAsString('ZUSATZNAME');
		personenid    := iQuery.getAsString('PERSONENID');
		strasse    := iQuery.getAsString('ADDRESSE');
		iban1    := iQuery.getAsString('IBAN');
		kondition    := iQuery.getAsString('KOND');
		zahlsperre    := iQuery.getAsString('ZAHLSPERRE');
		land_id    := iQuery.getAsString('COUNTRY');
		plz    := iQuery.getAsString('PLZ');

	end;
	iQuery.close();
end;

// ================================================================================

//------------------------------------------------------------------------------
function dump_logfile (logfile: String);
begin
	Result := '';
	if (BMD_FILEEXISTS (logfile)) then begin
		BMD_ASSIGNFILE (fh_bmd_log, logfile);
		BMD_OPENFILE_RESET (fh_bmd_log);
		while not BMD_EOF (fh_bmd_log) do begin
			line := BMD_READLN (fh_bmd_log);
			//BMD_SHOWMESSAGE (line);
			Result := Result + line;
		end;  
		BMD_CLOSEFILE (fh_bmd_log);
	end;
end;

// ================================================================================

function import_KDLF (kontonr: String; uid: String; uid_datum: String;  name: String; zusatzname: String; strasse: String; plz: String; land_id: String; iban1: String; iban2: String; iban3: String; kondition: String; zahlsperre: String);
begin
	//gFileName := 'kdlf_import_' + kontonr + '.csv';
	sequence := BMD_GETSEQID();
	gFileName := 'kdlf_import_' + sequence + '.csv';


	sql_exists := 'SELECT count(1) as COUNT
		FROM FIBU.PEK_PERSONENKONTO P1
			INNER JOIN BUERO.KLI_KUNDE_LIEFERANT KL ON KL.KLI_FIRMENNR = P1.PEK_FIRMENNR AND KL.KLI_KLID = P1.PEK_KLID
			INNER JOIN BUERO.PER_PERSON ON PER_FIRMENNR = PEK_FIRMENNR AND PER_PERSONENID = P1.PEK_KLID
			INNER JOIN FIBU.KTO_KONTO ON KTO_FIRMENNR = PEK_FIRMENNR AND KTO_FIBUNR = PEK_FIBUNR AND KTO_KONTONR = PEK_KONTONR
		WHERE
			PEK_FIRMENNR = :firmennr AND PEK_FIBUNR = :fibunr AND PEK_KONTONR = :kontonr';

	temp:= BMD_GETENVIRONMENTVAR('temp');
	filename := temp +'\'+ gFileName;

	//if (BMD_FILEEXISTS(filename)) then begin
	//	BMD_DELETEFILE(filename);  //DeleteFile
	//end;

	//BMD_CREATEFILE(filename);

	lFileNr := 1;
	BMD_ASSIGNFILE(lFileNr,filename,1,1,1,1200);   // unicode

	//rc := BMD_OPENFILE_APPEND(lFileNr);
	//if (rc = '-1') then begin
	//	BMD_SHOWMESSAGE('Fehler open file ' + filename);
	//	exit;
	//end;

	header_line1 := 'NTCS_CONSTID_INFO%10%MCA_KTO_KONTONR%MCA_PER_NAME%MCA_PER_ZUSATZNAME%MCA_ADR_ORTSNAME%MCA_ADR_PLZ%MCA_ADR_STRASSE%MCA_PER_UIDNR%MCA_PER_LANDNR%MCA_BAI_IBAN%MCA_PER_UIDDATUM%MCA_KLI_KONDNR%MCA_KLI_HATZAHLSPERRE%MCA_PER_MATCHCODE';
	header_line2 := 'kto-nr;Name;zusatzname;Ort;PLZ;Strasse;UID;Land;iban-nr;UID-Datum;kondition;zahlsperre;matchcode';

	BMD_WRITELN(lFileNr, header_line1);
	BMD_WRITELN(lFileNr, header_line2);
	line:= kontonr + ';' + name + ';' + zusatzname + ';;' + +plz + ';' + strasse + ';' + uid + ';' + land_id + ';' + iban1 + ';' + uid_datum + ';' + kondition + ';' + zahlsperre + ';' + BMD_UPPER (name);

	BMD_WRITELN(lFileNr, line);
	BMD_CLOSEFILE(lFileNr);

	if(BMD_FILEEXISTS(filename))then begin
		if((FirmenNr<>'') AND (FibuNr<>'') AND (filename<>''))then begin

			//BMD_SHOWMESSAGE (dump_logfile (filename));

			logfile := temp +'\Kontenimport' + FirmenNr + '_' + kontonr +  '.log';
			lParam := 'STP_FIB_COMPANYNO=' + FirmenNr + ',STP_FIB_FIBUNO=' + FibuNr + ',STP_IMP_FILENAME=' + filename + ',STP_LOG_FILENAME=' + logfile + ',';  
			lParam := lParam + 'SILENT=1,';  
			lParam := lParam + 'STP_IMP_SEPARATOR=;,'; 
			lParam := lParam + 'STP_IMP_ENCODING=3,';
			lParam := lParam + 'STP_USEFIXEDLENGTH=0,';
			lParam := lParam + 'STP_IGNORE_FIRSTLINE=1';		       

			BMD_STARTFUNCTION('MCS_FRMFIBUVARCSVPERSONENKONTENIMPEXP_CREATE',lParam);  //Start Var. Personenimport

			BMD_DELETEFILE(filename);

			uid := '';
			uid_status := '';
			uid_timestamp := '';  

			name := '';
			zusatzname := ''; 

			addresse := '';
			plz := '';
			land_id := '';  

			iban1 := '';
			iban2 := '';
			iban3 := '';  
			kondition := ''; 
			personenid := ''; 
			zahlsperre := ''; 

			get_KDLF (personenid, kontonr, uid, uid_timestamp, name, zusatzname, addresse, plz, land_id, iban1, iban2, iban3, kondition, zahlsperre);    

			if personenid = '' then begin
				BMD_SHOWMESSAGE('Fehler: Anlegen/Ändern Konto ' + kontonr + ' failed logfile: ' + dump_logfile (logfile));
			end;  
			Result := personenid;
		end;
	end;  
       
	VorerfassenModel.SetValue('MCA_VEB_KONTONR', kontonr);
end;

// ================================================================================

function store_created_kdlf (uid: String; name: String; vorerf_typ: String; personenid: String);
begin

	if uid = '' then begin	// search for name
		search_string := FirmenNr + ';' + FibuNr + ';' + vorerf_typ + ';' + name;
	end;
	else begin
		search_string := FirmenNr + ';' + FibuNr + ';' + vorerf_typ + ';' + 'UID' +  uid;
	end;

	created_list.SetKeyValue (search_string, personenid);
end;

// ================================================================================
// bei überspringen leeres feld --> gibt es den lieferanten schon?
// ================================================================================

function KDLF_exists (search_uid: String; search_name: String; vorerf_typ: String);
begin
	
	sqlText := 'SELECT
		PEK_KONTONR as KONTONR,
		PER_NAME as NAME,
		PER_ZUSATZNAME as ZUSATZNAME,
		PER_UIDNR as VATREGNO,
		KTO_KONTENGRUPPE
	FROM FIBU.PEK_PERSONENKONTO P1
		INNER JOIN BUERO.KLI_KUNDE_LIEFERANT KL ON KL.KLI_FIRMENNR = P1.PEK_FIRMENNR AND KL.KLI_KLID = P1.PEK_KLID
		INNER JOIN BUERO.PER_PERSON ON PER_FIRMENNR = PEK_FIRMENNR AND PER_PERSONENID = P1.PEK_KLID
		INNER JOIN FIBU.KTO_KONTO ON KTO_FIRMENNR = PEK_FIRMENNR AND KTO_FIBUNR = PEK_FIBUNR AND KTO_KONTONR = PEK_KONTONR
	WHERE
		PEK_FIRMENNR = :firmennr AND PEK_FIBUNR = :fibunr	 
		AND (LEN (:uid) > 5 AND PER_UIDNR = :uid or (isnull (:uid,'''') = '''' and PER_NAME = :name)) 
		AND (KTO_KONTENGRUPPE = 4 OR (KTO_KONTENGRUPPE = 3 and :vorerf_typ = 3) OR (KTO_KONTENGRUPPE = 2 and :vorerf_typ = 4)) ';

	// Kontengruppe KUNDE=2, LIEFERANT=3, both = 4
	// vorerf_typ 4 = AR (Kunden), 3: ER (Lieferanten)
	Result := '0';

	iQuery  := MacroObject.CreateMacroQuery('get_konto');
	iQuery.setSQLText (sqlText);
	iQuery.setParamAsString('firmennr', Firmennr);
	iQuery.setParamAsString('fibunr', FibuNr);
	iQuery.setParamAsString('uid', search_uid);  
	iQuery.setParamAsString('name', search_name);  
	iQuery.setParamAsString('vorerf_typ', vorerf_typ); 

	iQuery.Open();
	if (iQuery.RecordCount() > 0) then begin

		per_kontonr    := iQuery.getAsString('KONTONR');
		per_name    := iQuery.getAsString('NAME');
		per_uidnr    := iQuery.getAsString('VATREGNO');
		per_zusatzname    := iQuery.getAsString('ZUSATZNAME'); 
		kontengruppe    := iQuery.getAsString('KTO_KONTENGRUPPE'); 
	
		rc := BMD_ASKVALUEBOOL (kdlf_string + 'nummer ' + per_kontonr + bmd_lineBreak() + bmd_lineBreak() +
			'Name: <' + per_name + '>' +
			'UID : <' + per_uidnr + '>', kdlf_string + ' übernehmen ?');
		if (rc = 1) then begin
			VorerfassenModel.SetValue('MCA_VEB_KONTONR', per_kontonr);
			Result := per_kontonr;
		end
		else begin
			Result := '0';
		end;
	end;
	else begin
		//BMD_SHOWMESSAGE ('no kdlf firmennr: ' + Firmennr + ' fibunr: ' + FibuNr + ' vorerf_typ: ' + vorerf_typ + ' uid: ' + search_uid + ' name: ' + search_name + ' sql: ' + sqlText);
	end;
end;


// ================================================================================

//BMD_SHOWMESSAGE ('start');

IF (BMD_GETAPPLICATIONTYPE() <> 'BMDNTCS') THEN BEGIN  
        exit;
END;

VorerfassenModel := MacroObject.CreateMacroModel('TBMDMDFibuVorerfassBuchungMgr');  //CreateMacroModel
lkontobezeichnung := VorerfassenModel.GetValue('MCU_VEB_ADD_KONTOBEZEICHNUNG');  //GetValue
FibuNr := VorerfassenModel.GetValue('MCA_VEB_FIBUNR');
FirmenNr := VorerfassenModel.GetValue('MCA_VEB_FIRMENNR');
uid := VorerfassenModel.GetValue('MCA_VEB_UIDNR');
text := VorerfassenModel.GetValue('MCA_VEB_BUCHUNGSTEXT');  
id := VorerfassenModel.GetValue('MCA_VEB_VORERFASSID'); 
rg_file := VorerfassenModel.GetValue('MCA_VEB_FREIFELDA01_20');
json := VorerfassenModel.GetValue('MCA_VEB_FREIFELDA03_300'); 
json_learned := VorerfassenModel.GetValue('MCA_VEB_FREIFELDA01_50'); 
periode := VorerfassenModel.GetValue('MCA_VEB_PERIODE');   
blind_flag := VorerfassenModel.GetValue('MCA_VEB_FREIFELDN6_10');
fh_bmd_log := 4;



if (BMD_LEN (text) > 100) then begin
	if (BMD_POS (text, ' ') >  0) then begin
		text := BMD_COPY (text, 1, 101); 
	end
	else begin  
		text := BMD_COPY (text, 1, 100);
	end;
end;
personenid := VorerfassenModel.GetValue('MCA_VEB_PER_PERSONENID');	      // alte personenid

BS := VorerfassenModel.GetValue('MCA_VEB_BUS_BUCHSYMSYMBOL');
field_input_value := FIELD_INPUT_VALUE;
field_old_value := FIELD_OLD_VALUE; 

KontoNr := field_input_value;
KontoNr_numeric := BMD_TEXTTONUMDEF (field_input_value);
field_output_value := field_input_value;

per_uidnr := '';
per_name := '';   

initParams; 
AUTH_CRE_KUNDEN := 1;
AUTH_UPD_KUNDEN := 2;
AUTH_CRE_LIEF := 4;
AUTH_UPD_LIEF := 8;

BMD_VORERF_TYP_KUNDEN := '4';
BMD_VORERF_TYP_LIEF := '3';


// Änderung Blindsätze unterbinden

if (blind_flag = '99') and (BMD_LEN (field_input_value) > 0) and (KontoNr_numeric > 0) then begin 
	BMD_SHOWMESSAGE ('Änderung bereits verbuchten Blindsatz nicht erlaubt - bitte löschen vor Import');
	FIELD_OUTPUT_VALUE := '';
	exit;
end;

vorerf_typ := VorerfassenModel.GetValue('MCA_VEB_VBV_VORERFASSTYP'); 

kdlf_string := 'Lieferanten';  
if ((vorerf_typ <>  BMD_VORERF_TYP_LIEF) and (vorerf_typ <>  BMD_VORERF_TYP_KUNDEN)) then begin     // Kassa
	exit;
end;
else if (vorerf_typ = BMD_VORERF_TYP_KUNDEN) then begin    
	kdlf_string := 'Kunden';
end;


auth := get_auth (FirmenNr, FibuNr);
auth_create := 0;
auth_modify := 0;
if (vorerf_typ = BMD_VORERF_TYP_KUNDEN) then begin
	if auth and AUTH_CRE_KUNDEN then begin
		auth_create := 1;
	end;
	if auth and AUTH_UPD_KUNDEN then begin
		auth_modify := 1;
	end;

end;
if (vorerf_typ = BMD_VORERF_TYP_LIEF) then begin
	if auth and AUTH_CRE_LIEF then begin
		auth_create := 1;
	end;
	if auth and AUTH_UPD_LIEF then begin
		auth_modify := 1;
	end;
end;
if (not auth_create) and (not auth_modify) then begin  
	//BMD_SHOWMESSAGE ('no auth');
	exit;
end;

addresse := '';
ort := '';
plz := '';
land_id := '';  

uid_status := '';
iban1 := '';
iban2 := '';
iban3 := '';  
per_adresse := '';  
per_zusatzname := '';  
per_iban1 := '';
per_iban2 := '';
per_iban3 := '';
uid_datum := '';  
name := '';
zusatzname := ''; 
kondition := ''; 
zahlsperre := ''; 
per_zahlsperre := ''; 
per_plz := ''; 
per_land_id := ''; 
per_kondition := '';
personenid := '';
uid_timestamp := '';

 
done_list := MacroObject.FindGlobalMacroStringList('Logisthai_done'); 
if not done_list then begin
	done_list := MacroObject.CreateGlobalMacroStringList('Logisthai_done');  
end;     
created_list := MacroObject.FindGlobalMacroStringList('Logisthai_created'); 
if not created_list then begin
	created_list := MacroObject.CreateGlobalMacroStringList('Logisthai_created');  
end;     

fetch_json (json, json_learned, fibunr, name, zusatzname, addresse, ort, plz, land_id, uid, uid_status, iban1, iban2, iban3, uid_datum, kondition, zahlsperre);

if (BMD_LEN (field_input_value) > 0) and (KontoNr_numeric > 0) then begin
	if not auth_modify then begin  
		//BMD_SHOWMESSAGE ('no auth');
		exit;
	end;    
	//BMD_SHOWMESSAGE ('field changed');
	// field update && check update kundenstamm
	
	get_KDLF (personenid, kontonr, per_uidnr, uid_timestamp, per_name, per_zusatzname, per_adresse, per_plz, per_land_id, per_iban1, per_iban2, per_iban3, per_kondition, per_zahlsperre);    
		  
	if (field_input_value <> field_old_value)  then begin

		if do_modify_buchungstext then begin		
			VorerfassenModel.SetValue('MCA_VEB_BUCHUNGSTEXT', per_name);
		end;
		
		//VorerfassenModel.SetValue('MCA_VEB_UIDNR', per_uidnr);
		VorerfassenModel.SetValue('MCA_VEB_FREIFELDNK2', 1);	    // set change id
	end
	if zahlsperre = '' then begin
		zahlsperre := per_zahlsperre;
	end;
	if kondition = '' then begin
		kondition := per_kondition;
	end;

	// update_stamm
	if (((BMD_LEN (uid) > 0) or (BMD_LEN (name) > 0)) and (BMD_LEN (name) > 0) and (
		(per_uidnr <> uid) or (per_name <> name) or (addresse <> per_adresse) 
			or (plz <> per_plz) 
			or (iban1 <> per_iban1) 
			or (land_id <> per_land_id) 
			or ((kondition <> per_kondition) AND (kondition <> '')) 
			or ((zahlsperre <> per_zahlsperre) AND (zahlsperre <> '')) 
			)) then begin
	      
		current_date := BMD_DATE(); 
		// BMD_SHOWMESSAGE('per_uidnr: ' + per_uidnr + ' uid: ' + uid + ' per_name: ' + per_name + ' name: ' + name + ' addresse: ' + addresse + ' per_adresse: ' + per_adresse + ' kondition: ' + kondition + ' per_kondition: ' + per_kondition);
  
		// wurde mit aktuellem tagesdatum + firmennr + fibunr + periode + kdlf + neuem updatewert schon einmal nach einem update gefragt?
		//done_string := current_date + ';' + FirmenNr + ';' + FibuNr + ';' + Periode + ';' + field_input_value + ';' + name;	       
		//done := BMD_GETINTPARAMVALUE('LOGISTHAI_KDLF',done_string,'');
		//done := '';		   // test only  

		//BMD_SHOWMESSAGE('per_uidnr: ' + per_uidnr + ' uid: ' + uid + ' per_name: ' + per_name + ' name: ' +  name + ' addresse: ' + addresse + ' per_adresse: ' + per_adresse + ' kondition: ' + kondition + ' per_kondition: ' + per_kondition);
		
		done_string := FirmenNr + ';' + FibuNr + ';' + Periode + ';' + field_input_value + ';' + name;
		done := done_list.GetKeyValue (done_string);
		
		if (done <> '') then begin
			//BMD_SHOWMESSAGE('Schon mal gefragt und du wolltest nicht, Jetzt Pech');
		end;
		else begin

			question := '';
			if (per_name <> name) then begin
				question := question + 'Name <' + per_name + '> auf <' + name + '>' + bmd_lineBreak();
			end; 
			if (per_uidnr <> uid) then begin
				question := question + 'UID <' + per_uidnr + '> auf <' + uid + '>' + bmd_lineBreak();
			end; 
			if (addresse <> per_adresse) then begin
				question := question + 'Adresse <' + per_adresse + '> auf <' + addresse + '>' + bmd_lineBreak();
			end; 
			if (plz <> per_plz) then begin
				question := question + 'PLZ <' + per_plz + '> auf <' + plz + '>' + bmd_lineBreak();
			end; 
			if (iban1 <> per_iban1) then begin
				question := question + 'IBAN <' + per_iban1 + '> auf <' + iban1 + '>' + bmd_lineBreak();
			end; 
			if (land_id <> per_land_id) then begin
				question := question + 'Land <' + per_land_id + '> auf <' + land_id + '>' + bmd_lineBreak();
			end; 
			if ((kondition <> per_kondition) AND (kondition <> '')) then begin
				question := question + 'Kondition <' + per_kondition + '> auf <' + kondition + '>' + bmd_lineBreak();
			end; 
			if ((zahlsperre <> per_zahlsperre) AND (zahlsperre <> '')) then begin
				per_zahlsperre_string := 'Nein';
				zahlsperre_string := 'Nein';
				if (per_zahlsperre <> '0') then begin
					per_zahlsperre_string := 'Ja';
				end; 
				if (zahlsperre <> '0') then begin
					zahlsperre_string := 'Ja';
				end; 
				question := question + 'Zahlsperre <' + per_zahlsperre_string + '> auf <' + zahlsperre_string + '>' + bmd_lineBreak();
			end; 
	      

			rc := BMD_ASKVALUEBOOL (question, 'Stammdatenupdate - ' + KontoNr + ' - ' + per_name + ' ?');

			done_list.SetKeyValue (done_string, '1');
			
			if (rc = 1) then begin

				personenid := import_KDLF (KontoNr, uid, uid_datum, name, zusatzname, addresse, plz, land_id, iban1, iban2, iban3, kondition, zahlsperre);
				
				if do_modify_buchungstext then begin
					VorerfassenModel.SetValue('MCA_VEB_BUCHUNGSTEXT', name); 
				end;
				show_kdlf (FirmenNr, FibuNr, personenid);
			end; 
			FIELD_KEEP_FOCUS:=True;
		end;
	end;
end;				   
else if auth_create then begin	      // feld leer -->neuen kunden anlegen										
	
	if (((BMD_LEN (uid) > 0) or (BMD_LEN (plz) > 0)) and (BMD_LEN (name) > 0)) then begin
		rc := KDLF_exists (uid, text, vorerf_typ);										 
																	    
		if (rc = '0') then begin
			next_nummer := get_next_free_kdlf_nummer (FirmenNr, BS, FibuNr);

			if (next_nummer > 0) then begin
		
				text := name;
				if addresse <> '' then begin
				    text := text + ' ' + addresse;
				end;
				if ort <> '' then begin
				    text := text + ' ' + ort;
				end;
				if uid <> '' then begin
				    text := text + ' UID  ' + uid + ': ' + uid_status;
				end;
				if iban1 <> '' then begin
				    text := text + ' ' + iban1;
				end;
				text := text + ' Nummer:';
				rc := BMD_ASKVALUEBOOL (kdlf_string + 'Nummer ' + next_nummer + bmd_lineBreak() + bmd_lineBreak() +
							   name + bmd_lineBreak() + 
							'UID  <' + uid + '>: ' + uid_status + bmd_lineBreak() + 
							addresse + bmd_lineBreak() + 
							ort + bmd_lineBreak() + 
							'IBAN: ' + iban1,
							kdlf_string + ' anlegen ?'); 
							
				if (rc = 1) then begin
					personenid := import_KDLF (next_nummer, uid, uid_datum, name, zusatzname, addresse, plz, land_id, iban1, iban2, iban3, kondition, zahlsperre);
					store_created_kdlf (uid, name, vorerf_typ, personenid);
					field_output_value := next_nummer;
					show_kdlf (FirmenNr, FibuNr, personenid); 
				end;				       
			end;		     
			else begin
				BMD_SHOWMESSAGE ('Keine next free number');
			end;		     
		end; 
		else begin  
			field_output_value := rc;
		end;
		
		FIELD_KEEP_FOCUS:=True;
	end;
end;


result := field_output_value;					   
FIELD_OUTPUT_VALUE:=result;