diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 02a2a16f..db54c105 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -1104,8 +1104,6 @@ Public Class frmFaktEmail If MergePDF And ATTACHMENTS.Count > 1 Then - - Dim extension = ".pdf" Dim Belegsbezeichnung As String = "Beleg" diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index af1f8a65..df43220f 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -435,6 +435,7 @@ 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "on request") dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%") @@ -900,6 +901,7 @@ dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index a10be475..920610ca 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index 0d3d2a7a..afba2d11 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -1,4 +1,5 @@ Imports System.Globalization +Imports com.sun.source.tree Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN @@ -410,17 +411,17 @@ Public Class frmBU_Mahnlauf Select Case Sprache Case "EN" rpt.lblSummeUeberschrift.Text = "Total:" - rpt.lblSteuersatz.Text = "Interest for late payment 9.5% " + rpt.lblSteuersatz.Text = "Interest for late payment 9,5 %" rpt.lblZwText.Text = "Reminder Fee" rpt.lblZwischensumme.Text = "Subtotal" Case "RO" rpt.lblSummeUeberschrift.Text = "Total:" - rpt.lblSteuersatz.Text = "Penalitati întârziere la plată 9,5 % " + rpt.lblSteuersatz.Text = "Penalitati întârziere la plată 9,5 %" rpt.lblZwText.Text = "Taxa somatie" rpt.lblZwischensumme.Text = "Subtotal" Case "TR" rpt.lblSummeUeberschrift.Text = "Toplam:" - rpt.lblSteuersatz.Text = "Gecikme faizi %9,5 " + rpt.lblSteuersatz.Text = "Gecikme faizi 9,5 %" rpt.lblZwText.Text = "Hhatırlatma ücreti" rpt.lblZwischensumme.Text = "Ara toplam" End Select @@ -528,6 +529,13 @@ Public Class frmBU_Mahnlauf Else + 'ZinssatzVerzugszinsen pro Kunde und wenn nichts hingerlegt, dann defaultwert! + If Not IsDBNull(KD_ERW.kde_zinssatz) AndAlso IsNumeric(KD_ERW.kde_zinssatz) Then + ZinssatzVerzugszinsen = CDbl(KD_ERW.kde_zinssatz) / 100 + rpt.lblSteuersatz.Text = rpt.lblSteuersatz.Text.ToString.Replace("9,5", KD_ERW.kde_zinssatz) + End If + + Select Case MAHNSTUFE Case -2 : Mahngeb = 0 : rpt.Label24.Visible = False : rpt.lblSteuersatz.Visible = False : rpt.Label23.Visible = False : rpt.lblZwText.Visible = False Case -1 : Mahngeb = 0 @@ -585,13 +593,13 @@ Public Class frmBU_Mahnlauf ' End If 'Else rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value) - If (CDate(rpt.Fields.Item("Faelligkeit").Value) > CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then - rpt.Label15.ForeColor = Color.Black - rpt.Label16.ForeColor = Color.Black - Else - rpt.Label15.ForeColor = Color.DarkRed - rpt.Label16.ForeColor = Color.DarkRed - End If + If (CDate(rpt.Fields.Item("Faelligkeit").Value) > CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then + rpt.Label15.ForeColor = Color.Black + rpt.Label16.ForeColor = Color.Black + Else + rpt.Label15.ForeColor = Color.DarkRed + rpt.Label16.ForeColor = Color.DarkRed + End If 'End If @@ -807,16 +815,24 @@ Public Class frmBU_Mahnlauf If Firma_ID = 19 Then Select Case AD.LandKz - Case "RO" : Mail_BCC &= "alex@verag.ag;maut.ro@verag.ag;ma@verag.ag;" 'später mal über eigene Logik!! - Case "AT", "BA", "BG", "CZ", "DE", "HU", "LU", "SRB", "BIH", "HR", "ME", "MKD", "SK", "SI", "RS" : Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;" + Case "RO" : Mail_BCC &= "alex@verag.ag;maut.ro@verag.ag;ma@verag.ag;" 'immer an alle bei RO! + Case "AT", "BA", "BG", "CZ", "DE", "HU", "LU", "SRB", "BIH", "HR", "ME", "MKD", "SK", "SI", "RS" + + If KD_ERW IsNot Nothing AndAlso Not IsDBNull(KD_ERW.kde_betreuer) Then + Select Case KD_ERW.kde_betreuer + Case "Ljubas" : Mail_BCC &= "n.ljubas@verag.ag;" + Case "Batinic" : Mail_BCC &= "z.batinic@verag.ag;" + Case "Vidovic" : Mail_BCC &= "s.vidovic@verag.ag;" + Case Else + Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;" + End Select + Else + Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;" + End If + End Select End If - - ' isnull(( SELECT TOP 1 [kkd_Email] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10 and kkd_KundenNr=i_personenkonto ) ,'') Email, - 'isnull(( SELECT TOP 1 [kkd_Email] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10 and kkd_KundenNr=i_personenkonto ) ,'') Email, - - If Mail_To = "" Then Mahndruckart = 2 ' Wenn keine Mahn-Mail hinterlegt, sollte die Mail geöffenet werden Dim pdfBezeichnung As String = "" diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index fae1152f..88139e42 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/SDL/kassenbuch/frmBelegNeu.vb @@ -1,5 +1,6 @@ Imports System.Drawing.Printing Imports System.Globalization +Imports com.sun.org.apache.xalan.internal.xsltc.compiler.util Imports Microsoft.Win32 Imports SDL.RKSVServer @@ -1531,7 +1532,7 @@ Public Class frmBelegNeu TESTBUCHUNG = False ' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM() If cRKSV.isforbiddenDate Then - MsgBox("Die Kasse wir am Monatsende abgeschlossen. Es dürfen keine weiteren Belege erstellt werden. Bitte veruchen Sie den Vorgang nach Mitternacht erneut.") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Die Kasse wir am Monatsende abgeschlossen. Es dürfen keine weiteren Belege erstellt werden. Bitte veruchen Sie den Vorgang nach Mitternacht erneut.", "", System.Reflection.MethodInfo.GetCurrentMethod.Name) Return False End If @@ -1542,6 +1543,7 @@ Public Class frmBelegNeu Else KASSE.LOAD(cboKassen._value) 'Laden der Kasse anhand der Auswahlbox End If + BELEG.rksv_id = KASSE.rksv_id ' bei Fehler wird sonst die ID nicht richtig übernommen If kdkunde.Text.Trim.Length > 50 Then @@ -1563,7 +1565,7 @@ Public Class frmBelegNeu Me.DialogResult = Windows.Forms.DialogResult.None Me.Cursor = Cursors.Default printErfolgreich = False - MsgBox("Allgemeiner Programmfehler - Belegerfassung wird geschlossen!" & ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Allgemeiner Programmfehler - Belegerfassung wird geschlossen!" & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) warnClose = False Me.Close() End Try @@ -1617,7 +1619,7 @@ Public Class frmBelegNeu If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma, POSFIBU, Zahlungsmittel, isLeihgeldeinzahlung) Then KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, summeBRUTTO * -1) - MsgBox("Programmfehler bei Eintrag ins Kassenbuch.") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Programmfehler bei Eintrag ins Kassenbuch.", "", System.Reflection.MethodInfo.GetCurrentMethod.Name) Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub End If @@ -1632,7 +1634,9 @@ Public Class frmBelegNeu KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, If(EA = "E", summeBRUTTO * -1, summeBRUTTO)) cRKSV.DELETE(BELEG, KASSE.rksv_firma) End If - MsgBox("Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer, MsgBoxStyle.Critical) + Dim Errmsg = "Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer + MsgBox(Errmsg, MsgBoxStyle.Critical) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(Errmsg, "", System.Reflection.MethodInfo.GetCurrentMethod.Name) Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub End If KASSE.SET_LAST_QR_JWS(LastJWS, QR_CodeString) @@ -1661,7 +1665,10 @@ Public Class frmBelegNeu KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, If(EA = "E", summeBRUTTO * -1, summeBRUTTO)) cRKSV.DELETE(BELEG, KASSE.rksv_firma) End If - MsgBox("Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer, MsgBoxStyle.Critical) + + Dim Errmsg = "Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer + MsgBox(Errmsg, MsgBoxStyle.Critical) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(Errmsg, "", System.Reflection.MethodInfo.GetCurrentMethod.Name) Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub End If KASSE.SET_LAST_QR_JWS(LastJWS, QR_CodeString) @@ -1743,7 +1750,7 @@ Public Class frmBelegNeu Me.DialogResult = Windows.Forms.DialogResult.None Me.Cursor = Cursors.Default printErfolgreich = False - MsgBox("Allgemeiner Programmfehler - Belegerfassung wird geschlossen!" & ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Allgemeiner Programmfehler - Belegerfassung wird geschlossen!" & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) warnClose = False Me.Close() End Try diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index 26ab38ad..0c3f2326 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -1,7 +1,4 @@ -Imports com.sun.tools.javac.util -Imports com.sun.xml.internal.ws.api.pipe -Imports GrapeCity.ActiveReports -Imports VERAG_PROG_ALLGEMEIN +Imports GrapeCity.ActiveReports Public Class frmNacherfassungLeihgeld Dim cOptionenDAL As New cOptionenDAL @@ -282,7 +279,7 @@ Public Class frmNacherfassungLeihgeld If BELEG.KundenNr > 0 AndAlso cbxOP_sofort_buchen.Checked Then Dim KundenKontoArchiv As String = SQL.getValueTxtBySqlVarList("SELECT c_archiv FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = 7", "FIBU") 'ATILLA MANDANT!' If KundenKontoArchiv <> "" Then - MsgBox("ACHTUNG, die Kundennummer ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden!") + MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden!") Exit Sub End If diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb index e4491f2c..26335758 100644 --- a/SDL/kunden/usrCntlCBAM.vb +++ b/SDL/kunden/usrCntlCBAM.vb @@ -494,7 +494,7 @@ Public Class usrCntlCBAM - If dtGP IsNot Nothing AndAlso dt.Rows.Count > 0 Then + If dtGP IsNot Nothing AndAlso dtGP.Rows.Count > 0 Then If ReDaten.Rows.Count > 0 Then dtGP.Columns("invoice date").ReadOnly = False @@ -509,8 +509,6 @@ Public Class usrCntlCBAM ' Look for matching row in dt2 Dim found() As DataRow = ReDaten.Select("Registriernummer_MRN = '" & MDN_NR & "'") - - If found.Length > 0 Then Dim rechnugnsdatum As String = found(0)("Positionsunterlagendatum") diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index 9cb9a5f3..adcd4670 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -1,6 +1,7 @@ Imports System.Data.SqlClient Imports System.Globalization Imports System.IO +Imports org.BouncyCastle.Asn1.Ocsp Imports SDL.EORI Imports VERAG_PROG_ALLGEMEIN @@ -1681,7 +1682,11 @@ Public Class usrCntlKundenuebersicht Private Sub dgvVertraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraege.CellDoubleClick If dgvVertraege.SelectedRows.Count = 1 Then Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.SelectedRows(0).Cells("kv_datenarchivId").Value) - DS.OPEN_SINGLE() + If DS.hasITEMS Then + For Each i In DS.DATA_LIST.LIST + Process.Start(i.coll_pfad) + Next + End If End If End Sub diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb index 2c114b7a..676d743f 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb @@ -615,6 +615,7 @@ Public Class SQL Case "WEB" : conn = GetNewOpenConnectionWEB() Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA() Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT() + Case "SCANCANON" : conn = GetNewOpenConnectionSCANCANON() Case "AVISO_ATILLA" diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb index 9e30df9e..f4182022 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb @@ -11,6 +11,8 @@ Public Class cKundenVertraege Property kv_datenarchivId As Object = Nothing Property kv_gueltig As Boolean = True + Public hasEntry As Boolean = False + Dim SQL As New SQL @@ -22,6 +24,13 @@ Public Class cKundenVertraege LOAD() End Sub + Sub New(kv_KundenNr, kv_erhalten_Datum, kv_vertragArtId) + Me.kv_KundenNr = kv_KundenNr + Me.kv_erhalten_Datum = kv_erhalten_Datum + Me.kv_vertragArtId = kv_vertragArtId + LOAD(kv_KundenNr, kv_erhalten_Datum, kv_vertragArtId) + End Sub + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_Id", kv_Id, , True, True)) @@ -85,7 +94,36 @@ Public Class cKundenVertraege End If Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + Public Sub LOAD(KundenNr, erhaltenAm, vertragArtId) + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("Select * FROM tblKundenVertraege WHERE kv_KundenNr=@KundenNr AND kv_erhalten_Datum=@erhaltenAm AND kv_vertragArtId=@vertragArtId ", conn) + cmd.Parameters.AddWithValue("@KundenNr", KundenNr) + cmd.Parameters.AddWithValue("@erhaltenAm", erhaltenAm) + cmd.Parameters.AddWithValue("@vertragArtId", vertragArtId) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True End If dr.Close() End Using diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb index 37df709a..951c64e4 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb @@ -48,7 +48,7 @@ Public Shared Function genBuchungenBeginn(Geschaeftsjahr As Integer) As String - Return "100,""AR "",4,""" & Now.ToString("ddMMyyyy") & """," & Now.AddDays(-1).Month & ",0" + Return "100,""AR "",4,""" & Now.ToString("ddMMyyyy") & """," & Now.Month & ",0" End Function diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb index d50d1192..36b0237f 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb @@ -1,4 +1,5 @@ Imports System.ServiceModel.Configuration +Imports com Imports Therefore.API Public Class cTherefore @@ -146,6 +147,109 @@ Public Class cTherefore ' 8. Close Therefore™ document object doc.Close() + Return True + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return False + End Function + + Shared Function getFileFromFolderCat(Category As String, Optional Category2 As String = "", Optional UpdateExistingVertraege As Boolean = False) + Try + + + If Category2 = "" Then Category2 = Category + Dim SQL As New SQL + + ' 1. Connect to the Therefore™ Server + Dim server As New TheServer + server.Connect(TheClientType.CustomApplication) + + ' 2. Create a new Therefore™ Document + + + Dim TableName = "" + If IsNumeric(Category) Then + TableName = "TheCat" & Category + If SQL.getValueTxtBySql("SELECT count(*) FROM [TheCategory] WHERE TableName='" & TableName & "'", "SCANCANON",,, "") = 0 Then + MsgBox("Therefore: Tabelle nicht gefunden: " & TableName) + Return False + End If + Else + TableName = SQL.getValueTxtBySql("SELECT [TableName] FROM [TheCategory] WHERE Title='" & Category & "'", "SCANCANON",,, "") + End If + + Dim docs As DataTable = SQL.loadDgvBySql("SELECT isnull([DocNo],-1) as DocNo,[String],[Eingabedatum] FROM " & TableName & " where isNUmeric(left(string,6)) = 1", "SCANCANON") + + If Not vbYes = MsgBox("Möchten Sie die " & docs.Rows.Count & " Dokumente aus Therefore als Unternehmensbescheinigung hochladen?" & vbNewLine & "Existierende Datenarchiv-Einträge werden " & IIf(UpdateExistingVertraege, "-ÜBERSCHRIEBEN-", "-ÜBERSPRUNGEN-") & "!", vbYesNoCancel) Then Return False + + For Each TFdoc As DataRow In docs.Rows + + Dim filename As String = "" + If TFdoc.Item("DocNo") > 0 Then + If Not IsDBNull(TFdoc("String")) AndAlso TFdoc("String").ToString() <> "" AndAlso TFdoc.Item("String").ToString.Length > 6 AndAlso IsNumeric(TFdoc.Item("String").ToString.Substring(0, 6)) Then + Dim kdNr = TFdoc.Item("String").ToString.Substring(0, 6) + + Dim Kunde As New cKunde(kdNr) + + If Kunde IsNot Nothing Then + + Dim EingabeDatum As Date + + If Not IsDBNull(TFdoc("Eingabedatum")) AndAlso TFdoc("Eingabedatum").ToString() <> "" AndAlso IsDate(TFdoc.Item("Eingabedatum").ToString) Then + + EingabeDatum = CDate(TFdoc("Eingabedatum")) + Else + EingabeDatum = Now() + End If + + + Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(Kunde.KundenNr, EingabeDatum, 7) + + If KV.hasEntry AndAlso KV.kv_datenarchivId IsNot Nothing AndAlso KV.kv_datenarchivId > 0 AndAlso Not UpdateExistingVertraege Then Continue For 'dann nicht aktualisieren! + + Dim extractDir As String = System.IO.Path.GetTempPath() & Kunde.KundenNr & "\" + If Not System.IO.Directory.Exists(extractDir) Then + System.IO.Directory.CreateDirectory(extractDir) + End If + + Dim doc As New TheDocument() + + Dim folder = "" + Dim VerionNo As Integer + filename = doc.Retrieve(TFdoc.Item("DocNo"), VerionNo, folder, server, False) + ' 4. Extract all file streams to the specified directory + + Dim i As Integer + Dim DSID As Integer = -1 + + Dim multiFiles As Boolean = (doc.StreamCount > 1) + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "UM-BESCHEINIGUNG", Now.ToString("ddMMyy_HHmmss.ffff"), "", "", "UM-Bescheinigung", Kunde.KundenNr, multiFiles) + For i = 0 To doc.StreamCount - 1 'Step i + 1 + + Dim extractFile As String = doc.ExtractStream(i, extractDir) + If Not DS.uploadDataToDATENSERVER(extractFile) Then + MsgBox("Fehler beim Hochladen!") + End If + + Next + + KV.kv_Info = "aus TF importiert" + KV.kv_datenarchivId = DS.da_id + KV.SAVE() + + doc.Close() + + End If + End If + End If + + + Next + + + + Return True Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) diff --git a/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb b/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb index 5f9dafc2..dd4ce49f 100644 --- a/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb +++ b/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb @@ -27,6 +27,8 @@ Public Class cSicherheiten Property gs_ReferenzAenderung As Boolean Property gs_zuletztgeandert As Object = Nothing Property gs_systemuser As Object = Nothing + Property gs_MRNNr As Object = Nothing + Property gs_posSubNr As Object = Nothing Public hasEntry = False @@ -73,6 +75,8 @@ Public Class cSicherheiten list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_ReferenzAenderung", gs_ReferenzAenderung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_zuletztgeandert", gs_zuletztgeandert)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_systemuser", gs_systemuser)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_MRNNr", gs_MRNNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_posSubNr", gs_posSubNr)) Return list End Function