Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

This commit is contained in:
2025-12-05 11:03:28 +01:00
18 changed files with 2751 additions and 940 deletions

View File

@@ -842,7 +842,8 @@ Public Class cFakturierung
'falscher IBAN!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy" & vbNewLine & "EUR-IBAN: TR08 6 2000 5440 0009 0603 73" & vbNewLine & "Hesap Numarası: 544-9060373"
rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy" & vbNewLine & "EUR-IBAN: TR08 0006 2000 5440 0009 0603 73" & vbNewLine & "Hesap Numarası: 544-9060373"
' rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy" & vbNewLine & "EUR-IBAN: TR08 0006 2000 5440 0009 0603 73" & vbNewLine & "Hesap Numarası: 544-9060373"
rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hesabi" & vbNewLine & "EUR-IBAN: TR98 0006 2001 6750 0009 0603 73" & vbNewLine & "Hesap Numarası: 544-9060373"
End If
Else
@@ -1046,6 +1047,7 @@ Public Class cFakturierung
End If
End If
End If
Case Else 'VERAG,ATILLA
If RechnungsLandKz = "TR" Then
@@ -1057,7 +1059,12 @@ Public Class cFakturierung
If Not hasEUSTZOLL(RechnungsNr) Then
rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy " & vbNewLine & "EUR-IBAN: TR96 0006 2000 5440 0009 0672 28" & vbNewLine & "SWIFT: TGBATRISXXX | Kto: 544"
If FIRMA.Firma_ID = 7 Then 'ATILLA
rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hesabi" & vbNewLine & "EUR-IBAN: TR98 0006 2001 6750 0009 0603 73" & vbNewLine & "Hesap Numarası: 544-9060373"
Else
rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy " & vbNewLine & "EUR-IBAN: TR96 0006 2000 5440 0009 0672 28" & vbNewLine & "SWIFT: TGBATRISXXX | Kto: 544"
End If
End If
Else