internal bool PredpisExport(int popl, string per, int ucetMes, int ucetRok, int idPredpisu)
{
try
{
P_NASTAVENI nast = sesna.GetObjectByKey <P_NASTAVENI>("VAZBA_UCTO_TYP");
bool procDB = false;
if (nast != null)
{
procDB = (Convert.ToInt16(nast.HODNOTA) == 1);
}
if (!procDB)
{
return(false);
}
DBValue dbv = DBValue.Instance(sesna);
string user = dbv.DBUserName.ToUpper();
P_POPL_USERS pUser = sesna.FindObject <P_POPL_USERS>(
CriteriaOperator.Parse("CompoundKey1.LOGIN = ? " +
"and CompoundKey1.HODNOTA_NAZEV = ? " +
"and CompoundKey1.SEKCE is null",
dbv.DBUserName.ToUpper(), "Expfin_predp_ihned"));
#region logovani
if (pUser != null)
{
Util.Util.WriteLog(string.Format("nastaveni pro export do ucta: LOGIN={0}, Expfin_predp_ihned={1}, " +
"popl={2}, per={3}, ucetMes={4}, ucetRok={5}, predpisID={6}",
dbv.DBUserName.ToUpper(), pUser.HODNOTA,
popl, per, ucetMes, ucetRok, idPredpisu));
}
else
{
Util.Util.WriteLog(string.Format("nastaveni pro export do ucta: LOGIN={0}, nebylo dohledano", dbv.DBUserName.ToUpper()));
}
#endregion logovani
if ((pUser != null) && (Convert.ToInt32(pUser.HODNOTA) > 0))
{
DevExpress.Xpo.DB.SelectedData selData = sesna.ExecuteSproc("GEO_EXP_PRPL_OX",
new OperandValue(popl),
new OperandValue(per),
new OperandValue(ucetMes),
new OperandValue(ucetRok),
new OperandValue(idPredpisu));
return(true);
}
else
{
return(false);
}
}
catch (Exception exc)
{
return(false);
throw new Exception("Export předpisu do účetnictví neproběhl z důvodu chyby. \n\n" + exc.Message);
}
}
/// <summary>
/// radky DPH, pripadne zaokrouhli a stanovi zaokrouleni
/// napnlni vstupni List dopocitanymi hodnotami (kod sazby dane, dan, KC, zaokrouhleni, radek dorovanani na celkovou castku)
/// </summary>
internal void DPHZaokrouhli(List <DPHRozpis> dphRows, decimal poplatek, Session sesna, bool provestZaokrouhleni = true)
{
CriteriaOperator criteria;
criteria = CriteriaOperator.Parse("NAZPOPL_POPLATEK = ?", poplatek);
C_NAZPOPL cNazp = sesna.FindObject <C_NAZPOPL>(criteria);
if (cNazp.NAZPOPL_DPH == 'N')
{
throw new Exception("Součástí poplatku není DPH");
}
decimal suma = 0;
List <sazDane> sazbySoucty = new List <sazDane>();
foreach (DPHRozpis item in dphRows)
{
var sd = new sazDane();
sd.sazba = item.SAZBA;
sd.KC = item.ZAKLAD * (1 + (item.SAZBA ?? 0) / 100);
int i = sazbySoucty.FindIndex(x => x.sazba == item.SAZBA); //i toto nalezne null hodnotu
if (i == -1)
{
sazbySoucty.Add(sd);
}
else
{
sd.KC = sazbySoucty[i].KC + (item.ZAKLAD * (1 + (item.SAZBA ?? 0) / 100));
sazbySoucty[i] = sd;
}
suma += item.ZAKLAD * (1 + (item.SAZBA ?? 0) / 100);
}
if (sazbySoucty.Count == 0)
{ //neexistuji radky dane
return;
}
//nactu platne sazby dane
DBValue dbv = DBValue.Instance(sesna); //new DBValue(sesna);
XPCollection <P_DPH_SAZBA> dphSazby = new XPCollection <P_DPH_SAZBA>(
sesna,
CriteriaOperator.Parse("CompoundKey1.DPHS_OD <= ? and DPHS_DO > ?",
dbv.DBSysDate, dbv.DBSysDate.AddDays(-1)));
//naleznu nejvyssi castku a tim i zaokrouhlovanou sazbu
//zaroven zkontroluji platnost sazby DPH
sazDane dphRowMaxCastka;
dphRowMaxCastka.sazba = null;
dphRowMaxCastka.KC = 0;
foreach (sazDane item in sazbySoucty)
{
if (item.sazba == null)
{
dphSazby.Filter = (CriteriaOperator.Parse("DPHS_SAZBA is null"));
}
else
{
dphSazby.Filter = (CriteriaOperator.Parse("DPHS_SAZBA = ?", item.sazba));
}
if (dphSazby.Count == 0)
{
throw new Exception(String.Format("sazba DPH \"{0}\" neni platná", item.sazba == null ? "bez daně" : item.sazba.ToString()));
}
if ((item.KC > dphRowMaxCastka.KC) && (item.sazba != 0) && (item.sazba.HasValue))
{
dphRowMaxCastka = item;
}
}
//doplnim kategorii sazby, dan a celkovou castku
int presnostZaokr = 0;
foreach (DPHRozpis item in dphRows)
{
item.DAN = item.ZAKLAD * (item.SAZBA ?? 0) / 100;
item.DAN = Utils.Mathm.ZaokrouhliDouble(item.DAN, 2);
item.KC = item.ZAKLAD + item.DAN;
item.ZAOKROUHLENI = 0;
if (item.SAZBA == null)
{
dphSazby.Filter = (CriteriaOperator.Parse("DPHS_SAZBA is null"));
}
else
{
dphSazby.Filter = (CriteriaOperator.Parse("DPHS_SAZBA = ?", item.SAZBA));
}
item.KAT = dphSazby[0].CompoundKey1.DPHS_KAT;
if (dphRowMaxCastka.sazba == dphSazby[0].DPHS_SAZBA)
{
presnostZaokr = dphSazby[0].DPHS_ZAOKR;
}
}
DPHRozpis zaokrRadek = dphRows.Find(x => x.SAZBA == dphRowMaxCastka.sazba);
if (zaokrRadek == null)
{//neexistuje radek s nenulovou sazbou DPH
return;
}
//zda pocitat DPH ze zaokrouhleni
P_NASTAVENI nast = sesna.GetObjectByKey <P_NASTAVENI>("DPH_ZEZAOKR");
bool DphZeza;
if (nast != null)
{
DphZeza = nast.HODNOTA == "1";
}
else
{
DphZeza = true;
}
//zaokrouhledni DPH
if (provestZaokrouhleni && (cNazp.NAZPOPL_DPHROUND == 'A'))
{
// sazDane zaokrSazDane = lsd.Find(x => x.sazba == zaokrRadek.SAZBA);
decimal sazba = dphRowMaxCastka.sazba ?? 1;
decimal koef = sazba / 100m / (1 + (sazba / 100m)); //dle 235/2004 Sb. o DPH §37 odst 2.
koef = Utils.Mathm.ZaokrouhliDouble(koef, 4);
decimal dph = zaokrRadek.DAN;
decimal zaokr = Utils.Mathm.ZaokrouhliDouble(suma, 0) - suma;
zaokr = Utils.Mathm.ZaokrouhliDouble(zaokr, 2);
if (DphZeza)
{
decimal dph_zaokr = zaokr * koef; //DPH ze zaokrouhleni
dph = Utils.Mathm.ZaokrouhliDouble(dph + dph_zaokr, 2); //upravene DPH o zaokrouhleni
}
zaokrRadek.DAN = dph;
zaokrRadek.ZAOKROUHLENI = zaokr;
}
}
