Nacherfassung Abf.Land; NCTS 004 Anpassungen

2023-10-11 13:27:39 +02:00
parent 4fea6e3470
commit aa26988458
11 changed files with 274 additions and 144 deletions
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.Designer.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.Designer.vb
@@ -23,6 +23,8 @@ Partial Class usrCntlATLAS_NCTS004_Allg
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.pnl = New System.Windows.Forms.Panel()
+        Me.Label22 = New System.Windows.Forms.Label()
+        Me.cboVerfahrensart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxWegStrecke = New System.Windows.Forms.CheckBox()
        Me.lblWegstreckeVonNach = New System.Windows.Forms.Label()
        Me.lblWegZeit = New System.Windows.Forms.Label()
@@ -97,8 +99,7 @@ Partial Class usrCntlATLAS_NCTS004_Allg
        Me.Label7 = New System.Windows.Forms.Label()
        Me.txtLadeort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtEntladeort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.cboVerfahrensart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.Label22 = New System.Windows.Forms.Label()
+        Me.sbArtGrenzUeberschreitung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
        Me.pnl.SuspendLayout()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
@@ -108,6 +109,7 @@ Partial Class usrCntlATLAS_NCTS004_Allg
        '
        'pnl
        '
+        Me.pnl.Controls.Add(Me.sbArtGrenzUeberschreitung)
        Me.pnl.Controls.Add(Me.Label22)
        Me.pnl.Controls.Add(Me.cboVerfahrensart)
        Me.pnl.Controls.Add(Me.cbxWegStrecke)
@@ -180,6 +182,27 @@ Partial Class usrCntlATLAS_NCTS004_Allg
        Me.pnl.Size = New System.Drawing.Size(930, 503)
        Me.pnl.TabIndex = 0
        '
+        'Label22
+        '
+        Me.Label22.Location = New System.Drawing.Point(1, 84)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(135, 13)
+        Me.Label22.TabIndex = 65
+        Me.Label22.Text = "Verfahrensart:"
+        Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cboVerfahrensart
+        '
+        Me.cboVerfahrensart._allowedValuesFreiText = Nothing
+        Me.cboVerfahrensart._allowFreiText = False
+        Me.cboVerfahrensart._value = ""
+        Me.cboVerfahrensart.DropDownWidth = 350
+        Me.cboVerfahrensart.FormattingEnabled = True
+        Me.cboVerfahrensart.Location = New System.Drawing.Point(142, 81)
+        Me.cboVerfahrensart.Name = "cboVerfahrensart"
+        Me.cboVerfahrensart.Size = New System.Drawing.Size(140, 21)
+        Me.cboVerfahrensart.TabIndex = 64
+        '
        'cbxWegStrecke
        '
        Me.cbxWegStrecke.AutoSize = True
@@ -333,10 +356,11 @@ Partial Class usrCntlATLAS_NCTS004_Allg
        Me.cboArtGrenzUeberschreitung._value = ""
        Me.cboArtGrenzUeberschreitung.DropDownWidth = 350
        Me.cboArtGrenzUeberschreitung.FormattingEnabled = True
-        Me.cboArtGrenzUeberschreitung.Location = New System.Drawing.Point(315, 325)
+        Me.cboArtGrenzUeberschreitung.Location = New System.Drawing.Point(470, 332)
        Me.cboArtGrenzUeberschreitung.Name = "cboArtGrenzUeberschreitung"
        Me.cboArtGrenzUeberschreitung.Size = New System.Drawing.Size(41, 21)
        Me.cboArtGrenzUeberschreitung.TabIndex = 41
+        Me.cboArtGrenzUeberschreitung.Visible = False
        '
        'Label17
        '
@@ -1409,26 +1433,30 @@ Partial Class usrCntlATLAS_NCTS004_Allg
        Me.txtEntladeort.Size = New System.Drawing.Size(214, 20)
        Me.txtEntladeort.TabIndex = 35
        '
-        'cboVerfahrensart
+        'sbArtGrenzUeberschreitung
        '
