116 lines
3.3 KiB
VB.net
116 lines
3.3 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
|
|
Dim vollmachtartId As Integer = -1
|
|
Dim vollmachtId 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 As Boolean = False
|
|
Public ATT As List(Of String)
|
|
|
|
|
|
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)
|
|
|
|
If PDF_MAIL Then
|
|
pbAnhaenge.Visible = True
|
|
Else
|
|
pbAnhaenge.Visible = False
|
|
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 PDF_MAIL Then
|
|
'Sicherheitsabfrage: Mail besitzt keinen Anhang, soll VM gespeichert werden?
|
|
End If
|
|
|
|
|
|
UsrCntlKundenZollVollmachten1.btnNeu_Click(sender, e)
|
|
|
|
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
|
|
End Class |