15. Februar 2008 09:39
d3   Automation   'dexplor Bibliothek'.search   
  bOk := true;
  IF ISCLEAR( d3 ) THEN
    bOk := CREATE(d3, FALSE );
  if bOk THEN
  BEGIN
    d3.doc_type := 'rech';
    d3.doc_field(2, 'DEU');
    d3.doc_field(84, FORMAT( no ) );
    d3.search();
  end
  ELSE
    MESSAGE('Fehler beim erzeugen des D3 Automationsobjektes');
15. Februar 2008 09:42