neu

2020-06-22 13:33:07 +02:00
parent f4e823ec69
commit 9b52ab1b61
43 changed files with 1985 additions and 250 deletions
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.Designer.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.Designer.vb
@@ -42,6 +42,8 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
        Me.Label12 = New System.Windows.Forms.Label()
        Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbx = New System.Windows.Forms.CheckBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtLKWContainer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
@@ -143,6 +145,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
        '
        'txtFirma
        '
+        Me.txtFirma._AlleFirmenCLUSTER = False
        Me.txtFirma._AllowSetValue = True
        Me.txtFirma._autoSizeGross = False
        Me.txtFirma._display_Name1 = True
@@ -151,6 +154,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
        Me.txtFirma._displayWoelflKd = False
        Me.txtFirma._hideIfListEmpty = True
        Me.txtFirma._loadKdData = True
+        Me.txtFirma._UseFIRMA = ""
        Me.txtFirma._ValueKdAndName = False
        Me.txtFirma.dgvpos = "LEFT"
        Me.txtFirma.KdName = Nothing
@@ -163,6 +167,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
        Me.txtFirma.searchActive = True
        Me.txtFirma.Size = New System.Drawing.Size(709, 20)
        Me.txtFirma.TabIndex = 15
+        Me.txtFirma.TIMER_SEARCH = True
        Me.txtFirma.usrcntl = Nothing
        '
        'cboFiliale
@@ -247,10 +252,10 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
        'Label2
        '
        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(170, 109)
+        Me.Label2.Location = New System.Drawing.Point(170, 135)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(31, 13)
-        Me.Label2.TabIndex = 17
+        Me.Label2.TabIndex = 19
        Me.Label2.Text = "Text:"
        '
        'cboTEXT
@@ -259,10 +264,10 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
        Me.cboTEXT._allowFreiText = False
        Me.cboTEXT._value = ""
        Me.cboTEXT.FormattingEnabled = True
-        Me.cboTEXT.Location = New System.Drawing.Point(254, 106)
+        Me.cboTEXT.Location = New System.Drawing.Point(254, 132)
        Me.cboTEXT.Name = "cboTEXT"
        Me.cboTEXT.Size = New System.Drawing.Size(183, 21)
-        Me.cboTEXT.TabIndex = 18
+        Me.cboTEXT.TabIndex = 20
        '
        'Label12
        '
@@ -296,12 +301,44 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
        Me.cbx.Text = "Anhänge zurücksetzen"
        Me.cbx.UseVisualStyleBackColor = True
        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(170, 108)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(84, 13)
+        Me.Label3.TabIndex = 17
+        Me.Label3.Text = "LKW/Container:"
+        '
+        'txtLKWContainer
+        '
+        Me.txtLKWContainer._DateTimeOnly = False
+        Me.txtLKWContainer._numbersOnly = False
+        Me.txtLKWContainer._numbersOnlyKommastellen = ""
+        Me.txtLKWContainer._Prozent = False
+        Me.txtLKWContainer._ShortDateNew = False
+        Me.txtLKWContainer._ShortDateOnly = False
+        Me.txtLKWContainer._TimeOnly = False
+        Me.txtLKWContainer._value = Nothing
+        Me.txtLKWContainer._Waehrung = False
+        Me.txtLKWContainer._WaehrungZeichen = True
+        Me.txtLKWContainer.ForeColor = System.Drawing.Color.Black
+        Me.txtLKWContainer.Location = New System.Drawing.Point(254, 105)
+        Me.txtLKWContainer.MaxLineLength = -1
+        Me.txtLKWContainer.MaxLines_Warning = ""
+        Me.txtLKWContainer.MaxLines_Warning_Label = Nothing
+        Me.txtLKWContainer.Name = "txtLKWContainer"
+        Me.txtLKWContainer.Size = New System.Drawing.Size(709, 20)
+        Me.txtLKWContainer.TabIndex = 18
+        '
        'usrcntlVerzollungsunterlagen_BAR
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.WhiteSmoke
        Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Controls.Add(Me.txtLKWContainer)
+        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label12)
        Me.Controls.Add(Me.cboSprache)
        Me.Controls.Add(Me.Label2)
@@ -323,7 +360,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.cbx)
        Me.Name = "usrcntlVerzollungsunterlagen_BAR"
-        Me.Size = New System.Drawing.Size(1000, 147)
+        Me.Size = New System.Drawing.Size(1000, 171)
        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()
@@ -349,4 +386,6 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
    Friend WithEvents Label12 As Label
    Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents cbx As CheckBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents txtLKWContainer As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.vb
@@ -125,16 +125,16 @@
    Private Sub cboRechnungAn_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRechnungAn.SelectedIndexChanged
        If SPEDBUCH IsNot Nothing Then
            Select Case cboRechnungAn._value
