// ------------------------------------------------------------------------------
// Init
// ------------------------------------------------------------------------------
g_jahr := '';
h_dekade := '';
d_belnr := '';
e_beldat := '';
f_intnum := '';
i_liefna := '';
a_buchkreis := '';
c_kundnr := '';
// ------------------------------------------------------------------------------
// Dateiname aus Blob
// ------------------------------------------------------------------------------
if ccDocument.GetBlobCount = 1 then
begin
FileName := ExtractFileName(ccDocument.GetFileName(0));
// ------------------------------------------------------------------------------
// Dateinamen zerpflücken
// ------------------------------------------------------------------------------
jahrdekade := copy(FileName,1,pos('_',FileName)-1); delete(FileName,1,pos('_',FileName));
g_jahr := copy(jahrdekade, 1, 4);
h_dekade := copy(jahrdekade, 5, 2);
d_belnr := copy(FileName,1,pos('_',FileName)-1); delete(FileName,1,pos('_',FileName));
e_beldat := copy(FileName,1,pos('_',FileName)-1); delete(FileName,1,pos('_',FileName));
f_intnum := copy(FileName,1,pos('_',FileName)-1); delete(FileName,1,pos('_',FileName));
i_liefna := copy(FileName,1,pos('_',FileName)-1); delete(FileName,1,pos('_',FileName));
a_buchkreis := copy(FileName,1,pos('_',FileName)-1); delete(FileName,1,pos('_',FileName));
c_kundnr := FileName;
// ------------------------------------------------------------------------------
// Variablen in Felder übernehmen
// ------------------------------------------------------------------------------
ccDocument.SetFieldValue('g_jahr', g_jahr);
ccDocument.SetFieldValue('h_dekade', h_dekade);
ccDocument.SetFieldValue('d_belnr', d_belnr);
ccDocument.SetFieldValue('e_beldat', e_beldat);
ccDocument.SetFieldValue('f_intnum', f_intnum);
ccDocument.SetFieldValue('i_liefna', i_liefna);
ccDocument.SetFieldValue('a_buchkreis', a_buchkreis);
ccDocument.SetFieldValue('c_kundnr', c_kundnr);
// ------------------------------------------------------------------------------
// Inhaltsprüfung
// ------------------------------------------------------------------------------
if (length(g_jahr) = 4) and
(length(h_dekade) = 2) and
(length(d_belnr) = 8) and
(length(e_beldat) = 6) and
(length(f_intnum) = 5) and
(length(a_buchkreis) = 4) then
begin
ccDocument.AllowProcessing := true;
end else
begin
ccDocument.AllowProcessing := false;
WriteLog('Indexdaten entsprechen nicht den Vorgaben!');
end;
end else
begin
ccDocument.AllowProcessing := false;
WriteLog('Das Dokument enthält mehr oder weniger als 1 Datei!');
end;
// ------------------------------------------------------------------------------
// eof |