edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

X

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-08-23 16:28:14 +02:00
parent 554262d804
commit ea594e66e5
7 changed files with 203 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
UID/usrctlProcedures.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrctlProcedures Partial Class usrctlProcedures
Inherits System.Windows.Forms.UserControl Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class usrctlProcedures
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
@@ -377,7 +377,7 @@ Partial Class usrctlProcedures
Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(882, 161) Me.TabPage2.Size = New System.Drawing.Size(601, 161)
Me.TabPage2.TabIndex = 1 Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "TEST" Me.TabPage2.Text = "TEST"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True

22
UID/usrctlProcedures.vb
View File

@@ -2363,6 +2363,28 @@ Public Class usrctlProcedures
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
End Sub End Sub
Private Sub Button26_Click(sender As Object, e As EventArgs)
For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
Dim fi As New FileInfo(d)
If fi.Name >= 20190615 Then
For Each f In System.IO.Directory.GetFiles(d)
If cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML(doc) Then
End If
Next
End If
Next
End Sub
End Class End Class

49
initATLASAufschubkonten/EZollAufschubEinlesen.vb
View File

@@ -18,39 +18,46 @@ Public Class EZollAufschubEinlesen
If Not ABGABEN.hasEntry Then If Not ABGABEN.hasEntry Then
Dim LeistungsNr = "" Dim LeistungsNr = ""
Dim LeistungsBez = "" Dim LeistungsBez = ""
Dim saveAbgaben = True
Select Case d1.Abgabenart Select Case d1.Abgabenart
Case "2EU", "2IG", "2PE", "5EU" Case "2EU", "2IG", "2PE", "5EU"
LeistungsNr = "20" LeistungsNr = "20"
Case "5EV", "B00" 'EV-KONTO!! Case "B00" 'EUST
LeistungsNr = "20" LeistungsNr = "20"
ABGABEN.Status = "A" 'AUSGEBUCHT ABGABEN.Status = "A" 'AUSGEBUCHT
Case "5EV" '"5EV"--> EV-KONTO!!
saveAbgaben = False
Case "2DU", "5DU", "5ZO", "5ZZ", "A20", "A30", "A35", "A40", "A45", "C00", "C10", "A00" Case "2DU", "5DU", "5ZO", "5ZZ", "A20", "A30", "A35", "A40", "A45", "C00", "C10", "A00"
LeistungsNr = "76" LeistungsNr = "76"
Case Else '1BD,0ML, 0PB, 0PG, 0PS, 1LG, 1ZN, 2AS, 2KO, 2RB, 2SB, 2SI, 2VF, 2VS, 5SI, 5VS, 6AK, 6BE, 6MS, 6SS, 6TS, 6ZW, 9EA, D00,D10,E00 Case Else '1BD,0ML, 0PB, 0PG, 0PS, 1LG, 1ZN, 2AS, 2KO, 2RB, 2SB, 2SI, 2VF, 2VS, 5SI, 5VS, 6AK, 6BE, 6MS, 6SS, 6TS, 6ZW, 9EA, D00,D10,E00
LeistungsNr = "482" LeistungsNr = "482"
LeistungsBez = getLeistungsBez(d1.Abgabenart) LeistungsBez = getLeistungsBez(d1.Abgabenart)
End Select End Select
ABGABEN.Belegart = d1.Abgabenart If saveAbgaben Then
ABGABEN.Betrag = CDbl(d1.Betrag)
ABGABEN.Status = Nothing
ABGABEN.LeistungsNr = LeistungsNr
ABGABEN.Bezugsnummer = d1.LRN
ABGABEN.Registriernummer = d1.CRN
' ABGABEN.AOFD = A.KennBuchstabenAufschub
ABGABEN.AKTO = d1.Abgabenkonto
'ABGABEN.Fälligkeitsdatum = A.Faelligkeit
' ABGABEN.Mandant = "VERG"
ABGABEN.Niederlassung = d1.OperatorId
ABGABEN.Abfertigungsdatum = d1.Datum
ABGABEN.Übernahmedatum = d1.Datum
ABGABEN.Eingabedatum = Now.ToShortDateString
ABGABEN.Sachbearbeiter = "AUTO"
ABGABEN.LeistungsBez = LeistungsBez
If If(ABGABEN.Bezugsnummer, "").ToString.Length > 35 Then ABGABEN.Bezugsnummer = ABGABEN.Bezugsnummer.ToString.Substring(0, 35)
If If(ABGABEN.Registriernummer, "").ToString.Length > 21 Then ABGABEN.Registriernummer = ABGABEN.Registriernummer.ToString.Substring(0, 21)
Dim errHInweis = "ATC: " & ABGABEN.Registriernummer & " - BezugsNr: " & ABGABEN.Bezugsnummer ABGABEN.Belegart = d1.Abgabenart
ABGABEN.SAVE(errHInweis) ABGABEN.Betrag = CDbl(d1.Betrag)
ABGABEN.Status = Nothing
ABGABEN.LeistungsNr = LeistungsNr
ABGABEN.Bezugsnummer = d1.LRN
ABGABEN.Registriernummer = d1.CRN
' ABGABEN.AOFD = A.KennBuchstabenAufschub
ABGABEN.AKTO = d1.Abgabenkonto
'ABGABEN.Fälligkeitsdatum = A.Faelligkeit
' ABGABEN.Mandant = "VERG"
ABGABEN.Niederlassung = d1.OperatorId
ABGABEN.Abfertigungsdatum = d1.Datum
ABGABEN.Übernahmedatum = d1.Datum
ABGABEN.Eingabedatum = Now.ToShortDateString
ABGABEN.Sachbearbeiter = "AUTO"
ABGABEN.LeistungsBez = LeistungsBez
If If(ABGABEN.Bezugsnummer, "").ToString.Length > 35 Then ABGABEN.Bezugsnummer = ABGABEN.Bezugsnummer.ToString.Substring(0, 35)
If If(ABGABEN.Registriernummer, "").ToString.Length > 21 Then ABGABEN.Registriernummer = ABGABEN.Registriernummer.ToString.Substring(0, 21)
Dim errHInweis = "ATC: " & ABGABEN.Registriernummer & " - BezugsNr: " & ABGABEN.Bezugsnummer
ABGABEN.SAVE(errHInweis)
End If
End If End If
End Select End Select
Next Next

