neu
This commit is contained in:
@@ -237,9 +237,10 @@
|
||||
|
||||
'DATEIPFAD für Stammdaten
|
||||
'-------------------------------------------------------------------------------------------
|
||||
Dim pathKD = "" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
|
||||
Dim pathArchivKD = "\\share01\Datenarchiv\UNISPED\BMD\STAMMDATEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
|
||||
pathKD = pathArchivKD 'TEST
|
||||
Dim pathArchivKD = "\\srv07.unisu.at\Unisped Daten\VERAG AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
|
||||
Dim pathKD = "\\share01\Datenarchiv\UNISPED\BMD\STAMMDATEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
|
||||
'pathKD = pathArchivKD 'TEST
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
'path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir
|
||||
'pathArchivKD = ""
|
||||
@@ -249,42 +250,48 @@
|
||||
'-------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
Dim fileKD As System.IO.StreamWriter
|
||||
Dim DateinameKD = "BMD_KD_" & Now.ToString("ddMMyyyy_HHmm") & ".csv"
|
||||
fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
|
||||
|
||||
|
||||
fileKD.WriteLine(genStammdatenBeginn())
|
||||
If True Then 'boolKunden Then
|
||||
'----------------- STAMMDATEN -----------------
|
||||
Dim dt_Stamm As DataTable = getStammdaten()
|
||||
If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then
|
||||
|
||||
Dim fileKD As System.IO.StreamWriter
|
||||
Dim DateinameKD = "BMD_KD_" & Now.ToString("ddMMyyyy_HHmm") & ".csv"
|
||||
fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
|
||||
|
||||
|
||||
fileKD.WriteLine(genStammdatenBeginn())
|
||||
|
||||
|
||||
|
||||
initKDNr(dt_Stamm)
|
||||
For Each r In dt_Stamm.Rows
|
||||
fileKD.WriteLine(getPersonenKto(r))
|
||||
Next
|
||||
bool_DatenVorhanden = True
|
||||
|
||||
|
||||
fileKD.Close()
|
||||
|
||||
'In Archiv sichern
|
||||
If pathArchivKD <> "" Then
|
||||
If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD)
|
||||
If pathKD <> pathArchivKD Then IO.File.Copy(pathKD & DateinameKD, pathArchivKD & DateinameKD)
|
||||
End If
|
||||
|
||||
If bool_DatenVorhanden Then
|
||||
If OpenFile Then Process.Start(pathKD & DateinameKD)
|
||||
Else
|
||||
IO.File.Delete(pathKD & DateinameKD)
|
||||
End If
|
||||
|
||||
updateFibu() ' UPDATE FiBuSchnittstelle --> 0
|
||||
|
||||
End If
|
||||
updateFibu() ' UPDATE FiBuSchnittstelle --> 0
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
fileKD.Close()
|
||||
|
||||
'In Archiv sichern
|
||||
If pathArchivKD <> "" Then
|
||||
If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD)
|
||||
If pathKD <> pathArchivKD Then IO.File.Copy(pathKD & DateinameKD, pathArchivKD & DateinameKD)
|
||||
End If
|
||||
|
||||
If bool_DatenVorhanden Then
|
||||
If OpenFile Then Process.Start(pathKD & DateinameKD)
|
||||
Else
|
||||
IO.File.Delete(pathKD & DateinameKD)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
@@ -314,9 +321,9 @@
|
||||
|
||||
'DATEIPFAD für Buchungsdaten
|
||||
'-------------------------------------------------------------------------------------------
|
||||
Dim path = "" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
|
||||
Dim pathArchiv = "\\share01\Datenarchiv\UNISPED\BMD\BUCHUNGEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
|
||||
path = pathArchiv 'TEST
|
||||
Dim pathArchiv = "\\srv07.unisu.at\Unisped Daten\VERAG AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
|
||||
Dim path = "\\share01\Datenarchiv\UNISPED\BMD\BUCHUNGEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
|
||||
' path = pathArchiv 'TEST
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
'path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir
|
||||
'pathArchiv = ""
|
||||
@@ -334,9 +341,6 @@
|
||||
End Select
|
||||
|
||||
|
||||
Dim file As System.IO.StreamWriter
|
||||
Dim Dateiname = "BMD_IMP_" & NameZusatz & Now.ToString("ddMMyyyy_HHmm") & ".csv"
|
||||
file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
|
||||
|
||||
'----------------- Buchungssätze -----------------
|
||||
If True Then 'boolBuchungen Then
|
||||
@@ -344,6 +348,10 @@
|
||||
Dim dt_Buchungen As DataTable = getBuchungen(FIRMA.Firma_ID)
|
||||
If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then
|
||||
Try
|
||||
Dim file As System.IO.StreamWriter
|
||||
Dim Dateiname = "BMD_IMP_" & NameZusatz & Now.ToString("ddMMyyyy_HHmm") & ".csv"
|
||||
file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
|
||||
|
||||
' initKDNr(dt_Buchungen)
|
||||
Dim SummeBuchungen As Double = 0
|
||||
file.WriteLine(genBuchungenBeginn())
|
||||
@@ -352,29 +360,33 @@
|
||||
Next
|
||||
' file.WriteLine(genBuchungenEnd(SummeBuchungen))
|
||||
bool_DatenVorhanden = True
|
||||
|
||||
'Update Filename TrdIn
|
||||
SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL")
|
||||
|
||||
file.Close()
|
||||
|
||||
'In Archiv sichern
|
||||
If pathArchiv <> "" Then
|
||||
If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
|
||||
If path <> pathArchiv Then IO.File.Copy(path & Dateiname, pathArchiv & Dateiname)
|
||||
End If
|
||||
|
||||
If bool_DatenVorhanden Then
|
||||
If OpenFile Then Process.Start(path & Dateiname)
|
||||
Else
|
||||
IO.File.Delete(path & Dateiname)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
'Update Filename TrdIn
|
||||
SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL")
|
||||
'SQL.doSQL("update [VERAG].[dbo].[tblTrdinInvoice] set TrdinDateiname='" & Dateiname & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL") --> Auf 12 Zeichen beschränkt!
|
||||
|
||||
End If
|
||||
End If
|
||||
'----------------------------------
|
||||
|
||||
file.Close()
|
||||
|
||||
'In Archiv sichern
|
||||
If pathArchiv <> "" Then
|
||||
If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
|
||||
If path <> pathArchiv Then IO.File.Copy(path & Dateiname, pathArchiv & Dateiname)
|
||||
End If
|
||||
|
||||
If bool_DatenVorhanden Then
|
||||
If OpenFile Then Process.Start(path & Dateiname)
|
||||
Else
|
||||
IO.File.Delete(path & Dateiname)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
@@ -448,10 +460,8 @@
|
||||
If CBool(row("Steuerpflichtig")) Then
|
||||
genBuchungsZeile &= (getDbl2(row("Steuersatz")) * 100) & ";" 'buchcode === 1 oder 2??
|
||||
Else
|
||||
genBuchungsZeile &= ";" 'buchcode === 1 oder 2??
|
||||
genBuchungsZeile &= "0;" 'buchcode === 1 oder 2??
|
||||
End If
|
||||
genBuchungsZeile &= getDbltr(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")) + getDbl(row("SteuerpflichtigerBetragFremd")) + getDbl(row("SteuerfreierBetragFremd"))) & ";" 'betrag
|
||||
|
||||
|
||||
Dim steuerbetragLokal As Double = 0
|
||||
If CBool(row("Steuerpflichtig")) Then
|
||||
@@ -459,7 +469,9 @@
|
||||
steuerbetragLokal += CDbl((getDbl2(row("SteuerpflichtigerBetragFremd")) * getDbl2(row("Steuersatz"))))
|
||||
End If
|
||||
If steuerbetragLokal < 0 Then steuerbetragLokal = steuerbetragLokal * -1
|
||||
genBuchungsZeile &= "" & If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "") & ";" 'steuer
|
||||
|
||||
genBuchungsZeile &= getDbltr(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")) + getDbl(row("SteuerpflichtigerBetragFremd")) + getDbl(row("SteuerfreierBetragFremd")) + If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "0")) & ";" 'betrag + steuer (brutto)
|
||||
genBuchungsZeile &= "" & If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "0") & ";" 'steuer
|
||||
|
||||
genBuchungsZeile &= FormatStringDVO(SQL.DLookup("[Ordnungsbegriff]", "Adressen", " AdressenNr= " & row("KundenNrZentrale"), "FMZOLL", "")) & ";" ' BuchungsText bei UNISPED ist der FIRMENNAME!!
|
||||
' genBuchungsZeile &= FormatStringDVO(row("Buchungstext")) & ";" ' Text
|
||||
@@ -494,7 +506,12 @@
|
||||
Case Else
|
||||
|
||||
If Not CBool(r("Steuerpflichtig")) Then
|
||||
Return ""
|
||||
'Vorher immer return "" - galube es soll bei eu aber 77 sein...
|
||||
If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then
|
||||
Return "77" ' EU-LAND
|
||||
Else
|
||||
Return "" ' Drittland
|
||||
End If
|
||||
Else
|
||||
If (r("RechnungsLandKz")).ToString.Replace("AT", "A").Replace("DE", "D") = FIRMA.Firma_LandKz Then 'Abhängig von FIRMA --> INLAND!!!!!!
|
||||
Return "1" 'Steuerpflichtig und AT
|
||||
@@ -537,7 +554,7 @@
|
||||
Try
|
||||
If o Is Nothing Then Return 0
|
||||
If o Is DBNull.Value Then Return 0
|
||||
Return CDbl(o).ToString("N2").Replace(".", "").Replace(",", ".")
|
||||
Return CDbl(o).ToString("N2").Replace(".", "") '.Replace(",", ".")
|
||||
Catch ex As Exception
|
||||
Return 0
|
||||
End Try
|
||||
|
||||
Reference in New Issue
Block a user