%#ConTeXt

%
%   allgemeine Grundeinstellung
%
\enableregime[windows]          % Eingabe-Codierung
\mainlanguage[de]               % Sprachmodus	
\usetypescript[modern][texnansi] 
\setupbodyfont[12pt]
%
%   Die besondere Seitenanpassung
%
\setuppapersize[a4][a4]
\setuplayout[location=singlesided]

\setuplayout[
    backspace=2.46cm,topspace=1.2cm,
    top=0cm,bottom=0cm,topdistance=0cm,bottomdistance=0cm,
    header=1.5cm,footer=1.0cm,headerdistance=0cm,footerdistance=0cm,
    leftedge=0cm,rightedge=0cm,leftedgedistance=0cm,rightedgedistance=0cm,
    leftmargin=1.5cm,rightmargin=1.0cm,leftmargindistance=0.42cm,rightmargindistance=0.42cm,
    width=16.5cm,height=27.4cm,
]
%
%
%   Z�hler f�r die lfdNr.
%
    \global\newcount\xlfd \xlfd=0
% 
    \def\LFD{\futurelet\testchar\MitOptArgLFD}
    %

    \def\MitOptArgLFD{\ifx[\testchar%
     \let\next\OptArgLFD \else %
     \let\next \NoOptArgLFD \fi \next}
    %
    % setzte den Z�hler auf bestimmten Wert
    %
    \def\OptArgLFD[#1]{%
        {\global\xlfd=\number#1}
    }
    %
    % erh�he den Wert um 1
    % und gebe den Z�hler aus
    % Besonderheit 
    % zweistellige Ausgabe der Zahl also 01., 02. ... 10. 11. ...
    % und Punkt
    %
    \def\NoOptArgLFD{%
    {\global\advance\xlfd by 1\relax}
	\ifnum\xlfd<10
	0\fi
    \number\xlfd.
    }
%
%    Linie nach dem Namen
%
    \def\myrule{ {\thinrules[n=1]\par}}
%
%
%
\starttext
%
%
% 1. ex no prob
%

\definesorting[personA][personenA]
\setupsorting[personA][criterium = all,before=\LFD,after=\myrule]

\personA{Unsinn, Klaus}
\personA{Militzer, Bernd}
\personA{Horten, Hans}


\placelistofpersonenA

\page

% 2. ex prob �berall on wrong position

%

\definesorting[personB][personenB]
\setupsorting[personB][criterium = all,before=\LFD,after=\myrule]

\personB{Unsinn, Klaus}
\personB{Militzer, Bernd}
\personB{Horten, Hans}
\personB{�berall, Heinrich}

\placelistofpersonenB

\page

% 3. ex prob �berall is missing

%
\definesorting[personC][personenC]
\setupsorting[personC][criterium = all,before=\LFD,after=\myrule]

\personC{Unsinn, Klaus}
\personC{Militzer, Bernd}
\personC{Horten, Hans}
\personC[Ueberall]{�berall, Heinrich}

\placelistofpersonenC

\page

% 4. ex prob �berall is missing

%
\definesorting[personD][personenD]
\setupsorting[personD][criterium = all,before=\LFD,after=\myrule]

\personD{Unsinn, Klaus}
\personD{Militzer, Bernd}
\personD{Horten, Hans}
\personD[Ueberall]{�berall, Heinrich}

First I use \Ueberall\ in text

\placelistofpersonenD

\page

\stoptext
