private static void NowyZapis(KsiegaModule ksm, Dekret dekret, OkresObrachunkowy okres, string Konto, string WNMA, Currency wartosc, string tresc, string opis)
{
if (wartosc != Currency.Empty & Konto != string.Empty)
{
using (ITransaction trans = Session.Logout(true))
{
KontoBase[] konta = new KontoBase[1];
konta[0] = ksm.Konta.WgOkres[okres, Konto];
foreach (KontoBase konto in konta)
{
Zapis zapis = new Zapis(dekret);
ksm.ZapisyKsiegowe.AddRow(zapis);
zapis.DataPodatkowa = dekret.Data;
zapis.Konto = konto;
zapis.Features["Treść"] = tresc;
zapis.Opis = opis;
if (WNMA == "WN")
{
zapis.WinienOperacji = wartosc;
}
else
{
zapis.MaOperacji = wartosc;
}
}
trans.Commit();
}
}
}
public static void Zapis_PK()
{
CoreModule cm = CoreModule.GetInstance(Session);
KsiegaModule ksm = KsiegaModule.GetInstance(Session);
ProjectMZGM.Czynsze.CzynszeModule czy = Czynsze.CzynszeModule.GetInstance(Session);
View zarzadca_view = czy.Zarzadcy.CreateView();
var zarzadca_cond = RowCondition.Empty;
zarzadca_cond &= new FieldCondition.In("Nieaktywny", false);
zarzadca_view.Condition = zarzadca_cond;
foreach (Zarzadca zarzadca in zarzadca_view)
{
Currency kwota_suma = 0;
Currency kwotaParagraf4260 = 0;
Currency kwotaParagraf4300 = 0;
Currency kwotaParagraf4270 = 0;
Currency kwotaParagraf4270FR = 0;
Currency kwotaWoda = 0;
Currency kwotaScieki = 0;
Currency kwotaCO = 0;
Currency kwotaCWU = 0;
Currency kwotaSmieci = 0;
Currency kwotaKekspl = 0;
Currency kwotaKosztyZarz = 0;
Currency kwotaDomofon = 0;
Currency kwotaAntena = 0;
Currency kwotaWinda = 0;
Currency kwotaFunduszRemontowy = 0;
View nieruchomosci = czy.Nieruchomosci.WgZarzadca[zarzadca].CreateView();
foreach (Nieruchomosc nieruchomosc in nieruchomosci)
{
kwotaWoda += nieruchomosc.StawkaWoda;
kwotaScieki += nieruchomosc.StawkaScieki;
kwotaCO += nieruchomosc.StawkaCo;
kwotaCWU += nieruchomosc.StawkaCWU;
kwotaSmieci += (nieruchomosc.StawkaSmieci + nieruchomosc.StawkaSmieciNsel + nieruchomosc.StawkaSmieciSel);
kwotaKekspl += nieruchomosc.StawkaKEkspl;
kwotaKosztyZarz += nieruchomosc.StawkaWynZarz;
kwotaDomofon += nieruchomosc.StawkaDomofon;
kwotaAntena += nieruchomosc.StawkaAntena;
kwotaWinda += nieruchomosc.StawkaWinda;
kwotaFunduszRemontowy += nieruchomosc.StawkaFunduszRemontowy;
kwotaParagraf4260 += (nieruchomosc.StawkaWoda + nieruchomosc.StawkaCo + nieruchomosc.StawkaCWU);
kwotaParagraf4270 += (nieruchomosc.StawkaDomofon + nieruchomosc.StawkaWinda + nieruchomosc.StawkaAntena);
kwotaParagraf4300 += (nieruchomosc.StawkaScieki + nieruchomosc.StawkaKEkspl + nieruchomosc.StawkaWynZarz + nieruchomosc.StawkaSmieci + nieruchomosc.StawkaSmieciNsel + nieruchomosc.StawkaSmieciSel);
kwotaParagraf4270FR += nieruchomosc.StawkaFunduszRemontowy;
kwota_suma += (nieruchomosc.StawkaWoda + nieruchomosc.StawkaCo + nieruchomosc.StawkaCWU) + (nieruchomosc.StawkaDomofon + nieruchomosc.StawkaWinda + nieruchomosc.StawkaAntena) + (nieruchomosc.StawkaScieki + nieruchomosc.StawkaKEkspl + nieruchomosc.StawkaWynZarz + nieruchomosc.StawkaSmieci + nieruchomosc.StawkaSmieciNsel + nieruchomosc.StawkaSmieciSel) + nieruchomosc.StawkaFunduszRemontowy;
View rozliczenia = czy.Rozliczenia.CreateView();
var cond = RowCondition.Empty;
cond &= new FieldCondition.Equal("AdresPelnyNieruchomosci", nieruchomosc.AdresPelnyNieruchomosci);
cond &= new FieldCondition.GreaterEqual("Data", Date.Today.FirstDayMonth());
cond &= new FieldCondition.LessEqual("Data", Date.Today.LastDayMonth());
rozliczenia.Condition = cond;
Currency kwota_suma2 = 0;
Currency kwotaParagraf42602 = 0;
Currency kwotaParagraf43002 = 0;
Currency kwotaParagraf42702 = 0;
Currency kwotaParagraf4270FR2 = 0;
Currency kwotaWoda2 = 0;
Currency kwotaScieki2 = 0;
Currency kwotaCO2 = 0;
Currency kwotaCWU2 = 0;
Currency kwotaSmieci2 = 0;
Currency kwotaKekspl2 = 0;
Currency kwotaKosztyZarz2 = 0;
Currency kwotaDomofon2 = 0;
Currency kwotaAntena2 = 0;
Currency kwotaWinda2 = 0;
Currency kwotaFunduszRemontowy2 = 0;
foreach (Rozliczenie roz in rozliczenia)
{
kwotaWoda2 += roz.WodaKorekta;
kwotaScieki2 += roz.SciekiKorekta;
kwotaCO2 += roz.CoKorekta;
kwotaCWU2 += roz.CWUKorekta;
kwotaSmieci2 += (roz.SmieciKorekta + roz.SmieciSelKorekta + roz.SmieciNselKorekta);
kwotaKekspl2 += roz.KEksplKorekta;
kwotaKosztyZarz2 += roz.WynZarzKorekta;
kwotaDomofon2 += roz.DomofonKorekta;
kwotaAntena2 += roz.AntenaKorekta;
kwotaWinda2 += roz.WindaKorekta;
kwotaFunduszRemontowy2 += roz.FunduszRemontowyKorekta;
kwotaParagraf42602 += (roz.WodaKorekta + roz.CoKorekta + roz.CWUKorekta);
kwotaParagraf42702 += (roz.DomofonKorekta + roz.WindaKorekta + roz.AntenaKorekta);
kwotaParagraf43002 += (roz.SciekiKorekta + roz.KEksplKorekta + roz.WynZarzKorekta + roz.SmieciKorekta + roz.SmieciSelKorekta + roz.SmieciNselKorekta);
kwotaParagraf4270FR2 += roz.FunduszRemontowyKorekta;
kwota_suma2 += (roz.WodaKorekta + roz.CoKorekta + roz.CWUKorekta) + (roz.DomofonKorekta + roz.WindaKorekta + roz.AntenaKorekta) + (roz.SciekiKorekta + roz.KEksplKorekta + roz.WynZarzKorekta + roz.SmieciKorekta + roz.SmieciSelKorekta + roz.SmieciNselKorekta) + roz.FunduszRemontowyKorekta;
}
kwota_suma += kwota_suma2;
kwotaParagraf4260 += kwotaParagraf42602;
kwotaParagraf4300 += kwotaParagraf43002;
kwotaParagraf4270 += kwotaParagraf42702;
kwotaParagraf4270FR += kwotaParagraf4270FR2;
kwotaWoda += kwotaWoda2;
kwotaScieki += kwotaScieki2;
kwotaCO += kwotaCO2;
kwotaCWU += kwotaCWU2;
kwotaSmieci += kwotaSmieci2;
kwotaKekspl += kwotaKekspl2;
kwotaKosztyZarz += kwotaKosztyZarz2;
kwotaDomofon += kwotaDomofon2;
kwotaAntena += kwotaAntena2;
kwotaWinda += kwotaWinda2;
kwotaFunduszRemontowy += kwotaFunduszRemontowy2;
}
if (kwota_suma < 1)
{
continue;
}
using (ITransaction trans = Session.Logout(true))
{
PKEwidencja pk = new PKEwidencja();
cm.DokEwidencja.AddRow(pk);
DefinicjaDokumentu definicja = cm.DefDokumentow.WgSymbolu["PKWS"];
pk.Definicja = definicja;
pk.Opis = "PK należności podstawowe " + Date.Today.ToString() + ".";
pk.DataDokumentu = Date.Today;
string nazwa = zarzadca.NazwaZarzadcy.ToString();
pk.NumerDokumentu = "PKWS " + nazwa;
OkresObrachunkowy okres = ksm.OkresyObrach.WgSymbolu[Date.Today.Year.ToString()];
if (zarzadca.KontoZarzadca3 != string.Empty)
{
Dekret dekret = new Dekret(okres, pk);
ksm.Dziennik.AddRow(dekret);
dekret.Data = Date.Today;
NowyZapis(ksm, dekret, okres, zarzadca.KontoZarzadca3, "WN", kwota_suma, nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoParagraf4260, "MA", kwotaParagraf4260, "Paragraf 4260 " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoParagraf4300, "MA", kwotaParagraf4300, "Paragraf 4300 " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoParagraf4270, "MA", kwotaParagraf4270, "Paragraf 4270 " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoParagraf4270FR, "MA", kwotaParagraf4270FR, "Paragraf 4270FR " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoWoda4, "WN", kwotaWoda, "WODA " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoWoda5, "WN", kwotaWoda, "WODA " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoScieki4, "WN", kwotaScieki, "ŚCIEKI " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoScieki5, "WN", kwotaScieki, "ŚCIEKI " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoCO4, "WN", kwotaCO, "CO " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoCO5, "WN", kwotaCO, "CO " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoCWU4, "WN", kwotaCWU, "CWU " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoCWU5, "WN", kwotaCWU, "CWU " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoSmieci4, "WN", kwotaSmieci, "ŚMIECI " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoSmieci5, "WN", kwotaSmieci, "ŚMIECI " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoKekspl4, "WN", kwotaKekspl, "KOSZTY EKSPLOATACJI " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoKekspl5, "WN", kwotaKekspl, "KOSZTY EKSPLOATACJI " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoKosztyZarz4, "WN", kwotaKosztyZarz, "KOSZTY ZARZĄDU " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoKosztyZarz5, "WN", kwotaKosztyZarz, "KOSZTY ZARZĄDU " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoDomofon4, "WN", kwotaDomofon, "DOMOFON " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoDomofon5, "WN", kwotaDomofon, "DOMOFON " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoAntena4, "WN", kwotaAntena, "ANTENA " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoAntena5, "WN", kwotaAntena, "ANTENA " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoWinda4, "WN", kwotaWinda, "WINDA " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoWinda5, "WN", kwotaWinda, "WINDA " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoFunduszRem4, "WN", kwotaFunduszRemontowy, "FUNDUSZ REMONTOWY " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoFunduszRem5, "WN", kwotaFunduszRemontowy, "FUNDUSZ REMONTOWY " + nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoZarzadca3, "MA", kwota_suma, nazwa, nazwa);
NowyZapis(ksm, dekret, okres, zarzadca.KontoZarzadca4, "MA", kwota_suma, nazwa, nazwa);
}
trans.Commit();
}
}
}