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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-07-08 08:12:43 +02:00
parent 697b78e3c9
commit 7f5057dc3e
121 changed files with 8039 additions and 19322 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SDL/SMS/usrCntlSMS.vb
View File

@@ -64,12 +64,13 @@ Public Class usrCntlSMS
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "EX0315223"))
End Select
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WHATSAPP", "EX0341154"))
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA" : cboAbsedner.changeItem("EX0252746")
Case "IMEX" : cboAbsedner.changeItem("EX0272082")
Case "UNISPED" : cboAbsedner.changeItem("EX0300174")
Case "FRONTOFFICE" : cboAbsedner.changeItem("EX0300173")
Case "FRONTOFFICE" : cboAbsedner.changeItem("EX0341154")
Case "AMBAR" : cboAbsedner.changeItem("EX0315223")
Case Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
@@ -164,7 +165,7 @@ Public Class usrCntlSMS
Dim sqlstr As String = ""
sqlstr &= " SELECT " & TopMax & " [sms_id],[sms_Datum],[sms_Account], sms_Vorwahl + '' + [sms_Handynummer] as Nummer,[sms_Nachricht],[sms_Sachbearbeiter],CASE WHEN sms_Status IN (2,10) then 'OK' when sms_Status IN (3,4,5,6,8,11) THEN 'FEHLER' when sms_Status IN (0,1,7,9) THEN 'WARTEND' ELSE '' END as Status,sms_BatchId,sms_MessageIds FROM [tblSMS] WHERE 1=1 "
sqlstr &= " SELECT " & TopMax & " [sms_id],[sms_Datum],[sms_Account], sms_Vorwahl + '' + [sms_Handynummer] as Nummer,[sms_Nachricht],[sms_Sachbearbeiter],CASE WHEN sms_Status IN (2,10) then 'OK' when sms_Status IN (3,4,5,6,8,11) THEN 'FEHLER' when sms_Status IN (-1,0,1,7,9) THEN 'WARTEND' ELSE '' END as Status,sms_BatchId,sms_MessageIds FROM [tblSMS] WHERE 1=1 "
With MyDatagridview1
' .DataSource = myTable