neu
This commit is contained in:
@@ -110,13 +110,13 @@ Public Class frmHauptfenster
|
||||
' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then
|
||||
'cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
|
||||
' End If
|
||||
|
||||
MyComboBox1.changeItem(UStatus_AVEingang)
|
||||
|
||||
tbcntrAviso.SelectedIndex = 0
|
||||
txtSuche.Text = ""
|
||||
txtSuche.Focus()
|
||||
Grid_aktiv = True
|
||||
initDat()
|
||||
Aviso_anzeigen("")
|
||||
End If
|
||||
If (e.KeyCode) = Keys.Add AndAlso e.Control Then
|
||||
@@ -834,7 +834,11 @@ Public Class frmHauptfenster
|
||||
gridAviso.RowTemplate.Height = rowHeight 'muss vor Bindung sein
|
||||
'gridAviso.DataSource = AvisoDAL.loadDataTableBySQL(hSQL)
|
||||
gridAviso.SET_SQL(hSQL, "AVISO")
|
||||
gridAviso.LOAD()
|
||||
Dim errOcc = False
|
||||
gridAviso.LOAD(False, errOcc)
|
||||
If errOcc Then
|
||||
pic.Visible = True
|
||||
End If
|
||||
' AVISOBinding.setARITHABORTOn()
|
||||
'AVISOBinding.initBinding(hSQL, "Aviso")
|
||||
'gridAviso.DataSource = AVISOBinding.bindingSource
|
||||
@@ -993,6 +997,17 @@ Public Class frmHauptfenster
|
||||
" FROM Aviso " &
|
||||
" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
|
||||
sqlStrFirma & " AND (LetzterMitarbeiterId=@maId) "
|
||||
If cboMy_Grenzstelle._value <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
|
||||
|
||||
sqlStr &= " ORDER BY case " &
|
||||
" when [Status] =3 then 0 " &
|
||||
" when [Status] =0 then 1 " &
|
||||
" when [Status] =99 then 2 " &
|
||||
" when [Status] =4 then 3 " &
|
||||
" when [Status] =1 then 4 " &
|
||||
" when [Status] =5 then 4 " &
|
||||
" when [Status] =0 then 5 " &
|
||||
" END, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
|
||||
Else
|
||||
Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 "
|
||||
If cboMyAvisoAnzeige._value <> "" And cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then
|
||||
@@ -1000,7 +1015,7 @@ Public Class frmHauptfenster
|
||||
inBearbeitungSQL = " (Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) "
|
||||
End If
|
||||
|
||||
sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], [Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " &
|
||||
sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], [Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " &
|
||||
" ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " &
|
||||
" FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " &
|
||||
" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
|
||||
@@ -1016,19 +1031,15 @@ Public Class frmHauptfenster
|
||||
Case CheckState.Unchecked : sqlStr &= " AND tblSnd_Vorbereitet is null "
|
||||
' Case CheckState.Indeterminate : sqlStr &= " AND tblSnd_Vorbereitet is not null "
|
||||
End Select
|
||||
If cboMy_Grenzstelle._value <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
|
||||
|
||||
sqlStr &= " ORDER BY case " &
|
||||
" when [Status] =3 then 0 " &
|
||||
" when [Status] =1 then 5 " &
|
||||
" else 1 " &
|
||||
" END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
|
||||
End If
|
||||
If cboMy_Grenzstelle._value <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
|
||||
|
||||
sqlStr &= " ORDER BY case " &
|
||||
" when [Status] =3 then 0 " &
|
||||
" when [Status] =0 then 1 " &
|
||||
" when [Status] =99 then 2 " &
|
||||
" when [Status] =4 then 3 " &
|
||||
" when [Status] =1 then 4 " &
|
||||
" when [Status] =5 then 4 " &
|
||||
" when [Status] =0 then 5 " &
|
||||
" END, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
|
||||
'Dim sqlStr As String = " SELECT AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " &
|
||||
' " FROM Aviso " &
|
||||
' " WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
|
||||
@@ -1056,8 +1067,11 @@ Public Class frmHauptfenster
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID))
|
||||
If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '? vlt hilfts...
|
||||
|
||||
gridMyAviso.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list)
|
||||
|
||||
Dim errOcc = False
|
||||
gridMyAviso.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list, False, errOcc)
|
||||
If errOcc Then
|
||||
pic.Visible = True
|
||||
End If
|
||||
' gridMyAviso.DataSource = VermerkeDAL.loadTableMyAviso(VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID)
|
||||
' MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate("16.12.2013 11:02:08")), CDate(VarToDate("16.12.2013 12:02:08"))))
|
||||
' MsgBox(gridMyAviso.RowCount)
|
||||
@@ -1088,6 +1102,7 @@ Public Class frmHauptfenster
|
||||
.Columns("AvisoTVHinweis").Visible = False ' = 60
|
||||
.Columns("Dauer").Visible = False ' = 60
|
||||
|
||||
|
||||
.Columns("Datum").Visible = False 'Mitarb. nicht anzeigen
|
||||
'.Columns("Datum").Width = 145 '115
|
||||
'.Columns("Datum").HeaderText = "Erfasst"
|
||||
@@ -1154,6 +1169,10 @@ Public Class frmHauptfenster
|
||||
.Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger"
|
||||
.Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
.Columns("VoraussichtlichesEintreffen").Width = 55
|
||||
.Columns("VoraussichtlichesEintreffen").HeaderText = "Eintreffen"
|
||||
.Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM."
|
||||
|
||||
' .Columns("Vermerke_Anzahl").Width = 60
|
||||
' .Columns("Vermerke_Anzahl").HeaderText = "Vermerke"
|
||||
' .Columns("Vermerke_Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
@@ -3554,6 +3573,11 @@ Public Class frmHauptfenster
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub SecretAvisoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SecretAvisoToolStripMenuItem.Click
|
||||
Dim frmSecretAviso As New frmSecretAviso
|
||||
frmSecretAviso.Show(Me)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Public Class AvisoStatusFunctions
|
||||
@@ -3622,8 +3646,6 @@ Public Class AvisoStatusFunctions
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'jetzt ausgewählten Datensatz einlesen
|
||||
Dim Aviso As New cAviso
|
||||
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
|
||||
@@ -3643,7 +3665,6 @@ Public Class AvisoStatusFunctions
|
||||
'Wenn Aviserer einem Team zugeordnet, aber noch nicht "vorgeschrieben", dann bekommt das Team eine Nachricht!
|
||||
' If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then
|
||||
'Sendungsbasis
|
||||
sendAnkunftBenachrichtigung(Aviso.AvisoID)
|
||||
' End If
|
||||
|
||||
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
|
||||
@@ -3672,6 +3693,17 @@ Public Class AvisoStatusFunctions
|
||||
Aviso.Ankunft = getAnkunftDateNow()
|
||||
End If
|
||||
|
||||
'E-Mail
|
||||
sendAnkunftBenachrichtigung(Aviso.AvisoID)
|
||||
|
||||
|
||||
|
||||
|
||||
'Fahrer Handy-Nr.
|
||||
Dim frmAnkunftSetzen As New frmAnkunftSetzen(Aviso)
|
||||
If frmAnkunftSetzen.ShowDialog() = DialogResult.Cancel Then
|
||||
Return -1 'Abbrechen
|
||||
End If
|
||||
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
|
||||
' If Aviso.Grenzstelle.Replace("???", "") <> "" Then
|
||||
' If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||||
@@ -3692,6 +3724,9 @@ Public Class AvisoStatusFunctions
|
||||
Aviso.Änderungen = "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
|
||||
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
||||
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
||||
|
||||
|
||||
|
||||
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
|
||||
AvisoDAL.addAenderung(tmpid, "auf ANKUNFT gesetzt", "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
||||
|
||||
@@ -3703,7 +3738,7 @@ Public Class AvisoStatusFunctions
|
||||
|
||||
|
||||
'Ticket Drucken, wenn parameter
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("TICKET_ANKUNFT") Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("TICKET_ANKUNFT") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("TICKET_ANKUNFT", "AVISO") Then
|
||||
Dim rpt As New rptQRAviso(Aviso)
|
||||
Dim printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
|
||||
If printer <> "" Then
|
||||
|
||||
Reference in New Issue
Block a user