edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ATBGestellung, Gesamtsicherheiten, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-03-10 11:37:00 +01:00
parent 3d5370dfc5
commit a40ff7a7c2
5 changed files with 75 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -602,7 +602,7 @@ Public Class frmSendungsdetailsNEU
End If
ContextMenuStrip3.Items.Clear()
Dim dt = SQL.loadDgvBySql("SELECT [grz_Grenzstelle],grz_BezeichnungCBO FROM [AVISO].[dbo].[tblGrenzstelle] where grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "'", "AVISO")
Dim dt = SQL.loadDgvBySql("SELECT [grz_Grenzstelle],grz_BezeichnungCBO FROM [tblGrenzstelle] where grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "'", "AVISO")
If dt IsNot Nothing Then
dt.Rows.Add({"???", "??? - andere"})
For Each r As DataRow In dt.Rows
@@ -1654,7 +1654,7 @@ Public Class frmSendungsdetailsNEU
Case 44
usrcntl_ATB.txtATBT1.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_T1, "")
usrcntl_ATB.txtATBNr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_Nr, "")
usrcntl_ATB.txtT1Datum.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_T1_Frist, "")
usrcntl_ATB.txtT1Datum._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_T1_Frist, "")
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren Is Nothing Then
usrcntl_ATB.cbxATBFakturieren.CheckState = CheckState.Indeterminate
@@ -2100,7 +2100,7 @@ Public Class frmSendungsdetailsNEU
If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_ATBGestellung) Then
SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_T1 = usrcntl_ATB.txtATBT1.Text
SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_Nr = usrcntl_ATB.txtATBNr.Text
SENDUNG_LIST(CURRENT_INDEX).tblSnd_T1_Frist = usrcntl_ATB.txtT1Datum.Text
SENDUNG_LIST(CURRENT_INDEX).tblSnd_T1_Frist = usrcntl_ATB.txtT1Datum._value
Select Case usrcntl_ATB.cbxATBFakturieren.CheckState
Case CheckState.Indeterminate : SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren = Nothing