vers, tr bank, lagervertrag

2025-06-04 10:10:07 +02:00
parent 6ed6fd9fa7
commit c47adbc7cb
6 changed files with 190 additions and 292 deletions
--- a/SDL/Formulare/KDFormulare/frmFormulare.vb
+++ b/SDL/Formulare/KDFormulare/frmFormulare.vb
@@ -252,6 +252,9 @@ Public Class frmFormulare
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Zollbeschau Protokoll", FormularManagerArten.Zollbeschau_Protokoll))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))

+                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lagervertrag", FormularManagerArten.Lagervertrag))
+
+
                cboVorlage.Items.Clear()
                cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
                cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
@@ -864,6 +867,19 @@ Public Class frmFormulare
                    AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                    MyFlowLayoutPanel1.Controls.Add(c)

+                Case FormularManagerArten.Lagervertrag
+                    Dim c As New usrcntLagervertrag
+                    If ControlExists_addOK(c.GetType.ToString) Then
+                        c.Width = MyFlowLayoutPanel1.Width - 6
+                        c.KdNR = KdNr
+                        AddHandler c.CHANGED, AddressOf ValueChanged
+                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
+                        AddHandler c.DELETE, AddressOf ControlDELETE
+                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
+                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
+                        MyFlowLayoutPanel1.Controls.Add(c)
+                    End If
+

                Case Else '"VUB_AG", "VUB_CS"
                    Dim displayName = ""
@@ -1496,6 +1512,10 @@ Public Class FormularManagerNEU
            Case GetType(usrcntlVollmacht_MDM_NICHT_EU).ToString
                striList = FormularManagerNEU.VM_MDM_NICHT_EU(c, printReportElsePdf, printerName, openWord)

+            Case GetType(usrcntLagervertrag).ToString
+                retStr = FormularManagerNEU.LAGERVERTRAG(c)
+
+
        End Select
        If retStr <> "" Then
            striList.Add(retStr)
@@ -1560,6 +1580,65 @@ Public Class FormularManagerNEU
    End Function


+    Shared Function LAGERVERTRAG(usrCntl As usrcntLagervertrag) As String
+
+        'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
+        'Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
+
+        'Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, 74, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+        'Dim top = 0
+        'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+        '    top = 25
+        'End If
+
+        'Select Case usrCntl.cboSprache._value
+        '    Case "EN"
+        '        Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite)
+        '    Case Else
+        '        Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite)
+        'End Select
+        'Return ""
+
+
+        'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
+        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
+
+        Dim Top = -10
+        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, top + 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, top + 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, top + 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, Top + 70, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, Top + 70, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtDauer.Text, 40, Top + 78, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+
+
+
+        Select Case usrCntl.cboSprache._value
+            Case "EN"
+                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite)
+            Case Else
+                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite)
+        End Select
+        Return ""
+
+
+    End Function
    Shared Function VM_De(usrCntl As usrcntlVollmacht_DE) As String

        'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
@@ -1567,17 +1646,17 @@ Public Class FormularManagerNEU

        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)

-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        Dim top = 0
        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
@@ -6799,6 +6878,7 @@ Public Class FormularManagerArten
    Shared Property Zollbeschau_Protokoll = "Zollbeschau Protokoll"
    Shared Property Qualitaetskontrolle = "Qualitätskontrolle"
    Shared Property Einfuhrverbot = "Y824 / EU VO 833/2014"
+    Shared Property Lagervertrag = "Lagervertrag"

 End Class