-        Me.cboVerfahrensart._allowedValuesFreiText = Nothing
-        Me.cboVerfahrensart._allowFreiText = False
-        Me.cboVerfahrensart._value = ""
-        Me.cboVerfahrensart.DropDownWidth = 350
-        Me.cboVerfahrensart.FormattingEnabled = True
-        Me.cboVerfahrensart.Location = New System.Drawing.Point(142, 81)
-        Me.cboVerfahrensart.Name = "cboVerfahrensart"
-        Me.cboVerfahrensart.Size = New System.Drawing.Size(140, 21)
-        Me.cboVerfahrensart.TabIndex = 64
-        '
-        'Label22
-        '
-        Me.Label22.Location = New System.Drawing.Point(1, 84)
-        Me.Label22.Name = "Label22"
-        Me.Label22.Size = New System.Drawing.Size(135, 13)
-        Me.Label22.TabIndex = 65
-        Me.Label22.Text = "Verfahrensart:"
-        Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.sbArtGrenzUeberschreitung._allowFreitext = False
+        Me.sbArtGrenzUeberschreitung._AllowSetValue = False
+        Me.sbArtGrenzUeberschreitung._allowSpaceAsSplitter = False
+        Me.sbArtGrenzUeberschreitung._autoSizeGross = False
+        Me.sbArtGrenzUeberschreitung._hideIfListEmpty = True
+        Me.sbArtGrenzUeberschreitung._value = ""
+        Me.sbArtGrenzUeberschreitung.conn_art = "FMZOLL"
+        Me.sbArtGrenzUeberschreitung.dgvpos = "LEFT"
+        Me.sbArtGrenzUeberschreitung.DISPLAY_PARAM = Nothing
+        Me.sbArtGrenzUeberschreitung.INVISIBLE_COLUMNS = Nothing
+        Me.sbArtGrenzUeberschreitung.key_visible = False
+        Me.sbArtGrenzUeberschreitung.KEYPARAM = Nothing
+        Me.sbArtGrenzUeberschreitung.Location = New System.Drawing.Point(315, 325)
+        Me.sbArtGrenzUeberschreitung.Name = "sbArtGrenzUeberschreitung"
+        Me.sbArtGrenzUeberschreitung.searchActive = True
+        Me.sbArtGrenzUeberschreitung.Size = New System.Drawing.Size(42, 20)
+        Me.sbArtGrenzUeberschreitung.SQL_ORDER_BY = Nothing
+        Me.sbArtGrenzUeberschreitung.SQL_SELECT = Nothing
+        Me.sbArtGrenzUeberschreitung.SQL_WHERE = Nothing
+        Me.sbArtGrenzUeberschreitung.SQL_WhereParamList = Nothing
+        Me.sbArtGrenzUeberschreitung.TabIndex = 66
+        Me.sbArtGrenzUeberschreitung.usrcntl = Nothing
        '
        'usrCntlATLAS_NCTS004_Allg
        '
@@ -1525,4 +1553,5 @@ Partial Class usrCntlATLAS_NCTS004_Allg
    Friend WithEvents cbxWegStrecke As CheckBox
    Friend WithEvents Label22 As Label
    Friend WithEvents cboVerfahrensart As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents sbArtGrenzUeberschreitung As VERAG_PROG_ALLGEMEIN.MySearchBox
 End Class
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.vb
@@ -109,20 +109,23 @@
        cboVerkehrszweig.changeItem("3")


