Dieses Makro zeigt eine Auswahlliste aller in DOCUframe angelegten Zähler an. Nach der Auswahl eines Zählers kann dieser im nächsten Dialog geändert werden.

  DBSTRINGSET Counter;
  INT index, value;
  STRING Name, txt;
 
  DBGetCounterNameSet( Counter );
  DBStrSort( Counter );
 
  index = ShowStringSetDlg( "Welcher Zähler soll gesetzt werden?", Counter, "Zähler auswählen", NULL, "Verdana", 100, 350, 350 );
 
  IF( index > 0 ) // es wurde eine Auswahl getroffen
    Name = DBStrGet( Counter, index );
    value = DBGetCounterValue( Name );
    txt = IntToStr( value );
 
    IF( GetTextDlg( "aktuelle Nummer: ", txt, "Counterstand setzen" ) == IDOK )
 
      IF( DBSetCounterValue( Name, StrToInt( txt ) ) )
        MessageBox( "Zähler wurde aktualisiert.", MB_ICONINFORMATION );
      ELSE
        MessageBox( "Fehler beim Setzen des Zählers", MB_ICONSTOP );
      ENDIF
 
    ENDIF // nur, wenn Dialog nicht abgebrochen wurde
 
  ENDIF // nur, wenn eine Auswahl getroffen wurde