4 H$Formx|,!begin 0 iRoundX := [INTPROPERTY('FIRMA.ROUND', 0)];  kuu2 := 'x';  if [kuu_nr] = 1 then  kuu2 := 'jaanuaris';  if [kuu_nr] = 2 then  kuu2 := 'veebruaris';  if [kuu_nr] = 3 then  kuu2 := 'mrtsis';  if [kuu_nr] = 4 then  kuu2 := 'aprillis';  if [kuu_nr] = 5 then  kuu2 := 'mais';  if [kuu_nr] = 6 then  kuu2 := 'juunis';  if [kuu_nr] = 7 then  kuu2 := 'juulis';  if [kuu_nr] = 8 then  kuu2 := 'augustis';  if [kuu_nr] = 9 then  kuu2 := 'septembris';  if [kuu_nr] = 10 then  kuu2 := 'oktoobris';  if [kuu_nr] = 11 then  kuu2 := 'novembris';  if [kuu_nr] = 12 then  kuu2 := 'detsembris'; end; end 4 Formx|,t GroupHeader1,2 [data."ID"]begin  viivis := [korter_viivis]; H pgfKorraldus.Visible := (INTPROPERTY('KY.ARVE.MKORRALDUS', 0) = 1); : bPrintNulls := (INTPROPERTY('KY.ARVE.NULLS', 0) = 1); ' korter_lisatekst := [data."Memo"]; * sViitenumber := [korter_viitenumber];  xvolg := 0; end^ MasterData10dst begin ^ MasterData1.Visible := ([data."KaupKood"] <> 'VIIVIS') and ([data."KaupKood"] <> 'VOLG'); ) if [data."KaupKood"] = 'VIIVIS' then ! Viivis := [data."Summa"]; ' if [data."KaupKood"] = 'VOLG' then xvolg := [data."Summa"]; 6 if MasterData1.Visible and (not bPrintNulls) then 5 MasterData1.Visible := ([data."Summa"] <> 0); endo GroupFooter1(1begin - b := [INTPROPERTY('KY.ARVE.NAIDUD', 0)];  //MESSAGEBOX(str(b), 'x'); @ rpNaidud.Visible := (INTPROPERTY('KY.ARVE.NAIDUD', 0) = 1); end pgfKorraldusL0] Memo3D,hikArial  Memo1D,[data."Korter"]begin  sKrt := [data."Omanik"]; endArial  Memo2D,[data."Omanik"]begin  Maksja := [data."Korter"]; endArial ^ Memo7H$, Makse nimetusArial  Memo8l`,KogusArial c Memo9`,HindArial  Memo10p`,SummaArial Memo11H$,[data."KaupNimi"]begin  if [data."Tyyp"] = 1 then ' Memo11.Font.Style := [fsItalic] else 0 Memo11.Font.Style := Memo31.Font.Style; endArial Memo12l`,[data."Kogus"]begin , Memo12.Font.Style := Memo11.Font.Style; endArial Memo13`, ### ##0.00### [data."Hind"]begin , Memo13.Font.Style := Memo11.Font.Style; endArial uMemo14p`,[data."Summa"]begin , Memo14.Font.Style := Memo11.Font.Style; endArial  txtKuup0`,[SUM([data."TegSumma"])]Arial lblKuu0,Arvestatud [kuu2]:Arial  lblVolgD,Vlg (miinusega ettemaks):3begin  volg := 0;  kID := data.ID;  if xvolg <> 0 then  volg := xvolg else $ volg := KORTERIVOLG([kID]); 4 arveSumma := [SUM([data."TegSumma"])] + viivis;  if iRoundX <> 0 then begin E ys := round(arveSumma * (100 / iRoundX)) / (100 / iRoundX); $ ymardus := ys - arveSumma;  end else  ymardus := 0; - arveSumma := arveSumma + ymardus + volg; $ txtVolg.Visible := (volg <> 0); ( lblVolg.Visible := txtVolg.Visible; ( txtViivis.Visible := (viivis <> 0); , lblViivis.Visible := txtViivis.Visible; * txtYmardus.Visible := (ymardus <> 0); . lblYmardus.Visible := txtYmardus.Visible;  if lblVolg.Visible then 7 lblViivis.Top := lblVolg.Top + lblVolg.Height else & lblViivis.Top := lblVolg.Top; $ txtViivis.Top := lblViivis.Top;  if lblViivis.Visible then : lblYmardus.Top := lblViivis.Top + lblViivis.Height else ) lblYmardus.Top := lblViivis.Top; & txtYmardus.Top := lblYmardus.Top;  if lblYmardus.Visible then ; lblTasuda.Top := lblYmardus.Top + lblYmardus.Height else ) lblTasuda.Top := lblYmardus.Top; $ txtTasuda.Top := lblTasuda.Top; 4 txtEur.top := txtTasuda.top + txtTasuda.height; 4 txtLisainfod.Top := txtEur.Top + txtEur.Height; < rpNaidud.Top := txtLisainfod.Top + txtLisainfod.Height; endArial txtVolgpD`,[volg]Arial  lblYmardusl,mardus:Arial  txtYmarduspl`, [ymardus]Arial 6 lblTasuda, Kokku tasuda:Arial  txtTasudap`, [arveSumma]Arial e txtLisainfodHL, [arve_tekst] [korter_tekst]Arial Memo27,,[PROPERTY('FIRMA.NAME', '')]Arial Memo28H,,ARVE NR [data."ArveNr"]Arial *Memo29HD,[kuu_nimi] [aasta_nr]Arial Memo31HP,Aadress:Arial OMemo32H ,[PROPERTY('FIRMA.AADRESS', '')]Arial Memo33hP,Reg. nr:Arial qMemo34h,[PROPERTY('FIRMA.KOOD', '')]Arial Memo30|P,A/a:Arial J"Memo35|P, [sPangad]begin V sPangaCnt := Int(SQLVALUE('SELECT COUNT(*) FROM PANGAARVED WHERE FIRMAID = -1'));  sPangad := ''; # for x := 0 to sPangaCnt - 1 do ) sPangad := sPangad + SQLVALUE('SELECT FIRST 1 SKIP ' + Str(x) + ' A.ARVENR || '', '' || P.NIMI FROM PANGAD P, PANGAARVED A WHERE P.ID = A.PANKID AND FIRMAID = -1 ORDER BY A.NR ASC') + ' '; endArial "Memo36H@,Maksja:Arial #Line2H,n#Line3H,,# lblViivisX,Viivis:Arial $ txtViivispX`,[Viivis]Arial $Line1HP,%Line4@h,n%Line5H,%Memo6h,MAKSEKORRALDUS NR.Arial M&Line6H,&Line7H8,&Line8,:'Line9H8,'Line10H,'Line11H ,*(Line12H(,z(Line13@,(Memo25H$ ,MaksjaArial)Memo26H` ,Maksja konto nr.Arial*Memo37H` , Maksja pankArial*Memo38H` ,SaajaArial+Memo39( ,KoodArialo+Line14,+Memo40H@ ,Saaja konto nr.Arial,Memo41, ,Reg. nr.Arial -Memo42H @ , Saaja pankArial-Memo43 ( ,KoodArial.Memo44H(D ,Maksja kinnitusArial.Memo45(@ , Panga mrgeArial,/Memo46 @ ,SummaArial/Memo47@ , ViitenumberArial=0Memo48< ,SelgitusArial0Memo49< , MaksepevArialP1Memo50@8 , Maksja/kontoArial1Memo51@8 , Saaja/kontoArial^2Memo52@ 8 ,SummaArial2Memo53@(8 , Panga mrgeArialv3Memo54`,[arveSumma] EEKArial 4Memo55l`,[arveSumma] EEKArial 4Memo56@P,[PROPERTY('FIRMA.NAME', '')]Arial &5Memo57p,[Maksja]Arial 5Memo58D,[Maksja]Arial H6Memo59t ,[PROPERTY('FIRMA.NAME', '')]Arial *7Memo60t,c[SQLVALUE('SELECT FIRST 1 SKIP 0 A.ARVENR FROM PANGAARVED A WHERE FIRMAID = -1 ORDER BY A.NR ASC')]Arial 7Memo61l,[PROPERTY('FIRMA.KOOD', '')]Arial 8Memo62,[SQLVALUE('SELECT FIRST 1 SKIP 0 P.NIMI FROM PANGAD P, PANGAARVED A WHERE P.ID = A.PANKID AND FIRMAID = -1 ORDER BY A.NR ASC')]Arial J9Memo63Dh`,KVIITUNGArial 9rpNaidudH,,:Memo70D, [data."Yhik"]Arial :Memo24D,[sKrt]Arial 9;Memo4\, [arve.kpv]Arial ;Memo5p,[arve.maksekpv]Arial M<Memo15H\D,Kuupev:Arial <Memo16Hp`,Maksethtaeg: Arial g=Memo17,[sViitenumber]Arial >txtViitenumber,[korter_viitenumber]Arial  ?lblViitenumberH`, Viitenumber:begin B lblViitenumber.Visible := (trim([korter_viitenumber]) <> ''); 6 txtViitenumber.Visible := lblViitenumber.Visible; endArial ?txtEur<,([[arveSumma] / 15.6466] EUR)Arial t@ MasterHeader1,80begin ; MasterHeader1.Visible := [MootjadOlemas([data."ID"])]; endA MasterData2t0 dstNaidudbegin G MasterData2.Visible := [MootjaOlemas([naidud."ID"], [data."ID"])]; if MasterData2.Visible then begin 9 Nait := [MootjaNait([naidud."ID"], [data."ID"])]; end; endEBMemo64t,[naidud."Kaup"]Arial BMemo65t`,[Nait]Arial XCMemo66t,[naidud."Kaup"]Arial CMemo67t,Arial hDMemo68H,Arvestatud nitudeniArial EMemo69Hx,0[sKrt] uus nit seisuga ........................Arial  arve andmedkuu_nrkuu_nimiaasta_nrtbladatatblnnaidudX꟒@7'@