neu
This commit is contained in:
234
VERAGAddIn/frmAvisoAnfügen.vb
Normal file
234
VERAGAddIn/frmAvisoAnfügen.vb
Normal file
@@ -0,0 +1,234 @@
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class frmAvisoAnfuegen
|
||||
|
||||
Public AvisoId = -1
|
||||
Public SendungsId = -1
|
||||
Public Bezeichnung = ""
|
||||
Public PDF_MAIL = ""
|
||||
|
||||
Public ATT As List(Of String)
|
||||
|
||||
Sub New(Bezeichnung)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.Bezeichnung = Bezeichnung
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
Private Sub frmAvisoAnfügen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
txtBezeichnung.Text = Bezeichnung
|
||||
txtSrchDat.Text = Now.AddMonths(-1).ToShortDateString
|
||||
cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
|
||||
txtLKWNr.Focus()
|
||||
|
||||
cboArt.Items.Clear()
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR-EUR1", "ATR-EUR1"))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorpapier", "Vorpapier"))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Packliste", "Packliste"))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", "Dispoliste"))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorkasse", "Vorkasse"))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Überweisungsbeleg", "Überweisungsbeleg"))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", "Vollmacht"))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATB-Nr", "ATB"))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
|
||||
|
||||
|
||||
initAttachment()
|
||||
End Sub
|
||||
|
||||
Sub initAttachment()
|
||||
dgvAnhaenge.Rows.Clear()
|
||||
If ATT.Count = 0 Then
|
||||
btnSaveAttachments.Enabled = False
|
||||
Else
|
||||
btnSaveAttachments.Enabled = CheckBox1.Checked
|
||||
For Each a In ATT
|
||||
Dim display = a
|
||||
If a.Contains("\") Then
|
||||
Dim sp = a.Split("\")
|
||||
display = sp(sp.Count - 1)
|
||||
End If
|
||||
dgvAnhaenge.Rows.Add({display})
|
||||
Next
|
||||
End If
|
||||
dgvAnhaenge.ClearSelection()
|
||||
End Sub
|
||||
|
||||
Private Sub txtLKWNr_TextChanged(sender As Object, e As KeyEventArgs) Handles txtLKWNr.KeyDown, txtAbfertigungsnummer.KeyDown, cboFiliale.KeyDown
|
||||
If e.KeyCode = Keys.Return Then initSrch()
|
||||
End Sub
|
||||
Private Sub cboFiliale_TextChanged(sender As Object, e As EventArgs) Handles cboFiliale.SelectedIndexChanged
|
||||
initSrch()
|
||||
End Sub
|
||||
Sub initSrch()
|
||||
Try
|
||||
UseWaitCursor = True
|
||||
|
||||
With dgvAviso
|
||||
.Columns.Clear()
|
||||
Dim firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
If firma = "" Then firma = "VERAG"
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" Then
|
||||
firma = " AND ( FIRMA='" & firma & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
|
||||
Else
|
||||
firma = " AND FIRMA='" & firma & "' "
|
||||
End If
|
||||
|
||||
Dim sql = "SELECT TOP 10 AvisoID, Grenzstelle as Grenze, Datum, LKW_Nr,Auftraggeber,Frächter,Firma FROM Aviso left join tblSendungen on tblSnd_AvisoID=AvisoID WHERE status <>2 " & firma & " "
|
||||
If IsDate(txtSrchDat.Text) Then sql &= " AND Datum > '" & CDate(txtSrchDat.Text).ToShortDateString & "'"
|
||||
If txtLKWNr.Text <> "" Then sql &= " AND LKW_Nr LIKE '%" & txtLKWNr.Text & "%'"
|
||||
|
||||
|
||||
If cboFiliale._value <> "" Then sql &= " AND FilialenNr LIKE '%" & cboFiliale._value & "%'"
|
||||
If txtAbfertigungsnummer.Text <> "" Then sql &= " AND AbfertigungsNr LIKE '" & txtAbfertigungsnummer.Text.Replace("*", "%") & "'"
|
||||
sql &= " group by AvisoID, Grenzstelle, Datum, LKW_Nr,Auftraggeber,Frächter,Firma "
|
||||
sql &= " order by datum desc"
|
||||
.SET_SQL(sql, "AVISO")
|
||||
.LOAD()
|
||||
|
||||
.Columns("AvisoId").Visible = False
|
||||
.AutoSizeColumnsMode = Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
|
||||
.Columns("Grenze").Width = 40
|
||||
.Columns("Datum").Width = 80
|
||||
|
||||
If .Rows.Count = 1 Then
|
||||
.Rows(0).Selected = True
|
||||
txtBezeichnung.Focus()
|
||||
End If
|
||||
End With
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
UseWaitCursor = False
|
||||
End Sub
|
||||
|
||||
Sub initSrchSnd(AvisoId)
|
||||
Try
|
||||
UseWaitCursor = True
|
||||
|
||||
With dgvSendungen
|
||||
.Columns.Clear()
|
||||
If AvisoId <= 0 Then Exit Sub
|
||||
Dim firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
If firma = "" Then firma = "VERAG"
|
||||
Dim sql = "SELECT [tblSnd_SendungID],[FilialenNr],[AbfertigungsNr],[tblSnd_Absender] as Absender,[tblSnd_Empfaenger] as Empfänger,[tblSnd_Auftraggeber] as Auftraggeber,[tblSnd_Colli] as Colli,[tblSnd_Gewicht] as Gewicht,[tblSnd_FremdspeditionText] as Fremd "
|
||||
sql &= " FROM [tblSendungen] where tblSnd_AvisoID=" & AvisoId
|
||||
|
||||
.SET_SQL(sql, "AVISO")
|
||||
.LOAD()
|
||||
|
||||
.Columns("tblSnd_SendungID").Visible = False
|
||||
.AutoSizeColumnsMode = Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
|
||||
|
||||
.Columns("FilialenNr").Width = 35
|
||||
.Columns("AbfertigungsNr").Width = 55
|
||||
.Columns("Colli").Width = 40
|
||||
.Columns("Gewicht").Width = 55
|
||||
.Columns("Empfänger").Width = 100
|
||||
.Columns("Fremd").Width = 45
|
||||
|
||||
|
||||
'.Columns("Grenze").Width = 40
|
||||
' .Columns("Datum").Width = 80
|
||||
|
||||
'If .Rows.Count = 1 Then
|
||||
' .Rows(0).Selected = True
|
||||
' txtBezeichnung.Focus()
|
||||
'End If
|
||||
.ClearSelection()
|
||||
|
||||
If cboFiliale._value <> "" AndAlso txtAbfertigungsnummer.Text <> "" Then
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
If r.Cells("FilialenNr").Value = cboFiliale._value And r.Cells("AbfertigungsNr").Value = txtAbfertigungsnummer.Text Then
|
||||
r.Selected = True
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End With
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
UseWaitCursor = False
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnSaveAttachments.Click, bttnSaveMail.Click
|
||||
lblErr_Bezeichnung.Visible = False
|
||||
lblErr_Aviso.Visible = False
|
||||
If dgvAviso.SelectedRows.Count > 0 Then
|
||||
If txtBezeichnung.Text.Trim = "" Then
|
||||
lblErr_Bezeichnung.Visible = True
|
||||
Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
|
||||
End If
|
||||
Me.AvisoId = dgvAviso.SelectedRows(0).Cells("AvisoId").Value
|
||||
If dgvSendungen.SelectedRows.Count > 0 Then
|
||||
Me.SendungsId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
|
||||
Else
|
||||
Me.SendungsId = -1
|
||||
End If
|
||||
If sender Is btnSaveAttachments Then PDF_MAIL = "PDF"
|
||||
If sender Is bttnSaveMail Then PDF_MAIL = If(CheckBox1.Checked, If(cbx.Checked, "PDFMAIL", "MAIL"), "ONLYMAIL")
|
||||
Bezeichnung = txtBezeichnung.Text
|
||||
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||
Else
|
||||
lblErr_Aviso.Visible = True
|
||||
Me.DialogResult = Windows.Forms.DialogResult.None
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
initSrch()
|
||||
End Sub
|
||||
|
||||
Private Sub dgvAviso_DoubleClick(sender As Object, e As EventArgs) Handles dgvAviso.DoubleClick
|
||||
If dgvAviso.SelectedRows.Count > 0 Then
|
||||
txtBezeichnung.Focus()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub dgvAviso_Click(sender As Object, e As EventArgs) Handles dgvAviso.Click
|
||||
dgvSendungen.ClearSelection()
|
||||
End Sub
|
||||
|
||||
Private Sub dgvAviso_CellContentClick(sender As Object, e As EventArgs) Handles dgvAviso.SelectionChanged
|
||||
Dim avisoId = -1
|
||||
If dgvAviso.SelectedRows.Count > 0 Then avisoId = dgvAviso.SelectedRows(0).Cells("AvisoId").Value
|
||||
initSrchSnd(avisoId)
|
||||
End Sub
|
||||
|
||||
Private Sub dgvAnhaenge_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvAnhaenge.KeyDown
|
||||
If e.KeyCode = Keys.Delete Then
|
||||
|
||||
If dgvAnhaenge.SelectedRows.Count > 0 Then
|
||||
For Each row In dgvAnhaenge.SelectedRows.Cast(Of DataGridViewRow)().OrderByDescending(Function(dgvr) dgvr.Index)
|
||||
ATT.RemoveAt(row.Index)
|
||||
Next
|
||||
' ATT.RemoveAt(dgvAnhaenge.SelectedRows(0).Index) 'Inex-Rows = Index-Att
|
||||
initAttachment()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
|
||||
dgvAnhaenge.Enabled = CheckBox1.Checked
|
||||
cbx.Enabled = CheckBox1.Checked
|
||||
|
||||
If CheckBox1.Checked Then
|
||||
btnSaveAttachments.Enabled = dgvAnhaenge.Rows.Count > 0
|
||||
Else
|
||||
btnSaveAttachments.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user