====== Zähler: Vorhandenen Zähler neu setzen ======

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.

<code vb.net>
  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
</code>