-        cboArtGrenzUeberschreitung.Items.Clear()
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeschiff", "10"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Waggon", "20"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Pkw", "31"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Pkw mit Anhänger", "32"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Lkw", "33"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Lkw mit Anhänger", "34"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("35 - Zugmaschine mit Auflieger ", "35"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Flugzeug", "40"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Binnenschiff", "50"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("60 - Eigener Antrieb", "60"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtung", "70"))
-        cboArtGrenzUeberschreitung.changeItem("35")
+
+        sbArtGrenzUeberschreitung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0219_TypeTransportMeans", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
+
+        'cboArtGrenzUeberschreitung.Items.Clear()
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeschiff", "10"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Waggon", "20"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Pkw", "31"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Pkw mit Anhänger", "32"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Lkw", "33"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Lkw mit Anhänger", "34"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("35 - Zugmaschine mit Auflieger ", "35"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Flugzeug", "40"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Binnenschiff", "50"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("60 - Eigener Antrieb", "60"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtung", "70"))
+        'cboArtGrenzUeberschreitung.changeItem("35")


        cboBesondereUmstaende.Items.Clear()
@@ -228,7 +231,8 @@
        ' NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = cProgramFunctions.isLeerNothing(txtKennzeichenGrenze._value)
        ' NCTS.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = cProgramFunctions.isLeerNothing(sbKennzeichenGrenzeLand._value)

-        NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification = cProgramFunctions.isLeerNothing(cboArtGrenzUeberschreitung._value)
+        '  NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification = cProgramFunctions.isLeerNothing(cboArtGrenzUeberschreitung._value)
+        NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification = cProgramFunctions.isLeerNothing(sbArtGrenzUeberschreitung._value)
        ' NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = cProgramFunctions.isLeerNothing(cboVerkehrszweig._value)
        NCTS.ncts_SpecificCircomstanceIndicator = cProgramFunctions.isLeerNothing(cboBesondereUmstaende._value)
        NCTS.ncts_TransportCharges = cProgramFunctions.isLeerNothing(cboZahlungsweiseBefKosten._value)
@@ -299,7 +303,8 @@
        'sbKennzeichenGrenzeLand.SET_VALUE(If(NCTS.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode, ""))


-        cboArtGrenzUeberschreitung.changeItem(NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification)
+        'cboArtGrenzUeberschreitung.changeItem(NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification)
+        sbArtGrenzUeberschreitung.SET_VALUE(NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification)
        ' cboVerkehrszweig.changeItem(NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent)

        cboBesondereUmstaende.changeItem(NCTS.ncts_SpecificCircomstanceIndicator)
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb
@@ -1222,6 +1222,7 @@ Class DAKOSY_Interface_SEND
        XML.EinzelVersandanmeldung.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL"
        XML.EinzelVersandanmeldung.ObjektIdentifizierung = New VersandanmeldungNCTSDE_004.ObjektIdentifizierungVATyp
        XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektName = cDY.ncts_ObjectName
+
        If cDY.ncts_ObjectAlias IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAliasname = cDY.ncts_ObjectAlias
        Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion)
        XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAktion = ObjektAktion
@@ -1506,6 +1507,7 @@ Class DAKOSY_Interface_SEND
        If cDY.ncts_PlaceOfLoading_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfLoading.Country = cDY.ncts_PlaceOfLoading_Country
        If cDY.ncts_PlaceOfUnLoading_Location IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfUnloading.Location = cDY.ncts_PlaceOfUnLoading_Location
        If cDY.ncts_PlaceOfUnLoading_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfUnloading.Country = cDY.ncts_PlaceOfUnLoading_Country
+        If cDY.ncts_ObjectName IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReferenceNumberUCR = cDY.ncts_ObjectName

        If cDY.ncts_TransportCharges IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TransportCharges = cDY.ncts_TransportCharges

--- a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb
@@ -67,13 +67,21 @@

    Sub editSelected()
        If dgvStammref.SelectedRows.Count > 0 Then
-            Dim ZA As New DAKOSY_Worker.cDakosy_Zollanmeldungen(dgvStammref.SelectedRows(0).Cells("dySr_dyId").Value)
+            Dim ZA As DAKOSY_Worker.cDakosy_Zollanmeldungen
+            If dgvStammref.SelectedRows(0).Cells("dySr_dyId").Value Is DBNull.Value Then
+                ZA = New DAKOSY_Worker.cDakosy_Zollanmeldungen
+                ZA.SAVE()
+            Else
+                ZA = New DAKOSY_Worker.cDakosy_Zollanmeldungen(dgvStammref.SelectedRows(0).Cells("dySr_dyId").Value)
+            End If
+
            If ZA.dy_Id <= 0 Then ZA.SAVE()
            ' MsgBox(dgvStammref.SelectedRows(0).Cells("dySr_dyId").Value)
            Dim f As New frmZollanmeldung(cboVerfahren._value, ZA)
            f.isSTAMMREF = True
            f.STAMMREF = dgvStammref.SelectedRows(0).Cells("dySr_Stammreferenz").Value
            f.ShowDialog(Me)
+
            SQL.doSQL("UPDATE [tblDakosy_Stammreferenzen] SET dySr_dyId='" & ZA.dy_Id & "' WHERE dySr_Id='" & dgvStammref.SelectedRows(0).Cells("dySr_Id").Value & "'", "FMZOLL")

            initDGV()
@@ -166,10 +174,15 @@
                EZA.eza_dyaAnmID = ZA.dy_Id
                EZA.SAVE()
            Case "NCTS"
-                Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut.LOADByAnmIDFull(AnmID, True)
+                Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut004.LOADByAnmIDFull(AnmID, True)
                NCTS.ncts_Id = -1
                NCTS.ncts_dyaAnmID = ZA.dy_Id
                NCTS.SAVE()
+            'Case "NCTS"
+            '    Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut.LOADByAnmIDFull(AnmID, True)
+            '    NCTS.ncts_Id = -1
+            '    NCTS.ncts_dyaAnmID = ZA.dy_Id
+            '    NCTS.SAVE()
            Case "AES"
                Dim AES = DAKOSY_Worker.cDakosyAES.LOADByAnmIDFull(AnmID, True)
                AES.aes_Id = -1