114 lines
5.2 KiB
VB.net
114 lines
5.2 KiB
VB.net
Public Class frmStammreferenzPopup
|
|
|
|
Public mandant = ""
|
|
Public nl = ""
|
|
Public verfahren = ""
|
|
Public id As Integer = -1
|
|
Public STAMMREF As DAKOSY_Worker.cDakosy_Stammreferenzen
|
|
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Dim FirmaID As String = ""
|
|
Sub New(mandant, nl, verfahren)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.mandant = mandant
|
|
Me.nl = nl
|
|
Me.verfahren = verfahren
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Sub New(id)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.id = id
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
|
|
|
If txtBezeichnung.Text = "" Then MsgBox("Bezeichnung angeben") : Me.DialogResult = Windows.Forms.DialogResult.None
|
|
If cboStammrefDakosy._value = "" Then MsgBox("Stammreferenz angeben") : Me.DialogResult = Windows.Forms.DialogResult.None
|
|
If KdSearchBox1.Text <> "" And KdSearchBox1.KdNrNullInt Is Nothing Then MsgBox("Empfänger: Eingabe nur mit Kundennummer!") : Me.DialogResult = Windows.Forms.DialogResult.None
|
|
Dim where = ""
|
|
If KdSearchBox1.KdNrNullInt IsNot Nothing Then where = " AND [dyStr_KdNr]='" & KdSearchBox1.KdNr_value & "' "
|
|
|
|
|
|
If sql.getValueTxtBySql("SELECT count(*) FROM [tblDakosy_Stammreferenzen] where [dySr_Verfahren]='" & verfahren & "' AND [dySr_dy_Mandant]='" & mandant & "' AND [dySr_Bezeichnung]='" & txtBezeichnung.Text & "' AND [dySr_dy_Niederlassung] = '" & nl & "' " & where, "FMZOLL") > 0 AndAlso id < 1 Then
|
|
MsgBox("Bezeichnung existiert bereits!") : Me.DialogResult = Windows.Forms.DialogResult.None
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmStammreferenzPopup_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
KdSearchBox1.initKdBox(Me)
|
|
|
|
If id > 0 Then
|
|
STAMMREF = New DAKOSY_Worker.cDakosy_Stammreferenzen(id)
|
|
nl = STAMMREF.dySr_dy_Niederlassung
|
|
mandant = STAMMREF.dySr_dy_Mandant
|
|
verfahren = STAMMREF.dySr_Verfahren
|
|
|
|
If STAMMREF.dyStr_KdNr IsNot Nothing AndAlso STAMMREF.dyStr_KdNr > 0 Then
|
|
KdSearchBox1.KdNr_value = STAMMREF.dyStr_KdNr
|
|
End If
|
|
|
|
End If
|
|
|
|
cboStammrefDakosy.Items.Clear()
|
|
cboStammrefDakosy.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] + ' - ' + dySr_Stammreferenz FROM [tblDakosy_Stammreferenzen] where [dySr_Verfahren]='" & verfahren & "' AND [dySr_dy_Mandant]='" & mandant & "' AND dyStr_KdNr is null", False, "FMZOLL")
|
|
cboStammrefDakosy.changeItem("*OWN")
|
|
If cboStammrefDakosy.Items.Count = 0 Then
|
|
cboStammrefDakosy.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
|
ElseIf STAMMREF IsNot Nothing AndAlso STAMMREF.dySr_Stammreferenz IsNot Nothing Then
|
|
cboStammrefDakosy.changeItem(STAMMREF.dySr_Stammreferenz)
|
|
txtBezeichnung.Text = STAMMREF.dySr_Bezeichnung
|
|
End If
|
|
|
|
cboNL.Items.Clear()
|
|
Select Case mandant
|
|
Case "VERG"
|
|
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("alle", ""))
|
|
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
|
|
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
|
|
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
|
|
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
|
|
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
|
|
FirmaID = "1,2,11"
|
|
Case "IMEX"
|
|
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("alle", ""))
|
|
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IME", "IME"))
|
|
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GLO", "GLO"))
|
|
FirmaID = "20"
|
|
Case "ATIL"
|
|
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("alle", ""))
|
|
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUW", "SUW"))
|
|
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBWO", "AMBWO"))
|
|
FirmaID = "7"
|
|
End Select
|
|
|
|
If mandant <> "" Then
|
|
lblMandant.Text = "(" & mandant & ")"
|
|
cbxWarenort.fillWithSQL("SELECT [wo_id],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1 AND wo_ze = 1 AND [wo_firma] in (" & FirmaID & ") ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
|
|
|
|
If STAMMREF IsNot Nothing AndAlso STAMMREF.dySr_WarenortID > 0 Then
|
|
cbxWarenort.changeItem(STAMMREF.dySr_WarenortID)
|
|
Else
|
|
cbxWarenort.changeItem("")
|
|
End If
|
|
End If
|
|
cboNL.changeItem(nl)
|
|
|
|
cbxWarenort.Enabled = If(verfahren = "AA", False)
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me) Then
|
|
'txtStammrefDakosy.Enabled = True
|
|
cbxStandard.Enabled = True
|
|
|
|
|
|
|
|
cboStammrefDakosy._allowFreiText = True
|
|
End If
|
|
End Sub
|
|
End Class |