diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 6d9067bc..ec7619ad 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -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("", "If payment is received by , you can deduct the template commission charged. " & vbCrLf) - Case Else : strText = strText.Replace("", "Bei Zahlungseingang bis zum können Sie die verrechnete Vorlageprovision in Abzug bringen. " & vbCrLf) - End Select - End If + Select Case RECHNUNG.RechnungSprache + Case "EN" : strText = strText.Replace("", "If payment is received by , you can deduct the template commission charged. " & vbCrLf) + Case Else : strText = strText.Replace("", "Bei Zahlungseingang bis zum 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 & "' " diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index 11625b97..ed518281 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -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() diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 566c82fb..57644982 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -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" diff --git a/SDL/UsrCntlEssensbestellungen.vb b/SDL/UsrCntlEssensbestellungen.vb index 7681b122..4d98508b 100644 --- a/SDL/UsrCntlEssensbestellungen.vb +++ b/SDL/UsrCntlEssensbestellungen.vb @@ -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() diff --git a/SDL/frmEssensbestellungen.vb b/SDL/frmEssensbestellungen.vb index 13c255cd..59c31f61 100644 --- a/SDL/frmEssensbestellungen.vb +++ b/SDL/frmEssensbestellungen.vb @@ -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) diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index de04d910..de0a58ee 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -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 diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index aa782a00..cc56afb1 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -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!") diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb index 8eeb1851..a88e9480 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/cAllgemein.vb b/VERAG_PROG_ALLGEMEIN/cAllgemein.vb index 71bcd340..28e53f1a 100644 --- a/VERAG_PROG_ALLGEMEIN/cAllgemein.vb +++ b/VERAG_PROG_ALLGEMEIN/cAllgemein.vb @@ -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