114
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -2462,7 +2462,8 @@ Public Class frmDYNachrichtenVerarbeitung
EZA.eza_Vorsteuerabzug = FCFCDC.Header.InputTaxDeductionFlag EZA.eza_Vorsteuerabzug = FCFCDC.Header.InputTaxDeductionFlag
EZA.eza_ZusatzangabenAnmeldung = FCFCDC.Header.AdditionalInformation EZA.eza_ZusatzangabenAnmeldung = FCFCDC.Header.AdditionalInformation
End If ' EZA.eza_VerfahrenBeantragtCode
End If
End If End If
@@ -2588,8 +2589,9 @@ Public Class frmDYNachrichtenVerarbeitung
End If End If
'Vertreter
If FCFCDC.Representative IsNot Nothing Then 'Vertreter
If FCFCDC.Representative IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "CB" ADR.ezaAd_AdressTyp = "CB"
If FCFCDC.Representative.Identification IsNot Nothing Then If FCFCDC.Representative.Identification IsNot Nothing Then
@@ -2635,66 +2637,70 @@ Public Class frmDYNachrichtenVerarbeitung
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Acquirer IsNot Nothing Then If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Acquirer IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "UC" ADR.ezaAd_AdressTyp = "UC"
If FCFCDC.Body.Acquirer.Name IsNot Nothing Then If FCFCDC.Body.Acquirer.Name IsNot Nothing Then
If FCFCDC.Body.Acquirer.Name.ToString.Length > 40 Then If FCFCDC.Body.Acquirer.Name.ToString.Length > 40 Then
If FCFCDC.Body.Acquirer.Name.ToString.Length > 80 Then If FCFCDC.Body.Acquirer.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Acquirer.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Acquirer.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDC.Body.Acquirer.Name.ToString.Substring(80, FCFCDC.Body.Acquirer.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Acquirer.Name.ToString.Substring(0, 40) ADR.ezaAd_NameFirma1 = FCFCDC.Body.Acquirer.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Acquirer.Name.ToString.Substring(40, FCFCDC.Body.Acquirer.Name.ToString.Length - 40) ADR.ezaAd_NameFirma2 = FCFCDC.Body.Acquirer.Name.ToString.Substring(40, 40)
Else ADR.ezaAd_NameFirma3 = FCFCDC.Body.Acquirer.Name.ToString.Substring(80, FCFCDC.Body.Acquirer.Name.ToString.Length - 80)
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Acquirer.Name
End If End If
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Acquirer.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Acquirer.Name.ToString.Substring(40, FCFCDC.Body.Acquirer.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Acquirer.Name
End If End If
If FCFCDC.Body.Acquirer.Identification IsNot Nothing Then End If
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.Acquirer.Identification.ReferenceNumber If FCFCDC.Body.Acquirer.TaxNumber IsNot Nothing Then
ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.Acquirer.Identification.SubsidiaryNumber ADR.ezaAd_UStIDAnmelder = FCFCDC.Body.Acquirer.TaxNumber
End If
If FCFCDC.Body.Acquirer.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.Acquirer.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDC.Body.Acquirer.Address.City
ADR.ezaAd_PLZ = FCFCDC.Body.Acquirer.Address.Postcode
ADR.ezaAd_LandCode = FCFCDC.Body.Acquirer.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If End If
'Versender/Ausführer If FCFCDC.Body.Acquirer.Identification IsNot Nothing Then
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Consignor IsNot Nothing Then ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.Acquirer.Identification.ReferenceNumber
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.Acquirer.Identification.SubsidiaryNumber
ADR.ezaAd_AdressTyp = "CZ" End If
If FCFCDC.Body.Consignor.Name IsNot Nothing Then If FCFCDC.Body.Acquirer.Address IsNot Nothing Then
If FCFCDC.Body.Consignor.Name.ToString.Length > 40 Then ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.Acquirer.Address.Line
If FCFCDC.Body.Consignor.Name.ToString.Length > 80 Then ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignor.Name.ToString.Substring(0, 40) ADR.ezaAd_Ort = FCFCDC.Body.Acquirer.Address.City
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Consignor.Name.ToString.Substring(40, 40) ADR.ezaAd_PLZ = FCFCDC.Body.Acquirer.Address.Postcode
ADR.ezaAd_NameFirma3 = FCFCDC.Body.Consignor.Name.ToString.Substring(80, FCFCDC.Body.Consignor.Name.ToString.Length - 80) ADR.ezaAd_LandCode = FCFCDC.Body.Acquirer.Address.Country
End If End If
EZA.eza_ADRESSEN.Add(ADR)
End If
'Versender/Ausführer
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Consignor IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "CZ"
If FCFCDC.Body.Consignor.Name IsNot Nothing Then
If FCFCDC.Body.Consignor.Name.ToString.Length > 40 Then
If FCFCDC.Body.Consignor.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignor.Name.ToString.Substring(0, 40) ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignor.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Consignor.Name.ToString.Substring(40, FCFCDC.Body.Consignor.Name.ToString.Length - 40) ADR.ezaAd_NameFirma2 = FCFCDC.Body.Consignor.Name.ToString.Substring(40, 40)
Else ADR.ezaAd_NameFirma3 = FCFCDC.Body.Consignor.Name.ToString.Substring(80, FCFCDC.Body.Consignor.Name.ToString.Length - 80)
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignor.Name
End If End If
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignor.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Consignor.Name.ToString.Substring(40, FCFCDC.Body.Consignor.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignor.Name
End If End If
If FCFCDC.Body.Consignor.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.Consignor.Identification.ReferenceNumber
' ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.Consignor.Identification.SubsidiaryNumber
End If
If FCFCDC.Body.Consignor.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.Consignor.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDC.Body.Consignor.Address.City
ADR.ezaAd_PLZ = FCFCDC.Body.Consignor.Address.Postcode
ADR.ezaAd_LandCode = FCFCDC.Body.Consignor.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If End If
If FCFCDC.Body.Consignor.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.Consignor.Identification.ReferenceNumber
' ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.Consignor.Identification.SubsidiaryNumber
End If
If FCFCDC.Body.Consignor.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.Consignor.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDC.Body.Consignor.Address.City
ADR.ezaAd_PLZ = FCFCDC.Body.Consignor.Address.Postcode
ADR.ezaAd_LandCode = FCFCDC.Body.Consignor.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
'Verkäufer 'Verkäufer
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.CustomsValue IsNot Nothing AndAlso FCFCDC.Body.CustomsValue.Vendor IsNot Nothing Then If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.CustomsValue IsNot Nothing AndAlso FCFCDC.Body.CustomsValue.Vendor IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "SE" ADR.ezaAd_AdressTyp = "SE"
If FCFCDC.Body.CustomsValue.Vendor.Name IsNot Nothing Then If FCFCDC.Body.CustomsValue.Vendor.Name IsNot Nothing Then
@@ -2838,6 +2844,7 @@ Public Class frmDYNachrichtenVerarbeitung
POS.ezaWP_AHStatMengeQualifier = GOODSITEM.ForeignTradeStatistics.Amount.Qualifier POS.ezaWP_AHStatMengeQualifier = GOODSITEM.ForeignTradeStatistics.Amount.Qualifier
POS.ezaWP_AHStatMengeMasseinheit = GOODSITEM.ForeignTradeStatistics.Amount.MeasurementUnit POS.ezaWP_AHStatMengeMasseinheit = GOODSITEM.ForeignTradeStatistics.Amount.MeasurementUnit
POS.ezaWP_AHStatMenge = GOODSITEM.ForeignTradeStatistics.Amount.Quantity POS.ezaWP_AHStatMenge = GOODSITEM.ForeignTradeStatistics.Amount.Quantity
POS.ezaWP_AHStatWert = GOODSITEM.ForeignTradeStatistics.Quantity
End If End If
End If End If
@@ -2852,7 +2859,6 @@ Public Class frmDYNachrichtenVerarbeitung
' POS.ezaWP_Zollwert = GOODSITEM.Assessment.Amount. ' POS.ezaWP_Zollwert = GOODSITEM.Assessment.Amount.
' POS.ezaWP_KostenEUSt = GOODSITEM.Assessment.TaxCosts ' POS.ezaWP_KostenEUSt = GOODSITEM.Assessment.TaxCosts
' ' POS.ezaWP_AHStatWert = GOODSITEM.Assessment.Amount??!!
' POS.ezaWP_VeredelungWertsteigerung = GOODSITEM.Assessment.OutwardProcessingFee ' POS.ezaWP_VeredelungWertsteigerung = GOODSITEM.Assessment.OutwardProcessingFee
'End If 'End If

57
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -37,7 +37,6 @@ Partial Class frmStartOptions
Me.cbxKd = New System.Windows.Forms.CheckBox() Me.cbxKd = New System.Windows.Forms.CheckBox()
Me.Button9 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox12 = New System.Windows.Forms.PictureBox() Me.PictureBox12 = New System.Windows.Forms.PictureBox()
Me.LinkLabel20 = New System.Windows.Forms.LinkLabel() Me.LinkLabel20 = New System.Windows.Forms.LinkLabel()
Me.PictureBox11 = New System.Windows.Forms.PictureBox() Me.PictureBox11 = New System.Windows.Forms.PictureBox()
@@ -77,6 +76,8 @@ Partial Class frmStartOptions
Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.LinkLabel3 = New System.Windows.Forms.LinkLabel()
Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
Me.lblRoutineManager = New System.Windows.Forms.Label() Me.lblRoutineManager = New System.Windows.Forms.Label()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -97,6 +98,7 @@ Partial Class frmStartOptions
' '
Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.Button1)
Me.pnl.Controls.Add(Me.CheckBox2) Me.pnl.Controls.Add(Me.CheckBox2)
Me.pnl.Controls.Add(Me.LinkLabel25) Me.pnl.Controls.Add(Me.LinkLabel25)
Me.pnl.Controls.Add(Me.LinkLabel23) Me.pnl.Controls.Add(Me.LinkLabel23)
@@ -298,28 +300,6 @@ Partial Class frmStartOptions
Me.Label3.TabIndex = 39 Me.Label3.TabIndex = 39
Me.Label3.Text = "Routine Manager IMEX" Me.Label3.Text = "Routine Manager IMEX"
' '
'MyTextBox1
'
Me.MyTextBox1._DateTimeOnly = False
Me.MyTextBox1._numbersOnly = True
Me.MyTextBox1._numbersOnlyKommastellen = ""
Me.MyTextBox1._Prozent = False
Me.MyTextBox1._ShortDateNew = False
Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._value = "10000"
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(111, 132)
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(53, 20)
Me.MyTextBox1.TabIndex = 38
Me.MyTextBox1.Text = "10000"
'
'PictureBox12 'PictureBox12
' '
Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image) Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image)
@@ -749,6 +729,36 @@ Partial Class frmStartOptions
Me.lblRoutineManager.TabIndex = 0 Me.lblRoutineManager.TabIndex = 0
Me.lblRoutineManager.Text = "Routine Manager" Me.lblRoutineManager.Text = "Routine Manager"
' '
'MyTextBox1
'
Me.MyTextBox1._DateTimeOnly = False
Me.MyTextBox1._numbersOnly = True
Me.MyTextBox1._numbersOnlyKommastellen = ""
Me.MyTextBox1._Prozent = False
Me.MyTextBox1._ShortDateNew = False
Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._value = "10000"
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(111, 132)
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(53, 20)
Me.MyTextBox1.TabIndex = 38
Me.MyTextBox1.Text = "10000"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(489, 221)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(198, 34)
Me.Button1.TabIndex = 52
Me.Button1.UseVisualStyleBackColor = True
'
'frmStartOptions 'frmStartOptions
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -834,4 +844,5 @@ Partial Class frmStartOptions
Friend WithEvents Label5 As Label Friend WithEvents Label5 As Label
Friend WithEvents LinkLabel25 As LinkLabel Friend WithEvents LinkLabel25 As LinkLabel
Friend WithEvents CheckBox2 As CheckBox Friend WithEvents CheckBox2 As CheckBox
Friend WithEvents Button1 As Button
End Class End Class

