edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cFakt, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-02-09 17:00:20 +01:00
parent 908ee4ba2b
commit 18f73c3c6f
8 changed files with 33 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
SDL/Fakturierung/cFakturierung.vb
View File

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

6
SDL/Fakturierung/frmFaktEmail.vb
View File

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

4
SDL/My Project/AssemblyInfo.vb
View File

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

10
SDL/My Project/Resources.Designer.vb generated
View File

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

3
SDL/My Project/Resources.resx
View File

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

BIN
SDL/Resources/ambar_boarder_new.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 33 KiB

3
SDL/SDL.vbproj
View File

@@ -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" />

6
SDL/kunden/usrCntlKundenuebersicht.vb
View File

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