Witam serdecznie,
potrzebuję rozliczyć fakturę sprzedaży znając jej ID z bazy i datę rozliczenia.
Przypuszczam, że muszę użyć Sfery (mam ją na pokładzie).
Pytanie: czy któryś z szanownych Kolegów może mi podrzucić jakiś pomysł/przykład jak się za to zabrać?

pozdrawiam

Tworzę programik, który na podstawie danych wejściowych ma oznaczać faktury (rozliczać) jako rozliczone.
Jakieś pomysły jak zacząć, mam tu na myśli jakie obiekty Sfery wziąć pod lupę.

Podaję swój kod:
procedure TFormApp.AddSettlement(ADocId: Integer; APrice: Currency; ADate: TDateTime);
var
  FinNal, FinBp, FinRoz, SuDok: OleVariant;
begin
  SuDok := SubGT.Dokumenty.Wczytaj(ADocId);

  FinNal := SubGT.FinManager.DodajRozrachunek(gtaDokFinTypNal);
  FinNal.Data := ADate;
  FinNal.TerminPlatnosci := ADate;
  FinNal.NumerPelny := 'Wpłata ' + String(SuDok.NumerPelny);
  FinNal.ObiektPowiazanyWstaw(gtaDokFinObiektKontrahent, SuDok.KontrahentId);
  FinNal.WartoscPoczatkowaWaluta := APrice;
  FinNal.Zapisz;
//  FinNal.Wyswietl;

  FinBp := SubGT.FinManager.DodajOperacjeBankowa(gtaDokFinTypBP, 5);
  FinBp.Data := ADate;
  FinBp.WartoscPoczatkowaWaluta := APrice;
  FinBp.ObiektPowiazanyWstaw(gtaDokFinObiektKontrahent, SuDok.KontrahentId);
//  FinBp.WalutaKurs := 3.5917;
//  FinBp.Waluta := 'USD';
//  FinBp.Tytulem := 'Zwrot pożyczki';
//  FinBp.WolnaSplata := False;

  FinRoz := FinBp.Rozliczenia.Rozlicz(FinNal, APrice);
  FinBp.Tytulem := String(SuDok.NumerPelny) + '(' + CurrToStr(APrice) + ')';
  FinBp.Wyswietl;
end;
generalnie w Subiekcie robimy tak:
1. Wskazujemy FS i wybieramy z menu Rozlicz.
2. Jedyne co jest zauważalnie tworzone to Operacja bankowa dla danej FS.

Zatem programowo robię tak:
1.Dodaję należność do bazy.
2. Dodaję operację bankową do bazy.
3. Rozliczam należność.
4. Wyświetlam/zapisuję operację bankową.

Niby się operacja bankowa dla FS tworzy - widać ją, ale w Subiekcie nadal mozna wybrac 'Rozlicz' dla danej FS jakby nie była rozliczona.
Czegoś mi brakuje? Proszę o wskazówkę - przejrzałem pomoc i przykłady....

Po pewnych testach zdaje się, że nie potrzebnie tworzę 'należność' zamiast ją wczytać jak poniżej:

Kod: [Zaznacz]

FinNal := SubGT.FinManager.Wczytaj(String(SuDok.NumerPelny));
Wydaje się teraz ok - jeżeli się mylę to proszę mnie poprawić.

Jest to oczywista opczywistość. Należnośc powstaje z samej faktury.