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

Fakturierung Parkplatz (VERAG AG-DE), ATR

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-01-02 11:29:45 +01:00
parent 6973750294
commit 6d6c5e9415
13 changed files with 2425 additions and 99 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -232,23 +232,23 @@
' Else
End If
'Dakosy------------------------------------------
If SENDUNG.FilialenNr > 0 And SENDUNG.AbfertigungsNr > 0 Then
Dim DyPos = SENDUNG.AbfertigungsNr.ToString
If SENDUNG.AbfertigungsNr.ToString.Length >= 8 Then
'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_NCTSOut] 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.cDakosyNCTSOut(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
' DyPos = CInt(SENDUNG.AbfertigungsNr.ToString.Substring(2))
' End If
' Dim dt As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("Select [ncts_Id] FROM [tblDakosy_NCTSOut] 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.cDakosyNCTSOut(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
'E-ZOLL--------------------------------------
If SENDUNG.FilialenNr > 0 And SENDUNG.AbfertigungsNr > 0 Then