diff --git a/initATLASAufschubkonten/RoutineManager.vbproj b/initATLASAufschubkonten/RoutineManager.vbproj
index 542a6d3..75cca7f 100644
--- a/initATLASAufschubkonten/RoutineManager.vbproj
+++ b/initATLASAufschubkonten/RoutineManager.vbproj
@@ -108,9 +108,6 @@
-
- ..\..\..\Aviso\AVISO\Aviso\bin\Debug\VERAG_PROG_ALLGEMEIN.dll
-
@@ -286,6 +283,10 @@
+
+ {a3b497bd-842c-4a2b-b398-ed1976849df1}
+ VERAG_PROG_ALLGEMEIN
+
{2bbd7643-82a1-481f-a014-eb7fcdeed3b5}
NCTSPartnerWorker
diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb
index fcc405f..551633e 100644
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -25,6 +25,8 @@ Partial Class frmStartOptions
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
Me.pnl = New System.Windows.Forms.Panel()
+ Me.PictureBox22 = New System.Windows.Forms.PictureBox()
+ Me.Button22 = New System.Windows.Forms.Button()
Me.LinkLabel48 = New System.Windows.Forms.LinkLabel()
Me.cbxVermerk = New System.Windows.Forms.CheckBox()
Me.cbxDatevTest = New System.Windows.Forms.CheckBox()
@@ -204,9 +206,12 @@ Partial Class frmStartOptions
Me.lblRoutineManager = New System.Windows.Forms.Label()
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button21 = New System.Windows.Forms.Button()
- Me.Button22 = New System.Windows.Forms.Button()
- Me.PictureBox22 = New System.Windows.Forms.PictureBox()
+ Me.Label27 = New System.Windows.Forms.Label()
+ Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.LinkLabel51 = New System.Windows.Forms.LinkLabel()
+ Me.PictureBox23 = New System.Windows.Forms.PictureBox()
Me.pnl.SuspendLayout()
+ CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -237,13 +242,17 @@ Partial Class frmStartOptions
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
- CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnl.Controls.Add(Me.PictureBox23)
+ Me.pnl.Controls.Add(Me.Label27)
+ Me.pnl.Controls.Add(Me.MyTextBox3)
+ Me.pnl.Controls.Add(Me.LinkLabel51)
Me.pnl.Controls.Add(Me.PictureBox22)
Me.pnl.Controls.Add(Me.Button22)
Me.pnl.Controls.Add(Me.LinkLabel48)
@@ -317,6 +326,29 @@ Partial Class frmStartOptions
Me.pnl.Size = New System.Drawing.Size(861, 827)
Me.pnl.TabIndex = 0
'
+ 'PictureBox22
+ '
+ Me.PictureBox22.BackgroundImage = CType(resources.GetObject("PictureBox22.BackgroundImage"), System.Drawing.Image)
+ Me.PictureBox22.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.PictureBox22.Location = New System.Drawing.Point(830, 344)
+ Me.PictureBox22.Name = "PictureBox22"
+ Me.PictureBox22.Size = New System.Drawing.Size(18, 18)
+ Me.PictureBox22.TabIndex = 84
+ Me.PictureBox22.TabStop = False
+ Me.PictureBox22.Visible = False
+ '
+ 'Button22
+ '
+ Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.Button22.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+ Me.Button22.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.Button22.Location = New System.Drawing.Point(718, 342)
+ Me.Button22.Name = "Button22"
+ Me.Button22.Size = New System.Drawing.Size(105, 24)
+ Me.Button22.TabIndex = 78
+ Me.Button22.Text = "Kd-Umsätze akt."
+ Me.Button22.UseVisualStyleBackColor = True
+ '
'LinkLabel48
'
Me.LinkLabel48.AutoSize = True
@@ -2555,28 +2587,59 @@ Partial Class frmStartOptions
Me.Button21.Text = "AAS Sendung 24h"
Me.Button21.UseVisualStyleBackColor = True
'
- 'Button22
+ 'Label27
'
- Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.Button22.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.Button22.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
- Me.Button22.Location = New System.Drawing.Point(718, 342)
- Me.Button22.Name = "Button22"
- Me.Button22.Size = New System.Drawing.Size(105, 24)
- Me.Button22.TabIndex = 78
- Me.Button22.Text = "Kd-Umsätze akt."
- Me.Button22.UseVisualStyleBackColor = True
+ Me.Label27.AutoSize = True
+ Me.Label27.Location = New System.Drawing.Point(181, 211)
+ Me.Label27.Name = "Label27"
+ Me.Label27.Size = New System.Drawing.Size(71, 13)
+ Me.Label27.TabIndex = 87
+ Me.Label27.Text = "älter als Tage"
'
- 'PictureBox22
+ 'MyTextBox3
'
- Me.PictureBox22.BackgroundImage = CType(resources.GetObject("PictureBox22.BackgroundImage"), System.Drawing.Image)
- Me.PictureBox22.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
- Me.PictureBox22.Location = New System.Drawing.Point(830, 344)
- Me.PictureBox22.Name = "PictureBox22"
- Me.PictureBox22.Size = New System.Drawing.Size(18, 18)
- Me.PictureBox22.TabIndex = 84
- Me.PictureBox22.TabStop = False
- Me.PictureBox22.Visible = False
+ Me.MyTextBox3._DateTimeOnly = False
+ Me.MyTextBox3._numbersOnly = True
+ Me.MyTextBox3._numbersOnlyKommastellen = ""
+ Me.MyTextBox3._numbersOnlyTrennzeichen = True
+ Me.MyTextBox3._Prozent = False
+ Me.MyTextBox3._ShortDateNew = False
+ Me.MyTextBox3._ShortDateOnly = False
+ Me.MyTextBox3._TimeOnly = False
+ Me.MyTextBox3._TimeOnly_Seconds = False
+ Me.MyTextBox3._value = ""
+ Me.MyTextBox3._Waehrung = False
+ Me.MyTextBox3._WaehrungZeichen = True
+ Me.MyTextBox3.ForeColor = System.Drawing.Color.Red
+ Me.MyTextBox3.Location = New System.Drawing.Point(127, 208)
+ Me.MyTextBox3.MaxLineLength = -1
+ Me.MyTextBox3.MaxLines_Warning = ""
+ Me.MyTextBox3.MaxLines_Warning_Label = Nothing
+ Me.MyTextBox3.Name = "MyTextBox3"
+ Me.MyTextBox3.Size = New System.Drawing.Size(53, 20)
+ Me.MyTextBox3.TabIndex = 86
+ '
+ 'LinkLabel51
+ '
+ Me.LinkLabel51.AutoSize = True
+ Me.LinkLabel51.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+ Me.LinkLabel51.Location = New System.Drawing.Point(17, 211)
+ Me.LinkLabel51.Name = "LinkLabel51"
+ Me.LinkLabel51.Size = New System.Drawing.Size(88, 13)
+ Me.LinkLabel51.TabIndex = 85
+ Me.LinkLabel51.TabStop = True
+ Me.LinkLabel51.Text = "alte Chats inaktiv"
+ '
+ 'PictureBox23
+ '
+ Me.PictureBox23.BackgroundImage = CType(resources.GetObject("PictureBox23.BackgroundImage"), System.Drawing.Image)
+ Me.PictureBox23.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.PictureBox23.Location = New System.Drawing.Point(104, 210)
+ Me.PictureBox23.Name = "PictureBox23"
+ Me.PictureBox23.Size = New System.Drawing.Size(18, 18)
+ Me.PictureBox23.TabIndex = 88
+ Me.PictureBox23.TabStop = False
+ Me.PictureBox23.Visible = False
'
'frmStartOptions
'
@@ -2593,6 +2656,7 @@ Partial Class frmStartOptions
Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
+ CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).EndInit()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
@@ -2627,7 +2691,7 @@ Partial Class frmStartOptions
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
- CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -2813,4 +2877,8 @@ Partial Class frmStartOptions
Friend WithEvents Label26 As Label
Friend WithEvents Button22 As Button
Friend WithEvents PictureBox22 As PictureBox
+ Friend WithEvents PictureBox23 As PictureBox
+ Friend WithEvents Label27 As Label
+ Friend WithEvents MyTextBox3 As VERAG_PROG_ALLGEMEIN.MyTextBox
+ Friend WithEvents LinkLabel51 As LinkLabel
End Class
diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx
index 29c5469..71b5714 100644
--- a/initATLASAufschubkonten/frmStartOptions.resx
+++ b/initATLASAufschubkonten/frmStartOptions.resx
@@ -118,6 +118,30 @@
System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
+ oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
+ QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
+ j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
+ VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
+ XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
+ 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
+ VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
+ 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
+ pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
+ lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
+ d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
+ hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
+ LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
+ 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
+ NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
+ ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
+ WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
+ nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
+ CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
+
+
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index 47c0485..9088402 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -512,7 +512,6 @@ Public Class frmStartOptions
If DELETE_Kundenumsaetze(lastyears) Then
INSERT_Kundenumsaetze(lastyears)
End If
-
'------------------------------
Case Else
'Nur bei manuellem Start wird der fehler ausgegeben
@@ -1903,79 +1902,79 @@ Public Class frmStartOptions
If Not found Then 'OLD --- NCTS < 004!
- 'Dim dy_id As String = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL")
- dy_id = ""
- If betreff.ToString.Length > 15 Then
- dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' and LEN(ncts_ObjectName)>=13 ", "FMZOLL")
- Else
- dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL")
- End If
-
-
- ' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
-
- DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
- DS.da_vorlage = False
-
- ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
- If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
- If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
-
- destFull = ""
- moveFile(pfad, ZIEL_PFAD, destFull)
-
-
- If DS.insertDataToDATENSERVER(destFull) Then
- If IsNumeric(dy_id) AndAlso dy_id > 0 Then
- sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
- sql.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & betreff.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
- doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", dy_id)
- End If
- End If
-
+ 'Dim dy_id As String = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL")
+ dy_id = ""
+ If betreff.ToString.Length > 15 Then
+ dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' and LEN(ncts_ObjectName)>=13 ", "FMZOLL")
+ Else
+ dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL")
End If
- '=====ATEZ BEREITSTELLUNG==========
- cWorker_NCTS.checkATEZ_Bereitstellung_VBD(betreff.ToString.Trim, destFull)
+ ' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
- '==================================
+ DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
+ DS.da_vorlage = False
+
+ ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
+ If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
+ If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+
+ destFull = ""
+ moveFile(pfad, ZIEL_PFAD, destFull)
- ElseIf betreff.ToString.Contains("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ") Then
- betreff = betreff.replace("WG: ", "")
- betreff = betreff.replace("FW: ", "")
- betreff = betreff.replace("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ", "")
- If betreff.ToString.Contains(",") Then
- Dim sp = betreff.ToString.Split(",")
+ If DS.insertDataToDATENSERVER(destFull) Then
+ If IsNumeric(dy_id) AndAlso dy_id > 0 Then
+ sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
+ sql.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & betreff.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
+ doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", dy_id)
+ End If
+ End If
+
+ End If
- If betreff.contains("Registriernr.: ATD") Then ' ZNV!!!!
- betreff = sp(0).Trim
- Dim SND_ID = sql.getValueTxtBySql("SELECT TOP (1) [tblSnd_SendungID] FROM [tblSendungen] where '" & betreff.ToString.Trim & "' LIKE (cast(FilialenNr as varchar(4))+ '/' + cast(AbfertigungsNr as varchar(8))+'%')", "AVISO")
- If IsNumeric(SND_ID) AndAlso SND_ID > 0 Then
- DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ZNV", "SND_ID_" & SND_ID, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
- DS.da_vorlage = False
- Dim destFull = ""
- Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ZNV\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
- If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
- moveFile(pfad, ZIEL_PFAD, destFull)
+ '=====ATEZ BEREITSTELLUNG==========
+ cWorker_NCTS.checkATEZ_Bereitstellung_VBD(betreff.ToString.Trim, destFull)
- If DS.insertDataToDATENSERVER(destFull) Then
- ' sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
- sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
- doMailZollbeleg(DS.GET_TOP1_PATH, "ZNV", SND_ID, betreff)
- End If
+ '==================================
+
+ ElseIf betreff.ToString.Contains("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ") Then
+ betreff = betreff.replace("WG: ", "")
+ betreff = betreff.replace("FW: ", "")
+ betreff = betreff.replace("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ", "")
+ If betreff.ToString.Contains(",") Then
+ Dim sp = betreff.ToString.Split(",")
+
+
+ If betreff.contains("Registriernr.: ATD") Then ' ZNV!!!!
+ betreff = sp(0).Trim
+ Dim SND_ID = sql.getValueTxtBySql("SELECT TOP (1) [tblSnd_SendungID] FROM [tblSendungen] where '" & betreff.ToString.Trim & "' LIKE (cast(FilialenNr as varchar(4))+ '/' + cast(AbfertigungsNr as varchar(8))+'%')", "AVISO")
+ If IsNumeric(SND_ID) AndAlso SND_ID > 0 Then
+ DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ZNV", "SND_ID_" & SND_ID, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
+ DS.da_vorlage = False
+ Dim destFull = ""
+ Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ZNV\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
+ If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+ moveFile(pfad, ZIEL_PFAD, destFull)
+
+ If DS.insertDataToDATENSERVER(destFull) Then
+ ' sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
+ sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
+ doMailZollbeleg(DS.GET_TOP1_PATH, "ZNV", SND_ID, betreff)
End If
-
- Else ' STB !!!!
-
- betreff = sp(0).Trim
+ End If
- Dim dy_id As String = ""
+ Else ' STB !!!!
+
+ betreff = sp(0).Trim
+
+
+ Dim dy_id As String = ""
If betreff.ToString.Length > 15 Then
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
If dy_id = "" Then
@@ -1983,55 +1982,14 @@ Public Class frmStartOptions
End If
Else
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
- End If
- ' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
-
- DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
- DS.da_vorlage = False
-
- Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
- If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
- If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
-
- Dim destFull = ""
- moveFile(pfad, ZIEL_PFAD, destFull)
-
- If DS.insertDataToDATENSERVER(destFull) Then
- If IsNumeric(dy_id) AndAlso dy_id > 0 Then
- sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
- sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
- doMailZollbeleg(DS.GET_TOP1_PATH, "STB", dy_id)
- End If
- End If
-
- End If
- End If
-
- 'ABD
- ElseIf betreff.ToString.Contains("ABD - Ausfuhrbegleitdokument (DE), ") Then
- betreff = betreff.replace("WG: ", "")
- betreff = betreff.replace("FW: ", "")
- betreff = betreff.replace("ABD - Ausfuhrbegleitdokument (DE), ", "")
- If betreff.ToString.Contains(",") Then
- Dim sp = betreff.ToString.Split(",")
- betreff = sp(0).Trim
-
- Dim dy_id As String = ""
- If betreff.ToString.Length > 15 Then
- dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
- If dy_id = "" Then
- dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE aes_ObjectName +'%' and LEN(aes_ObjectName)>=13", "FMZOLL")
- End If
- Else
- dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
End If
' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
- DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ABD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
+ DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
- Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\NOT_IDENTIFIED\"
- If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
+ Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
+ If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
@@ -2039,13 +1997,54 @@ Public Class frmStartOptions
If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
- sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_ABD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
- sql.doSQL("UPDATE Speditionsbuch SET DokumentId_ABD='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_ABD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
- doMailZollbeleg(DS.GET_TOP1_PATH, "ABD", dy_id)
+ sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
+ sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
+ doMailZollbeleg(DS.GET_TOP1_PATH, "STB", dy_id)
End If
End If
End If
+ End If
+
+ 'ABD
+ ElseIf betreff.ToString.Contains("ABD - Ausfuhrbegleitdokument (DE), ") Then
+ betreff = betreff.replace("WG: ", "")
+ betreff = betreff.replace("FW: ", "")
+ betreff = betreff.replace("ABD - Ausfuhrbegleitdokument (DE), ", "")
+ If betreff.ToString.Contains(",") Then
+ Dim sp = betreff.ToString.Split(",")
+ betreff = sp(0).Trim
+
+ Dim dy_id As String = ""
+ If betreff.ToString.Length > 15 Then
+ dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
+ If dy_id = "" Then
+ dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE aes_ObjectName +'%' and LEN(aes_ObjectName)>=13", "FMZOLL")
+ End If
+ Else
+ dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
+ End If
+ ' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
+
+ DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ABD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
+ DS.da_vorlage = False
+
+ Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\NOT_IDENTIFIED\"
+ If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
+ If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+
+ Dim destFull = ""
+ moveFile(pfad, ZIEL_PFAD, destFull)
+
+ If DS.insertDataToDATENSERVER(destFull) Then
+ If IsNumeric(dy_id) AndAlso dy_id > 0 Then
+ sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_ABD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
+ sql.doSQL("UPDATE Speditionsbuch SET DokumentId_ABD='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_ABD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
+ doMailZollbeleg(DS.GET_TOP1_PATH, "ABD", dy_id)
+ End If
+ End If
+
+ End If
'AVM
ElseIf betreff.ToString.Contains("AVM - Ausgangsvermerk (DE), ") Then
@@ -4173,4 +4172,12 @@ Public Class frmStartOptions
End If
showPic(ok, PictureBox22)
End Sub
+
+ Private Sub LinkLabel51_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel51.LinkClicked
+
+ Dim CHAT As New cMessenger.cMessenger_Chat
+
+ showPic(CHAT.setOldChatsInactiv(MyTextBox3.Text), PictureBox23)
+
+ End Sub
End Class
\ No newline at end of file