public string AddPbcnetRecords(dbData3060DataContext p_dbData3060, string delsystem, int leveranceid, int pbsfilesid) { int antal; int pbcnetrecords; DateTime transmisionsdato; int idlev; string filename; string rec; pbcnetrecords = (from h in p_dbData3060.Tblpbsfile where h.Pbsfilesid == pbsfilesid & (h.Seqnr == 0 | h.Seqnr == 9999) select h).Count(); if (pbcnetrecords == 0) { // Find antal records antal = (from h in p_dbData3060.Tblpbsfile where h.Pbsfilesid == pbsfilesid & h.Seqnr != 0 & h.Seqnr != 9999 select h).Count(); transmisionsdato = DateTime.Now; idlev = p_dbData3060.nextval_v2("idlev"); Tblpbsfilename rec_pbsfiles = (from h in p_dbData3060.Tblpbsfilename where h.Id == pbsfilesid select h).First(); rec = write00(delsystem, transmisionsdato, idlev, leveranceid); Tblpbsfile rec_pbsfile = new Tblpbsfile { Seqnr = 0, Data = rec }; rec_pbsfiles.Tblpbsfile.Add(rec_pbsfile); rec = write90(delsystem, transmisionsdato, idlev, leveranceid, antal); rec_pbsfile = new Tblpbsfile { Seqnr = 9999, Data = rec }; rec_pbsfiles.Tblpbsfile.Add(rec_pbsfile); p_dbData3060.SaveChanges(); filename = "D"; filename += lpad(String.Format("{0:yyMMdd}", transmisionsdato), 6, '?'); filename += lpad(idlev, 2, '0'); filename += "."; filename += rpad(delsystem, 3, '_'); } else { filename = "Unknown"; } return(filename); }
public void PbsAutoKontingent(dbData3060DataContext m_dbData3060, CrudAPI api) { //DateTime Nu = new DateTime(2018, 8, 13); //<-------- DEBUG DateTime Nu = DateTime.Now; int Dag = Nu.Day; if (Dag > 13) { return; } DateTime Nu_plus_1 = Nu.AddMonths(1); DateTime p_DatoKontingentForfald = new DateTime(Nu_plus_1.Year, Nu_plus_1.Month, 1); DateTime Nu_plus_2 = Nu.AddMonths(2); DateTime p_DatoBetaltKontingentTil = new DateTime(Nu_plus_2.Year, Nu_plus_2.Month, 12); clsPbs601 objPbs601d = new clsPbs601(); List <string[]> items = objPbs601d.UniConta_KontingentForslag(p_DatoBetaltKontingentTil, m_dbData3060, api); int AntalForslag = items.Count(); if (AntalForslag > 0) { Console.WriteLine(string.Format("Medlem3060Service {0} begin", "Send Kontingent File til PBS")); Memkontingentforslag memKontingentforslag = new Memkontingentforslag(); foreach (string[] item in items) { string user_id = item[0]; string name = item[1]; DateTime fradato = DateTime.Parse(item[4]); double advisbelob = double.Parse(item[5]); DateTime tildato = DateTime.Parse(item[6]); bool indmeldelse = (item[7] == "J") ? true : false; bool tilmeldtpbs = (item[8] == "J") ? true : false; int memberid = (!string.IsNullOrEmpty(item[10])) ? int.Parse(item[10]) : m_dbData3060.nextval_v2("memberid"); recKontingentforslag rec_Kontingentforslag = new recKontingentforslag { betalingsdato = clsHelper.bankdageplus(p_DatoKontingentForfald, 0), bsh = false, user_id = int.Parse(user_id), membership_id = 6, advisbelob = (decimal)advisbelob, fradato = fradato, tildato = tildato, indmeldelse = indmeldelse, tilmeldtpbs = tilmeldtpbs, memberid = memberid, name = name }; memKontingentforslag.Add(rec_Kontingentforslag); } Tuple <int, int> tresulte = objPbs601d.UniConta_kontingent_fakturer_bs1(m_dbData3060, memKontingentforslag, pbsType.betalingsservice); int AntalFakturaer = tresulte.Item1; int lobnr = tresulte.Item2; if ((AntalFakturaer > 0)) { //pbsType.betalingsservice objPbs601d.faktura_og_rykker_601_action_lobnr(m_dbData3060, lobnr, api); clsSFTP objSFTPd = new clsSFTP(m_dbData3060); objSFTPd.WriteTilSFtp(m_dbData3060, lobnr); objSFTPd.DisconnectSFtp(); objSFTPd = null; } tresulte = objPbs601d.UniConta_kontingent_fakturer_bs1(m_dbData3060, memKontingentforslag, pbsType.indbetalingskort); AntalFakturaer = tresulte.Item1; lobnr = tresulte.Item2; if ((AntalFakturaer > 0)) { //pbsType.indbetalingskort objPbs601d.faktura_og_rykker_601_action_lobnr(m_dbData3060, lobnr, api); clsSFTP objSFTPd = new clsSFTP(m_dbData3060); objSFTPd.WriteTilSFtp(m_dbData3060, lobnr); objSFTPd.DisconnectSFtp(); objSFTPd = null; } Console.WriteLine(string.Format("Medlem3060Service {0} end", "Send Kontingent File til PBS")); } }
public int aftaleoplysninger_fra_pbs(dbData3060DataContext p_dbData3060) { int dummy = 0; string rec; string leverance; string leverancespecifikation; DateTime leverancedannelsesdato; string sektion; int wpbsfilesid; int wleveranceid; int AntalFiler = 0; var qrypbsfiles = from h in p_dbData3060.Tblpbsfilename where h.Pbsforsendelseid == null join d in p_dbData3060.Tblpbsfile on h.Id equals d.Pbsfilesid where d.Seqnr == 1 && d.Data.Substring(16, 4) == "0603" && d.Data.Substring(0, 2) == "BS" select new { h.Id, h.Path, h.Filename, leverancetype = d.Data.Substring(16, 4), delsystem = d.Data.Substring(13, 3), }; int DebugCount = qrypbsfiles.Count(); foreach (var rstpbsfiles in qrypbsfiles) { //try { wpbsfilesid = rstpbsfiles.Id; AntalFiler++; leverance = ""; sektion = ""; leverancespecifikation = ""; var qrypbsfile = from d in p_dbData3060.Tblpbsfile where d.Pbsfilesid == wpbsfilesid && d.Data.Substring(0, 6) != "PBCNET" orderby d.Seqnr select d; foreach (var rstpbsfile in qrypbsfile) { rec = rstpbsfile.Data; // Bestem Leverance Type if (rstpbsfile.Seqnr == 1) { if (rec.Substring(0, 5) == "BS002") { // Leverance Start leverance = rec.Substring(16, 4); leverancespecifikation = rec.Substring(20, 10); leverancedannelsesdato = DateTime.Parse("20" + rec.Substring(53, 2) + "-" + rec.Substring(51, 2) + "-" + rec.Substring(49, 2)); } else { throw new Exception("241 - Første record er ikke en Leverance start record"); }; if (leverance == "0603") { // -- Leverance 0603 var antal = (from c in p_dbData3060.Tblfrapbs where c.Leverancespecifikation == leverancespecifikation select c).Count(); if (antal > 0) { throw new Exception("242 - Leverance med pbsfilesid: " + wpbsfilesid + " og leverancespecifikation: " + leverancespecifikation + " er indlæst tidligere"); } wleveranceid = p_dbData3060.nextval_v2("leveranceid"); m_rec_pbsforsendelse = new Tblpbsforsendelse { Delsystem = "BS1", Leverancetype = "0603", Oprettetaf = "Bet", Oprettet = DateTime.Now, Leveranceid = wleveranceid }; p_dbData3060.Tblpbsforsendelse.Add(m_rec_pbsforsendelse); m_rec_frapbs = new Tblfrapbs { Delsystem = "BS1", Leverancetype = "0603", Leverancespecifikation = leverancespecifikation, Leverancedannelsesdato = leverancedannelsesdato, Udtrukket = DateTime.Now }; m_rec_pbsforsendelse.Tblfrapbs.Add(m_rec_frapbs); m_rec_pbsfiles = (from c in p_dbData3060.Tblpbsfilename where c.Id == rstpbsfiles.Id select c).First(); m_rec_pbsforsendelse.Tblpbsfilename.Add(m_rec_pbsfiles); } ; } ; if (leverance == "0603") { // Leverance 0603 // Bestem Sektions Type if (sektion == "") { if (rec.Substring(0, 5) == "BS012") { // Sektion Start sektion = rec.Substring(13, 4); } else { if (!((rec.Substring(0, 5) == "BS992") || (rec.Substring(0, 5) == "BS002"))) { throw new Exception("243 - Første record er ikke en Sektions start record"); } ; }; } ; if (rec.Substring(0, 5) == "BS002") { // Leverance start // BEHANDL: Leverance start dummy = 1; // -****************************************************************************************************** // -****************************************************************************************************** } else if (sektion == "0210") { // Sektion 0210 Aktive aftaler if ((rec.Substring(0, 5) == "BS012") && (rec.Substring(13, 4) == "0210")) { // Sektion Start // BEHANDL: Sektion Start dummy = 1; } else if ((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0230")) { // Aktive aftaler // BEHANDL: Aktive aftaler readaftale042(p_dbData3060, sektion, "0230", rec); } else if ((rec.Substring(0, 5) == "BS092") && (rec.Substring(13, 4) == "0210")) { // Sektion S**t // BEHANDL: Sektion S**t sektion = ""; } else { throw new Exception("244 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); }; // -****************************************************************************************************** // -****************************************************************************************************** } else if (sektion == "0212") { // Sektion 0212 Til- og afgang af betalingsaftaler if ((rec.Substring(0, 5) == "BS012") && (rec.Substring(13, 4) == "0212")) { // Sektion Start // BEHANDL: Sektion Start dummy = 1; } else if ((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0231")) { // Tilgang af nye betalingsaftaler // BEHANDL: Tilgang af nye betalingsaftaler readaftale042(p_dbData3060, sektion, "0231", rec); } else if ((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0232")) { // Aftale afmeldt af pengeinstitut // BEHANDL: aftale afmeldt af pengeinstitut readaftale042(p_dbData3060, sektion, "0232", rec); } else if ((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0233")) { // Aftaler afmeldt af kreditor // BEHANDL: aftaler afmeldt af kreditor readaftale042(p_dbData3060, sektion, "0233", rec); } else if ((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0234")) { // Aftaler afmeldt af betalingsservice // BEHANDL: aftaler afmeldt af betalingsservice readaftale042(p_dbData3060, sektion, "0234", rec); } else if ((rec.Substring(0, 5) == "BS092") && (rec.Substring(13, 4) == "0212")) { // Sektion S**t // BEHANDL: Sektion S**t sektion = ""; } else { throw new Exception("245 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); }; // -****************************************************************************************************** // -****************************************************************************************************** } else if (sektion == "0214") { // Sektion 0214 Forfaldsoplysninger if ((rec.Substring(0, 5) == "BS012") && (rec.Substring(13, 4) == "0214")) { // Sektion Start // BEHANDL: Sektion Start dummy = 1; } else if ((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0235")) { // Forfald automatisk betaling // BEHANDL: Forfald automatisk betaling dummy = 1; } else if ((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0295")) { // Forfald manuel betaling // BEHANDL: Forfald manuel betaling dummy = 1; } else if ((rec.Substring(0, 5) == "BS092") && (rec.Substring(13, 4) == "0214")) { // Sektion S**t // BEHANDL: Sektion S**t sektion = ""; } else { throw new Exception("246 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); }; // -****************************************************************************************************** // -****************************************************************************************************** } else if (sektion == "0215") { // Sektion 0215 Debitornavn/-adresse if ((rec.Substring(0, 5) == "BS012") && (rec.Substring(14 - 1, 4) == "0215")) { // Sektion Start // BEHANDL: Sektion Start dummy = 1; } else if ((rec.Substring(0, 5) == "BS022") && (rec.Substring(13, 4) == "0240")) { // Navn/adresse på debitor // BEHANDL: Navn/adresse på debitor dummy = 1; } else if ((rec.Substring(0, 5) == "BS092") && (rec.Substring(14 - 1, 4) == "0215")) { // Sektion S**t // BEHANDL: Sektion S**t sektion = ""; } else { throw new Exception("247 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); }; // -****************************************************************************************************** // -****************************************************************************************************** } else if (sektion == "0217") { // Sektion 0217 Oplysninger fra indbetalingskort if ((rec.Substring(0, 5) == "BS012") && (rec.Substring(13, 4) == "0217")) { // Sektion Start // BEHANDL: Sektion Start dummy = 1; } else if ((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0295")) { // Oplysninger fra indbetalingskort // BEHANDL: Oplysninger fra indbetalingskort readgirokort042(p_dbData3060, sektion, "0295", rec); } else if ((rec.Substring(0, 5) == "BS092") && (rec.Substring(13, 4) == "0217")) { // Sektion S**t // BEHANDL: Sektion S**t sektion = ""; } else { throw new Exception("248 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); }; // -****************************************************************************************************** // -****************************************************************************************************** } else if (sektion == "0219") { // Sektion 0219 Aktive aftaler om Elektronisk Indbetalingskort if ((rec.Substring(0, 5) == "BS012") && (rec.Substring(13, 4) == "0219")) { // Sektion Start // BEHANDL: Sektion Start dummy = 1; } else if ((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0230")) { // Aktiv aftale om Elektronisk Indbetalingskort // BEHANDL: Aktiv aftale om Elektronisk Indbetalingskort dummy = 1; } else if ((rec.Substring(0, 5) == "BS092") && (rec.Substring(14 - 1, 4) == "0219")) { // Sektion S**t // BEHANDL: Sektion S**t sektion = ""; } else { throw new Exception("249 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); }; // -****************************************************************************************************** // -****************************************************************************************************** } else if (rec.Substring(0, 5) == "BS992") { // Leverance s**t // BEHANDL: Leverance S**t leverance = ""; } else { throw new Exception("250 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); }; } else { throw new Exception("251 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); }; } } /* * catch (Exception e) * { * switch (e.Message.Substring(0, 3)) * { * case "241": //241 - Første record er ikke en Leverance start record * case "242": //242 - Leverancen er indlæst tidligere * case "243": //243 - Første record er ikke en Sektions start record * case "244": //244 - Record ukendt * case "245": //245 - Record ukendt * case "246": //246 - Record ukendt * case "247": //247 - Record ukendt * case "248": //248 - Record ukendt * case "249": //249 - Record ukendt * case "250": //250 - Record ukendt * case "251": //251 - Record ukendt * AntalFiler--; * break; * * default: * throw; * } * } */ } if (dummy == 1) { dummy = 2; } p_dbData3060.SaveChanges(); return(AntalFiler); }
public int betalinger_fra_pbs(dbData3060DataContext p_dbData3060) { string rec; string leverancetype; string leverancespecifikation; DateTime leverancedannelsesdato; string sektion; int wpbsfilesid; int wleveranceid; int AntalFiler = 0; // wpbsfilesid = 3450 //'--test test // leverancetype = "0602" // sektion = "0211" // rec = "BS0420398564402360000000100000000001231312345678910120310000000012755000000125 3112031112030000000012755" var qrypbsfiles = from h in p_dbData3060.Tblpbsfilename where h.Pbsforsendelseid == null join d in p_dbData3060.Tblpbsfile on h.Id equals d.Pbsfilesid where d.Seqnr == 1 && d.Data.Substring(16, 4) == "0602" && d.Data.Substring(0, 2) == "BS" select new { h.Id, h.Path, h.Filename, leverancetype = d.Data.Substring(16, 4), delsystem = d.Data.Substring(13, 3), }; foreach (var rstpbsfiles in qrypbsfiles.ToList()) { try { wpbsfilesid = rstpbsfiles.Id; AntalFiler++; leverancetype = ""; sektion = ""; leverancespecifikation = ""; var qrypbsfile = from d in p_dbData3060.Tblpbsfile where d.Pbsfilesid == wpbsfilesid && d.Data.Substring(0, 6) != "PBCNET" orderby d.Seqnr select d; foreach (var rstpbsfile in qrypbsfile.ToList()) { rec = rstpbsfile.Data; // -- Bestem Leverance Type if (rstpbsfile.Seqnr == 1) { if ((rec.Substring(0, 5) == "BS002")) { // -- Leverance Start leverancetype = rec.Substring(16, 4); leverancespecifikation = rec.Substring(20, 10); leverancedannelsesdato = DateTime.Parse("20" + rec.Substring(53, 2) + "-" + rec.Substring(51, 2) + "-" + rec.Substring(49, 2)); } else { throw new Exception("241 - Første record er ikke en Leverance start record"); } if ((leverancetype == "0602")) { // -- Leverance 0602 var antal = (from c in p_dbData3060.Tblfrapbs where c.Leverancespecifikation == leverancespecifikation select c).Count(); if (antal > 0) { throw new Exception("242 - Leverance med pbsfilesid: " + wpbsfilesid + " og leverancespecifikation: " + leverancespecifikation + " er indlæst tidligere"); } wleveranceid = p_dbData3060.nextval_v2("leveranceid"); m_rec_pbsforsendelse = new Tblpbsforsendelse { Delsystem = "BS1", Leverancetype = "0602", Oprettetaf = "Bet", Oprettet = DateTime.Now, Leveranceid = wleveranceid }; p_dbData3060.Tblpbsforsendelse.Add(m_rec_pbsforsendelse); m_rec_frapbs = new Tblfrapbs { Delsystem = "BS1", Leverancetype = "0602", Leverancespecifikation = leverancespecifikation, Leverancedannelsesdato = leverancedannelsesdato, Udtrukket = DateTime.Now }; m_rec_pbsforsendelse.Tblfrapbs.Add(m_rec_frapbs); m_rec_pbsfiles = (from c in p_dbData3060.Tblpbsfilename where c.Id == rstpbsfiles.Id select c).First(); m_rec_pbsforsendelse.Tblpbsfilename.Add(m_rec_pbsfiles); } } if ((leverancetype == "0602")) { // -- Leverance 0602********* // -- Bestem Sektions Type if ((sektion == "")) { if ((rec.Substring(0, 5) == "BS012")) { // -- Sektion Start sektion = rec.Substring(13, 4); } else if (!((rec.Substring(0, 5) == "BS992") || (rec.Substring(0, 5) == "BS002"))) { throw new Exception("243 - Første record er ikke en Sektions start record"); } } if ((rec.Substring(0, 5) == "BS002")) { // -- Leverance start // -- BEHANDL: Leverance start } else if ((sektion == "0211")) { // -- Sektion 0211 Betalingsinformation if (((rec.Substring(0, 5) == "BS012") && (rec.Substring(13, 4) == "0211"))) { // -- Sektion Start // -- BEHANDL: Sektion Start } else if (((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0236"))) { // -- Gennemf?rt automatisk betaling // -- BEHANDL: Gennemf?rt automatisk betaling read042(sektion, "0236", rec, p_dbData3060); } else if (((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0237"))) { // -- Afvist betaling // -- BEHANDL: Afvist betaling read042(sektion, "0237", rec, p_dbData3060); } else if (((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0238"))) { // -- Afmeldt betaling // -- BEHANDL: Afmeldt betaling read042(sektion, "0238", rec, p_dbData3060); } else if (((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0239"))) { // -- Tilbagef?rt betaling // -- BEHANDL: Tilbagef?rt betaling read042(sektion, "0239", rec, p_dbData3060); } else if (((rec.Substring(0, 5) == "BS092") && (rec.Substring(13, 4) == "0211"))) { // -- Sektion S**t // -- BEHANDL: Sektion S**t sektion = ""; } else { throw new Exception("244 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); } } else if ((sektion == "0215")) { // -- Sektion 0215 FI-Betalingsinformation if (((rec.Substring(0, 5) == "BS012") && (rec.Substring(13, 4) == "0215"))) { // -- Sektion Start // -- BEHANDL: Sektion Start } else if (((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0297"))) { // -- Gennemf?rt FI-betaling // -- BEHANDL: Gennemf?rt FI-betaling read042(sektion, "0297", rec, p_dbData3060); } else if (((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0299"))) { // -- Tilbagef?rt FI-betaling // -- BEHANDL: Tilbagef?rt FI-betaling read042(sektion, "0299", rec, p_dbData3060); } else if (((rec.Substring(0, 5) == "BS092") && (rec.Substring(13, 4) == "0215"))) { // -- Sektion S**t // -- BEHANDL: Sektion S**t sektion = ""; } else { throw new Exception("245 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); } } else if ((rec.Substring(0, 5) == "BS992")) { // -- Leverance s**t // -- BEHANDL: Leverance S**t leverancetype = ""; } else { throw new Exception("246 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); } } else { throw new Exception("247 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); } } // s**t rstpbsfile // -- Update indbetalingsbelob foreach (Tblbet rec_bet in m_rec_frapbs.Tblbet) { var SumIndbetalingsbelob = ( from c in rec_bet.Tblbetlin group c by c.Betid into g select new { Betid = g.Key, SumIndbetalingsbelob = g.Sum(c => c.Indbetalingsbelob) } ).First().SumIndbetalingsbelob; rec_bet.Indbetalingsbelob = SumIndbetalingsbelob; } } catch (Exception e) { switch (e.Message.Substring(0, 3)) { case "241": //241 - Første record er ikke en Leverance start record case "242": //242 - Leverancen er indlæst tidligere case "243": //243 - Første record er ikke en Sektions start record case "244": //244 - Record ukendt case "245": //245 - Record ukendt case "246": //246 - Record ukendt case "247": //247 - Record ukendt AntalFiler--; break; default: throw; } } } // s**t rstpbsfiles try { p_dbData3060.SaveChanges(); } catch (Exception e) { Console.WriteLine(string.Format("clsPbs602 p_dbData3060.SaveChanges() failed with message: {0}", e.Message)); AntalFiler = 0; } return(AntalFiler); }
public int aftaleoplysninger_fra_pbs(dbData3060DataContext p_dbData3060) { int dummy = 0; string rec; string leverance; string leverancespecifikation; DateTime leverancedannelsesdato; string sektion; int wpbsfilesid; int wleveranceid; int AntalFiler = 0; var qrypbsfiles = from h in p_dbData3060.Tblpbsfilename where h.Pbsforsendelseid == null join d in p_dbData3060.Tblpbsfile on h.Id equals d.Pbsfilesid where d.Seqnr == 1 && d.Data.Substring(16, 4) == "0686" && d.Data.Substring(0, 2) == "BS" select new { h.Id, h.Path, h.Filename, leverancetype = d.Data.Substring(16, 4), delsystem = d.Data.Substring(13, 3), }; int DebugCount = qrypbsfiles.Count(); foreach (var rstpbsfiles in qrypbsfiles) { //try { wpbsfilesid = rstpbsfiles.Id; AntalFiler++; leverance = ""; sektion = ""; leverancespecifikation = ""; var qrypbsfile = from d in p_dbData3060.Tblpbsfile where d.Pbsfilesid == wpbsfilesid && d.Data.Substring(0, 6) != "PBCNET" orderby d.Seqnr select d; foreach (var rstpbsfile in qrypbsfile) { rec = rstpbsfile.Data; // Bestem Leverance Type if (rstpbsfile.Seqnr == 1) { if (rec.Substring(0, 5) == "BS002") { // Leverance Start leverance = rec.Substring(16, 4); leverancespecifikation = rec.Substring(20, 10); leverancedannelsesdato = DateTime.Parse(rec.Substring(53, 4) + "-" + rec.Substring(51, 2) + "-" + rec.Substring(49, 2)); } else { throw new Exception("241 - Første record er ikke en Leverance start record"); }; if (leverance == "0686") { // -- Leverance 0686 var antal = (from c in p_dbData3060.Tblfrapbs where c.Leverancespecifikation == leverancespecifikation select c).Count(); if (antal > 0) { throw new Exception("242 - Leverance med pbsfilesid: " + wpbsfilesid + " og leverancespecifikation: " + leverancespecifikation + " er indlæst tidligere"); } wleveranceid = p_dbData3060.nextval_v2("leveranceid"); m_rec_pbsforsendelse = new Tblpbsforsendelse { Delsystem = "BS1", Leverancetype = "0686", Oprettetaf = "Bet", Oprettet = DateTime.Now, Leveranceid = wleveranceid }; p_dbData3060.Tblpbsforsendelse.Add(m_rec_pbsforsendelse); m_rec_frapbs = new Tblfrapbs { Delsystem = "BS1", Leverancetype = "0686", Leverancespecifikation = leverancespecifikation, Leverancedannelsesdato = leverancedannelsesdato, Udtrukket = DateTime.Now }; m_rec_pbsforsendelse.Tblfrapbs.Add(m_rec_frapbs); m_rec_pbsfiles = (from c in p_dbData3060.Tblpbsfilename where c.Id == rstpbsfiles.Id select c).First(); m_rec_pbsforsendelse.Tblpbsfilename.Add(m_rec_pbsfiles); } ; } ; if (leverance == "0686") { // Leverance 0686 // Bestem Sektions Type if (sektion == "") { if (rec.Substring(0, 5) == "BS012") { // Sektion Start sektion = rec.Substring(13, 4); } else { if (!((rec.Substring(0, 5) == "BS992") || (rec.Substring(0, 5) == "BS002"))) { throw new Exception("243 - Første record er ikke en Sektions start record"); } ; }; } ; if (rec.Substring(0, 5) == "BS002") { // Leverance start // BEHANDL: Leverance start dummy = 1; // -****************************************************************************************************** // -****************************************************************************************************** } else if (sektion == "0195") { // Sektion 0195 Indbetalingskort til e-Boks if ((rec.Substring(0, 5) == "BS012") && (rec.Substring(13, 4) == "0195")) { // Sektion Start // BEHANDL: Sektion Start dummy = 1; } else if ((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0274")) { // Indbetalingskort til e-Boks // BEHANDL: Indbetalingskort til e-Boks readindbetalingskort042(p_dbData3060, sektion, "0274", rec); } else if ((rec.Substring(0, 5) == "BS092") && (rec.Substring(13, 4) == "0195")) { // Sektion S**t // BEHANDL: Sektion S**t sektion = ""; } else { throw new Exception("244 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); }; // -****************************************************************************************************** // -****************************************************************************************************** } else if (sektion == "0196") { // Sektion 0196 elektronisk indbetalingskort if ((rec.Substring(0, 5) == "BS012") && (rec.Substring(13, 4) == "0196")) { // Sektion Start // BEHANDL: Sektion Start dummy = 1; } else if ((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0274")) { // elektronisk indbetalingskort // BEHANDL: elektronisk indbetalingskort readindbetalingskort042(p_dbData3060, sektion, "0274", rec); } else if ((rec.Substring(0, 5) == "BS092") && (rec.Substring(13, 4) == "0196")) { // Sektion S**t // BEHANDL: Sektion S**t sektion = ""; } else { throw new Exception("245 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); }; // -****************************************************************************************************** // -****************************************************************************************************** } else if (sektion == "0197") { // Sektion 0197 papirindbetalingskort if ((rec.Substring(0, 5) == "BS012") && (rec.Substring(13, 4) == "0197")) { // Sektion Start // BEHANDL: Sektion Start dummy = 1; } else if ((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0274")) { // papirindbetalingskort // BEHANDL: papirindbetalingskort readindbetalingskort042(p_dbData3060, sektion, "0274", rec); } else if ((rec.Substring(0, 5) == "BS092") && (rec.Substring(13, 4) == "0197")) { // Sektion S**t // BEHANDL: Sektion S**t sektion = ""; } else { throw new Exception("246 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); }; // -****************************************************************************************************** // -****************************************************************************************************** } else if (sektion == "0198") { // Sektion 0198 ej placerbare if ((rec.Substring(0, 5) == "BS012") && (rec.Substring(13, 4) == "0198")) { // Sektion Start // BEHANDL: Sektion Start dummy = 1; } else if ((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0274")) { // ej placerbare // BEHANDL: ej placerbare dummy = 1; } else if ((rec.Substring(0, 5) == "BS092") && (rec.Substring(13, 4) == "0198")) { // Sektion S**t // BEHANDL: Sektion S**t sektion = ""; } else { throw new Exception("247 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); }; // -****************************************************************************************************** // -****************************************************************************************************** } else if (sektion == "0199") { // Sektion 0199 uanbringelig if ((rec.Substring(0, 5) == "BS012") && (rec.Substring(13, 4) == "0199")) { // Sektion Start // BEHANDL: Sektion Start dummy = 1; } else if ((rec.Substring(0, 5) == "BS042") && (rec.Substring(13, 4) == "0275")) { // uanbringelig // BEHANDL: uanbringelig dummy = 1; } else if ((rec.Substring(0, 5) == "BS092") && (rec.Substring(13, 4) == "0199")) { // Sektion S**t // BEHANDL: Sektion S**t sektion = ""; } else { throw new Exception("248 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); }; // -****************************************************************************************************** // -****************************************************************************************************** } else if (rec.Substring(0, 5) == "BS992") { // Leverance s**t // BEHANDL: Leverance S**t leverance = ""; } else { throw new Exception("249 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); }; } else { throw new Exception("250 - Rec# " + rstpbsfile.Seqnr + " ukendt: " + rec); }; } } /* * catch (Exception e) * { * switch (e.Message.Substring(0, 3)) * { * case "241": //241 - Første record er ikke en Leverance start record * case "242": //242 - Leverancen er indlæst tidligere * case "243": //243 - Første record er ikke en Sektions start record * case "244": //244 - Record ukendt * case "245": //245 - Record ukendt * case "246": //246 - Record ukendt * case "247": //247 - Record ukendt * case "248": //248 - Record ukendt * case "249": //249 - Record ukendt * case "250": //250 - Record ukendt * AntalFiler--; * break; * * default: * throw; * } * } */ } if (dummy == 1) { dummy = 2; } p_dbData3060.SaveChanges(); return(AntalFiler); }