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....