Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN
This commit is contained in:
@@ -8,6 +8,7 @@
|
||||
cboBrg.Items.Add(New MyListItem("Aufschub VERAG Zollservice GmbH (Österreich)", "4"))
|
||||
cboBrg.Items.Add(New MyListItem("Aufschub IMEX Customs Service GmbH", "8"))
|
||||
cboBrg.Items.Add(New MyListItem("Aufschub IMEX Customs Service GmbH (Österreich)", "13"))
|
||||
cboBrg.Items.Add(New MyListItem("Aufschub KARACA (Deutschland)", "27"))
|
||||
cboBrg.SelectedIndex = 0
|
||||
initDgv()
|
||||
|
||||
|
||||
74
VERAGMonitoring/frmMain.Designer.vb
generated
74
VERAGMonitoring/frmMain.Designer.vb
generated
@@ -25,6 +25,11 @@ Partial Class frmMain
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.lblAufschubBrgEUST_de_KARACA = New System.Windows.Forms.Label()
|
||||
Me.cbxAufschubEUST_de_KARACA = New System.Windows.Forms.CheckBox()
|
||||
Me.lblAufschubEUST_de_KARACA = New System.Windows.Forms.Label()
|
||||
Me.lblAufschubBrgEUST_de_KARACA_oE = New System.Windows.Forms.Label()
|
||||
Me.lblAufschubStatusEUST_de_KARACA = New System.Windows.Forms.Label()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.cbxBrg_at_VERAG_CS = New System.Windows.Forms.CheckBox()
|
||||
Me.lblBrg_at_VERAG_CS = New System.Windows.Forms.Label()
|
||||
@@ -173,6 +178,11 @@ Partial Class frmMain
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_KARACA)
|
||||
Me.Panel2.Controls.Add(Me.cbxAufschubEUST_de_KARACA)
|
||||
Me.Panel2.Controls.Add(Me.lblAufschubEUST_de_KARACA)
|
||||
Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_KARACA_oE)
|
||||
Me.Panel2.Controls.Add(Me.lblAufschubStatusEUST_de_KARACA)
|
||||
Me.Panel2.Controls.Add(Me.Button2)
|
||||
Me.Panel2.Controls.Add(Me.cbxBrg_at_VERAG_CS)
|
||||
Me.Panel2.Controls.Add(Me.lblBrg_at_VERAG_CS)
|
||||
@@ -303,6 +313,65 @@ Partial Class frmMain
|
||||
Me.Panel2.Size = New System.Drawing.Size(692, 627)
|
||||
Me.Panel2.TabIndex = 8
|
||||
'
|
||||
'lblAufschubBrgEUST_de_KARACA
|
||||
'
|
||||
Me.lblAufschubBrgEUST_de_KARACA.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblAufschubBrgEUST_de_KARACA.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.lblAufschubBrgEUST_de_KARACA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblAufschubBrgEUST_de_KARACA.Location = New System.Drawing.Point(434, 476)
|
||||
Me.lblAufschubBrgEUST_de_KARACA.Name = "lblAufschubBrgEUST_de_KARACA"
|
||||
Me.lblAufschubBrgEUST_de_KARACA.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.lblAufschubBrgEUST_de_KARACA.Size = New System.Drawing.Size(90, 13)
|
||||
Me.lblAufschubBrgEUST_de_KARACA.TabIndex = 98
|
||||
Me.lblAufschubBrgEUST_de_KARACA.Text = " 0 €"
|
||||
'
|
||||
'cbxAufschubEUST_de_KARACA
|
||||
'
|
||||
Me.cbxAufschubEUST_de_KARACA.AutoSize = True
|
||||
Me.cbxAufschubEUST_de_KARACA.Enabled = False
|
||||
Me.cbxAufschubEUST_de_KARACA.Location = New System.Drawing.Point(9, 477)
|
||||
Me.cbxAufschubEUST_de_KARACA.Name = "cbxAufschubEUST_de_KARACA"
|
||||
Me.cbxAufschubEUST_de_KARACA.Size = New System.Drawing.Size(15, 14)
|
||||
Me.cbxAufschubEUST_de_KARACA.TabIndex = 97
|
||||
Me.cbxAufschubEUST_de_KARACA.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblAufschubEUST_de_KARACA
|
||||
'
|
||||
Me.lblAufschubEUST_de_KARACA.AutoSize = True
|
||||
Me.lblAufschubEUST_de_KARACA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblAufschubEUST_de_KARACA.Location = New System.Drawing.Point(26, 477)
|
||||
Me.lblAufschubEUST_de_KARACA.Name = "lblAufschubEUST_de_KARACA"
|
||||
Me.lblAufschubEUST_de_KARACA.Size = New System.Drawing.Size(81, 13)
|
||||
Me.lblAufschubEUST_de_KARACA.TabIndex = 94
|
||||
Me.lblAufschubEUST_de_KARACA.Text = "* DE - KARACA"
|
||||
'
|
||||
'lblAufschubBrgEUST_de_KARACA_oE
|
||||
'
|
||||
Me.lblAufschubBrgEUST_de_KARACA_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblAufschubBrgEUST_de_KARACA_oE.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.lblAufschubBrgEUST_de_KARACA_oE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblAufschubBrgEUST_de_KARACA_oE.Location = New System.Drawing.Point(555, 476)
|
||||
Me.lblAufschubBrgEUST_de_KARACA_oE.Name = "lblAufschubBrgEUST_de_KARACA_oE"
|
||||
Me.lblAufschubBrgEUST_de_KARACA_oE.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.lblAufschubBrgEUST_de_KARACA_oE.Size = New System.Drawing.Size(90, 13)
|
||||
Me.lblAufschubBrgEUST_de_KARACA_oE.TabIndex = 95
|
||||
Me.lblAufschubBrgEUST_de_KARACA_oE.Text = " 0 €"
|
||||
'
|
||||
'lblAufschubStatusEUST_de_KARACA
|
||||
'
|
||||
Me.lblAufschubStatusEUST_de_KARACA.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblAufschubStatusEUST_de_KARACA.AutoSize = True
|
||||
Me.lblAufschubStatusEUST_de_KARACA.BackColor = System.Drawing.Color.Green
|
||||
Me.lblAufschubStatusEUST_de_KARACA.Cursor = System.Windows.Forms.Cursors.Help
|
||||
Me.lblAufschubStatusEUST_de_KARACA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblAufschubStatusEUST_de_KARACA.ForeColor = System.Drawing.Color.White
|
||||
Me.lblAufschubStatusEUST_de_KARACA.Location = New System.Drawing.Point(651, 476)
|
||||
Me.lblAufschubStatusEUST_de_KARACA.Name = "lblAufschubStatusEUST_de_KARACA"
|
||||
Me.lblAufschubStatusEUST_de_KARACA.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.lblAufschubStatusEUST_de_KARACA.Size = New System.Drawing.Size(22, 13)
|
||||
Me.lblAufschubStatusEUST_de_KARACA.TabIndex = 96
|
||||
Me.lblAufschubStatusEUST_de_KARACA.Text = "OK"
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
@@ -2080,4 +2149,9 @@ Partial Class frmMain
|
||||
Friend WithEvents lblAt_tag_StatusVERAG_CS As Label
|
||||
Friend WithEvents Button5 As Button
|
||||
Public WithEvents lblVersion As Label
|
||||
Friend WithEvents lblAufschubBrgEUST_de_KARACA As Label
|
||||
Friend WithEvents cbxAufschubEUST_de_KARACA As CheckBox
|
||||
Friend WithEvents lblAufschubEUST_de_KARACA As Label
|
||||
Friend WithEvents lblAufschubBrgEUST_de_KARACA_oE As Label
|
||||
Friend WithEvents lblAufschubStatusEUST_de_KARACA As Label
|
||||
End Class
|
||||
|
||||
@@ -102,6 +102,7 @@ Public Class frmMain
|
||||
allowCBX(cbxBrg_at_VERAG_CS, True)
|
||||
allowCBX(cbxAufschubEUST_de_UnispedDE, True)
|
||||
allowCBX(cbxAufschub_de_UnispedDE, True)
|
||||
allowCBX(cbxAufschubEUST_de_KARACA, True)
|
||||
End If
|
||||
|
||||
If brgusr_AdminUser Then
|
||||
@@ -829,6 +830,10 @@ Public Class frmMain
|
||||
doAufschubCalc("ZOLL", 14, cbxAufschub_de_UnispedDE, lblAufschubBrg_de_UNISPEDDE, lblAufschubBrg_de_UNISPEDDE_oE, lblAufschub_de_UNISPEDDE, lblAufschubStatus_de_UNISPEDDE) 'UNISPED(DE) DE - ZOLL
|
||||
doAufschubCalc("EUST", 15, cbxAufschubEUST_de_UnispedDE, lblAufschubBrgEUST_de_UNISPEDDE, lblAufschubBrgEUST_de_UNISPEDDE_oE, lblAufschubEUST_de_UNISPEDDE, lblAufschubStatusEUST_de_UNISPEDDE) 'UNISPED(DE) DE - EUST
|
||||
|
||||
'KARACA
|
||||
doAufschubCalc("ZOLL", 27, cbxAufschubEUST_de_KARACA, lblAufschubBrgEUST_de_KARACA, lblAufschubBrgEUST_de_KARACA_oE, lblAufschubBrgEUST_de_KARACA, lblAufschubStatusEUST_de_KARACA) 'UNISPED(DE) DE - ZOLL
|
||||
|
||||
|
||||
doAufschubCalc_AT("GESAMT", 13, cbxAufschub_at_IMEX, lblAufschubBrg_at_IMEX, Nothing, lblAufschub_at_IMEX, lblAufschubStatus_at_IMEX) 'IMEX AT - GESAMT
|
||||
|
||||
End Sub
|
||||
@@ -1255,7 +1260,7 @@ Public Class frmMain
|
||||
End Try
|
||||
Return True
|
||||
End Function
|
||||
Private Sub cbxBrg_de_VeragAG_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_de2_VeragAG.CheckedChanged, cbxBrg_at_VeragAG.CheckedChanged, cbxAufschub_de_VeragAG.CheckedChanged, cbxAufschub_at_VeragAG.CheckedChanged, cbxAufschub_at_VeragCS.CheckedChanged, cbxAufschub_at_VeragZS.CheckedChanged, cbxAufschubEUST_de_VeragAG.CheckedChanged, cbxAufschubEUST_de_Imex.CheckedChanged, cbxAufschubEUST_de_Global.CheckedChanged, cbxAufschub_de_Unisped.CheckedChanged, cbxAufschubEUST_de_Unisped.CheckedChanged, cbxAufschub_de_UnispedDE.CheckedChanged, cbxAufschubEUST_de_UnispedDE.CheckedChanged, cbxAufschub_at_IMEX.CheckedChanged, cbxBrg_at_UNISPED.CheckedChanged, cbxBrg_at_VERAG_CS.CheckedChanged, cbxBrg_at_Atilla.CheckedChanged, cbxBrg_at_Imex.CheckedChanged
|
||||
Private Sub cbxBrg_de_VeragAG_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_de2_VeragAG.CheckedChanged, cbxBrg_at_VeragAG.CheckedChanged, cbxAufschub_de_VeragAG.CheckedChanged, cbxAufschub_at_VeragAG.CheckedChanged, cbxAufschub_at_VeragCS.CheckedChanged, cbxAufschub_at_VeragZS.CheckedChanged, cbxAufschubEUST_de_VeragAG.CheckedChanged, cbxAufschubEUST_de_Imex.CheckedChanged, cbxAufschubEUST_de_Global.CheckedChanged, cbxAufschub_de_Unisped.CheckedChanged, cbxAufschubEUST_de_Unisped.CheckedChanged, cbxAufschub_de_UnispedDE.CheckedChanged, cbxAufschubEUST_de_UnispedDE.CheckedChanged, cbxAufschub_at_IMEX.CheckedChanged, cbxBrg_at_UNISPED.CheckedChanged, cbxBrg_at_VERAG_CS.CheckedChanged, cbxBrg_at_Atilla.CheckedChanged, cbxBrg_at_Imex.CheckedChanged, cbxAufschubEUST_de_KARACA.CheckedChanged
|
||||
'MsgBox(sender.name)
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
If loaded Then
|
||||
@@ -1747,6 +1752,16 @@ Public Class frmMain
|
||||
Dim f As New frmMRNStorno
|
||||
f.ShowDialog(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub lblAufschubBrgEUST_de_KARACA_oE_Click(sender As Object, e As EventArgs) Handles lblAufschubBrgEUST_de_KARACA_oE.Click
|
||||
If cbxAufschubEUST_de_UnispedDE.Checked Then
|
||||
Dim frmShowData As New frmShowData
|
||||
frmShowData.dgv.DataSource = getAufschubDT("EUST", 27)
|
||||
|
||||
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
|
||||
frmShowData.Show()
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
@@ -4108,95 +4108,95 @@ Public Class cWorker_NCTS
|
||||
|
||||
|
||||
If readNCTS_Ueberlassungsmeldung009 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
|
||||
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
|
||||
STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009
|
||||
STATUS.dySt_artMitteilung = "UEM"
|
||||
STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
|
||||
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
|
||||
STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009
|
||||
STATUS.dySt_artMitteilung = "UEM"
|
||||
STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
|
||||
|
||||
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50
|
||||
STATUS.dySt_ergCode = "MRN"
|
||||
STATUS.dySt_ergMitteilung = MRN
|
||||
STATUS.dySt_ergZeitpunkt = zp
|
||||
'EINTRAG IN tblDakosy_Zollanmeldungen
|
||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS")
|
||||
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN, True)
|
||||
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50
|
||||
STATUS.dySt_ergCode = "MRN"
|
||||
STATUS.dySt_ergMitteilung = MRN
|
||||
STATUS.dySt_ergZeitpunkt = zp
|
||||
'EINTRAG IN tblDakosy_Zollanmeldungen
|
||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS")
|
||||
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN, True)
|
||||
|
||||
|
||||
NCTS_TMP.ncts_Eroeffnung = zp
|
||||
NCTS_TMP.SAVE()
|
||||
NCTS_TMP.ncts_Eroeffnung = zp
|
||||
NCTS_TMP.SAVE()
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
'GARANTIE ÜBERSCHREIBEN:
|
||||
'If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee.Count > 0 Then
|
||||
' NCTS_TMP.ncts_GUARANTEE.Clear()
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
'GARANTIE ÜBERSCHREIBEN:
|
||||
'If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee.Count > 0 Then
|
||||
' NCTS_TMP.ncts_GUARANTEE.Clear()
|
||||
|
||||
' For Each GRT_M In NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee
|
||||
' For Each GRT_M In NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee
|
||||
|
||||
' For Each GRT In GRT_M.GuaranteeReference
|
||||
' Dim NCTS_GRT As New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee
|
||||
' For Each GRT In GRT_M.GuaranteeReference
|
||||
' Dim NCTS_GRT As New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee
|
||||
|
||||
|
||||
' NCTS_GRT.nctsGRT_Type = GRT_M.GuaranteeType
|
||||
' NCTS_GRT.nctsGRT_OtherGuaranteeReference = GRT_M.OtherGuaranteeReference
|
||||
' NCTS_GRT.nctsGRT_AmountToBeCovered = GRT.AmountToBeCovered
|
||||
' 'NCTS_GRT.nctsGRT_AccessCode = GRT.accessCode
|
||||
' NCTS_GRT.nctsGRT_GRN = GRT.GRN
|
||||
' NCTS_GRT.nctsGRT_Currency = GRT.Currency
|
||||
' NCTS_TMP.ncts_GUARANTEE.Add(NCTS_GRT)
|
||||
' NCTS_GRT.nctsGRT_Type = GRT_M.GuaranteeType
|
||||
' NCTS_GRT.nctsGRT_OtherGuaranteeReference = GRT_M.OtherGuaranteeReference
|
||||
' NCTS_GRT.nctsGRT_AmountToBeCovered = GRT.AmountToBeCovered
|
||||
' 'NCTS_GRT.nctsGRT_AccessCode = GRT.accessCode
|
||||
' NCTS_GRT.nctsGRT_GRN = GRT.GRN
|
||||
' NCTS_GRT.nctsGRT_Currency = GRT.Currency
|
||||
' NCTS_TMP.ncts_GUARANTEE.Add(NCTS_GRT)
|
||||
|
||||
' Next
|
||||
' Next
|
||||
' NCTS_TMP.SAVE_Guarantee()
|
||||
'End If
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
' Next
|
||||
' Next
|
||||
' NCTS_TMP.SAVE_Guarantee()
|
||||
'End If
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT
|
||||
' If TE.nctsTE_NumberOfSeals > 0 Then
|
||||
'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT
|
||||
' If TE.nctsTE_NumberOfSeals > 0 Then
|
||||
|
||||
' End If
|
||||
'Next
|
||||
' End If
|
||||
'Next
|
||||
|
||||
'If Verschluss_Anzahl > 0 Then
|
||||
' NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl
|
||||
' NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing)
|
||||
' NCTS_TMP.SAVE()
|
||||
'End If
|
||||
'If Verschluss_Anzahl > 0 Then
|
||||
' NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl
|
||||
' NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing)
|
||||
' NCTS_TMP.SAVE()
|
||||
'End If
|
||||
|
||||
|
||||
SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division)
|
||||
SaveNCTS004_WGDAT(NCTS_TMP, Wiedergestellungsdatum)
|
||||
SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division)
|
||||
SaveNCTS004_WGDAT(NCTS_TMP, Wiedergestellungsdatum)
|
||||
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
statusTMP = STATUS
|
||||
cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE
|
||||
' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
statusTMP = STATUS
|
||||
cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE
|
||||
' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
|
||||
|
||||
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
|
||||
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
|
||||
|
||||
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_BereitstellungDHUB(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||
checkATEZIRU_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_BereitstellungDHUB(DY_TMP, d)
|
||||
'==================================
|
||||
'=====ATEZ IRU BEREITSTELLUNG==========
|
||||
checkATEZIRU_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
@@ -10431,7 +10431,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
|
||||
If A.AbgabeArt IsNot Nothing Then
|
||||
' If A.Zahlungsart = "A" Then 'Nur wenn Zahlungsart=...?
|
||||
If If(A.KennBuchstabenAufschub, "").Trim = "M" And
|
||||
If (If(A.KennBuchstabenAufschub, "").Trim = "M" And
|
||||
(CInt(A.AufschubkontoNr) = 6128 Or
|
||||
CInt(A.AufschubkontoNr) = 6136 Or
|
||||
CInt(A.AufschubkontoNr) = 2718 Or
|
||||
@@ -10440,7 +10440,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
CInt(A.AufschubkontoNr) = 6146 Or
|
||||
CInt(A.AufschubkontoNr) = 6077 Or
|
||||
CInt(A.AufschubkontoNr) = 6078 Or
|
||||
CInt(A.AufschubkontoNr) = 1994) Then '_>TEST Or CInt(A.AufschubkontoNr) = 678010
|
||||
CInt(A.AufschubkontoNr) = 1994)) Or
|
||||
(If(A.KennBuchstabenAufschub, "").Trim = "MS" And CInt(A.AufschubkontoNr) = 1566) Then '_>TEST Or CInt(A.AufschubkontoNr) = 678010
|
||||
|
||||
Select Case A.AbgabeArt.ToString
|
||||
Case "A0000", "10100" : LeistungsNr = 60 ' ZOLL
|
||||
@@ -10487,6 +10488,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
Case 6146 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 15, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) EUST
|
||||
Case 6078 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 16, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED ZOLL
|
||||
Case 6077 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 17, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED EUST
|
||||
Case 1566 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 27, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'KARACA
|
||||
'UNISPED Case XXX: tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag,XXX, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum)
|
||||
|
||||
'Case 2718 : VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMailTEST("al@verag.ag", "AUFSCHUB IMEX: " & ABGABEN.Betrag, "AUFSCHUB IMEX: " & ABGABEN.Betrag & vbNewLine & ABGABEN.Bezugsnummer)
|
||||
|
||||
Reference in New Issue
Block a user