cFakt, etc.

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 = "BH" Then defaultMail = "buchhaltung@ambarlog.com"
-                    If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "EXPORT" Then defaultMail = "office@ambarlog.de"
+                    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

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

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.5.2.2")>
+<Assembly: AssemblyVersion("1.5.2.3")>
-<Assembly: AssemblyFileVersion("1.5.2.2")>
+<Assembly: AssemblyFileVersion("1.5.2.3")>

SDL/My Project/Resources.Designer.vb

@@ -190,6 +190,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        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
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

SDL/My Project/Resources.resx

@@ -970,4 +970,7 @@
   <data name="zauberstab" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\zauberstab.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ambar_boarder_new" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ambar_boarder_new.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

SDL/SDL.vbproj

@@ -5328,6 +5328,9 @@
     <None Include="Resources\ambar_boarder1.jpg" />
     <None Include="Resources\ambar_boarder.jpg" />
     <None Include="Resources\aeo_CS.jpg" />
+    <None Include="Resources\ambar_boarder_new.png">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
     <Content Include="Resources\food.png" />
     <None Include="Resources\food1.png" />
     <None Include="Resources\food2.png" />

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
                     '--------------------------