-                Case "1" : loadAdressen(SPEDBUCH.AbsenderKundenNr)
-                Case "2" : loadAdressen(SPEDBUCH.EmpfängerKundenNr)
-                Case "3" : loadAdressen(SPEDBUCH.VermittlerKundenNr)
-                Case "4" : loadAdressen(SPEDBUCH.AvisiererKundenNr)
-                Case Else : loadAdressen(-1)
+                Case "1" : loadAdressen(SPEDBUCH.AbsenderKundenNr, SPEDBUCH.LKW_Kennzeichen)
+                Case "2" : loadAdressen(SPEDBUCH.EmpfängerKundenNr, SPEDBUCH.LKW_Kennzeichen)
+                Case "3" : loadAdressen(SPEDBUCH.VermittlerKundenNr, SPEDBUCH.LKW_Kennzeichen)
+                Case "4" : loadAdressen(SPEDBUCH.AvisiererKundenNr, SPEDBUCH.LKW_Kennzeichen)
+                Case Else : loadAdressen(-1, "")
            End Select
        End If
    End Sub

-    Sub loadAdressen(KdNr)
+    Sub loadAdressen(KdNr, Optional LKW_Kz = Nothing)
        Me.KdNR = KdNr
        If KdNr IsNot Nothing AndAlso IsNumeric(KdNr) AndAlso KdNr > 0 Then
            Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
@@ -147,7 +147,7 @@
            '   txtFirma2.Text = ""
            txtAdresse1.Text = ""
        End If
-
+        If LKW_Kz IsNot Nothing Then txtLKWContainer.Text = LKW_Kz.ToString

    End Sub

--- a/SDL/Formulare/KDFormulare/frmFormulare.vb
+++ b/SDL/Formulare/KDFormulare/frmFormulare.vb
@@ -1104,6 +1104,7 @@ Public Class frmFormulare
                Case FormularVorlagenGruppe.NeukundeDEFiskal
                    MyFlowLayoutPanel1.Controls.Clear()
                    addForm(FormularManagerArten.DE_Fiskal)
+                    addForm(FormularManagerArten.DE_Vollmacht)
                    addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL_DE"})
                    addForm(FormularManagerArten.VUB_AG)
                    addForm(FormularManagerArten.DE_InformationsblattFiskalverzollung)
@@ -1130,6 +1131,7 @@ Public Class frmFormulare
                Case FormularVorlagenGruppe.NeukundeDEFiskal_IMEX
                    MyFlowLayoutPanel1.Controls.Clear()
                    addForm(FormularManagerArten.DE_Fiskal)
+                    addForm(FormularManagerArten.DE_Vollmacht)
                    addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL_DE"})
                    addForm(FormularManagerArten.VUB_IMEX)
                    addForm(FormularManagerArten.DE_InformationsblattFiskalverzollung)
@@ -1530,6 +1532,7 @@ Public Class FormularManagerNEU
                                                  rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText
                                              Else
                                                  rpt.txtPosNr.Text = If(SND.FilialenNr > 0, SND.FilialenNr & "/", "") & If(SND.AbfertigungsNr > 0, SND.AbfertigungsNr, "-")
+                                                  rpt.txtPosNr.Text &= vbNewLine & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, False)
                                                  ' rpt.txtPosNr.Text &=  VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, True)
                                                  If anmerkung <> "" Then
                                                      rpt.txtAnmerkung.Text = "Anmerkung: " & anmerkung.Replace(vbNewLine, "; ").Replace(Chr(10), "; ").Replace(Chr(13), "; ")
@@ -1562,6 +1565,7 @@ Public Class FormularManagerNEU
                                                  Case "IMEX" : rpt.txtPosNr.Text &= vbNewLine & SND.tblSnd_KdAuftragsNrAvisierer
                                              End Select

+
                                              rpt.txtAbsender.Text = If(SND.tblSnd_Absender, "-")
                                              ' rpt.txtEmpfänger.Text = (If(SND.tblSnd_EmpfaengerKdNr > 0, SND.tblSnd_EmpfaengerKdNr, "") & " " & If(SND.tblSnd_Empfaenger, "")).Trim
                                              rpt.txtEmpfänger.Text = If(SND.tblSnd_Empfaenger, "").Trim
@@ -2438,6 +2442,38 @@ Public Class FormularManagerNEU
        Return ""
    End Function

+
+    Shared Function UID_PRUEFUNG(ErgebnisTXT, firma, sessionID, uidAntragsteller, uidAbfrage, tid, Optional AvisoId = -1, Optional SendungsId = -1) As String
+        Try
+            '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(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
+
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAbfrage, 73, 126, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(firma, 73, 133, 150, 30, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(tid, 73, 163, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAntragsteller, 73, 170, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 73, 179, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(sessionID, 73, 191, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+            ' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prüfung", listTowrite)
+            Dim PdfTmp = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prufung", listTowrite)
+
+            Return PdfTmp
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+            Return ""
+        End Try
+    End Function
+
    Shared Function VM_AT_EV(usrCntl As usrcntlVollmacht_AT_EV) As String
        'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
@@ -3288,6 +3324,12 @@ Public Class FormularManagerNEU
                posNr = "  Pos.Nr.: " & posNr
            End If

+            'LKW/Constainer-Nr. im Betreff angebgen:
+            If usrCntl.txtLKWContainer.Text <> "" Then
+                posNr &= " | LKW/Container.: " & usrCntl.txtLKWContainer.Text
+            End If
+
+
            Dim bool_StbFA = False

            MailHTMLText = "<div style=""font-family:Calibri, Arial"">"