Sub ListaDokumentow()On Error GoTo ErrHandler Dim oSubGT As InsERT.Subiekt Dim oListaDok As InsERT.SuDokumentyLista Dim oDok As InsERT.SuDokument Dim sNapis As String Set oSubGT = UruchomSubiekta() Set oListaDok = oSubGT.Dokumenty.Wybierz() oListaDok.FiltrTypOpcje = gtaFiltrSuDokumentOpcjeZam oListaDok.FiltrTyp = gtaFiltrSuDokumentZam oListaDok.FiltrOkres = gtaFiltrOkresNieokreslony oListaDok.MultiSelekcja = True oListaDok.Wyswietl sNapis = "Zaznaczono nastęujące dokumenty: " & vbCrLf For Each oDok In oListaDok.ZaznaczoneDokumenty sNapis = sNapis & oDok.NumerPelny & "ID:" & oDok.Identyfikator & vbCrLf Next MsgBox sNapis Exit SubErrHandler: MsgBox "Wystąpił błąd: " & Err.Number & " - " & Err.Description End Sub
unit sm_testy;{$mode objfpc}{$H+}interfaceuses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, wps_u, LCLType,Comobj,variants,ActiveX;type TOleCollectionEnumClass = class(TObject); TEkSmTesty = class(TForm) private public end;var EkSmTesty: TEkSmTesty;implementation{$R *.lfm}varaSubGT,oSubGT:OleVariant;oListGT,gtaFiltrOkresNieokreslony,gtaFiltrSuDokumentOpcjeZam,gtaFiltrSuDokumentZam:OleVariant;oDok: OleVariant;Reply, BoxStyle: Integer;beginBoxStyle := MB_ICONQUESTION + MB_YESNO;//Reply := Application.MessageBox(PChar(IntToStr(PROG_VER_NUM_RC)),'Test', BoxStyle);wpsConnect(oSubGT,true);oListGT:=oSubGT.Dokumenty.Wybierz;oListGT.FiltrTypOpcje:=15;//oListGT.FiltrTyp:=gtaFiltrSuDokumentZam;oListGT.FiltrOkres:=gtaFiltrOkresNieokreslony;oListGT.MultiSelekcja:= True;oListGT.Wyswietl;end. // eof
Is it enough?