54
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -902,4 +902,58 @@ Public Class frmStartOptions
importFileFromEZOLL(If(CheckBox2.Checked, Now.AddDays(-7), Now)) importFileFromEZOLL(If(CheckBox2.Checked, Now.AddDays(-7), Now))
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
Dim fid As New FileInfo(d)
If fid.Name >= 20190820 Then
For Each f In System.IO.Directory.GetFiles(d)
Dim fi As New FileInfo(f)
If fi.Extension = ".xml" Then
Dim XML_Code = System.IO.File.ReadAllText(f, System.Text.UTF8Encoding.Default)
If XML_Code.Contains("<FCFCDC>") And XML_Code.Contains("<TaxOffice>9153</TaxOffice>") Then
If Not IO.File.Exists("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) Then
IO.File.Copy(f, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name)
End If
End If
'Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
'Dim doc As New XmlDocument()
'Dim XML_Code = System.IO.File.ReadAllText(f, System.Text.UTF8Encoding.Default)
'doc.LoadXml(frmDYNachrichtenVerarbeitung.SanitizeXmlString(XML_Code))
'If cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML(doc) Then
' MsgBox(f)
'End If
End If
Next
End If
Next
End Sub
End Class End Class

1
initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
View File

@@ -566,6 +566,7 @@ Public Class frmTCNachrichtenVerarbeitung
TC.dec_Memo = vifDEC.dec_Memo TC.dec_Memo = vifDEC.dec_Memo
TC.Refs_LRN = vifDEC.Refs_LRN TC.Refs_LRN = vifDEC.Refs_LRN
TC.Refs_CRN = vifDEC.Refs_CRN TC.Refs_CRN = vifDEC.Refs_CRN
TC.telanm_CRN = vifDEC.Refs_CRN
TC.Refs_CSRN = vifDEC.Refs_CSRN TC.Refs_CSRN = vifDEC.Refs_CSRN
TC.Refs_ERN = vifDEC.Refs_ERN TC.Refs_ERN = vifDEC.Refs_ERN
TC.Refs_FRN = vifDEC.Refs_FRN TC.Refs_FRN = vifDEC.Refs_FRN