public UHRADY_RESP InsertUhraduPredpisu(Session session, int EXT_APP_KOD, int PREDPIS_ID, decimal KC, DateTime DATUM_UHRADY, string ZAPLATIL, string DOKLAD, int SS)
{
Session sesna = session;
UHRADY_RESP plResp = new UHRADY_RESP();
plResp.status = Status.NOTEXISTS;
P_PRPL prpl;
#region kontrola vsupnich udaju
try
{
if (EXT_APP_KOD == null)
{
throw new Exception("kód externí aplikace není zadán");
}
if (PREDPIS_ID == null)
{
throw new Exception("PREDPIS_ID není zadán");
}
prpl = sesna.FindObject <P_PRPL>(CriteriaOperator.Parse("PRPL_ID = ? and PRPL_PREDPIS + PRPL_SANKCE > 0", PREDPIS_ID));
if (prpl == null)
{
plResp.status = Status.NOTEXISTS;
plResp.result = Result.ERROR;
{ throw new Exception("neexistující předpis"); }
}
if (KC <= 0)
{
throw new Exception("nelze vložit zápornou platbu");
}
P_NASTAVENI nast = sesna.GetObjectByKey <P_NASTAVENI>("OTEVR_OBDOBI");
string obd = "01." + nast.HODNOTA;
DateTime otevrObd = DateTime.ParseExact(obd, "d.M.yyyy", null);
if (DATUM_UHRADY < otevrObd)
{
throw new Exception("datum úhrady není v otevřeném období");
}
//zda je pristup na poplatek
KONTROLA_POPLATKU kp = new KONTROLA_POPLATKU(sesna, EXT_APP_KOD);
if (!kp.EAexist())
{
throw new Exception("chybný kód externí aplikace");
}
if (!kp.existPravoNadPoplatkem(prpl.CompoundKey.PRPL_POPLATEK))
{
throw new Exception("k pohledávce neexistuje oprávnění");
}
#region kontrola prava nad poplatkem
PravoNadPoplatkem pnp = null;
try
{
pnp = new PravoNadPoplatkem(sesna);
}
catch (Exception)
{
throw new Exception("kontrola přístp. práv uživatele nad daty Příjmové agendy skončila chybou");
}
//pro platby je povoleno vkladani
if (!pnp.PravoExist((int)prpl.CompoundKey.PRPL_POPLATEK, PravoNadPoplatkem.PrtabTable.PLATBA, PravoNadPoplatkem.SQLPerm.INSERT))
{
throw new Exception("PoplWS - nedostatečná oprávnění pro vkládání plateb.");
}
#endregion kontrola prava nad poplatkem
}
catch (Exception exc)
{
plResp.result = Result.ERROR;
if (exc.InnerException == null)
{
plResp.ERRORMESS = exc.Message;
}
else
{
plResp.ERRORMESS = exc.InnerException.Message;
}
return(plResp);
/*
* throw new Exception(String.Format("chyba \n {0}", exc.InnerException.Message));
*/
}
#endregion kontrola vstupnich udaju
decimal prNesparovano = (prpl.PRPL_PREDPIS + prpl.PRPL_SANKCE) - prpl.PRPL_SPAROVANO;
try
{
using (UnitOfWork uow = new UnitOfWork(sesna.DataLayer))
{
DBUtil dbu = new DBUtil(sesna);
P_PLATBA plIns = new P_PLATBA(uow);
plIns.PLATBA_ID = dbu.LIZNI_SEQ("PLATBA_ID");
plIns.PLATBA_VS = prpl.PRPL_VS;
plIns.PLATBA_PLDATE = DATUM_UHRADY;
plIns.PLATBA_NAUCETDNE = plIns.PLATBA_PLDATE;
plIns.PLATBA_PLKC = KC;
plIns.PLATBA_PLATCE = ZAPLATIL.SubstrLeft(30);
if (!string.IsNullOrWhiteSpace(DOKLAD))
{
plIns.PLATBA_DOKLAD = DOKLAD.SubstrLeft(30);
}
plIns.PLATBA_UCETMESIC = plIns.PLATBA_PLDATE.Month;
plIns.PLATBA_UCETROK = plIns.PLATBA_PLDATE.Year;
plIns.PLATBA_RECORD = " ";
plIns.PLATBA_SS = SS;
DBValue dbv = DBValue.Instance(sesna);
plIns.LOGIN = dbv.DBUserName;
plIns.LASTUPDATE = dbv.DBSysDateTime;
plIns.ENTRYLOGIN = plIns.LOGIN;
plIns.ENTRYDATE = plIns.LASTUPDATE;
plIns.PLATBA_EA = EXT_APP_KOD;
plIns.PLATBA_INTOZN = "0";
decimal prKc = prpl.PRPL_PREDPIS + prpl.PRPL_SANKCE;
if ((prKc > 0) && (KC > 0) && (prNesparovano > 0)) //kladna platba s kladnym predpisem
{
P_PAROVANI parovaniIns = new P_PAROVANI(uow);
parovaniIns.CompoundKey1.PAR_PRPL_ID = prpl.PRPL_ID;
parovaniIns.CompoundKey1.PAR_PLATBA_ID = plIns.PLATBA_ID;
if (prNesparovano == KC)
{
parovaniIns.PAR_SPARKC = KC;
}
if (Math.Abs(prNesparovano) < Math.Abs(KC))
{
parovaniIns.PAR_SPARKC = prNesparovano;
}
if (Math.Abs(prNesparovano) > Math.Abs(KC))
{
parovaniIns.PAR_SPARKC = KC;
}
parovaniIns.PAR_VYTVRUCNE = "NE";
parovaniIns.PAR_DATE = dbv.DBSysDateTime.ToString("yyMMddHHmmss");
uow.ExecuteNonQuery(String.Format(
"insert into P_PR_AKT (PRA_PRPL_ID, PRA_PR, PRA_TYP) values ({0}, {1}, '{2}')",
prpl.PRPL_ID, plIns.PLATBA_ID, "+"));
}
uow.CommitChanges();
plResp.result = Result.OK;
plResp.status = Status.INSERTED;
return(plResp);
} //uow
} //try
catch (Exception exc)
{
plResp.result = Result.ERROR;
if (exc.InnerException == null)
{
plResp.ERRORMESS = exc.Message;
}
else
{
plResp.ERRORMESS = exc.InnerException.Message;
}
return(plResp);
/*
* throw new Exception(String.Format("chyba \n {0}", exc.InnerException.Message));
*/
}
}
public STORNO_RESP StornoPredpis(Session session, int EXT_APP_KOD, int PREDPIS_ID, string POZNAMKA)
{
sesna = session;
Resp = new STORNO_RESP();
Resp.STORNO_ID = -1;
CriteriaOperator criteria;
sesna.DropIdentityMap();
#region test vyplneni vstupnich hodnot, kontroly
try
{
P_PRPL predp = null;
ValidateInputParam(EXT_APP_KOD, PREDPIS_ID, ref predp);
if (predp == null)
{
Resp.result = Result.ERROR;
Resp.status = Status.NOTEXISTS;
Resp.ERRORMESS = "Stornovaný předpis neexistuje.";
return(Resp);
}
string[] sRecord = new string[] { " ", "", "P" };
if ((!sRecord.Contains(predp.PRPL_RECORD)))
{
Resp.result = Result.ERROR;
Resp.status = Status.EXISTS;
Resp.ERRORMESS = "Předpis neumožňuje jeho stornování.";
return(Resp);
}
if (predp.PRPL_PR > 0)
{
Resp.result = Result.ERROR;
Resp.status = Status.EXISTS;
Resp.ERRORMESS = "Předpis je vymáhán, nelze jej stornovat.";
return(Resp);
}
#endregion test vyplneni vstupnich hodnot
#region vzdy odparuji vse od predpisu
XPCollection <P_PAROVANI> odparujPredpisy = new XPCollection <P_PAROVANI>(sesna,
CriteriaOperator.Parse("((CompoundKey1.PAR_PRPL_ID = ?) or (CompoundKey1.PAR_PLATBA_ID = ?) )",
PREDPIS_ID, PREDPIS_ID * -1));
decimal dluh = (predp.PRPL_PREDPIS + predp.PRPL_SANKCE) - (predp.PRPL_SPAROVANO * (Math.Abs(predp.PRPL_PREDPIS + predp.PRPL_SANKCE) / (predp.PRPL_PREDPIS + predp.PRPL_SANKCE)));
decimal odparKc = Math.Abs(dluh);
if (predp.PRPL_SANKCEDO == DateTime.MinValue)
{
foreach (var item in odparujPredpisy)
{
odparKc += item.PAR_SPARKC;
}
}
sesna.Delete(odparujPredpisy);
sesna.Save(odparujPredpisy);
#endregion vzdy odparuji vse od predpisu
DBValue dbv = DBValue.Instance(this.sesna);
//otevrene obdobi
P_NASTAVENI nast = sesna.GetObjectByKey <P_NASTAVENI>("OTEVR_OBDOBI");
DateTime otevrObd = DateTime.ParseExact("01." + nast.HODNOTA, "d.M.yyyy", null);
bool predpUzavren = predp.PRPL_OBDOBIROK > -1;
predpUzavren = predpUzavren && ((predp.PRPL_OBDOBIROK < otevrObd.Year) ||
(((predp.PRPL_OBDOBIROK == otevrObd.Year) && (predp.PRPL_OBDOBIMES < otevrObd.Month))));
bool uzaverkyNedelaji = (dbv.DBSysDate - otevrObd).TotalDays > (365 + 60);
DBUtil dbu = new DBUtil(sesna);
P_PRPL prIns = null;
if ((predp.PRPL_EXPORTOVANO == "ANO") || predpUzavren || uzaverkyNedelaji)
{
using (MyUnitOfWork uow = new MyUnitOfWork(sesna.DataLayer))
{
P_PRPL prOld = uow.FindObject <P_PRPL>(CriteriaOperator.Parse("PRPL_ID = ?", PREDPIS_ID));
prIns = new P_PRPL(uow);
prIns.PRPL_ID = dbu.LIZNI_SEQ("PRPL_ID");
prIns.CompoundKey.PRPL_POPLATEK = prOld.CompoundKey.PRPL_POPLATEK;
prIns.CompoundKey.PRPL_PER = prOld.CompoundKey.PRPL_PER;
prIns.CompoundKey.PRPL_ICO = prOld.CompoundKey.PRPL_ICO;
prIns.CompoundKey.PRPL_DOPLKOD = prOld.CompoundKey.PRPL_DOPLKOD;
prIns.PRPL_RECORD = prOld.PRPL_RECORD;
prIns.PRPL_ROK = dbv.DBSysDate.Year;
prIns.PRPL_PORPER = prOld.PRPL_PORPER;
prIns.PRPL_VS = prOld.PRPL_VS;
prIns.PRPL_EA = EXT_APP_KOD;
prIns.PRPL_PREDPIS = prOld.PRPL_PREDPIS * -1;
prIns.PRPL_SANKCE = prOld.PRPL_SANKCE * -1;
prIns.PRPL_EXPFIN = prOld.PRPL_EXPFIN;
prIns.PRPL_VYSTUP = prOld.PRPL_VYSTUP;
prIns.PRPL_TISK = prOld.PRPL_TISK;
prIns.PRPL_VYSTAVENO = dbv.DBSysDate;
if (prOld.PRPL_SPLATNO > dbv.DBSysDate)
{
prIns.PRPL_SPLATNO = prOld.PRPL_SPLATNO;
}
else
{
prIns.PRPL_SPLATNO = dbv.DBSysDate;
}
prIns.PRPL_EXPFIN = prOld.PRPL_EXPFIN;
prIns.PRPL_EXPORTOVANO = "NE";
prIns.PRPL_UCETMESIC = prIns.PRPL_VYSTAVENO.Month;
prIns.PRPL_UCETROK = prIns.PRPL_VYSTAVENO.Year;
prIns.PRPL_EXPSIPO = prOld.PRPL_EXPSIPO;
prIns.PRPL_POZNAMKA = POZNAMKA.SubstrLeft(110);
prIns.PRPL_SS = prOld.PRPL_SS;
P_C_TYPDANE typdane = uow.GetObjectByKey <P_C_TYPDANE>(prOld.PRPL_TYPDANE.TYPDANE_KOD);
if (typdane != null)
{
prIns.PRPL_TYPDANE = typdane;
}
else
{
typdane = uow.GetObjectByKey <P_C_TYPDANE>((short)5);
prIns.PRPL_TYPDANE = typdane;
}
if ((prOld.P_PRPL_DPH != null) && (prOld.P_PRPL_DPH.Count > 0))
{
prIns.PRPL_UZP = dbv.DBSysDate;
}
prIns.PRPL_EA = EXT_APP_KOD;
prIns.PRPL_EXTDOKLAD = prOld.PRPL_EXTDOKLAD;
if ((prOld.P_PRPL_DPH != null) && (prOld.P_PRPL_DPH.Count > 0))
{
P_PRPL_DPH dph;
foreach (var item in prOld.P_PRPL_DPH)
{
dph = new P_PRPL_DPH(uow);
dph.DPH_KAT = item.DPH_KAT;
dph.DPH_SAZBA = item.DPH_SAZBA;
dph.DPH_KC = item.DPH_KC * -1;
dph.DPH_POZNAMKA = item.DPH_POZNAMKA;
dph.DPH_ZAKLAD = item.DPH_ZAKLAD * -1;
dph.DPH_ZAOKR = item.DPH_ZAOKR * -1;
dph.DPH_DAN = item.DPH_DAN * -1;
prIns.P_PRPL_DPH.Add(dph);
}
}
uow.CommitTransaction();
P_PAROVANI par = new P_PAROVANI(sesna);
decimal priparujKc = 0;
if (Math.Abs(prIns.PRPL_PREDPIS + prIns.PRPL_SANKCE) <= Math.Abs(odparKc))
{
priparujKc = Math.Abs(prIns.PRPL_PREDPIS + prIns.PRPL_SANKCE);
}
if (Math.Abs(prIns.PRPL_PREDPIS + prIns.PRPL_SANKCE) > Math.Abs(odparKc))
{
priparujKc = Math.Abs(odparKc);
}
if (priparujKc != 0)
{
if ((prIns.PRPL_PREDPIS + prIns.PRPL_SANKCE) < 0)
{
par.CompoundKey1.PAR_PRPL_ID = prIns.PRPL_ID;
par.CompoundKey1.PAR_PLATBA_ID = prOld.PRPL_ID * -1;
}
if ((prIns.PRPL_PREDPIS + prIns.PRPL_SANKCE) > 0)
{
par.CompoundKey1.PAR_PRPL_ID = prOld.PRPL_ID;
par.CompoundKey1.PAR_PLATBA_ID = prIns.PRPL_ID * -1;
}
par.PAR_SPARKC = priparujKc;
par.PAR_VYTVRUCNE = "ANO";
par.PAR_DATE = dbv.DBSysDateTime.ToString("yyMMddHHmmss");
par.Save();
}
} //end using
}
if (prIns != null)
{
Resp.STORNO_ID = prIns.PRPL_ID;
}
else
{
predp.PRPL_RECORD = "S";
predp.PRPL_EA = EXT_APP_KOD;
predp.LASTUPDATE = dbv.DBSysDateTime;
predp.LOGIN = String.Format("PoplWS({0})", EXT_APP_KOD);
predp.Save();
Resp.STORNO_ID = predp.PRPL_ID;
}
Resp.result = Result.OK;
Resp.status = Status.INSERTED;
try //
{
Util.Util.WriteLog(string.Format("pozadavek na export do ucta: EXPFIN={0}, PREDPIS_ID={1}, {2} Kč", prIns.PRPL_EXPFIN, prIns.PRPL_ID, prIns.PRPL_PREDPIS + prIns.PRPL_SANKCE));
if (prIns.PRPL_EXPFIN == "ANO")
{
dbu.PredpisExport((int)prIns.CompoundKey.PRPL_POPLATEK, prIns.CompoundKey.PRPL_PER,
(int)prIns.PRPL_UCETMESIC, (int)prIns.PRPL_UCETROK,
prIns.PRPL_ID);
}
}
catch (Exception exc)
{
}
return(Resp);
}
catch (Exception exc)
{
Resp.result = Result.ERROR;
Resp.status = Status.ERROR;
if (exc.InnerException == null)
{
Resp.ERRORMESS = exc.Message;
}
else
{
Resp.ERRORMESS = exc.InnerException.Message;
}
return(Resp);
/*
* throw new Exception(String.Format("chyba \n {0}", exc.InnerException.Message));
*/
}
}
