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

NCTS 5

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-24 23:04:33 +02:00
parent c9ef013f2b
commit 04166a91f0
31 changed files with 10589 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlVerpflichtungserklärungFahrer.vb
View File

@@ -212,6 +212,25 @@
Dim notFoundTMP = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & " " & SENDUNG.tblSnd_Empfaenger & vbNewLine
'Dakosy--NCTS004----------------------------------------
If SENDUNG.FilialenNr > 0 And SENDUNG.AbfertigungsNr > 0 Then
Dim DyPos = SENDUNG.AbfertigungsNr.ToString
If SENDUNG.AbfertigungsNr.ToString.Length >= 8 Then
DyPos = CInt(SENDUNG.AbfertigungsNr.ToString.Substring(2))
End If
Dim dt As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("Select [ncts_Id] FROM [tblDakosy_NCTSOut004] WHERE (ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "%' OR ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "-" & SENDUNG.AbfertigungsNr & "%' OR ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "/" & DyPos & "' OR ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "-" & DyPos & "' OR ncts_ObjectName='" & SENDUNG.tblSnd_DakosyRef & "') AND ncts_Status between '50' and '60' ORDER BY ncts_ObjectName", "FMZOLL")
' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
For Each row As DataRow In dt.Rows
Dim DY As New DAKOSY_Worker.cDakosyNCTSOut004(row("ncts_Id"))
If DY IsNot Nothing AndAlso DY.ncts_MRN IsNot Nothing Then
MyDatagridview1.Rows.Add(DY.ncts_MRN)
End If
Next
notFoundTMP = ""
' Else
End If
'Dakosy------------------------------------------
If SENDUNG.FilialenNr > 0 And SENDUNG.AbfertigungsNr > 0 Then
Dim DyPos = SENDUNG.AbfertigungsNr.ToString
@@ -230,6 +249,7 @@
notFoundTMP = ""
' Else
End If
'E-ZOLL--------------------------------------
If SENDUNG.FilialenNr > 0 And SENDUNG.AbfertigungsNr > 0 Then