Qualitätskontrolle
This commit is contained in:
@@ -284,6 +284,8 @@ Public Class frmFormulare
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Qualitätskontrolle Antrag", FormularManagerArten.Qualitaetskontrolle))
|
||||
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))
|
||||
|
||||
|
||||
@@ -769,6 +771,23 @@ Public Class frmFormulare
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
|
||||
Case FormularManagerArten.Qualitaetskontrolle
|
||||
Dim displayName = ""
|
||||
Dim c As usrCntlQualitaetskontrolle
|
||||
If param Is Nothing Then
|
||||
c = New usrCntlQualitaetskontrolle
|
||||
Else
|
||||
c = New usrCntlQualitaetskontrolle(param)
|
||||
End If
|
||||
If ControlExists_addOK(c.GetType.ToString) Then
|
||||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||||
c.KdNR = KdNr
|
||||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -1347,6 +1366,8 @@ Public Class FormularManagerNEU
|
||||
striList = FormularManagerNEU.VerzollungsunterlagenBAR(c, listMail)
|
||||
Case GetType(usrcntlVerzollungsunterlagen_Verbringsungsnachweis).ToString
|
||||
striList = FormularManagerNEU.Verzollungsunterlagen_Verbringungsnachweis(c, listMail)
|
||||
Case GetType(usrCntlQualitaetskontrolle).ToString
|
||||
retStr = FormularManagerNEU.Qualitaetskontrolle(c)
|
||||
|
||||
Case GetType(usrcntlQS_UeDok).ToString
|
||||
retStr = FormularManagerNEU.QS_UeDok(c)
|
||||
@@ -4141,6 +4162,127 @@ Public Class FormularManagerNEU
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
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 list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
|
||||
|
||||
|
||||
If usrCntl.dtpBeschauDat IsNot Nothing AndAlso IsDate((usrCntl.dtpBeschauDat.Value)) Then
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datum", usrCntl.dtpBeschauDat.Value.ToString))
|
||||
End If
|
||||
|
||||
'list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Teilnehmer", usrCntl.bb_Teilnehmer.ToString))
|
||||
|
||||
'list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Geschäftsführer", BB.bb_Geschaeftsfuehrer.ToString))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ansprechpartner", BB.bb_Anpsprechpartner.ToString))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firma", txtFirma.Text))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Umatz", BB.bb_Umsatz)) 'ACHTUNG -> im Formular wurde das Feld "Umatz" benannt, nicht korrigieren!
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Telefon", BB.bb_Telefon.ToString))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Mail", BB.bb_Mail.ToString))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKWEigentum", BB.bb_FuhrparkEigentum.ToString))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKWLeasing", BB.bb_FuhrparkLeasing.ToString))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftraggeber", BB.bb_Auftraggeber.ToString))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TransportRouten", BB.bb_Route.ToString))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DerzeitigerAnbieter", BB.bb_DerzeitigerLieferant.ToString))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Bericht", BB.bb_Vermerk.ToString))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Garentie", BB.bb_Garantie)) 'ACHTUNG -> im Formular wurde das Feld "Garentie" benannt, nicht korrigieren!
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Plane", IIf(BB.bb_LKW_Plane = True, "On", "Off")))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kühltransporte", IIf(BB.bb_LKW_Kuehltranporte = True, "On", "Off")))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sondertransporte", IIf(BB.bb_LKW_Sondertransporte = True, "On", "Off")))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sprinter", IIf(BB.bb_LKW_Sprinter = True, "On", "Off")))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SiloTank", IIf(BB.bb_LKW_SiloTank = True, "On", "Off")))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Zollabfertigung", IIf(BB.bb_Interesse_Zollabfertigung = True, "On", "Off")))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Brexit", IIf(BB.bb_Interesse_Brexit = True, "On", "Off")))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Parkplatz", IIf(BB.bb_Interesse_Parkplatz = True, "On", "Off")))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LagerUmladung", IIf(BB.bb_Interesse_LagerUmschlag = True, "On", "Off")))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rola", IIf(BB.bb_Interesse_Rola = True, "On", "Off")))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YesMoney", IIf(BB.bb_Interesse_YesMoney = True, "On", "Off")))
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ferry", IIf(BB.bb_Interesse_Ferry = True, "On", "Off")))
|
||||
|
||||
|
||||
|
||||
Select Case usrCntl.cbxTyp.SelectedItem.value
|
||||
|
||||
Case "O"
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On"))
|
||||
|
||||
Case "B"
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On"))
|
||||
|
||||
Case "E"
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On"))
|
||||
|
||||
End Select
|
||||
|
||||
Select Case usrCntl.cbxEinf.SelectedItem.value
|
||||
|
||||
Case "A"
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On"))
|
||||
|
||||
Case "E"
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On"))
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cbxUrsprungslang.SelectedItem.Text, 61, 85, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cbxBestimmungsland.SelectedItem.Text, 115, 85, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
'----------------------
|
||||
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 25, 98, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 25, 105, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text, 25, 198, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 25, 208, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.MyTextBox2.Text, 25, 218, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
'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, , , , , , )
|
||||
|
||||
'Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Qualitatskontrolle", listTowrite)
|
||||
|
||||
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function FiskalInfoschreiben(usrCntl As usrcntlFiskalInfoschreiben) As String
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
@@ -5701,6 +5843,8 @@ Public Class FormularManagerArten
|
||||
Shared Property Rechnungsbestaetigung = "Rechnungsbestaetigung"
|
||||
Shared Property Zollbeschau_Protokoll = "Zollbeschau Protokoll"
|
||||
|
||||
Shared Property Qualitaetskontrolle = "Qualitätskontrolle"
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user