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
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
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.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.TabControl1 = New System.Windows.Forms.TabControl()
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.Name = "TabPage2"
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.Text = "TEST"
Me.TabPage2.UseVisualStyleBackColor = True

22
UID/usrctlProcedures.vb
View File

@@ -2363,6 +2363,28 @@ Public Class usrctlProcedures
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
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

9
initATLASAufschubkonten/EZollAufschubEinlesen.vb
View File

@@ -18,18 +18,24 @@ Public Class EZollAufschubEinlesen
If Not ABGABEN.hasEntry Then
Dim LeistungsNr = ""
Dim LeistungsBez = ""
Dim saveAbgaben = True
Select Case d1.Abgabenart
Case "2EU", "2IG", "2PE", "5EU"
LeistungsNr = "20"
Case "5EV", "B00" 'EV-KONTO!!
Case "B00" 'EUST
LeistungsNr = "20"
ABGABEN.Status = "A" 'AUSGEBUCHT
Case "5EV" '"5EV"--> EV-KONTO!!
saveAbgaben = False
Case "2DU", "5DU", "5ZO", "5ZZ", "A20", "A30", "A35", "A40", "A45", "C00", "C10", "A00"
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
LeistungsNr = "482"
LeistungsBez = getLeistungsBez(d1.Abgabenart)
End Select
If saveAbgaben Then
ABGABEN.Belegart = d1.Abgabenart
ABGABEN.Betrag = CDbl(d1.Betrag)
ABGABEN.Status = Nothing
@@ -52,6 +58,7 @@ Public Class EZollAufschubEinlesen
Dim errHInweis = "ATC: " & ABGABEN.Registriernummer & " - BezugsNr: " & ABGABEN.Bezugsnummer
ABGABEN.SAVE(errHInweis)
End If
End If
End Select
Next
'MsgBox("TEST3")

8
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -2462,6 +2462,7 @@ Public Class frmDYNachrichtenVerarbeitung
EZA.eza_Vorsteuerabzug = FCFCDC.Header.InputTaxDeductionFlag
EZA.eza_ZusatzangabenAnmeldung = FCFCDC.Header.AdditionalInformation
' EZA.eza_VerfahrenBeantragtCode
End If
End If
@@ -2588,6 +2589,7 @@ Public Class frmDYNachrichtenVerarbeitung
End If
'Vertreter
If FCFCDC.Representative IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
@@ -2648,6 +2650,10 @@ Public Class frmDYNachrichtenVerarbeitung
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Acquirer.Name
End If
End If
If FCFCDC.Body.Acquirer.TaxNumber IsNot Nothing Then
ADR.ezaAd_UStIDAnmelder = FCFCDC.Body.Acquirer.TaxNumber
End If
If FCFCDC.Body.Acquirer.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.Acquirer.Identification.ReferenceNumber
ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.Acquirer.Identification.SubsidiaryNumber
@@ -2838,6 +2844,7 @@ Public Class frmDYNachrichtenVerarbeitung
POS.ezaWP_AHStatMengeQualifier = GOODSITEM.ForeignTradeStatistics.Amount.Qualifier
POS.ezaWP_AHStatMengeMasseinheit = GOODSITEM.ForeignTradeStatistics.Amount.MeasurementUnit
POS.ezaWP_AHStatMenge = GOODSITEM.ForeignTradeStatistics.Amount.Quantity
POS.ezaWP_AHStatWert = GOODSITEM.ForeignTradeStatistics.Quantity
End If
End If
@@ -2852,7 +2859,6 @@ Public Class frmDYNachrichtenVerarbeitung
' POS.ezaWP_Zollwert = GOODSITEM.Assessment.Amount.
' POS.ezaWP_KostenEUSt = GOODSITEM.Assessment.TaxCosts
' ' POS.ezaWP_AHStatWert = GOODSITEM.Assessment.Amount??!!
' POS.ezaWP_VeredelungWertsteigerung = GOODSITEM.Assessment.OutwardProcessingFee
'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.Button9 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox12 = New System.Windows.Forms.PictureBox()
Me.LinkLabel20 = New System.Windows.Forms.LinkLabel()
Me.PictureBox11 = New System.Windows.Forms.PictureBox()
@@ -77,6 +76,8 @@ Partial Class frmStartOptions
Me.LinkLabel3 = New System.Windows.Forms.LinkLabel()
Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
Me.lblRoutineManager = New System.Windows.Forms.Label()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
CType(Me.PictureBox12, 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.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.Button1)
Me.pnl.Controls.Add(Me.CheckBox2)
Me.pnl.Controls.Add(Me.LinkLabel25)
Me.pnl.Controls.Add(Me.LinkLabel23)
@@ -298,28 +300,6 @@ Partial Class frmStartOptions
Me.Label3.TabIndex = 39
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
'
Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image)
@@ -749,6 +729,36 @@ Partial Class frmStartOptions
Me.lblRoutineManager.TabIndex = 0
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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -834,4 +844,5 @@ Partial Class frmStartOptions
Friend WithEvents Label5 As Label
Friend WithEvents LinkLabel25 As LinkLabel
Friend WithEvents CheckBox2 As CheckBox
Friend WithEvents Button1 As Button
End Class

54
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -902,4 +902,58 @@ Public Class frmStartOptions
importFileFromEZOLL(If(CheckBox2.Checked, Now.AddDays(-7), Now))
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

1
initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
View File

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