Formulare Qualitätskontrolle

This commit is contained in:
2023-10-31 17:10:15 +01:00
parent 6ddae9aa69
commit b066eee7fe
2 changed files with 5 additions and 4 deletions

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 ""