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

Formulare Qualitätskontrolle

Browse Source
This commit is contained in:
d.breimaier
2023-10-31 17:10:15 +01:00
parent 6ddae9aa69
commit b066eee7fe
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -4166,7 +4166,7 @@ Public Class FormularManagerNEU
Shared Function Qualitaetskontrolle(usrCntl As usrCntlQualitaetskontrolle) As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
'Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
@@ -4274,9 +4274,9 @@ Public Class FormularManagerNEU
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLand.Text, 25, 188, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPLZ.Text, 45, 188, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
fm.fillPDF("Qualitatskontrolle", Nothing, list, , , , , , )
'fm.fillPDF("Qualitatskontrolle", Nothing, list, , , , , , )
'Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Qualitatskontrolle", listTowrite)
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Qualitatskontrolle", listTowrite)
Return ""

3
SDL/kassenbuch/KassenbuchSuche/usrCntlQualitaetskontrolle.vb
View File

@@ -233,7 +233,8 @@ Public Class usrCntlQualitaetskontrolle
' Tabelle zsAnmGdsitem lesen.
Dim DTzsAnmGdsitem As DataTable = KDSQL.loadDgvBySql("SELECT item.ItNr ,item.GdsDes, item.Net, pack.Kind, pack.Nr, item.Orig" &
" FROM zsAnmGdsitem as item" &
" INNER JOIN zsAnmGdsItemPack as pack ON item.LizenzNr = pack.LizenzNr And item.OperatorID = pack.OperatorID and item.VorgangID = pack.VorgangID and pack.AnmID = item.AnmID" &
" INNER JOIN
as pack ON item.LizenzNr = pack.LizenzNr And item.OperatorID = pack.OperatorID and item.VorgangID = pack.VorgangID and pack.AnmID = item.AnmID" &
" WHERE (item.LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (item.OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (item.VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (item.AnmID = " & DR_zsAnmRefs.Item("AnmID") & " and item.GdsItemID = pack.GdsItemID)" &
" ORDER BY item.GdsItemID", "EZOLL")