neu
This commit is contained in:
@@ -45,6 +45,11 @@ Public Class frmStartOptions
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELEOTEC", "TC"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DHF", "DHF"))
|
||||
|
||||
MyComboBox2.Items.Clear()
|
||||
MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "DY"))
|
||||
MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELEOTEC", "TC"))
|
||||
MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DHF", "DHF"))
|
||||
|
||||
Dim PARAM = ""
|
||||
Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
|
||||
If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
|
||||
@@ -209,7 +214,7 @@ Public Class frmStartOptions
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", Bezeichnung, cDHF_Anhaenge.AnmID, "", "", "DHF_" & cDHF_Anhaenge.LRN.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
||||
DS.da_vorlage = False
|
||||
|
||||
Dim ZIEL_PFAD = "\\192.168.0.91\Datenarchiv\ZOLARIS\ECHTSYSTEM\ZOLLDATEN\" & Bezeichnung & "\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLARIS\ECHTSYSTEM\ZOLLDATEN\" & Bezeichnung & "\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
|
||||
Dim destFull = ""
|
||||
@@ -231,7 +236,7 @@ Public Class frmStartOptions
|
||||
Case "EZ922" : DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA")
|
||||
Case "TR109" : DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "NCTS")
|
||||
' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
|
||||
cVERAG_Interface.copyFileFTP_VERAGncts_EZOLL(cDHF_Anhaenge.AnmID)
|
||||
cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL(cDHF_Anhaenge.AnmID)
|
||||
Case "EZ923" 'Ergänzung STB - Mitteilung
|
||||
sql.doSQL("Update Speditionsbuch SET DokumentId_Mitteilung='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_Mitteilung is null", "FMZOLL")
|
||||
End Select
|
||||
@@ -249,9 +254,9 @@ Public Class frmStartOptions
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
|
||||
|
||||
'moveFile(d, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\nlc\")
|
||||
'moveFile(d, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
|
||||
|
||||
'IO.Directory.CreateDirectory("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\" & betreff.ToString.Replace(",", ""))
|
||||
'IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\" & betreff.ToString.Replace(",", ""))
|
||||
|
||||
If betreff.ToString.Contains("VBD - Versandbegleitdokument (DE), ") Then
|
||||
betreff = betreff.replace("WG: ", "")
|
||||
@@ -267,20 +272,23 @@ Public Class frmStartOptions
|
||||
End If
|
||||
|
||||
|
||||
' IO.Directory.CreateDirectory("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
|
||||
' 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
|
||||
|
||||
Dim ZIEL_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
|
||||
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
Dim 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)
|
||||
|
||||
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_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
|
||||
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!
|
||||
End If
|
||||
End If
|
||||
|
||||
ElseIf betreff.ToString.Contains("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ") Then
|
||||
@@ -297,20 +305,23 @@ Public Class frmStartOptions
|
||||
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("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
|
||||
' 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 = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
|
||||
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & 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 = ""
|
||||
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")
|
||||
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!
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -621,8 +632,8 @@ Public Class frmStartOptions
|
||||
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||
Body &= "<br><br>Automatisch generiertes E-Mail."
|
||||
|
||||
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("cw@verag.ag;mm@verag.ag", "UID Prüfung", Body,,, False, "al@verag.ag",, list)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("cw@verag.ag;mm@verag.ag", "UID Prüfung", Body,,, False, "al@verag.ag",, list)
|
||||
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
|
||||
End If
|
||||
End If
|
||||
Return True
|
||||
@@ -720,7 +731,7 @@ Public Class frmStartOptions
|
||||
Dim DY_pwd = "SAPi64c"
|
||||
Dim DY_port = "21"
|
||||
Dim DY_PFAD_out = "/ASCII(bis4.6B)/Importcodenummern/Deutschland/Initialload.zip"
|
||||
Dim VERARBEITUNGS_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\EZT\Importcodenummern\" & Now.Year & "\"
|
||||
Dim VERARBEITUNGS_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\EZT\Importcodenummern\" & Now.Year & "\"
|
||||
If Not System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
|
||||
|
||||
' DAKOSY_Worker.cDakosyFunftions.getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, "", DY_PFAD_out)
|
||||
@@ -806,7 +817,7 @@ Public Class frmStartOptions
|
||||
Function loadEZTZipToDB(pfadZIP As String) As Boolean
|
||||
Try
|
||||
loadEZTZipToDB = False
|
||||
Dim VERARBEITUNGS_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\EZT\Importcodenummern\" & Now.Year & "\Extrakt\"
|
||||
Dim VERARBEITUNGS_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\EZT\Importcodenummern\" & Now.Year & "\Extrakt\"
|
||||
If System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.Delete(VERARBEITUNGS_PFAD, True) 'Zuerst löschen, damit leer ist
|
||||
System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
|
||||
|
||||
@@ -928,7 +939,7 @@ Public Class frmStartOptions
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_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")
|
||||
For Each d In System.IO.Directory.GetDirectories(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
|
||||
Dim fid As New FileInfo(d)
|
||||
If fid.Name >= 20190820 Then
|
||||
|
||||
@@ -941,10 +952,10 @@ Public Class frmStartOptions
|
||||
|
||||
|
||||
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
|
||||
If Not IO.File.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) Then
|
||||
|
||||
|
||||
IO.File.Copy(f, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name)
|
||||
IO.File.Copy(f, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name)
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -999,15 +1010,28 @@ Public Class frmStartOptions
|
||||
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Dim ok As Boolean = False
|
||||
Select Case MyComboBox1._value
|
||||
Case "DY" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_DY_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
|
||||
Case "TC" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_TC_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
|
||||
Case "DHF" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
|
||||
Case "DY" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_DY_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
|
||||
Case "TC" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_TC_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
|
||||
Case "DHF" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
|
||||
End Select
|
||||
|
||||
showPic(ok, PictureBox14)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
Dim ok As Boolean = False
|
||||
Select Case MyComboBox2._value
|
||||
Case "DY" : ok = cVERAG_out_eza.copyFileFTP_VERAGEZA_DY_ByBezugsNr(txtVRGOutEZA_BezugsNr.Text, getISettEZA)
|
||||
'Case "TC" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_TC_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
|
||||
'Case "DHF" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
|
||||
End Select
|
||||
|
||||
showPic(ok, PictureBox15)
|
||||
|
||||
|
||||
End Sub
|
||||
Function getISett ()As cVERAG_Interface_Settings
|
||||
getISett = New cVERAG_Interface_Settings
|
||||
getISett.acticeInterface_OREGON = cbxISett_OREGON.Checked
|
||||
@@ -1018,6 +1042,13 @@ Public Class frmStartOptions
|
||||
getISett.acticeInterface_IMEX = cbxISett_IMEX.Checked
|
||||
End Function
|
||||
|
||||
Function getISettEZA() As cVERAG_Interface_Settings
|
||||
getISettEZA = New cVERAG_Interface_Settings
|
||||
getISettEZA.acticeInterface_VERAG = cbxISettEZA_VERAG.Checked
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub LinkLabel28_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel28.LinkClicked
|
||||
Me.Visible = False
|
||||
@@ -1027,4 +1058,12 @@ Public Class frmStartOptions
|
||||
f.ShowDialog()
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel30_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel30.LinkClicked
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
Dim f As New frmTRNCTS_NachrichtenVerarbeitung
|
||||
f.ShowDialog()
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user