140 lines
4.1 KiB
VB.net
140 lines
4.1 KiB
VB.net
Imports System.Data
|
|
Imports System.Drawing
|
|
Imports System.Windows.Forms
|
|
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Button
|
|
Imports SDL
|
|
Imports VERAG_PROG_ALLGEMEIN
|
|
|
|
|
|
Public Class frmAvisoFormularAnfuegen
|
|
|
|
Public KdNr As Integer = -1
|
|
Public vollmachtId As Integer = -1
|
|
Dim vollmachtartId As Integer = -1
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
|
|
Public SendungsId = -1
|
|
Public Bezeichnung = ""
|
|
Public PDF_MAIL = ""
|
|
Public ATT As List(Of String)
|
|
Public hasAnhaenge As Boolean = False
|
|
|
|
|
|
Sub New()
|
|
|
|
InitializeComponent()
|
|
|
|
End Sub
|
|
|
|
Sub New(Bezeichnung)
|
|
|
|
InitializeComponent()
|
|
Me.Bezeichnung = Bezeichnung
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub frmAvisoFormularAnfuegen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
KdSearchBox.initKdBox(Me)
|
|
initAttachment()
|
|
If hasAnhaenge Then
|
|
pbAnhaenge.Visible = True
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub KdSearchBox_TextChanged(sender As Object, e As EventArgs) Handles KdSearchBox.TextChanged
|
|
|
|
If KdSearchBox.KdNr_value > 0 AndAlso KdSearchBox.KdNr IsNot Nothing Then
|
|
KdNr = KdSearchBox.KdNr_value
|
|
Dim AD = KdSearchBox.KdData_ADRESSEN
|
|
Dim KD = KdSearchBox.KdData_KUNDE
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub init()
|
|
If KdNr > 0 Then
|
|
initVollmachtarten(KdNr)
|
|
End If
|
|
End Sub
|
|
|
|
Sub initVollmachtarten(kdNr As Integer)
|
|
cbVMTypen.fillWithSQL("SELECT DISTINCT(art.kdvma_Id), art.kdvma_Bezeichnung FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "FMZOLL", False)
|
|
End Sub
|
|
|
|
|
|
Sub initUsrCntrlKundenvollmachten(vollmachtartId)
|
|
|
|
UsrCntlKundenZollVollmachten1.init(KdNr, vollmachtartId)
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub KdSearchBox_PropertyChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles KdSearchBox.PropertyChanged
|
|
If KdSearchBox.KdNr_value > 0 AndAlso KdSearchBox.KdData_KUNDE IsNot Nothing AndAlso KdSearchBox.KdData_ADRESSEN IsNot Nothing Then
|
|
KdNr = KdSearchBox.KdNr
|
|
Dim AD = KdSearchBox.KdData_ADRESSEN
|
|
Dim KD = KdSearchBox.KdData_KUNDE
|
|
init()
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cbVMTypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbVMTypen.SelectedIndexChanged
|
|
|
|
vollmachtartId = cbVMTypen._value
|
|
initUsrCntrlKundenvollmachten(vollmachtartId)
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
|
|
|
If Not hasAnhaenge Then
|
|
|
|
If Not vbYes = MsgBox("Die Email besitzt keinen Anhang! Soll die Email denoch gespeichert werden?", vbYesNoCancel) Then Exit Sub
|
|
|
|
End If
|
|
UsrCntlKundenZollVollmachten1.btnNeu_Click(sender, e)
|
|
vollmachtId = UsrCntlKundenZollVollmachten1.vmId
|
|
|
|
'MsgBox("Dokument wurde gespeichert!")
|
|
'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & UsrCntlKundenZollVollmachten1.vollmachtartId, "", "", Bezeichnung, KdNr)
|
|
'Dim path = DS.uploadDataToDATENSERVER("")
|
|
Close()
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
|
|
Close()
|
|
End Sub
|
|
|
|
Sub initAttachment()
|
|
dgvAnhaenge.Rows.Clear()
|
|
If ATT.Count = 0 Then
|
|
hasAnhaenge = False
|
|
PDF_MAIL = "ONLYMAIL_DATENSERVER"
|
|
Else
|
|
hasAnhaenge = True
|
|
PDF_MAIL = "PDF_DATENSERVER"
|
|
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
|
|
|
|
|
|
End Class |