public string AddPbcnetRecords(string delsystem, int leveranceid, int pbsfilesid) { int antal; int pbcnetrecords; DateTime transmisionsdato; int idlev; string filename; string rec; pbcnetrecords = (from h in Program.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 Program.dbData3060.Tblpbsfile where h.Pbsfilesid == pbsfilesid & h.Seqnr != 0 & h.Seqnr != 9999 select h).Count(); transmisionsdato = DateTime.Now; idlev = clsPbs.nextval("idlev"); Tblpbsfiles rec_pbsfiles = (from h in Program.dbData3060.Tblpbsfiles 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); Program.dbData3060.SubmitChanges(); 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 int ReadFraPbsFile() { string FraPBSFolderPath; DirectoryInfo fld; FileStream ts; string ln; Program.memPbsnetdir = null; //opret ny memPbsnetdir var rec_regnskab = Program.qryAktivRegnskab(); FraPBSFolderPath = rec_regnskab.FraPBS; fld = new DirectoryInfo(FraPBSFolderPath); foreach (FileInfo f in fld.GetFiles()) { recPbsnetdir rec = new recPbsnetdir { Type = 8, Path = f.Directory.Name, Filename = f.Name, Size = (int)f.Length, Atime = f.LastAccessTime, Mtime = f.LastWriteTime }; Program.memPbsnetdir.Add(rec); } var leftqry_pbsnetdir = from h in Program.memPbsnetdir join d1 in Program.dbData3060.Tblpbsfiles on new { h.Path, h.Filename } equals new { d1.Path, d1.Filename } into details from d1 in details.DefaultIfEmpty(new Tblpbsfiles { Id = -1, Type = (int?)null, Path = null, Filename = null, Size = (int?)null, Atime = (DateTime?)null, Mtime = (DateTime?)null, Perm = null, Uid = (int?)null, Gid = (int?)null }) where d1.Path == null && d1.Filename == null select h; int AntalFiler = leftqry_pbsnetdir.Count(); if (leftqry_pbsnetdir.Count() > 0) { foreach (var rec_pbsnetdir in leftqry_pbsnetdir) { Tblpbsfiles m_rec_pbsfiles = new Tblpbsfiles { Type = rec_pbsnetdir.Type, Path = rec_pbsnetdir.Path, Filename = rec_pbsnetdir.Filename, Size = rec_pbsnetdir.Size, Atime = rec_pbsnetdir.Atime, Mtime = rec_pbsnetdir.Mtime, Perm = rec_pbsnetdir.Perm, Uid = rec_pbsnetdir.Uid, Gid = rec_pbsnetdir.Gid }; Program.dbData3060.Tblpbsfiles.InsertOnSubmit(m_rec_pbsfiles); string varFromFile = FraPBSFolderPath + rec_pbsnetdir.Filename; int seqnr = 0; ts = new FileStream(varFromFile, FileMode.Open, FileAccess.Read, FileShare.None); ln = null; using (StreamReader sr = new StreamReader(ts, Encoding.Default)) { while ((ln = sr.ReadLine()) != null) { if (((seqnr == 0) && !(ln.Substring(0, 6) == "PBCNET")) || (seqnr > 0)) { seqnr++; } m_rec_pbsfile = new Tblpbsfile { Seqnr = seqnr, Data = ln }; m_rec_pbsfiles.Tblpbsfile.Add(m_rec_pbsfile); } } m_rec_pbsfiles.Transmittime = DateTime.Now; Program.dbData3060.SubmitChanges(); } } Program.dbData3060.SubmitChanges(); return(AntalFiler); }
public int ReadFraSFtp() { string homedir = m_sftp.RealPath(".", ""); // Open a directory on the server... string handle = m_sftp.OpenDir(m_rec_sftp.Outbound); if (handle == null) { throw new Exception(m_sftp.LastErrorText); } // Download the directory listing: Chilkat.SFtpDir dirListing = null; dirListing = m_sftp.ReadDir(handle); if (dirListing == null) { throw new Exception(m_sftp.LastErrorText); } Program.memPbsnetdir = null; //opret ny memPbsnetdir // Iterate over the files. int i; int n = dirListing.NumFilesAndDirs; if (n > 0) { for (i = 0; i <= n - 1; i++) { Chilkat.SFtpFile fileObj = null; fileObj = dirListing.GetFileObject(i); if (!fileObj.IsDirectory) { recPbsnetdir rec = new recPbsnetdir { Type = 8, Path = dirListing.OriginalPath, Filename = fileObj.Filename, Size = (int)fileObj.Size32, Atime = fileObj.LastAccessTime, Mtime = fileObj.LastModifiedTime, Gid = fileObj.Gid, Uid = fileObj.Uid, Perm = fileObj.Permissions.ToString() }; Program.memPbsnetdir.Add(rec); } } } // Close the directory bool success = m_sftp.CloseHandle(handle); if (!success) { throw new Exception(m_sftp.LastErrorText); } var leftqry_pbsnetdir = from h in Program.memPbsnetdir //join d1 in Program.dbData3060.Tblpbsfiles on new { h.Path, h.Filename } equals new { d1.Path, d1.Filename } into details //from d1 in details.DefaultIfEmpty(new Tblpbsfiles { Id = -1, Type = (int?)null, Path = null, Filename = null, Size = (int?)null, Atime = (DateTime?)null, Mtime = (DateTime?)null, Perm = null, Uid = (int?)null, Gid = (int?)null }) //where d1.Path == null && d1.Filename == null select h; int AntalFiler = leftqry_pbsnetdir.Count(); if (leftqry_pbsnetdir.Count() > 0) { foreach (var rec_pbsnetdir in leftqry_pbsnetdir) { Tblpbsfiles m_rec_pbsfiles = new Tblpbsfiles { Type = rec_pbsnetdir.Type, Path = rec_pbsnetdir.Path, Filename = rec_pbsnetdir.Filename, Size = rec_pbsnetdir.Size, Atime = rec_pbsnetdir.Atime, Mtime = rec_pbsnetdir.Mtime, Perm = rec_pbsnetdir.Perm, Uid = rec_pbsnetdir.Uid, Gid = rec_pbsnetdir.Gid }; Program.dbData3060.Tblpbsfiles.InsertOnSubmit(m_rec_pbsfiles); //*********************************************************************** // Open a file on the server: string fullpath = rec_pbsnetdir.Path + "/" + rec_pbsnetdir.Filename; string filehandle = m_sftp.OpenFile(fullpath, "readOnly", "openExisting"); if (filehandle == null) { throw new Exception(m_sftp.LastErrorText); } int numBytes = (int)rec_pbsnetdir.Size; if (numBytes < 0) { throw new Exception(m_sftp.LastErrorText); } //--------------------------------------------------------------------- byte[] b_data = null; bool bEof = false; int chunkSizeGet = 10240; int chunkSizeRead = 0; m_sftp.ClearAccumulateBuffer(); while (bEof == false) { chunkSizeRead = m_sftp.AccumulateBytes(handle, chunkSizeGet); if (chunkSizeRead == -1) { throw new Exception(m_sftp.LastErrorText); } bEof = m_sftp.Eof(handle); } b_data = m_sftp.AccumulateBuffer; //--------------------------------------------------------------------- if (b_data == null) { throw new Exception(m_sftp.LastErrorText); } sendAttachedFile(rec_pbsnetdir.Filename, b_data, false); char[] c_data = System.Text.Encoding.GetEncoding("windows-1252").GetString(b_data).ToCharArray(); string filecontens = new string(c_data); string filecontens2 = filecontens.TrimEnd('\n'); string filecontens3 = filecontens2.TrimEnd('\r'); string filecontens4 = filecontens3.TrimEnd('\n'); string[] lines = filecontens4.Split('\n'); string ln = null; int seqnr = 0; string ln0_6; for (int idx = 0; idx < lines.Count(); idx++) { ln = lines[idx].TrimEnd('\r'); try { ln0_6 = ln.Substring(0, 6); } catch { ln0_6 = ""; } if (((seqnr == 0) && !(ln0_6 == "PBCNET")) || (seqnr > 0)) { seqnr++; } if (ln.Length > 0) { m_rec_pbsfile = new Tblpbsfile { Seqnr = seqnr, Data = ln }; m_rec_pbsfiles.Tblpbsfile.Add(m_rec_pbsfile); } } m_rec_pbsfiles.Transmittime = DateTime.Now; Program.dbData3060.SubmitChanges(); // Close the file. success = m_sftp.CloseHandle(filehandle); if (success != true) { throw new Exception(m_sftp.LastErrorText); } //*********************************************************************************** } } Program.dbData3060.SubmitChanges(); return(AntalFiler); }
public void krdfaktura_overfoersel_action(int lobnr) { string rec; int seq = 0; int wleveranceid; DateTime wdispositionsdato; int whour; int wbankdage; // Betalingsoplysninger int belobint; // Tællere int antalos5; // Antal OS5: Antal foranstående OS5 records int belobos5; // Beløb: Nettobeløb i OS5 records int antalsek; // Antal sektioner i leverancen int antalos5tot; // Antal OS5: Antal foranstående OS5 records int belobos5tot; // Beløb: Nettobeløb i OS5 records whour = DateTime.Now.Hour; if (whour > 17) { wbankdage = 3; } else { wbankdage = 2; } wdispositionsdato = clsOverfoersel.bankdageplus(DateTime.Now, wbankdage); antalos5 = 0; belobos5 = 0; antalsek = 0; antalos5tot = 0; belobos5tot = 0; { var antal = (from c in Program.dbData3060.Tbltilpbs where c.Id == lobnr select c).Count(); if (antal == 0) { throw new Exception("101 - Der er ingen PBS forsendelse for id: " + lobnr); } } { var antal = (from c in Program.dbData3060.Tbltilpbs where c.Id == lobnr && c.Pbsforsendelseid != null select c).Count(); if (antal > 0) { throw new Exception("102 - Pbsforsendelse for id: " + lobnr + " er allerede sendt"); } } { var antal = (from c in Program.dbData3060.Tbloverforsel where c.Tilpbsid == lobnr select c).Count(); if (antal == 0) { throw new Exception("103 - Der er ingen pbs transaktioner for tilpbsid: " + lobnr); } } var rsttil = (from c in Program.dbData3060.Tbltilpbs where c.Id == lobnr select c).First(); if (rsttil.Udtrukket == null) { rsttil.Udtrukket = DateTime.Now; } if (rsttil.Bilagdato == null) { rsttil.Bilagdato = rsttil.Udtrukket; } if (rsttil.Delsystem == null) { rsttil.Delsystem = "OS1"; } if (rsttil.Leverancetype != null) { rsttil.Leverancetype = null; } Program.dbData3060.SubmitChanges(); wleveranceid = clsPbs.nextval("leveranceid"); Tblpbsforsendelse rec_pbsforsendelse = new Tblpbsforsendelse { Delsystem = rsttil.Delsystem, Leverancetype = rsttil.Leverancetype, Oprettetaf = "Udb", Oprettet = DateTime.Now, Leveranceid = wleveranceid }; Program.dbData3060.Tblpbsforsendelse.InsertOnSubmit(rec_pbsforsendelse); rec_pbsforsendelse.Tbltilpbs.Add(rsttil); Tblpbsfiles rec_pbsfiles = new Tblpbsfiles(); rec_pbsforsendelse.Tblpbsfiles.Add(rec_pbsfiles); Tblkreditor krd = (from k in Program.dbData3060.Tblkreditor where k.Delsystem == rsttil.Delsystem select k).First(); // -- Leverance Start - OS1 // - rstkrd.Datalevnr - Dataleverandørnr.: Dataleverandørens SE-nummer // - wleveranceid - Leveranceidentifikation: Løbenummer efter eget valg rec = writeOS1(krd.Datalevnr, wleveranceid); Tblpbsfile rec_pbsfile = new Tblpbsfile { Seqnr = ++seq, Data = rec }; rec_pbsfiles.Tblpbsfile.Add(rec_pbsfile); var qrydeb = from h in Program.dbData3060.Tbloverforsel where h.Tilpbsid == lobnr select h; // Start loop over betalinger i tbloverforsel int testantal = qrydeb.Count(); foreach (Tbloverforsel rec_overfoersel in qrydeb) { DateTime Betalingsdato = (rec_overfoersel.Betalingsdato == null) ? wdispositionsdato : (DateTime)rec_overfoersel.Betalingsdato; if (Betalingsdato < wdispositionsdato) { Betalingsdato = wdispositionsdato; } rec_overfoersel.Betalingsdato = Betalingsdato; //opdater aktuel betalingsdato // Sektion start – (OS2) antalos5 = 0; belobos5 = 0; // -- OS2 // - Betalingsdato - Dispositionsdato // - krd.regnr - Reg.nr.: Overførselsregistreringsnummer // - krd.kontonr - Kontonr.: Overførselskontonummer // - krd.datalevnr - Dataleverandørnr.: Dataleverandørens SE-nummer rec = writeOS2(Betalingsdato, krd.Regnr, krd.Kontonr, krd.Datalevnr); rec_pbsfile = new Tblpbsfile { Seqnr = ++seq, Data = rec }; rec_pbsfiles.Tblpbsfile.Add(rec_pbsfile); ++antalsek; // -- Forfald betaling if (rec_overfoersel.Advisbelob > 0) { belobint = (int)(rec_overfoersel.Advisbelob * ((decimal)100)); belobos5 = belobos5 + belobint; belobos5tot = belobos5tot + belobint; } else { belobint = 0; } // -- OS5 // - debinfo.bankregnr - Betalingsmodtager registreringsnummer // - debinfo.bankkontonr - Betalingsmodtager kontonummer // - belobint - Beløb: Beløb i øre uden fortegn // - Betalingsdato - Dispositionsdato // - krd.regnr - Reg.nr.: Overførselsregistreringsnummer // - krd.kontonr - Kontonr.: Overførselskontonummer // - deb.advistekst - Tekst på Betalingsmodtagers kontoudtog // - deb.SFakID - Ref til betalingsmodtager til eget brug rec = writeOS5(rec_overfoersel.Bankregnr, rec_overfoersel.Bankkontonr, belobint, Betalingsdato, krd.Regnr, krd.Kontonr, rec_overfoersel.Advistekst, (int)rec_overfoersel.SFakID); rec_pbsfile = new Tblpbsfile { Seqnr = ++seq, Data = rec }; rec_pbsfiles.Tblpbsfile.Add(rec_pbsfile); antalos5++; antalos5tot++; // -- Sektion s**t – (OS8) // - OS8 // - antalos5 - Antal 042: Antal foranstående 042 records // - belobos5 - Beløb: Nettobeløb i 042 records // - Betalingsdato - Dispositionsdato // - krd.regnr - Reg.nr.: Overførselsregistreringsnummer // - krd.kontonr - Kontonr.: Overførselskontonummer // - krd.datalevnr - Dataleverandørnr.: Dataleverandørens SE-nummer rec = writeOS8(antalos5, belobos5, Betalingsdato, krd.Regnr, krd.Kontonr, krd.Datalevnr); rec_pbsfile = new Tblpbsfile { Seqnr = ++seq, Data = rec }; rec_pbsfiles.Tblpbsfile.Add(rec_pbsfile); } // -- Leverance s**t - (OS9) // --OS9 // - antalos5tot - Antal 042: Antal foranstående 042 records // - belobos5tot - Beløb: Nettobeløb i 042 records // - krd.datalevnr - Dataleverandørnr.: Dataleverandørens SE-nummer rec = writeOS9(antalos5tot, belobos5tot, krd.Datalevnr); rec_pbsfile = new Tblpbsfile { Seqnr = ++seq, Data = rec }; rec_pbsfiles.Tblpbsfile.Add(rec_pbsfile); rsttil.Udtrukket = DateTime.Now; rsttil.Leverancespecifikation = wleveranceid.ToString(); Program.dbData3060.SubmitChanges(); }