Kundenblatt

This commit is contained in:
2026-02-12 16:46:06 +01:00
parent 13ac899609
commit f5edb42d14

View File

@@ -2867,10 +2867,6 @@ Public Class frmKundenblatt
Next
'CSV erzeugen:
Dim SQL_String As String = "Select Top(1) 'S' As [Transaction Type], ''As Company1, ' ' As Company2, ' ' As CompanyStreet, ' ' As CompanyNumber, ' ' As CompanyCode, ' ' As CompanyCity, ' ' As CompanyCountry, ' ' As CompanyCountryAbbr, ' ' As CompanyTelephone, ' ' As CompanyTelefax, ' ' As Salutation, ' ' As Title, ' ' As FirstName, ' ' As LastName, ' ' As Email, ' ' As PersonLanguage, ' ' As [License plate], ' ' As [License plate Nationality], ' ' As VehicleType, ' ' As Axles, ' ' As [Stammnummer For Tripon Orders only], ' ' As CardNum, ' ' As CardValidMonth, ' ' As CardValidYear FROM [tblGOBOXBestellungen]
UNION ALL
@@ -3058,7 +3054,7 @@ Public Class frmKundenblatt
KUNDE.SAVE()
End If
Else
MsgBox("Feld Gesprächstbericht darf nicht leer sein")
MsgBox("Feld Gesprächsbericht darf nicht leer sein")
End If
End Sub