Imports System.Text Imports System.IO Public Class cATLAS_FSS Dim trennzeichen As String = Chr(29) Dim mydocpath As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\VERAG\SDL\ATLAS_FSS" Dim enc As Encoding = System.Text.Encoding.ASCII '.GetEncoding(1252) '1252 = ANSI Dim serverpath = "" Dim serverpathOUT = "" Dim server As String = "" Public serverpath_SUB As String = "\\192.168.0.95\G\atlas\atlas" Public serverpath_SBG As String = "\\192.168.133.98\G\atlas\atlas" 'Schreiben Dat-Datei Public Function sendArtikelToATLAS(server_tmp As String, artikel As cArtikel) As String server = server_tmp If server = "SUB" Then serverpath = serverpath_SUB & "\fssinbas\" serverpathOUT = serverpath_SUB & "\fsslgbas\" ElseIf server = "SBG" Then serverpath = serverpath_SBG & "\fssinbas\" serverpathOUT = serverpath_SBG & "\fsslgbas\" Else Return "" End If Try Dim filename = genFile(artikel) If System.IO.File.Exists(serverpath & filename) Then ' MsgBox("true") Return serverpathOUT & filename Else ' MsgBox("false") Return "ERROR: Ausgabedatei existiert nicht." End If 'MsgBox(mydocpath & "\" & filename) 'MsgBox("\\192.168.0.95\G\atlas\atlas\fssinbas\" & filename) 'System.IO.File.Copy(mydocpath & "\" & filename, "\\192.168.0.95\G\atlas\atlas\fssinbas\" & filename) Catch ex As Exception MsgBox("Es ist ein Fehler beim Übertragen der Daten aufgetreten:" & vbNewLine & vbNewLine & ex.Message) End Try Return "" End Function Public Function genFile(artikel As cArtikel, Optional kundennummer As String = "") As String ' Set a variable to the My Documents path. ' MsgBox(My.Computer.FileSystem.SpecialDirectories.MyDocuments) If Not System.IO.Directory.Exists(mydocpath) Then System.IO.Directory.CreateDirectory(mydocpath) End If Dim sb As New StringBuilder() ' Enumerate the files in teh My Documents path, filtering for text files only. ' Open a stream reader and write the name of the file, a visual separator, and the contents ' of the file to the stream. sb.AppendLine(genHEAD()) ' If verarbeitungskennzeichen <> "" Then 'artikel.Verarbeitungskennzeichen = verarbeitungskennzeichen ' End If artikel.Teilsatzschlüssel = "ART" artikel.Verarbeitungskennzeichen = "0" 'Keine Änderung möglich Dim line As String = "" line &= artikel.Teilsatzschlüssel & trennzeichen line &= artikel.Verarbeitungskennzeichen & trennzeichen line &= artikel.Artikelnummer & trennzeichen line &= artikel.Dynamische_Ergänzung_1 & trennzeichen line &= artikel.Dynamische_Ergänzung_2 & trennzeichen line &= artikel.Kundennummer & trennzeichen line &= artikel.Warencodenummer & trennzeichen line &= artikel.Löschkennzeichen_Warencodenummer & trennzeichen line &= artikel.Zusatzcode_1 & trennzeichen line &= artikel.Löschkennzeichen_Zusatzcode_1 & trennzeichen line &= artikel.Zusatzcode_2 & trennzeichen line &= artikel.Löschkennzeichen_Zusatzcode_2 & trennzeichen line &= artikel.Kennzeichen_Gültig & trennzeichen line &= artikel.Kurzbezeichnung & trennzeichen line &= artikel.Löschkennzeichen_Kurzbezeichnung & trennzeichen line &= artikel.Warenbeschreibung & trennzeichen line &= artikel.Löschkennzeichen_Warenbeschreibung & trennzeichen line &= artikel.Statistische_Maßeinheit & trennzeichen line &= artikel.Löschkennzeichen_Statistische_Maßeinheit & trennzeichen line &= artikel.Statistische_Maßeinheit_Qualifikator & trennzeichen line &= artikel.Löschkennzeichen_Statistische_Maßeinheit_Qualifikator & trennzeichen line &= artikel.Besondere_Maßeinheit & trennzeichen line &= artikel.Löschkennzeichen_Besondere_Maßeinheit & trennzeichen line &= artikel.Besondere_Maßeinheit_Qualifikator & trennzeichen line &= artikel.Löschkennzeichen_Besondere_Maßeinheit_Qualifikator & trennzeichen line &= artikel.Gewicht & trennzeichen line &= artikel.Löschkennzeichen_Gewicht & trennzeichen line &= artikel.Menge & trennzeichen line &= artikel.Löschkennzeichen_Menge line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= trennzeichen line &= Now.ToString("yyyyMMdd") sb.AppendLine(line) Try ' Write the stream cotnents to a new file named "AllTxtFiles.txt"' Dim filename As String = "FSS_ARTIKEL_" & Now.ToString("yyyyMMddHHmmssfff") 'Dim filename As String = "A421S0002" 'Using outfile As New StreamWriter(mydocpath & "\" & filename, False, enc) Try ' My.Computer.Network.UploadFile("C:\Test.txt", "\\pc2\Folder") ??? Using outfile As New StreamWriter(serverpath & filename, False, enc) outfile.Write(sb.ToString()) End Using Catch ex As Exception MsgBox(ex.Message) End Try Return filename Catch ex As Exception Return "" End Try End Function Public Function genHEAD() As String Dim headsrt As String = "" Dim head As New cHEAD If server = "SBG" Then head.kundennummer = "0617" head.niederlassung = "SBG" End If If server = "SUB" Then head.kundennummer = "0421" head.niederlassung = "SUB" End If headsrt &= head.key & trennzeichen headsrt &= head.strukturtyp & trennzeichen headsrt &= head.art & trennzeichen headsrt &= head.richtung & trennzeichen headsrt &= head.iso & trennzeichen headsrt &= head.dateiname & trennzeichen headsrt &= head.version & trennzeichen headsrt &= head.kundennummer & trennzeichen headsrt &= head.tin & trennzeichen headsrt &= head.niederlassungsnummer & trennzeichen headsrt &= head.verfahrensbereich & trennzeichen headsrt &= head.dienststellennummer & trennzeichen headsrt &= head.nachrichtenname & trennzeichen headsrt &= head.schemaVersion & trennzeichen headsrt &= head.testFlag & trennzeichen headsrt &= head.datumUhrzeit & trennzeichen headsrt &= head.mandant & trennzeichen headsrt &= head.niederlassung & trennzeichen headsrt &= head.zabisModul & trennzeichen headsrt &= head.statuskennzeichen & trennzeichen headsrt &= head.rueckmeldungskennzeichen & trennzeichen headsrt &= head.kennzeichenVerfahren & trennzeichen headsrt &= head.messageId & trennzeichen headsrt &= head.inreplyTo & trennzeichen headsrt &= head.Subtyp Return headsrt End Function End Class Public Class cHEAD Property key As String = "HEAD" Property strukturtyp As String = "001" Property art As String = "inh" Property richtung As String = "KD_ZAB" Property iso As String = "1" Property dateiname As String = "A421S0002" Property version As String = "07000" Property kundennummer As String = "0421" Property tin As String = "" Property niederlassungsnummer As String = "" Property verfahrensbereich As String = "" Property dienststellennummer As String = "" Property nachrichtenname As String = "BAR" Property schemaVersion As String = "" Property testFlag As String = "" Property datumUhrzeit As String = Now.ToString("yyyyMMddhhmmss") Property mandant As String = "VERA" Property niederlassung As String = "SUB" Property zabisModul As String = "BAS" Property statuskennzeichen As String = "" Property rueckmeldungskennzeichen As String = "" Property kennzeichenVerfahren As String = "" Property messageId As String = "" Property inreplyTo As String = "" Property Subtyp As String = "1" End Class Public Class cArtikel Property zollArt_id As Integer = -1 Property Teilsatzschlüssel As String = "" Property Verarbeitungskennzeichen As String = "" Property Artikelnummer As String = "" Property Dynamische_Ergänzung_1 As String = "" Property Dynamische_Ergänzung_2 As String = "" Property Kundennummer As String = "" Property Warencodenummer As String = "" Property Löschkennzeichen_Warencodenummer As String = "" Property Zusatzcode_1 As String = "" Property Löschkennzeichen_Zusatzcode_1 As String = "" Property Zusatzcode_2 As String = "" Property Löschkennzeichen_Zusatzcode_2 As String = "" Property Kennzeichen_Gültig As String = "1" ' 1 =gültig für alle NL Property Kurzbezeichnung As String = "" Property Löschkennzeichen_Kurzbezeichnung As String = "" Property Warenbeschreibung As String = "" Property Löschkennzeichen_Warenbeschreibung As String = "" Property Statistische_Maßeinheit As String = "" Property Löschkennzeichen_Statistische_Maßeinheit As String = "" Property Statistische_Maßeinheit_Qualifikator As String = "" Property Löschkennzeichen_Statistische_Maßeinheit_Qualifikator As String = "" Property Besondere_Maßeinheit As String = "" Property Löschkennzeichen_Besondere_Maßeinheit As String = "" Property Besondere_Maßeinheit_Qualifikator As String = "" Property Löschkennzeichen_Besondere_Maßeinheit_Qualifikator As String = "" Property Gewicht As String = "" Property Löschkennzeichen_Gewicht As String = "" Property Menge As String = "" Property Löschkennzeichen_Menge As String = "" Property tmp_rueckgabeFileSUB As String = "" Property tmp_rueckgabeFileSBG As String = "" Property tmp_rueckgabetextSUB As String = "" Property tmp_rueckgabeSUB As Boolean = False Property tmp_rueckgabetextSBG As String = "" Property tmp_rueckgabeSBG As Boolean = False Property status As String = "" End Class