70 lines
2.4 KiB
VB.net
70 lines
2.4 KiB
VB.net
Public Class frmAbrechnungsMaskeEinzeln
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Dim FilialenNr As Integer = -1
|
|
Dim AbfertigungsNr As Integer = -1
|
|
Dim RK_ID As Integer = -1
|
|
Dim BelegKZ As String = "AR"
|
|
|
|
Sub New(FilialenNr, AbfertigungsNr, Optional BelegKZ = "AR")
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
'MsgBox(FilialenNr)
|
|
If FilialenNr IsNot Nothing AndAlso IsNumeric(FilialenNr) Then Me.FilialenNr = FilialenNr
|
|
If AbfertigungsNr IsNot Nothing AndAlso IsNumeric(AbfertigungsNr) Then Me.AbfertigungsNr = AbfertigungsNr
|
|
If BelegKZ IsNot Nothing AndAlso BelegKZ <> "" Then Me.BelegKZ = BelegKZ
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Sub New(RK_ID)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
If RK_ID IsNot Nothing AndAlso IsNumeric(RK_ID) Then Me.RK_ID = RK_ID
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Private Sub frmAbrechnungsMaske_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
'Größe anpassen:
|
|
Me.Height = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Height
|
|
Me.Top = 0
|
|
' initDGV()
|
|
End Sub
|
|
|
|
Private Sub frmAbrechnungsMaske_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
|
If FilialenNr > 0 And AbfertigungsNr > 0 Then
|
|
|
|
|
|
' Dim FAKT As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(FilialenNr, AbfertigungsNr)
|
|
|
|
' UsrCntlFaktAbrechnung1.initRECHNUNG(FAKT.RK_ID)
|
|
|
|
UsrCntlFaktAbrechnung1.cboFiliale.changeItem(FilialenNr)
|
|
UsrCntlFaktAbrechnung1.txtAbfertigungsnummer.Text = AbfertigungsNr
|
|
UsrCntlFaktAbrechnung1.cboSpedBuchUnterNr.Focus()
|
|
|
|
Select Case BelegKZ
|
|
Case "AR" : UsrCntlFaktAbrechnung1.cboRgGS.SelectedIndex = 0
|
|
Case "AG" : UsrCntlFaktAbrechnung1.cboRgGS.SelectedIndex = 1
|
|
End Select
|
|
|
|
|
|
ElseIf RK_ID > 0 Then
|
|
|
|
'Dim dt As DataTable = SQL.loadDgvBySql("select top(1) FilialenNr, AbfertigungsNr from Rechnungsausgang where RK_ID = " & RK_ID, "FMZOLL")
|
|
|
|
'If dt.Rows.Count > 0 Then
|
|
|
|
UsrCntlFaktAbrechnung1.initRECHNUNG(RK_ID)
|
|
|
|
'End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
End Class |