Datev Export, Schnittstelle für HKT (AMBAR), Essensbestellungen,
This commit is contained in:
@@ -1,7 +1,9 @@
|
||||
|
||||
Imports System.Globalization
|
||||
Imports System.Net
|
||||
Imports awt.ShellApi
|
||||
Imports com.sun.org.apache.xerces.internal.impl.dv.xs
|
||||
Imports com.sun.org.apache.xml.internal.serializer
|
||||
Imports java.awt.geom
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
|
||||
@@ -543,11 +545,11 @@ Public Class cFakturierung
|
||||
Dim VORL = RECHNUNG.POSITIONEN.FindAll(Function(x) (x.LeistungsNr = 700 Or x.LeistungsNr = 710))
|
||||
' If ZZKdZahlungszielVL <> ZZKdZahlungsziel Then
|
||||
If VORL IsNot Nothing AndAlso VORL.Count > 0 Then
|
||||
Select Case RECHNUNG.RechnungSprache
|
||||
Case "EN" : strText = strText.Replace("<Vorlageprovision>", "If payment is received by <Rechnungsdatum+ZZVL>, you can deduct the template commission charged. " & vbCrLf)
|
||||
Case Else : strText = strText.Replace("<Vorlageprovision>", "Bei Zahlungseingang bis zum <Rechnungsdatum+ZZVL> können Sie die verrechnete Vorlageprovision in Abzug bringen. " & vbCrLf)
|
||||
End Select
|
||||
End If
|
||||
Select Case RECHNUNG.RechnungSprache
|
||||
Case "EN" : strText = strText.Replace("<Vorlageprovision>", "If payment is received by <Rechnungsdatum+ZZVL>, you can deduct the template commission charged. " & vbCrLf)
|
||||
Case Else : strText = strText.Replace("<Vorlageprovision>", "Bei Zahlungseingang bis zum <Rechnungsdatum+ZZVL> können Sie die verrechnete Vorlageprovision in Abzug bringen. " & vbCrLf)
|
||||
End Select
|
||||
End If
|
||||
' End If
|
||||
End Select
|
||||
|
||||
@@ -1565,6 +1567,24 @@ Public Class cFakturierung
|
||||
MsgBox("Tradeshift Export fehlgeschlagen! " & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
End If
|
||||
|
||||
If RECHNUNG.Firma_ID = 24 Then
|
||||
|
||||
Dim API As New DataTable
|
||||
Dim Program = "DATEV-PDF"
|
||||
API = SQL.loadDgvBySql("SELECT top(1) * FROM tblAPIEinstellungen WHERE api_program='" & Program & "' and api_productive ='" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "0", "1") & "'", "ADMIN")
|
||||
If API.Rows.Count = 0 Then
|
||||
MsgBox("keine gültigen API-Einstellungen für " & Program & " gefunden!")
|
||||
Else
|
||||
|
||||
Dim client As WebClient = New WebClient
|
||||
client.Credentials = New NetworkCredential(API.Rows(0).Item("api_user").ToString, API.Rows(0).Item("api_password").ToString)
|
||||
client.UploadFile(API.Rows(0).Item("api_url") & "/" & RG_Bezeichnung, tmpPath)
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("API Fehler!" & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
@@ -2477,6 +2497,24 @@ Public Class cFakturierung
|
||||
Catch ex As Exception
|
||||
MsgBox("Tradeshift Export fehlgeschlagen! " & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
If dt.Rows(0)("Firma_ID") = 24 Then
|
||||
|
||||
Dim API As New DataTable
|
||||
Dim Program = "DATEV-PDF"
|
||||
API = SQL.loadDgvBySql("SELECT top(1) * FROM tblAPIEinstellungen WHERE api_program='" & Program & "' and api_productive ='" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "0", "1") & "'", "ADMIN")
|
||||
If API.Rows.Count = 0 Then
|
||||
MsgBox("keine gültigen API-Einstellungen für " & Program & " gefunden!")
|
||||
Else
|
||||
|
||||
Dim client As WebClient = New WebClient
|
||||
client.Credentials = New NetworkCredential(API.Rows(0).Item("api_user").ToString, API.Rows(0).Item("api_password").ToString)
|
||||
client.UploadFile(API.Rows(0).Item("api_url") & "/Sammelrechnung_" & RechnungsNr & ".pdf", pathPDF)
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
@@ -2492,7 +2530,7 @@ Public Class cFakturierung
|
||||
Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Anlagen(RechnungsNr As Integer, DruckDatumZeit As Date, PrinterName As String, Optional ByRef pathPDF_Anlage As List(Of String) = Nothing, Optional RechnungsdruckArt As Integer = -1, Optional VorschauID As String = "") As Boolean
|
||||
Dim dt As DataTable
|
||||
If VorschauID = "" Then
|
||||
SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE Rechnungsausgang.Status IN(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
|
||||
SQL.loadDgvBySql("Select RK_ID FROM Rechnungsausgang WHERE Rechnungsausgang.Status In(3) And Convert(DateTime, DruckDatumZeit, 104) ='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
|
||||
Else
|
||||
SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
|
||||
End If
|
||||
@@ -3526,7 +3564,7 @@ Public Class cFakturierung
|
||||
|
||||
where 1=1 "
|
||||
|
||||
If VorschauID="" Then
|
||||
If VorschauID = "" Then
|
||||
SQLStr &= " AND Status IN (" & Status & ") And Convert(DateTime, DruckDatumZeit, 104) ='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "'"
|
||||
Else
|
||||
SQLStr &= " AND RechnungsNr is null And VorschauID='" & VorschauID & "' "
|
||||
|
||||
@@ -50,7 +50,7 @@ Public Class frmAbrechnungsMaske
|
||||
End If
|
||||
|
||||
'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
'FirmaTmp = "AMBAR"
|
||||
' FirmaTmp = "AMBAR"
|
||||
'End If
|
||||
|
||||
MyComboBox2.Items.Clear()
|
||||
|
||||
@@ -543,9 +543,9 @@ Public Class usrCntlFaktAbrechnung
|
||||
FirmaTmp = "VERAGIMEX"
|
||||
End If
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
FirmaTmp = "AMBAR"
|
||||
End If
|
||||
'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
' FirmaTmp = "AMBAR"
|
||||
'End If
|
||||
|
||||
Select Case FirmaTmp
|
||||
Case "VERAG"
|
||||
|
||||
@@ -259,7 +259,8 @@ Public Class UsrCntlessensbestellungen
|
||||
|
||||
Dim mitarbeiter As New cMitarbeiter(cbxMitarbeiter._value)
|
||||
|
||||
Dim MenuID As String = SQL.getValueTxtBySql("select MenuID from tblEBMenu where MenuDateVon = '" & cbxMenu.SelectedItem.ToString & "'", "AVISO")
|
||||
Dim menuDate = cbxMenu.SelectedItem.ToString.Replace(cbxMenu.SelectedItem.Value & " - ", "")
|
||||
Dim MenuID As String = SQL.getValueTxtBySql("select MenuID from tblEBMenu where MenuDateVon = '" & menuDate & "'", "AVISO")
|
||||
|
||||
essen = New cEssensbestellung(cbxMenu._value, cbxMitarbeiter._value, cbxGebäude._value, cbxAbteilung._value, cbxMitarbeiter.Text, txtAnmerkung.Text)
|
||||
|
||||
@@ -592,7 +593,7 @@ Public Class UsrCntlessensbestellungen
|
||||
|
||||
'cbxMenu.fillWithSQL("SELECT Distinct Top 50 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)), MenuDateVon from tblEBMenu order by MenuDateVon desc", False, "AVISO", True)
|
||||
|
||||
cbxMenu.fillWithSQL("SELECT Distinct Top 50 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)), MenuDateVon from tblEBMenu order by MenuDateVon desc", False, "AVISO", True) '/ where MenuDateVon >= GETDATE()
|
||||
cbxMenu.fillWithSQL("SELECT Distinct Top 50 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)), MenuDateVon from tblEBMenu order by MenuDateVon desc", True, "AVISO", True) '/ where MenuDateVon >= GETDATE()
|
||||
|
||||
|
||||
'/ where MenuDateVon >= GETDATE()
|
||||
|
||||
@@ -27,7 +27,7 @@ Public Class frmEssensbestellungen
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dürüm", "Dürüm"))
|
||||
'list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
|
||||
cbxMenu.fillWithSQL("SELECT Distinct Top 50 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)), MenuDateVon from tblEBMenu order by MenuDateVon desc", False, "AVISO", True) '/ where MenuDateVon >= GETDATE()
|
||||
cbxMenu.fillWithSQL("SELECT Distinct Top 50 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)) , MenuDateVon from tblEBMenu order by MenuDateVon desc", True, "AVISO", True) '/ where MenuDateVon >= GETDATE()
|
||||
|
||||
cbxAlt_montag.Items.AddRange(list.ToArray())
|
||||
cbxAlt_dienstag.Items.AddRange(list.ToArray())
|
||||
@@ -58,7 +58,8 @@ Public Class frmEssensbestellungen
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim MenuID As String = SQL.getValueTxtBySql("select MenuID from tblEBMenu where MenuDateVon = '" & cbxMenu.SelectedItem.ToString & "'", "AVISO")
|
||||
Dim menuDate = cbxMenu.SelectedItem.ToString.Replace(cbxMenu.SelectedItem.Value & " - ", "")
|
||||
Dim MenuID As String = SQL.getValueTxtBySql("select MenuID from tblEBMenu where MenuDateVon = '" & menuDate & "'", "AVISO")
|
||||
|
||||
essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG, cAllgemein.MITARBEITER.mit_vname & " " & cAllgemein.MITARBEITER.mit_nname, txtAnmerkung)
|
||||
|
||||
|
||||
@@ -1879,6 +1879,12 @@ Public Class usrCntlKundenuebersicht
|
||||
End Sub
|
||||
|
||||
Private Sub btnPruf_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
|
||||
checkEORI()
|
||||
|
||||
Exit Sub
|
||||
|
||||
|
||||
'Create an object that calls the name for the
|
||||
'Web service used in the added Web Reference.
|
||||
|
||||
@@ -2446,6 +2452,12 @@ Public Class usrCntlKundenuebersicht
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
'printEORI(KUNDE.EORITIN, "C:\Users\DEVELOPER1\Desktop\test.pdf")
|
||||
|
||||
@@ -3148,4 +3160,23 @@ Public Class usrCntlKundenuebersicht
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub checkEORI()
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
Dim EORI_NR = KUNDE.EORITIN.ToString()
|
||||
|
||||
EORI_NR.Replace("-", "").Replace(" ", "").Trim()
|
||||
|
||||
If EORI_NR = "" Then Me.Cursor = Cursors.Default : Exit Sub
|
||||
|
||||
Dim url = SDL.cEORIWebService.genEORI_Formular(kdNr, EORI_NR)
|
||||
|
||||
'Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
|
||||
'If pdf <> "" Then Process.Start(pdf)
|
||||
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@@ -1496,7 +1496,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
Private Sub btnDatevExport_Click(sender As Object, e As EventArgs) Handles btnDatevExport.Click
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DATEV_EXPORT", "SDL") And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
||||
If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, False) Then
|
||||
If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, False, ,, False) Then
|
||||
MsgBox("Stammdaten wurden erfolgreich exportiert!")
|
||||
Else
|
||||
MsgBox("Es wurden keine Stammdaten exportiert!")
|
||||
|
||||
@@ -1,4 +1,6 @@
|
||||
Public Class cDatev_Interface
|
||||
Imports DocumentFormat.OpenXml.Wordprocessing
|
||||
|
||||
Public Class cDatev_Interface
|
||||
|
||||
Shared datevVersion As Integer = 700
|
||||
Shared Datenkategorie As Integer = 16
|
||||
@@ -122,7 +124,7 @@
|
||||
fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
|
||||
|
||||
|
||||
fileKD.WriteLine(genStammdatenHeader(Geschaeftsjahr))
|
||||
fileKD.WriteLine(genStammdatenHeader(Geschaeftsjahr, Now.Month))
|
||||
fileKD.WriteLine(genStammdatenBeginn())
|
||||
|
||||
initKDNr(dt_Stamm, FIRMA.Firma_ID)
|
||||
@@ -234,7 +236,7 @@
|
||||
|
||||
' initKDNr(dt_Buchungen)
|
||||
Dim SummeBuchungen As Double = 0
|
||||
file.WriteLine(genStapelbuchungsHeader(Geschaeftsjahr))
|
||||
file.WriteLine(genStapelbuchungsHeader(Geschaeftsjahr, Now.Month))
|
||||
file.WriteLine(genBuchungenBeginn())
|
||||
For Each r In dt_Buchungen.Rows
|
||||
file.WriteLine(genBuchungsZeile(r, SummeBuchungen, Geschaeftsjahr, FIRMA))
|
||||
@@ -310,12 +312,15 @@
|
||||
Return "Umsatz (ohne Soll/Haben-Kz);Soll/Haben-Kennzeichen;WKZ Umsatz;Kurs;Basis-Umsatz;WKZ Basis-Umsatz;Konto;Gegenkonto (ohne BU-Schlüssel);BU-Schlüssel;Belegdatum;Belegfeld 1;Belegfeld 2;Skonto;Buchungstext;Postensperre;Diverse Adressnummer;Geschäftspartnerbank;Sachverhalt;Zinssperre;Beleglink;Beleginfo - Art 1;Beleginfo - Inhalt 1;Beleginfo - Art 2;Beleginfo - Inhalt 2;Beleginfo - Art 3;Beleginfo - Inhalt 3;Beleginfo - Art 4;Beleginfo - Inhalt 4;Beleginfo - Art 5;Beleginfo - Inhalt 5;Beleginfo - Art 6;Beleginfo - Inhalt 6;Beleginfo - Art 7;Beleginfo - Inhalt 7;Beleginfo - Art 8;Beleginfo - Inhalt 8;KOST1 - Kostenstelle;KOST2 - Kostenstelle;Kost-Menge;EU-Land u. UStID;EU-Steuersatz;Abw. Versteuerungsart;Sachverhalt L+L;Funktionsergänzung L+L;BU 49 Hauptfunktionstyp;BU 49 Hauptfunktionsnummer;BU 49 Funktionsergänzung;Zusatzinformation - Art 1;Zusatzinformation- Inhalt 1;Zusatzinformation - Art 2;Zusatzinformation- Inhalt 2;Zusatzinformation - Art 3;Zusatzinformation- Inhalt 3;Zusatzinformation - Art 4;Zusatzinformation- Inhalt 4;Zusatzinformation - Art 5;Zusatzinformation- Inhalt 5;Zusatzinformation - Art 6;Zusatzinformation- Inhalt 6;Zusatzinformation - Art 7;Zusatzinformation- Inhalt 7;Zusatzinformation - Art 8;Zusatzinformation- Inhalt 8;Zusatzinformation - Art 9;Zusatzinformation- Inhalt 9;Zusatzinformation - Art 10;Zusatzinformation- Inhalt 10;Zusatzinformation - Art 11;Zusatzinformation- Inhalt 11;Zusatzinformation - Art 12;Zusatzinformation- Inhalt 12;Zusatzinformation - Art 13;Zusatzinformation- Inhalt 13;Zusatzinformation - Art 14;Zusatzinformation- Inhalt 14;Zusatzinformation - Art 15;Zusatzinformation- Inhalt 15;Zusatzinformation - Art 16;Zusatzinformation- Inhalt 16;Zusatzinformation - Art 17;Zusatzinformation- Inhalt 17;Zusatzinformation - Art 18;Zusatzinformation- Inhalt 18;Zusatzinformation - Art 19;Zusatzinformation- Inhalt 19;Zusatzinformation - Art 20;Zusatzinformation- Inhalt 20;Stück;Gewicht;Zahlweise;Forderungsart;Veranlagungsjahr;Zugeordnete Fälligkeit;Skontotyp;Auftragsnummer;Buchungstyp (Anzahlungen);USt-Schlüssel (Anzahlungen);EU-Land (Anzahlungen);Sachverhalt L+L (Anzahlungen);EU-Steuersatz (Anzahlungen);Erlöskonto (Anzahlungen);Herkunft-Kz;Buchungs GUID;KOST-Datum;SEPA-Mandatsreferenz;Skontosperre;Gesellschaftername;Beteiligtennummer;Identifikationsnummer;Zeichnernummer;Postensperre bis;Bezeichnung SoBil-Sachverhalt;Kennzeichen SoBil-Buchung;Festschreibung;Leistungsdatum;Datum Zuord. Steuerperiode;Fälligkeit;Generalumkehr (GU);Steuersatz;Land;Abrechnungsreferenz;BVV-Position"
|
||||
End Function
|
||||
Public Shared Function genBuchungenEnd() As String
|
||||
Return ""
|
||||
End Function
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Shared Function genStammdatenHeader(Geschäftsjahr As Integer) As String
|
||||
Public Shared Function genStammdatenHeader(Geschäftsjahr As Integer, aktuellesMonat As Integer) As String
|
||||
|
||||
Dim day = New cFeiertage(Geschäftsjahr)
|
||||
|
||||
Dim headerString = Chr(34) & "EXTF" & Chr(34) & ";" 'Export aus 3rd Party App
|
||||
headerString &= datevVersion.ToString & ";"
|
||||
headerString &= Datenkategorie.ToString & ";"
|
||||
@@ -326,16 +331,17 @@
|
||||
headerString &= MandantenNr.ToString & ";" 'Mandantennummer
|
||||
headerString &= Geschäftsjahr.ToString & "0101" & ";" 'WJ-Beginn
|
||||
headerString &= KontenlängePersonKto.ToString & ";"
|
||||
headerString &= Geschäftsjahr.ToString & "0101" & ";" 'DatumVon
|
||||
headerString &= Geschäftsjahr.ToString & "1231" & ";" 'DatumBis
|
||||
headerString &= Geschäftsjahr.ToString & aktuellesMonat & "01" & ";" 'DatumVon
|
||||
headerString &= Geschäftsjahr.ToString & aktuellesMonat & day.GetLastyDayYInxMonth(Now.DayOfWeek, aktuellesMonat, Geschäftsjahr, True) & ";" 'DatumBis
|
||||
headerString &= "IMPORT AUS AVISO;" 'Bezeichnung
|
||||
headerString &= Chr(34) & Chr(34) & ";"
|
||||
headerString &= emptyFormatedValueWithoutCommas(12)
|
||||
Return headerString
|
||||
End Function
|
||||
|
||||
Public Shared Function genStapelbuchungsHeader(Geschäftsjahr As Integer) As String
|
||||
Public Shared Function genStapelbuchungsHeader(Geschäftsjahr As Integer, aktuellesMonat As Integer) As String
|
||||
Dim headerString = Chr(34) & "EXTF" & Chr(34) & ";" 'Export aus 3rd Party App
|
||||
Dim day = New cFeiertage(Geschäftsjahr)
|
||||
headerString &= datevVersion.ToString & ";" 'Versionnummer Datev
|
||||
headerString &= StapelbuchungsNr.ToString & ";" 'Stapelbuchungen
|
||||
headerString &= Chr(34) & "Buchungsstapel" & Chr(34) & ";" 'Buchungsstapel
|
||||
@@ -345,8 +351,8 @@
|
||||
headerString &= MandantenNr.ToString & ";"
|
||||
headerString &= Geschäftsjahr.ToString & "0101" & ";" 'WJ-Beginn
|
||||
headerString &= KontenlängeSachKto.ToString & ";"
|
||||
headerString &= Geschäftsjahr.ToString & "0101" & ";" 'DatumVon
|
||||
headerString &= Geschäftsjahr.ToString & "1231" & ";" 'DatumBis
|
||||
headerString &= Geschäftsjahr.ToString & aktuellesMonat & "01" & ";" 'DatumVon
|
||||
headerString &= Geschäftsjahr.ToString & aktuellesMonat & day.GetLastyDayYInxMonth(Now.DayOfWeek, aktuellesMonat, Geschäftsjahr, True) & ";" 'DatumBis
|
||||
headerString &= "IMPORT AUS AVISO;" 'Bezeichnung
|
||||
headerString &= Chr(34) & Chr(34) & ";"
|
||||
headerString &= emptyFormatedValueWithoutCommas(12)
|
||||
@@ -354,10 +360,9 @@
|
||||
End Function
|
||||
|
||||
Public Shared Function genStammdatenEnd() As String
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen) As String
|
||||
Return ""
|
||||
End Function
|
||||
Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen) As String
|
||||
genBuchungsZeile = ""
|
||||
Dim steuerbetragLokal As Double = 0
|
||||
Dim steuerbetragFremd As Double = 0
|
||||
@@ -559,65 +564,63 @@
|
||||
' Trdin=false
|
||||
|
||||
Shared Function getSteuercode(r As DataRow, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen) As String
|
||||
Select Case r("Sachkonto")
|
||||
'Case "3550", "3553", "3558"
|
||||
' Return "999"
|
||||
Case Else
|
||||
Select Case r("Sachkonto")
|
||||
'Case "3550", "3553", "3558"
|
||||
' Return "999"
|
||||
Case Else
|
||||
|
||||
If Not CBool(r("Steuerpflichtig")) Then
|
||||
'Vorher immer return "" - galube es soll bei eu aber 77 sein...
|
||||
If Not CBool(r("Steuerpflichtig")) Then
|
||||
'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
|
||||
Else
|
||||
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
|
||||
Else
|
||||
If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then
|
||||
Return "77" ' EU-LAND
|
||||
Else
|
||||
Return "" ' Drittland
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End Select
|
||||
Return ""
|
||||
End Function
|
||||
End Select
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Shared Function getDbl(o As Object) As Double
|
||||
Try
|
||||
If o Is Nothing Then Return 0
|
||||
If o Is DBNull.Value Then Return 0
|
||||
Return CDbl(o)
|
||||
Catch ex As Exception
|
||||
Return 0
|
||||
End Try
|
||||
End Function
|
||||
Shared Function getDbl2(o As Object) As Double
|
||||
Try
|
||||
If o Is Nothing Then Return 0
|
||||
If o Is DBNull.Value Then Return 0
|
||||
Return CDbl(o.ToString.Replace(".", ","))
|
||||
Catch ex As Exception
|
||||
Return 0
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function getDbltr(o As Object) As String
|
||||
Try
|
||||
If o Is Nothing Then Return 0
|
||||
If o Is DBNull.Value Then Return 0
|
||||
Shared Function getDbl(o As Object) As Double
|
||||
Try
|
||||
If o Is Nothing Then Return 0
|
||||
If o Is DBNull.Value Then Return 0
|
||||
Return CDbl(o)
|
||||
Catch ex As Exception
|
||||
Return 0
|
||||
End Try
|
||||
End Function
|
||||
Shared Function getDbl2(o As Object) As Double
|
||||
Try
|
||||
If o Is Nothing Then Return 0
|
||||
If o Is DBNull.Value Then Return 0
|
||||
Return CDbl(o.ToString.Replace(".", ","))
|
||||
Catch ex As Exception
|
||||
Return 0
|
||||
End Try
|
||||
End Function
|
||||
Shared Function getDbltr(o As Object) As String
|
||||
Try
|
||||
If o Is Nothing Then Return 0
|
||||
If o Is DBNull.Value Then Return 0
|
||||
Return CDbl(o).ToString("F2").Replace(".", "").Replace(" ", "") '.Replace(",", ".")
|
||||
Catch ex As Exception
|
||||
Return 0
|
||||
End Try
|
||||
End Function
|
||||
Return 0
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Shared Function fill0Stellen(i As Object, l As Integer) As String
|
||||
If i Is DBNull.Value Then i = ""
|
||||
@@ -635,7 +638,6 @@
|
||||
For i = 1 To count
|
||||
|
||||
retturnText &= Chr(34) & Chr(34) & ";"
|
||||
|
||||
Next
|
||||
|
||||
Return retturnText
|
||||
|
||||
@@ -200,7 +200,7 @@ Public Class cAllgemein
|
||||
|
||||
If isEU Then
|
||||
If UIDLandKz <> "" AndAlso UstIdNr <> "" AndAlso UstIdGeprüft IsNot Nothing Then
|
||||
Return 0
|
||||
Return 10
|
||||
Else
|
||||
Return 2
|
||||
End If
|
||||
@@ -214,7 +214,7 @@ Public Class cAllgemein
|
||||
|
||||
If isEU Then
|
||||
If UIDLandKz <> "" AndAlso UstIdNr <> "" AndAlso UstIdGeprüft IsNot Nothing Then
|
||||
Return 0
|
||||
Return 10
|
||||
Else
|
||||
Return 19
|
||||
End If
|
||||
@@ -228,7 +228,7 @@ Public Class cAllgemein
|
||||
|
||||
If isEU Then
|
||||
If UIDLandKz <> "" AndAlso UstIdNr <> "" AndAlso UstIdGeprüft IsNot Nothing Then
|
||||
Return 0
|
||||
Return 10
|
||||
Else
|
||||
Return 20
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user