diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 33b164d6..9134b43d 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -1450,7 +1450,10 @@ Public Class cFakturierung rpt.lblLKWId.Text = If(Rechnung.AvisoID, "") Dim sachbearbeiterAufRechnung = getSBRgName(Rechnung.Firma_ID, Rechnung.Sachbearbeiter) - rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'If(RECHNUNG.Sachbearbeiter, "") + Select Case Rechnung.Firma_ID + Case 24 : rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner", "Verrechnung", sachbearbeiterAufRechnung) 'AMBAR HALT---ohne Worte + End Select + 'If(RECHNUNG.Sachbearbeiter, "") rpt.txtAbsender.Text = If(Rechnung.AbsenderName_1, "") & " " & If(Rechnung.AbsenderName_2, "") & vbNewLine & If(Rechnung.AbsenderOrt, "").ToString.Trim rpt.txtEmpfaenger.Text = If(Rechnung.EmpfängerName_1, "") & " " & If(Rechnung.EmpfängerName_2, "") & vbNewLine & If(Rechnung.EmpfängerOrt, "").ToString.Trim @@ -3889,12 +3892,12 @@ Public Class cFakturierung Dim defaultMail = "" Select Case firma Case "AMBAR" - defaultMail = "import@ambarlog.de" + defaultMail = "import@ambarlog.com" If useDepartmentmailadress Then - If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "BH" Then defaultMail = "buchhaltung@ambarlog.de" - If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "EXPORT" Then defaultMail = "office@ambarlog.de" + If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "BH" Then defaultMail = "buchhaltung@ambarlog.com" + If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "EXPORT" Then defaultMail = "office@ambarlog.com" End If - If fakturierung Then defaultMail = "buchhaltung@ambarlog.de" + If fakturierung Then defaultMail = "buchhaltung@ambarlog.com" End Select Return defaultMail diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index af2e3884..0061c539 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -561,7 +561,7 @@ Public Class frmFaktEmail If accountToSent <> "" Then If outl.Session.Accounts.Count > 0 Then For Each oAccount In outl.Session.Accounts - If oAccount.SmtpAddress = accountToSent Then + If oAccount.SmtpAddress.ToLower = accountToSent.ToLower Then Mail.SendUsingAccount = oAccount Exit For End If @@ -645,7 +645,7 @@ Public Class frmFaktEmail If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then Try - Mail.SentOnBehalfOfName = "buchhaltung@ambarlog.de" + Mail.SentOnBehalfOfName = "buchhaltung@ambarlog.com" Catch ex2 As Exception MsgBox(ex2.Message) End Try @@ -783,7 +783,7 @@ Public Class frmFaktEmail If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then Try - Mail.SentOnBehalfOfName = "buchhaltung@ambarlog.de" + Mail.SentOnBehalfOfName = "buchhaltung@ambarlog.com" Catch ex2 As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex2.Message, ex2.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index ec55a706..95151bcd 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/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index 92bfe1f7..47ca005d 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -190,6 +190,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ambar_boarder_new() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ambar_boarder_new", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index 3bacea9d..69d73ef2 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -970,4 +970,7 @@ ..\Resources\zauberstab.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ambar_boarder_new.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + \ No newline at end of file diff --git a/SDL/Resources/ambar_boarder_new.png b/SDL/Resources/ambar_boarder_new.png new file mode 100644 index 00000000..1cb377ff Binary files /dev/null and b/SDL/Resources/ambar_boarder_new.png differ diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index db27b12c..8fd1cd32 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -5328,6 +5328,9 @@ + + Always + diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index 36277b50..12dd5571 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -2756,7 +2756,8 @@ Public Class usrCntlKundenuebersicht Dim PdfTmp = SDL.FormularManagerNEU.UID_PRUEFUNG_PROTOKOLL(frmList.dgv.SelectedRows(0).Cells("uid_id").Value) If PdfTmp <> "" Then Process.Start(PdfTmp) - + Else + MsgBox("UID-Vorlage konnte nicht geladen werden!") End If End Sub frmList.Show(Me) @@ -2780,7 +2781,8 @@ Public Class usrCntlKundenuebersicht Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, eoripruef.eori_firma, eoripruef.eori_sessionID, KUNDE.EORITIN,, eoripruef.eori_sendungsid, eoripruef.eori_datum, eoripruef.eori_sachbearbeiter, eoripruef.eori_FirmaID) If PdfTmp <> "" Then Process.Start(PdfTmp) - + Else + MsgBox("EORI-Vorlage konnte nicht geladen werden!") End If End Sub '--------------------------