diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index bfe51fc4..36b3247f 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -1804,18 +1804,28 @@ Public Class cRKSV_DE End Function + Shared Function getRKSVLink(ByVal kasse As cRKSV_Kasse) As String + Return kasse.rksv_ipAdresse + 'Return getRKSVLink(kasse.rksv_bez) + End Function Shared Function insertRKSV_DE(PERSONAL As cPersonal, BELEG As EABeleg, ByVal kasse As cRKSV_Kasse, ByVal RKSV_Beleg_Id As Integer, ByVal summeBRUTTO As Double, ByRef QR_CodeString As String, ByRef LastJWS As String, TEST As Boolean, ByRef answer As String, Optional storno As Integer = 0) As Boolean Try + Dim cashbox As String = kasse.rksv_KassaGuid '"VERAG_GMBH_KASSE_01" "KASSA 001" - Dim m_com As VERAG_PROG_ALLGEMEIN.RKSV_DE.DSFinVKServerClient = New VERAG_PROG_ALLGEMEIN.RKSV_DE.DSFinVKServerClient + 'Dim endpoint = New System.ServiceModel.EndpointAddress(getRKSVLink(kasse)) + ' Dim m_com As VERAG_PROG_ALLGEMEIN.DSFinVKService.DSFinVKServerClient = New VERAG_PROG_ALLGEMEIN.DSFinVKService.DSFinVKServerClient("DSFinVKService", endpoint) '"http://ymgk028055.verag.ost.dmn:8733/DSFinVKService") + + Dim m_com As VERAG_PROG_ALLGEMEIN.DSFinVKService.DSFinVKServerClient = New VERAG_PROG_ALLGEMEIN.DSFinVKService.DSFinVKServerClient() 'PROBLEM?? + + ' Dim [error] = "" 'm_com.InitializeLibrary(tbLicense.Text, "D:\Database\DSFinVK\dsfinvkdb.db3", "Administrator", "test", cashbox) Dim [error] = m_com.InitializeLibrary("SQLGUIDE01.verag.ost.dmn", "itg_RKSV_DE", "dsfinvk", "dsfinvk#1337", cashbox) - If [error] <> VERAG_PROG_ALLGEMEIN.RKSV_DE.ErrorCode.OK Then + If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then MessageBox.Show([error].ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error]) Return False End If @@ -1824,7 +1834,7 @@ Public Class cRKSV_DE Dim BON_ID As Integer = 0 [error] = m_com.GetNextBON_ID(cashbox, BON_ID) - If [error] <> VERAG_PROG_ALLGEMEIN.RKSV_DE.ErrorCode.OK Then + If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then MessageBox.Show([error].ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error]) Return False End If @@ -1832,7 +1842,7 @@ Public Class cRKSV_DE Dim BON_NR As Integer = 0 [error] = m_com.GetNextBON_ID(cashbox, BON_NR) - If [error] <> VERAG_PROG_ALLGEMEIN.RKSV_DE.ErrorCode.OK Then + If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then MessageBox.Show([error].ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error]) Return False End If @@ -1841,7 +1851,7 @@ Public Class cRKSV_DE 'Rechnung beginnen - Dim bonkopfBegin As VERAG_PROG_ALLGEMEIN.RKSV_DE.BonKopfBegin = New VERAG_PROG_ALLGEMEIN.RKSV_DE.BonKopfBegin() + Dim bonkopfBegin As VERAG_PROG_ALLGEMEIN.DSFinVKService.BonKopfBegin = New VERAG_PROG_ALLGEMEIN.DSFinVKService.BonKopfBegin() bonkopfBegin.Z_KASSE_ID = cashbox @@ -1888,7 +1898,7 @@ Public Class cRKSV_DE For Each POS In BELEG.POS 'Bonposition hinzufügen - Dim position As VERAG_PROG_ALLGEMEIN.RKSV_DE.BonPosition = New VERAG_PROG_ALLGEMEIN.RKSV_DE.BonPosition() + Dim position As VERAG_PROG_ALLGEMEIN.DSFinVKService.BonPosition = New VERAG_PROG_ALLGEMEIN.DSFinVKService.BonPosition() position.AGENTUR_ID = "" 'Convert.ToInt32(dgvBonPos.Rows[m_dgvCurrentRow].Cells["AGENTUR_ID"].Value) @@ -1930,7 +1940,7 @@ Public Class cRKSV_DE ' Beträge der Position - Dim position_vat = New VERAG_PROG_ALLGEMEIN.RKSV_DE.BonPosition_Ust() + Dim position_vat = New VERAG_PROG_ALLGEMEIN.DSFinVKService.BonPosition_Ust() position_vat.BON_ID = position.BON_ID @@ -1960,7 +1970,7 @@ Public Class cRKSV_DE 'Rechnung abschließen - Dim bonkopfFinish As VERAG_PROG_ALLGEMEIN.RKSV_DE.BonKopfFinish = New VERAG_PROG_ALLGEMEIN.RKSV_DE.BonKopfFinish() + Dim bonkopfFinish As VERAG_PROG_ALLGEMEIN.DSFinVKService.BonKopfFinish = New VERAG_PROG_ALLGEMEIN.DSFinVKService.BonKopfFinish() bonkopfFinish.Z_KASSE_ID = cashbox @@ -2025,12 +2035,12 @@ Public Class cRKSV_DE Dim transactionStart As Date Dim transactionFinish As Date Dim sigCounter As String - m_com.GetLastReceiptValues(transactionNumberRet, serialNumber, signature, transactionStart, transactionFinish, sigCounter) + m_com.GetLastReceiptValues(cashbox, transactionNumberRet, serialNumber, signature, transactionStart, transactionFinish, sigCounter) Dim qrCode As String = String.Empty Dim mimeType As String = String.Empty - m_com.GetLastReceiptQrCode(qrCode, mimeType) + m_com.GetLastReceiptQrCode(cashbox, qrCode, mimeType) QR_CodeString = qrCode diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 6684d3a7..2ac4262a 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -291,7 +291,8 @@ Public Class cFakturierung End If End Sub - Shared Function przRechnungstext(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As String ', ByRef strZahlbar As String, ByRef strText As String) + + Shared Function przRechnungstextZZ(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As String ', ByRef strZahlbar As String, ByRef strText As String) If RECHNUNG Is Nothing Then Exit Function @@ -300,11 +301,10 @@ Public Class cFakturierung ' Dim varPos As Object Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - ' Dim Nettozahlungsziel Dim ZZTage = 10 - If RECHNUNG.RechnungsKundenNr > 0 Then + If RECHNUNG.RechnungsKundenNr > 0 Then Dim RECHNUNG_AD As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) Dim RECHNUNG_KD As New VERAG_PROG_ALLGEMEIN.cKunde(RECHNUNG.RechnungsKundenNr) @@ -353,13 +353,13 @@ Public Class cFakturierung 'End If - ' Text bei Zoll oder EUSt drucken - If checkIfcheckIfZollbelege(RECHNUNG) Then - Select Case RECHNUNG.RechnungSprache - Case "EN" : strText = strText & "Please check all customs documents immediately for correctness, as objections are only possible 1 month after the date of the customs notification." & vbCrLf - Case Else : strText = strText & "Alle Zollbelege bitte sofort auf Richtigkeit prüfen da Einspruch gemäß § 355 AO nur 1 Monat nach Datum des Zollbescheides möglich." & vbCrLf - End Select - End If + '' Text bei Zoll oder EUSt drucken --> UNTEN IM TEXT + 'If checkIfcheckIfZollbelege(RECHNUNG) Then + ' Select Case RECHNUNG.RechnungSprache + ' Case "EN" : strText = strText & "Please check all customs documents immediately for correctness, as objections are only possible 1 month after the date of the customs notification." & vbCrLf + ' Case Else : strText = strText & "Alle Zollbelege bitte sofort auf Richtigkeit prüfen da Einspruch gemäß § 355 AO nur 1 Monat nach Datum des Zollbescheides möglich." & vbCrLf + ' End Select + 'End If End If Else @@ -389,6 +389,65 @@ Public Class cFakturierung End If End Select + strText = (strZahlbar & vbNewLine & strText).Trim + + If strText = "" Then + RECHNUNG.TextZZ = Nothing + Else + strText.Replace("", If(RECHNUNG_AD.E_Mail, " - ")) + + RECHNUNG.TextZZ = strText + End If + + + End If + + + Return strText.Trim + + + End Function + 'Shared Function przRechnungstext(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As String ', ByRef strZahlbar As String, ByRef strText As String) + ' Dim txtZZ = przRechnungstextTXT(RECHNUNG) + ' Dim txtTXT = przRechnungstextZZ(RECHNUNG) + ' Return (txtZZ & vbNewLine & txtTXT).Trim + 'End Function + Shared Function przRechnungstextTXT(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As String ', ByRef strZahlbar As String, ByRef strText As String) + + If RECHNUNG Is Nothing Then Exit Function + + ' Dim strZahlbar As String = "" + Dim strText As String = "" + ' Dim varPos As Object + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + ' Dim Nettozahlungsziel + + + If RECHNUNG.RechnungsKundenNr > 0 Then + + Select Case RECHNUNG.[BelegartenNr] + Case 70 'RECHNUNG + If Not RECHNUNG.Vorkasse Then + + ' Text bei Zoll oder EUSt drucken + If checkIfcheckIfZollbelege(RECHNUNG) Then + Select Case RECHNUNG.RechnungSprache + Case "EN" : strText = strText & "Please check all customs documents immediately for correctness, as objections are only possible 1 month after the date of the customs notification." & vbCrLf + Case Else : strText = strText & "Alle Zollbelege bitte sofort auf Richtigkeit prüfen da Einspruch gemäß § 355 AO nur 1 Monat nach Datum des Zollbescheides möglich." & vbCrLf + End Select + End If + End If + + End Select + 'strText = przRechnungstextZZ(RECHNUNG) + + Dim RECHNUNG_AD As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) + Dim RECHNUNG_KD As New VERAG_PROG_ALLGEMEIN.cKunde(RECHNUNG.RechnungsKundenNr) + + + If getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, RECHNUNG.RechnungsLandKz, RECHNUNG.OffertenNr, True) Then ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, RECHNUNG.RechnungsLandKz, , True) Then ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, ,, True) Then @@ -441,30 +500,20 @@ Public Class cFakturierung End If End Select - strText = strZahlbar & vbNewLine & strText - ' Text in Rechnungskopfsatz übernehmen. - strText = strText.Replace("", "") + 'strText = strZahlbar & vbNewLine & strText + ' Text in Rechnungskopfsatz übernehmen. + strText = strText.Replace("", "") - If strText = "" Then + If strText = "" Then RECHNUNG.Text = Nothing Else strText.Replace("", If(RECHNUNG_AD.E_Mail, " - ")) - - ' varPos = InStr(1, strText, "") - ' If varPos > 0 And Not rstAdr.EOF And Not IsNull(rstAdr![E-Mail]) Then - 'If Len(strText) > (varPos - 1 + Len("")) Then - ' strText = Left(strText, varPos - 1) & rstAdr![E-Mail] & Right(strText, Len(strText) - (varPos - 1 + Len(""))) - ' Else - ' strText = Left(strText, varPos - 1) & rstAdr![E-Mail] - ' End If - ' End If - ' Me![Text] = strText RECHNUNG.Text = strText - End If - End If + End If + 'Select Case RECHNUNG.Firma_ID ' Case "21", "22", "23" ' strText = strText.Replace("", "") @@ -809,9 +858,9 @@ Public Class cFakturierung If RECHNUNG Is Nothing Then MsgBox("Fehler beim Laden der Rechnungsdaten!") : Return False Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Try - ' MsgBox(RECHNUNG.Firma_ID) Dim rpt As New rptRechnungDruck(RECHNUNG.RechnungSprache) + Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(RECHNUNG.Firma_ID) Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) @@ -881,7 +930,6 @@ Public Class cFakturierung End Select - initRgFirma(rpt, FIRMA, RECHNUNG) Select Case RECHNUNG.Firma_ID @@ -961,7 +1009,6 @@ Public Class cFakturierung rpt.lblRechnung_Ort.Text = If(RECHNUNG.RechnungsOrt, "") rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "", RECHNUNG.RechnungSprache).ToString.ToUpper - If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then rpt.lblRechnung_Steuernummer.Text = If(KD_RG.LandKz, "") & " " & If(KD_RG.Steuernummer, "").ToString.Trim ' rpt.lblRechnung_UID.Text = If(KD_RG.UstIdKz, "") & " " & If(KD_RG.UstIdNr, "").ToString.Trim @@ -979,22 +1026,28 @@ Public Class cFakturierung rpt.txtKdAuftragsNr.Text = If(RECHNUNG.KdAuftragsNr, "") rpt.txtKdAuftragsNr_Ueberschrift.Visible = (rpt.txtKdAuftragsNr.Text <> String.Empty) + rpt.TextBox1.Text = If(RECHNUNG.TextZZ, "").ToString.Trim rpt.txtVermerk.Text = (If(RECHNUNG.Text, "").ToString.Trim & vbNewLine & vbNewLine & If(RECHNUNG.Notiz, "").ToString.Trim).ToString.Trim If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) Else rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) End If + ' REVERSE CHARGE (Übergang der Steuerschuld in EU-Ländern). ' Dies hat zur Folge, dass steuerfreie Rechnungsbeträge für Leistungen, ' die in der Leistungstabelle als ReverseCharge gekennzeichnet sind, ' summiert und auf der Rechnung ausgewiesen werden. If isReverseChargeSumme(FIRMA, RECHNUNG) Then Select Case RECHNUNG.RechnungSprache - Case "EN" : rpt.txtInfo.Text = "Attention! For EU customers! Since 1.1.2010, services are subject to the application of the reverse charge procedure. Transfer of the tax liability to the recipient of the service." - Case Else : rpt.txtInfo.Text = "Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger." + ' Case "EN" : rpt.txtInfo.Text = "Attention! For EU customers! Since 1.1.2010, services are subject to the application of the reverse charge procedure. Transfer of the tax liability to the recipient of the service." + ' Case Else : rpt.txtInfo.Text = "Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger." + Case "EN" : rpt.txtInfo.Text = "The VAT liability is transferred to the recipient of the service (reverse charge system)." '"Attention! For EU customers! Since 1.1.2010, services are subject to the application of the reverse charge procedure. Transfer of the tax liability to the recipient of the service." + Case Else : rpt.txtInfo.Text = "Die Umsatzsteuerschuld geht auf den Leistungsempfänger über (Reverse Charge Verfahren)." '"Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger." End Select Else : rpt.txtInfo.Text = "" : End If @@ -1052,7 +1105,6 @@ Public Class cFakturierung If RECHNUNG.DruckDatumZeit IsNot Nothing Then rpt.lblUeberschriftRG_GS.Text &= " - KOPIE" End If - 'Dim cnt As Integer = 0 Dim sumSteuerpflichtig As Double = 0 @@ -1130,12 +1182,37 @@ Public Class cFakturierung rpt.lblSumme.Text = CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz)) * vorzeichen).ToString("N2", CultureInfo.CurrentCulture) rpt.Label46.Text = If(RECHNUNG.Währungscode, "EUR") + If isSTARK(RECHNUNG) Then + rpt.lblZwText.Text = "Summe EUST" + rpt.lblZWSumme.Text = CDbl(getSTARK_EUST(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblZwText.Visible = True + rpt.lblZWSumme.Visible = True + rpt.lblSteuersatz.Text = "Summe ohne EUST" + rpt.lblSteuerbetrag.Text = CDbl(getSTARK_ohneEUST(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblSteuersatz.Visible = True + rpt.lblSteuerbetrag.Visible = True - If sumSteuerfrei = 0 Or sumSteuerpflichtig = 0 Then + Else - rpt.lblZwText.Visible = False - rpt.lblZWSumme.Visible = False + If isReverseChargeSumme(FIRMA, RECHNUNG) Then + rpt.lblZwText.Text = "Summe Steuerfrei" + rpt.lblZWSumme.Text = CDbl(getSteuerfreiEUSTZOLL(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblZwText.Visible = True + rpt.lblZWSumme.Visible = True + + rpt.lblSteuersatz.Text = "Summe Reverse Charge" + rpt.lblSteuerbetrag.Text = CDbl(getReverseChargeSummeRKID(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblSteuersatz.Visible = True + rpt.lblSteuerbetrag.Visible = True + Else + + If sumSteuerfrei = 0 Or sumSteuerpflichtig = 0 Then + + rpt.lblZwText.Visible = False + rpt.lblZWSumme.Visible = False + End If + End If End If @@ -1164,8 +1241,10 @@ Public Class cFakturierung If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Erstmaliger Druck rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) Else rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) End If Else @@ -1558,6 +1637,14 @@ Public Class cFakturierung End Function + Public Shared Function isSTARK(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Select Case RECHNUNG.RechnungsKundenNr + Case 714875, 751634 + Return True + Case Else + Return False + End Select + End Function Public Shared Function isReverseChargeSumme(FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As Boolean 'obj As Object, tablename As String, where As String) As Boolean 'Wenn selbes Land --> Kein Reversecharge If RECHNUNG.RechnungsLandKz = FIRMA.Firma_LandKz Then @@ -1585,7 +1672,8 @@ Public Class cFakturierung Return If(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0) = 0, False, True) End Function - Shared Function getReverseChargeSumme(FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsLandKz As String, RechnungsNr As String, RechnungsDatum As String, Optional VorschauID As String = "") As Double + + Shared Function getReverseChargeSumme(FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsLandKz As String, RechnungsNr As Object, RechnungsDatum As Object, Optional VorschauID As String = "") As Double 'Wenn selbes Land --> Kein Reversecharge ' MsgBox(RechnungsLandKz & " - " & FIRMA.Firma_LandKz) If RechnungsLandKz = FIRMA.Firma_LandKz Then @@ -1622,6 +1710,116 @@ Public Class cFakturierung Return sum End Function + Shared Function getReverseChargeSummeRKID(FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As Double + 'Wenn selbes Land --> Kein Reversecharge + ' MsgBox(RechnungsLandKz & " - " & FIRMA.Firma_LandKz) + If RECHNUNG.RechnungsLandKz = FIRMA.Firma_LandKz Then + Return False + End If + + If Not cProgramFunctions.isEULand(RECHNUNG.RechnungsLandKz) Then + Return 0 + End If + If FIRMA IsNot Nothing Then 'Nur EU_länder + If Not cProgramFunctions.isEULand(FIRMA.Firma_LandKz) Then + Return 0 + End If + End If + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim SqlStr = "SELECT SUM(dbo.RechnungsausgangPositionen.SteuerfreierBetrag) AS ReverseChargeSumme + FROM dbo.Rechnungsausgang INNER JOIN + dbo.RechnungsausgangPositionen ON dbo.Rechnungsausgang.RK_ID = dbo.RechnungsausgangPositionen.RK_ID INNER JOIN + dbo.Leistungen ON dbo.RechnungsausgangPositionen.LeistungsNr = dbo.Leistungen.LeistungsNr INNER JOIN + dbo.[Länderverzeichnis für die Außenhandelsstatistik] ON dbo.Rechnungsausgang.RechnungsUstIdKz = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandKz + WHERE 1=1 " + + + SqlStr &= " AND (dbo.Rechnungsausgang.RK_ID = '" & RECHNUNG.RK_ID & "') " + + SqlStr &= " AND (dbo.[Länderverzeichnis für die Außenhandelsstatistik].ReverseCharge = 1) AND (dbo.Leistungen.ReverseCharge = 1)" + + Dim sum = SQL.getValueTxtBySql(SqlStr, "FMZOLL") + If sum Is DBNull.Value Or sum = "" Then Return 0 + Return sum + End Function + + Shared Function getSteuerfreiEUSTZOLL(FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As Double + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim SqlStr = "SELECT SUM(dbo.RechnungsausgangPositionen.SteuerfreierBetrag) AS ReverseChargeSumme + FROM dbo.Rechnungsausgang INNER JOIN + dbo.RechnungsausgangPositionen ON dbo.Rechnungsausgang.RK_ID = dbo.RechnungsausgangPositionen.RK_ID INNER JOIN + dbo.Leistungen ON dbo.RechnungsausgangPositionen.LeistungsNr = dbo.Leistungen.LeistungsNr + WHERE 1=1 " + + SqlStr &= " AND (dbo.Rechnungsausgang.RK_ID = '" & RECHNUNG.RK_ID & "') " + + + SqlStr &= " AND Leistungen.Steuerpflichtig=0 " + + Dim sum = SQL.getValueTxtBySql(SqlStr, "FMZOLL") + If sum Is DBNull.Value Or sum = "" Then Return 0 + Return sum + End Function + + Shared Function getSTARK_EUST(FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As Double + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim SqlStr = "SELECT SUM(dbo.RechnungsausgangPositionen.SteuerfreierBetrag) AS ohneEUST + FROM dbo.Rechnungsausgang INNER JOIN + dbo.RechnungsausgangPositionen ON dbo.Rechnungsausgang.RK_ID = dbo.RechnungsausgangPositionen.RK_ID + WHERE 1=1 " + + SqlStr &= " AND (dbo.Rechnungsausgang.RK_ID = '" & RECHNUNG.RK_ID & "') " + + SqlStr &= " AND LeistungsNr IN (20,77) " + + Dim sum = SQL.getValueTxtBySql(SqlStr, "FMZOLL") + If sum Is DBNull.Value Or sum = "" Then Return 0 + Return sum + End Function + + Shared Function getSTARK_ohneEUST(FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As Double + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim SqlStr = "SELECT SUM(dbo.RechnungsausgangPositionen.SteuerfreierBetrag) AS ohneEUST + FROM dbo.Rechnungsausgang INNER JOIN + dbo.RechnungsausgangPositionen ON dbo.Rechnungsausgang.RK_ID = dbo.RechnungsausgangPositionen.RK_ID + WHERE 1=1 " + + SqlStr &= " AND (dbo.Rechnungsausgang.RK_ID = '" & RECHNUNG.RK_ID & "') " + + SqlStr &= " AND LeistungsNr NOT IN (20,77) " + + Dim sum = SQL.getValueTxtBySql(SqlStr, "FMZOLL") + If sum Is DBNull.Value Or sum = "" Then Return 0 + Return sum + End Function + + 'Shared Function getSteuerfreiEUSTZOLL(FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsNr As String, RechnungsDatum As String, Firma_ID As Integer, Optional VorschauID As String = "") As Double + + ' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + ' Dim SqlStr = "SELECT SUM(dbo.RechnungsausgangPositionen.SteuerfreierBetrag) AS ReverseChargeSumme + ' FROM dbo.Rechnungsausgang INNER JOIN + ' dbo.RechnungsausgangPositionen ON dbo.Rechnungsausgang.RK_ID = dbo.RechnungsausgangPositionen.RK_ID INNER JOIN + ' dbo.Leistungen ON dbo.RechnungsausgangPositionen.LeistungsNr = dbo.Leistungen.LeistungsNr + ' WHERE 1=1 " + + ' If VorschauID = "" Then + ' SqlStr &= " AND (dbo.Rechnungsausgang.RechnungsNr = '" & RechnungsNr & "') AND (dbo.Rechnungsausgang.RechnungsDatum = '" & CDate(RechnungsDatum).ToShortDateString & "') " + ' Else + ' SqlStr &= " AND (dbo.Rechnungsausgang.VorschauID = '" & VorschauID & "') " + ' End If + + ' SqlStr &= " AND Leistungen.Steuerpflichtig=0 " + ' SqlStr &= " and Firma_ID= '" & Firma_ID & "' " + + ' Dim sum = SQL.getValueTxtBySql(SqlStr, "FMZOLL") + ' If sum Is DBNull.Value Or sum = "" Then Return 0 + ' Return sum + 'End Function + ' 0-_> Rechnung angelegt ' 1-_> Einzel-Rg gedruckt ' 2-_> Anlagen zur Rg gedruckt @@ -2601,8 +2799,8 @@ Public Class cFakturierung ' summiert und auf der Rechnung ausgewiesen werden. If getReverseChargeSumme(FIRMA, ROW("RechnungsLandKz"), ROW("RechnungsNr"), ROW("RechnungsDatum"), VorschauID) > 0 Then Select Case ROW("RechnungSprache") - Case "EN" : rpt.txtInfo.Text = "Attention! For EU customers! Since 1.1.2010, services are subject to the application of the reverse charge procedure. Transfer of the tax liability to the recipient of the service." - Case Else : rpt.txtInfo.Text = "Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger." + Case "EN" : rpt.txtInfo.Text = "The VAT liability is transferred to the recipient of the service (reverse charge system)." '"Attention! For EU customers! Since 1.1.2010, services are subject to the application of the reverse charge procedure. Transfer of the tax liability to the recipient of the service." + Case Else : rpt.txtInfo.Text = "Die Umsatzsteuerschuld geht auf den Leistungsempfänger über (Reverse Charge Verfahren)." '"Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger." End Select Else : rpt.txtInfo.Text = "" : End If diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 0e140ba6..c2cd6607 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -186,7 +186,7 @@ Public Class frmFaktEmail Try If SR Then txtRgNr = getRgNr(RechnungsNr) - If SR_DT.Rows.Count > 0 Then + If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then BelegartenNr = SR_DT.Rows(0)("BelegartenNr") For Each r In SR_DT.Rows If BelegartenNr <> r("BelegartenNr") Then BelegartenNr = "70" : Exit For 'Im Zweifel 70 @@ -225,14 +225,15 @@ Public Class frmFaktEmail Dim abfNr = "" Dim additionalLine = "" - If RECHNUNG.FakturierungsGruppe <> "" Then - additionalLine = "Abrechnungsstelle: " & RECHNUNG.FakturierungsGruppe.Replace("WAI", "Waidhaus") - End If If SR Then Try If RechnungsNr > 1 OrElse vbYes = MsgBox("Möchten Sie das PDF als Mail-Anhang erstellen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung gilt somit als gedruckt und kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then + If FakturierungsGruppe <> "" Then + additionalLine = "Abrechnungsstelle: " & FakturierungsGruppe.Replace("WAI", "Waidhaus") + End If + VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("Zusammenfassung") Dim listPDFs As New List(Of String) Dim SonstAnlagen As New List(Of String) @@ -301,17 +302,18 @@ Public Class frmFaktEmail 'For Each l In listPDFs ' ' Mail.Attachments.Add(l, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) ' ATTACHMENTS.Add(New cFakt_MailATTach(l, "")) - 'Next - + 'Next 'Rechnungsanhänge anfügen '----------------------------------------------------------------- - If SR_DT.Rows.Count > 0 Then + If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then For Each r In SR_DT.Rows Dim RG_ANH = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.LOAD_ANHAENGE_LIST(r("RK_ID")) - For Each ANH In RG_ANH - ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung)) - Next + If RG_ANH IsNot Nothing Then + For Each ANH In RG_ANH + ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung)) + Next + End If Next End If '----------------------------------------------------------------- @@ -335,6 +337,11 @@ Public Class frmFaktEmail End Try Else + + If RECHNUNG.FakturierungsGruppe <> "" Then + additionalLine = "Abrechnungsstelle: " & RECHNUNG.FakturierungsGruppe.Replace("WAI", "Waidhaus") + End If + If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie das PDF als Mail-Anhang erstellen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung gilt somit als gedruckt und kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then abfNr = " Pos-Nr.: " & RECHNUNG.FilialenNr & "-" & RECHNUNG.AbfertigungsNr & "-" & RECHNUNG.SpeditionsbuchUnterNr diff --git a/SDL/Fakturierung/rptRechnungDruck.Designer.vb b/SDL/Fakturierung/rptRechnungDruck.Designer.vb index b3c456f6..2a14667a 100644 --- a/SDL/Fakturierung/rptRechnungDruck.Designer.vb +++ b/SDL/Fakturierung/rptRechnungDruck.Designer.vb @@ -77,6 +77,8 @@ Partial Public Class rptRechnungDruck Me.Line15 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblRechnung_Land = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line() @@ -101,8 +103,7 @@ Partial Public Class rptRechnungDruck Me.Line17 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.txtHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.lblHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblLeistungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() @@ -180,6 +181,8 @@ Partial Public Class rptRechnungDruck CType(Me.txtKdAuftragsNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRechnung_Land, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerfreiGes, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).BeginInit() @@ -195,8 +198,7 @@ Partial Public Class rptRechnungDruck CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() @@ -394,7 +396,7 @@ Partial Public Class rptRechnungDruck ' 'ReportHeader1 ' - Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblRgNr, Me.lblRgNrUeberschrift, Me.Picture1, Me.picVERAG, Me.lblKundenNrUeberschrift, Me.lblUeberschriftRG_GS, Me.lblKundenNr, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.lblRgDatumUeberschrift, Me.lblRgDatum, Me.lblAbfertigungsNrUeberschrift, Me.lblAbfertigungsNr, Me.lblAbfertigungsDatumUeberschrift, Me.lblAbfertigungsDatum, Me.lblLKWIdUebeschrift, Me.lblLKWId, Me.lblSachbearbeiterUeberschrift, Me.lblSachbearbeiter, Me.lblFirmenbuchUeberschrift, Me.lblFirmenbuch, Me.lblUIDUeberschrift, Me.lblUID, Me.lblRechnung_Name1, Me.lblRechnung_Name2, Me.lblRechnung_Strasse, Me.lblRechnung_Ort, Me.lblEORIUeberschrift, Me.lblEORI, Me.lblRechnung_UID_Ueberschrift, Me.lblRechnung_UID, Me.lblRechnung_Steuernummer_Ueberschrift, Me.lblRechnung_Steuernummer, Me.txtKdAuftragsNr_Ueberschrift, Me.txtKdAuftragsNr, Me.Line15, Me.lblFirma, Me.lblRechnung_Land}) + Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblRgNr, Me.lblRgNrUeberschrift, Me.Picture1, Me.picVERAG, Me.lblKundenNrUeberschrift, Me.lblUeberschriftRG_GS, Me.lblKundenNr, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.lblRgDatumUeberschrift, Me.lblRgDatum, Me.lblAbfertigungsNrUeberschrift, Me.lblAbfertigungsNr, Me.lblAbfertigungsDatumUeberschrift, Me.lblAbfertigungsDatum, Me.lblLKWIdUebeschrift, Me.lblLKWId, Me.lblSachbearbeiterUeberschrift, Me.lblSachbearbeiter, Me.lblFirmenbuchUeberschrift, Me.lblFirmenbuch, Me.lblUIDUeberschrift, Me.lblUID, Me.lblRechnung_Name1, Me.lblRechnung_Name2, Me.lblRechnung_Strasse, Me.lblRechnung_Ort, Me.lblEORIUeberschrift, Me.lblEORI, Me.lblRechnung_UID_Ueberschrift, Me.lblRechnung_UID, Me.lblRechnung_Steuernummer_Ueberschrift, Me.lblRechnung_Steuernummer, Me.txtKdAuftragsNr_Ueberschrift, Me.txtKdAuftragsNr, Me.Line15, Me.lblFirma, Me.lblRechnung_Land, Me.Label1, Me.Label2}) Me.ReportHeader1.Height = 3.470997! Me.ReportHeader1.Name = "ReportHeader1" ' @@ -913,10 +915,36 @@ Partial Public Class rptRechnungDruck Me.lblRechnung_Land.Top = 2.587795! Me.lblRechnung_Land.Width = 4.589763! ' + 'Label1 + ' + Me.Label1.Height = 0.1574803! + Me.Label1.HyperLink = Nothing + Me.Label1.Left = 1.563781! + Me.Label1.Name = "Label1" + Me.Label1.Style = "font-size: 8pt; font-weight: normal; text-align: right; vertical-align: middle; d" & + "do-char-set: 1" + Me.Label1.Text = "Zahlungsziel" + Me.Label1.Top = 3.02126! + Me.Label1.Visible = False + Me.Label1.Width = 0.8114169! + ' + 'Label2 + ' + Me.Label2.Height = 0.1574803! + Me.Label2.HyperLink = Nothing + Me.Label2.Left = 1.97126! + Me.Label2.Name = "Label2" + Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.Label2.Text = "10 Tage" + Me.Label2.Top = 3.02126! + Me.Label2.Visible = False + Me.Label2.Width = 1.958268! + ' 'ReportFooter1 ' - Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSteuerfreiGes, Me.lblSteuerpflichtigGes, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuerbetrag, Me.lblSteuersatz, Me.txtVermerk, Me.txtInfo, Me.lblAnlagenUeberschrift, Me.txtAnlagen, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText, Me.Line17, Me.txtHandlingATA, Me.lblHandlingATA, Me.Label1, Me.Label2}) - Me.ReportFooter1.Height = 1.663468! + Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSteuerfreiGes, Me.lblSteuerpflichtigGes, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuerbetrag, Me.lblSteuersatz, Me.txtVermerk, Me.txtInfo, Me.lblAnlagenUeberschrift, Me.txtAnlagen, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText, Me.Line17, Me.txtHandlingATA, Me.lblHandlingATA, Me.TextBox1}) + Me.ReportFooter1.Height = 1.51693! Me.ReportFooter1.KeepTogether = True Me.ReportFooter1.Name = "ReportFooter1" ' @@ -948,7 +976,7 @@ Partial Public Class rptRechnungDruck ' 'lblSummeUeberschrift ' - Me.lblSummeUeberschrift.Height = 0.1574803! + Me.lblSummeUeberschrift.Height = 0.1771653! Me.lblSummeUeberschrift.HyperLink = Nothing Me.lblSummeUeberschrift.Left = 3.957481! Me.lblSummeUeberschrift.Name = "lblSummeUeberschrift" @@ -966,7 +994,7 @@ Partial Public Class rptRechnungDruck Me.lblSteuerfreiGes.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & "har-set: 1" Me.lblSteuerfreiGes.Text = "999.999,99" - Me.lblSteuerfreiGes.Top = 0.1980315! + Me.lblSteuerfreiGes.Top = 0.1232284! Me.lblSteuerfreiGes.Width = 1.554331! ' 'lblSteuerpflichtigGes @@ -978,7 +1006,7 @@ Partial Public Class rptRechnungDruck Me.lblSteuerpflichtigGes.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & "har-set: 1" Me.lblSteuerpflichtigGes.Text = "999.999,99" - Me.lblSteuerpflichtigGes.Top = 0.1980315! + Me.lblSteuerpflichtigGes.Top = 0.1232284! Me.lblSteuerpflichtigGes.Width = 1.554331! ' 'lblSumme @@ -1075,12 +1103,12 @@ Partial Public Class rptRechnungDruck Me.txtVermerk.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & "ar-set: 1" Me.txtVermerk.Text = "Text" - Me.txtVermerk.Top = 1.326378! + Me.txtVermerk.Top = 1.179921! Me.txtVermerk.Width = 7.422048! ' 'txtInfo ' - Me.txtInfo.Height = 0.8519685! + Me.txtInfo.Height = 0.518504! Me.txtInfo.Left = 0! Me.txtInfo.Name = "txtInfo" Me.txtInfo.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & @@ -1098,7 +1126,7 @@ Partial Public Class rptRechnungDruck Me.lblAnlagenUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" & "r-set: 1" Me.lblAnlagenUeberschrift.Text = "Anlage:" - Me.lblAnlagenUeberschrift.Top = 1.505906! + Me.lblAnlagenUeberschrift.Top = 1.359449! Me.lblAnlagenUeberschrift.Width = 0.676378! ' 'txtAnlagen @@ -1109,7 +1137,7 @@ Partial Public Class rptRechnungDruck Me.txtAnlagen.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & "ar-set: 1" Me.txtAnlagen.Text = "ATC1812345678" - Me.txtAnlagen.Top = 1.505906! + Me.txtAnlagen.Top = 1.359449! Me.txtAnlagen.Width = 3.668504! ' 'Line6 @@ -1184,7 +1212,7 @@ Partial Public Class rptRechnungDruck Me.txtHandlingATA.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & "ar-set: 1" Me.txtHandlingATA.Text = "ATC1812345678" - Me.txtHandlingATA.Top = 1.505906! + Me.txtHandlingATA.Top = 1.359449! Me.txtHandlingATA.Width = 2.324409! ' 'lblHandlingATA @@ -1196,32 +1224,19 @@ Partial Public Class rptRechnungDruck Me.lblHandlingATA.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" & "r-set: 1" Me.lblHandlingATA.Text = "Handling:" - Me.lblHandlingATA.Top = 1.505906! + Me.lblHandlingATA.Top = 1.359449! Me.lblHandlingATA.Width = 0.676378! ' - 'Label1 + 'TextBox1 ' - Me.Label1.Height = 0.1574803! - Me.Label1.HyperLink = Nothing - Me.Label1.Left = 4.700394! - Me.Label1.Name = "Label1" - Me.Label1.Style = "font-size: 8pt; font-weight: normal; text-align: right; vertical-align: middle; d" & - "do-char-set: 1" - Me.Label1.Text = "Zahlungsziel" - Me.Label1.Top = 1.091339! - Me.Label1.Width = 0.8114169! - ' - 'Label2 - ' - Me.Label2.Height = 0.1574803! - Me.Label2.HyperLink = Nothing - Me.Label2.Left = 5.107873! - Me.Label2.Name = "Label2" - Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & - "-char-set: 1" - Me.Label2.Text = "10 Tage" - Me.Label2.Top = 1.091339! - Me.Label2.Width = 1.958268! + Me.TextBox1.Height = 0.3790929! + Me.TextBox1.Left = 0.02913386! + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Style = "font-size: 9pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.TextBox1.Text = "Text ZZ" + Me.TextBox1.Top = 0.7165355! + Me.TextBox1.Width = 3.632284! ' 'GroupHeader4 ' @@ -1232,7 +1247,7 @@ Partial Public Class rptRechnungDruck ' 'lblSteuerpflichtigUeberschrift ' - Me.lblSteuerpflichtigUeberschrift.Height = 0.1433071! + Me.lblSteuerpflichtigUeberschrift.Height = 0.1511808! Me.lblSteuerpflichtigUeberschrift.HyperLink = Nothing Me.lblSteuerpflichtigUeberschrift.Left = 3.957481! Me.lblSteuerpflichtigUeberschrift.Name = "lblSteuerpflichtigUeberschrift" @@ -1244,7 +1259,7 @@ Partial Public Class rptRechnungDruck ' 'lblLeistungUeberschrift ' - Me.lblLeistungUeberschrift.Height = 0.1433071! + Me.lblLeistungUeberschrift.Height = 0.1511808! Me.lblLeistungUeberschrift.HyperLink = Nothing Me.lblLeistungUeberschrift.Left = 0.01417252! Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift" @@ -1257,7 +1272,7 @@ Partial Public Class rptRechnungDruck ' 'lblAnzahlUeberschrift ' - Me.lblAnzahlUeberschrift.Height = 0.1433071! + Me.lblAnzahlUeberschrift.Height = 0.1511808! Me.lblAnzahlUeberschrift.HyperLink = Nothing Me.lblAnzahlUeberschrift.Left = 3.380315! Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift" @@ -1269,7 +1284,7 @@ Partial Public Class rptRechnungDruck ' 'lblSteuerfreiUeberschrift ' - Me.lblSteuerfreiUeberschrift.Height = 0.143307! + Me.lblSteuerfreiUeberschrift.Height = 0.1511807! Me.lblSteuerfreiUeberschrift.HyperLink = Nothing Me.lblSteuerfreiUeberschrift.Left = 5.511812! Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift" @@ -1593,6 +1608,8 @@ Partial Public Class rptRechnungDruck CType(Me.txtKdAuftragsNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRechnung_Land, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerfreiGes, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).EndInit() @@ -1608,8 +1625,7 @@ Partial Public Class rptRechnungDruck CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() @@ -1743,4 +1759,5 @@ Partial Public Class rptRechnungDruck Public WithEvents lblWarenWertUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox End Class diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb index 08cc3af0..f628f7cd 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb @@ -23,15 +23,15 @@ Partial Class usrCntlFaktAbrechnung Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlFaktAbrechnung)) Me.Label9 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() @@ -139,13 +139,15 @@ Partial Class usrCntlFaktAbrechnung Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label10 = New System.Windows.Forms.Label() Me.pnlRechnungAn = New System.Windows.Forms.Panel() + Me.Button15 = New System.Windows.Forms.Button() + Me.cboSammelrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Button14 = New System.Windows.Forms.Button() Me.picKdAuftrInfo = New System.Windows.Forms.PictureBox() Me.lblKdInaktiv = New System.Windows.Forms.Label() Me.picWarnRgAn = New System.Windows.Forms.PictureBox() Me.lblUIDOK = New System.Windows.Forms.Label() Me.lblUIDErr = New System.Windows.Forms.Label() Me.Button6 = New System.Windows.Forms.Button() - Me.cboSammelrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtRechnungAnName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.kdFirmaRechnungAn = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() @@ -248,9 +250,14 @@ Partial Class usrCntlFaktAbrechnung Me.cbxAdmin = New System.Windows.Forms.CheckBox() Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components) Me.Timer = New System.Windows.Forms.Timer(Me.components) - Me.Button14 = New System.Windows.Forms.Button() Me.CntxtAbfArt = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.SdfToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.AbsenderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.EmpfängerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AuftraggeberToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AvisiererToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.txtTextZZ = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.pnlTop.SuspendLayout() Me.Panel3.SuspendLayout() Me.Panel1.SuspendLayout() @@ -274,6 +281,7 @@ Partial Class usrCntlFaktAbrechnung CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() Me.CntxtAbfArt.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() Me.SuspendLayout() ' 'Label9 @@ -760,6 +768,7 @@ Partial Class usrCntlFaktAbrechnung 'Panel1 ' Me.Panel1.AutoScroll = True + Me.Panel1.Controls.Add(Me.txtTextZZ) Me.Panel1.Controls.Add(Me.dgvAnhaenge) Me.Panel1.Controls.Add(Me.Label36) Me.Panel1.Controls.Add(Me.Label54) @@ -846,10 +855,10 @@ Partial Class usrCntlFaktAbrechnung ' 'DataGridViewTextBoxColumn2 ' - DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle10.Format = "N0" - DataGridViewCellStyle10.NullValue = Nothing - Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle1.Format = "N0" + DataGridViewCellStyle1.NullValue = Nothing + Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle1 Me.DataGridViewTextBoxColumn2.HeaderText = "Art" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" Me.DataGridViewTextBoxColumn2.ReadOnly = True @@ -858,9 +867,9 @@ Partial Class usrCntlFaktAbrechnung 'clmnBezeichnung ' Me.clmnBezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle11.Format = "c2" - Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle11 + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.Format = "c2" + Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle2 Me.clmnBezeichnung.FillWeight = 121.2598! Me.clmnBezeichnung.HeaderText = "Bezeichnung" Me.clmnBezeichnung.Name = "clmnBezeichnung" @@ -1676,13 +1685,13 @@ Partial Class usrCntlFaktAbrechnung ' 'txtText ' - Me.txtText.Location = New System.Drawing.Point(64, 1061) + Me.txtText.Location = New System.Drawing.Point(64, 1083) Me.txtText.MaxLineLength = -1 Me.txtText.MaxLines_Warning = "" Me.txtText.MaxLines_Warning_Label = Nothing Me.txtText.Name = "txtText" Me.txtText.ReadOnly = True - Me.txtText.Size = New System.Drawing.Size(423, 69) + Me.txtText.Size = New System.Drawing.Size(423, 47) Me.txtText.TabIndex = 35 Me.txtText.Text = "" ' @@ -1851,6 +1860,7 @@ Partial Class usrCntlFaktAbrechnung ' Me.pnlRechnungAn.BackColor = System.Drawing.Color.PapayaWhip Me.pnlRechnungAn.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlRechnungAn.Controls.Add(Me.Button15) Me.pnlRechnungAn.Controls.Add(Me.cboSammelrechnung) Me.pnlRechnungAn.Controls.Add(Me.Button14) Me.pnlRechnungAn.Controls.Add(Me.picKdAuftrInfo) @@ -1882,6 +1892,44 @@ Partial Class usrCntlFaktAbrechnung Me.pnlRechnungAn.Size = New System.Drawing.Size(582, 146) Me.pnlRechnungAn.TabIndex = 0 ' + 'Button15 + ' + Me.Button15.Enabled = False + Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button15.Location = New System.Drawing.Point(518, 98) + Me.Button15.Name = "Button15" + Me.Button15.Size = New System.Drawing.Size(57, 23) + Me.Button15.TabIndex = 241 + Me.Button15.Text = "Post" + Me.Button15.UseVisualStyleBackColor = True + ' + 'cboSammelrechnung + ' + Me.cboSammelrechnung._allowedValuesFreiText = Nothing + Me.cboSammelrechnung._allowFreiText = False + Me.cboSammelrechnung._value = "" + Me.cboSammelrechnung.FormattingEnabled = True + Me.cboSammelrechnung.Location = New System.Drawing.Point(282, 17) + Me.cboSammelrechnung.Name = "cboSammelrechnung" + Me.cboSammelrechnung.Size = New System.Drawing.Size(102, 21) + Me.cboSammelrechnung.TabIndex = 2 + ' + 'Button14 + ' + Me.Button14.BackgroundImage = Global.SDL.My.Resources.Resources.person_add + Me.Button14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button14.FlatAppearance.BorderSize = 0 + Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button14.Location = New System.Drawing.Point(383, 9) + Me.Button14.Name = "Button14" + Me.Button14.Size = New System.Drawing.Size(25, 25) + Me.Button14.TabIndex = 240 + Me.Button14.TabStop = False + Me.Button14.Tag = "Kunde hinzufügen" + Me.Button14.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.Button14.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText + Me.Button14.UseVisualStyleBackColor = True + ' 'picKdAuftrInfo ' Me.picKdAuftrInfo.BackgroundImage = Global.SDL.My.Resources.Resources.warning2 @@ -1946,22 +1994,11 @@ Partial Class usrCntlFaktAbrechnung Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button6.Location = New System.Drawing.Point(434, 98) Me.Button6.Name = "Button6" - Me.Button6.Size = New System.Drawing.Size(140, 23) + Me.Button6.Size = New System.Drawing.Size(85, 23) Me.Button6.TabIndex = 15 Me.Button6.Text = "UID prüfen" Me.Button6.UseVisualStyleBackColor = True ' - 'cboSammelrechnung - ' - Me.cboSammelrechnung._allowedValuesFreiText = Nothing - Me.cboSammelrechnung._allowFreiText = False - Me.cboSammelrechnung._value = "" - Me.cboSammelrechnung.FormattingEnabled = True - Me.cboSammelrechnung.Location = New System.Drawing.Point(282, 17) - Me.cboSammelrechnung.Name = "cboSammelrechnung" - Me.cboSammelrechnung.Size = New System.Drawing.Size(102, 21) - Me.cboSammelrechnung.TabIndex = 2 - ' 'txtRechnungAnName2 ' Me.txtRechnungAnName2._DateTimeOnly = False @@ -2712,10 +2749,10 @@ Partial Class usrCntlFaktAbrechnung ' 'Anzahl ' - DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle12.Format = "N0" - DataGridViewCellStyle12.NullValue = Nothing - Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle12 + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle3.Format = "N0" + DataGridViewCellStyle3.NullValue = Nothing + Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle3 Me.Anzahl.HeaderText = "Anzahl" Me.Anzahl.Name = "Anzahl" Me.Anzahl.ReadOnly = True @@ -2723,9 +2760,9 @@ Partial Class usrCntlFaktAbrechnung ' 'Preis ' - DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle13.Format = "c2" - Me.Preis.DefaultCellStyle = DataGridViewCellStyle13 + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle4.Format = "c2" + Me.Preis.DefaultCellStyle = DataGridViewCellStyle4 Me.Preis.HeaderText = "Preis" Me.Preis.Name = "Preis" Me.Preis.ReadOnly = True @@ -2733,9 +2770,9 @@ Partial Class usrCntlFaktAbrechnung ' 'SteuerpflichtigerBetrag ' - DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle14.Format = "c2" - Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle14 + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle5.Format = "c2" + Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle5 Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl." Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag" Me.SteuerpflichtigerBetrag.ReadOnly = True @@ -2743,10 +2780,10 @@ Partial Class usrCntlFaktAbrechnung ' 'SteuerfreierBetrag ' - DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle15.Format = "C2" - DataGridViewCellStyle15.NullValue = Nothing - Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle15 + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle6.Format = "C2" + DataGridViewCellStyle6.NullValue = Nothing + Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle6 Me.SteuerfreierBetrag.HeaderText = "Steuerfrei" Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag" Me.SteuerfreierBetrag.ReadOnly = True @@ -2773,10 +2810,10 @@ Partial Class usrCntlFaktAbrechnung Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste" Me.dgvOffertenSperrliste.ReadOnly = True Me.dgvOffertenSperrliste.RowHeadersVisible = False - DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.Color.PapayaWhip - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.Color.Black - Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle16 + DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle7.SelectionBackColor = System.Drawing.Color.PapayaWhip + DataGridViewCellStyle7.SelectionForeColor = System.Drawing.Color.Black + Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(204, 201) Me.dgvOffertenSperrliste.TabIndex = 2 @@ -2789,8 +2826,8 @@ Partial Class usrCntlFaktAbrechnung Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False - DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 + DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -2798,10 +2835,10 @@ Partial Class usrCntlFaktAbrechnung Me.dgvOfferteDetailsUebersicht.MultiSelect = False Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht" Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False - DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle18.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) - DataGridViewCellStyle18.SelectionForeColor = System.Drawing.Color.Black - Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle18 + DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle9.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) + DataGridViewCellStyle9.SelectionForeColor = System.Drawing.Color.Black + Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle9 Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(601, 201) Me.dgvOfferteDetailsUebersicht.TabIndex = 3 @@ -3554,34 +3591,60 @@ Partial Class usrCntlFaktAbrechnung ' Me.Timer.Interval = 6000 ' - 'Button14 - ' - Me.Button14.BackgroundImage = Global.SDL.My.Resources.Resources.person_add - Me.Button14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button14.FlatAppearance.BorderSize = 0 - Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button14.Location = New System.Drawing.Point(383, 9) - Me.Button14.Name = "Button14" - Me.Button14.Size = New System.Drawing.Size(25, 25) - Me.Button14.TabIndex = 240 - Me.Button14.TabStop = False - Me.Button14.Tag = "Kunde hinzufügen" - Me.Button14.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.Button14.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText - Me.Button14.UseVisualStyleBackColor = True - ' 'CntxtAbfArt ' Me.CntxtAbfArt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SdfToolStripMenuItem}) Me.CntxtAbfArt.Name = "CntxtAbfArt" - Me.CntxtAbfArt.Size = New System.Drawing.Size(181, 48) + Me.CntxtAbfArt.Size = New System.Drawing.Size(91, 26) ' 'SdfToolStripMenuItem ' Me.SdfToolStripMenuItem.Name = "SdfToolStripMenuItem" - Me.SdfToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.SdfToolStripMenuItem.Size = New System.Drawing.Size(90, 22) Me.SdfToolStripMenuItem.Text = "sdf" ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AbsenderToolStripMenuItem, Me.EmpfängerToolStripMenuItem, Me.AuftraggeberToolStripMenuItem, Me.AvisiererToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(154, 92) + ' + 'AbsenderToolStripMenuItem + ' + Me.AbsenderToolStripMenuItem.Name = "AbsenderToolStripMenuItem" + Me.AbsenderToolStripMenuItem.Size = New System.Drawing.Size(153, 22) + Me.AbsenderToolStripMenuItem.Text = "1 Absender" + ' + 'EmpfängerToolStripMenuItem + ' + Me.EmpfängerToolStripMenuItem.Name = "EmpfängerToolStripMenuItem" + Me.EmpfängerToolStripMenuItem.Size = New System.Drawing.Size(153, 22) + Me.EmpfängerToolStripMenuItem.Text = "2 Empfänger" + ' + 'AuftraggeberToolStripMenuItem + ' + Me.AuftraggeberToolStripMenuItem.Name = "AuftraggeberToolStripMenuItem" + Me.AuftraggeberToolStripMenuItem.Size = New System.Drawing.Size(153, 22) + Me.AuftraggeberToolStripMenuItem.Text = "3 Auftraggeber" + ' + 'AvisiererToolStripMenuItem + ' + Me.AvisiererToolStripMenuItem.Name = "AvisiererToolStripMenuItem" + Me.AvisiererToolStripMenuItem.Size = New System.Drawing.Size(153, 22) + Me.AvisiererToolStripMenuItem.Text = "4 Avisierer" + ' + 'txtTextZZ + ' + Me.txtTextZZ.Location = New System.Drawing.Point(64, 1061) + Me.txtTextZZ.MaxLineLength = -1 + Me.txtTextZZ.MaxLines_Warning = "" + Me.txtTextZZ.MaxLines_Warning_Label = Nothing + Me.txtTextZZ.Name = "txtTextZZ" + Me.txtTextZZ.ReadOnly = True + Me.txtTextZZ.Size = New System.Drawing.Size(423, 23) + Me.txtTextZZ.TabIndex = 91 + Me.txtTextZZ.Text = "" + ' 'usrCntlFaktAbrechnung ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -3627,6 +3690,7 @@ Partial Class usrCntlFaktAbrechnung CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() Me.CntxtAbfArt.ResumeLayout(False) + Me.ContextMenuStrip1.ResumeLayout(False) Me.ResumeLayout(False) End Sub @@ -3848,4 +3912,11 @@ Partial Class usrCntlFaktAbrechnung Friend WithEvents Button14 As Button Friend WithEvents CntxtAbfArt As ContextMenuStrip Friend WithEvents SdfToolStripMenuItem As ToolStripMenuItem + Friend WithEvents Button15 As Button + Friend WithEvents ContextMenuStrip1 As ContextMenuStrip + Friend WithEvents AbsenderToolStripMenuItem As ToolStripMenuItem + Friend WithEvents EmpfängerToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AuftraggeberToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AvisiererToolStripMenuItem As ToolStripMenuItem + Friend WithEvents txtTextZZ As VERAG_PROG_ALLGEMEIN.MyRichTextBox End Class diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.resx b/SDL/Fakturierung/usrCntlFaktAbrechnung.resx index a835a613..fa6fef63 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.resx +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.resx @@ -132,39 +132,6 @@ True - - True - - - True - - - True - - - True - - - True - - - True - - - True - - - True - - - True - - - True - - - True - True @@ -217,6 +184,9 @@ 191, 6 + + 343, 15 + 45 diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 674278d1..65fe8f58 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -293,6 +293,7 @@ Public Class usrCntlFaktAbrechnung End If txtText.Text = If(RECHNUNG.Text, "") + txtTextZZ.Text = If(RECHNUNG.Textzz, "") cboSteuerschlüssel.changeItem(RECHNUNG.Steuerschlüssel) @@ -793,6 +794,9 @@ Public Class usrCntlFaktAbrechnung Private Sub txtRechnungAnUIDKz_TextChanged(sender As Object, e As EventArgs) Handles txtRechnungAnUIDKz.TextChanged, txtRechnungAnUIDNr.TextChanged Button6.Enabled = (txtRechnungAnUIDNr.Text <> "" And txtRechnungAnUIDKz.Text <> "") End Sub + Private Sub cboRechnungAn_TextChanged(sender As Object, e As EventArgs) Handles cboRechnungAn.SelectedIndexChanged + Button15.Enabled = (cboRechnungAn._value <> "") + End Sub Private Sub cboSteuerschlüssel_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboSteuerschlüssel.SelectedIndexChanged If IsNumeric(cboSteuerschlüssel._value) Then @@ -1202,7 +1206,8 @@ Public Class usrCntlFaktAbrechnung ' RECHNUNG.SteuerpflichtigerGesamtbetrag = steuerPflichtigerBetrag ' RECHNUNG.SteuerfreierGesamtbetrag = steuerFreierBetrag - txtText.Text = cFakturierung.przRechnungstext(RECHNUNG) 'Das war vorher unter przBerechneRAPos + txtText.Text = cFakturierung.przRechnungstextTXT(RECHNUNG) 'Das war vorher unter przBerechneRAPos + txtTextZZ.Text = cFakturierung.przRechnungstextZZ(RECHNUNG) 'Das war vorher unter przBerechneRAPos ' przBerechneRAPos("") @@ -1239,7 +1244,7 @@ Public Class usrCntlFaktAbrechnung ' If r.Cells("Anzahl").Value IsNot DBNull.Value AndAlso r.Cells("Anzahl").Value > 0 Then Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen POS.LeistungsNr = r.Cells("LeistungsNr").Value - POS.LeistungsBez = r.Cells("LeistungsBez").Value + POS.LeistungsBez = If(r.Cells("LeistungsBez").Value, "") ' POS.IndexZkteing = r.Cells("IndexZkteing").Value POS.BerechnungsartNr = r.Cells("BerechnungsartNr").Value POS.Preis = If(r.Cells("Preis").Value Is DBNull.Value, 0, CDbl(r.Cells("Preis").Value.ToString.Replace(".", ""))) @@ -1520,6 +1525,7 @@ Public Class usrCntlFaktAbrechnung Sub initDGVAnhaenge() With dgvAnhaenge + .Rows.Clear() If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.AvisoID IsNot Nothing AndAlso SPEDBUCH.SendungID IsNot Nothing Then Dim dt = SQL.loadDgvBySql("SELECT [anh_docId],[anh_id],[anh_Art],[anh_Name] FROM [tblAvisoAnhaenge] where (anh_SendungsId='" & SPEDBUCH.SendungID & "' OR (anh_AvisoId='" & SPEDBUCH.AvisoID & "' AND anh_SendungsId is null))", "AVISO") @@ -1541,7 +1547,7 @@ Public Class usrCntlFaktAbrechnung End If End If End With - + dgvAnhaenge.ClearSelection() End Sub Sub getDataFromSpedbuch_SHOW() txtAbfertigungsart.Text = "" @@ -1737,7 +1743,7 @@ Public Class usrCntlFaktAbrechnung Dim zahlbar = "" Select Case cboRgGS.SelectedIndex - Case 0 : RECHNUNG.[BelegartenKz] = "AR" : RECHNUNG.[BelegartenNr] = 70 : RECHNUNG.Vorzeichen = "+" : RECHNUNG.BelegartenBez = "Rechnung" : RECHNUNG.Text = cProgramFunctions.isLeerNothing(txtText.Text) + Case 0 : RECHNUNG.[BelegartenKz] = "AR" : RECHNUNG.[BelegartenNr] = 70 : RECHNUNG.Vorzeichen = "+" : RECHNUNG.BelegartenBez = "Rechnung" : RECHNUNG.Text = cProgramFunctions.isLeerNothing(txtText.Text) : RECHNUNG.Textzz = cProgramFunctions.isLeerNothing(txtTextZZ.Text) Case 1 : RECHNUNG.[BelegartenKz] = "AG" : RECHNUNG.[BelegartenNr] = 71 : RECHNUNG.Vorzeichen = "-" : RECHNUNG.BelegartenBez = "Gutschrift" : RECHNUNG.Text = "" End Select @@ -2029,7 +2035,7 @@ Public Class usrCntlFaktAbrechnung FindPOS.LeistungsNr = 700 FindPOS.BerechnungsartNr = 9 FindPOS.Steuerpflichtig = False - If RECHNUNG.RechnungSprache = "DE" Then FindPOS.LeistungsBez = "Vorlageprovision" + If RECHNUNG.RechnungSprache = "DE" Or FindPOS.LeistungsBez Is Nothing Then FindPOS.LeistungsBez = "Vorlageprovision" 'RECHNUNG.POSITIONEN.Add(FindPOS) FindPOS.Anzahl = 1 FindPOS.Preis = Math.Round(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz), 2) 'Int(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz) * 10 + 0.5) / 10 @@ -2051,6 +2057,7 @@ Public Class usrCntlFaktAbrechnung If Not leistungExistsInPos(RECHNUNG, 751, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist + If If(RECHNUNG.Vorlageprovision_Proz, 0) = 0 Then Exit Sub 'keine Vorlageprovision If RECHNUNG.[Vorkasse] Then Exit Sub 'Vorkasse @@ -2067,12 +2074,13 @@ Public Class usrCntlFaktAbrechnung 'Sucht, ob BS415 schon vorhanden ist,... Dim FindPOS = RECHNUNG.POSITIONEN.Find(Function(x) x.LeistungsNr = 751 And x.BerechnungsartNr = 9) + If FindPOS IsNot Nothing Then ' FindPOS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen FindPOS.LeistungsNr = 751 FindPOS.BerechnungsartNr = 9 FindPOS.Steuerpflichtig = False - If RECHNUNG.RechnungSprache = "DE" Then FindPOS.LeistungsBez = "Kapitalbereitstellung" + If RECHNUNG.RechnungSprache = "DE" Or FindPOS.LeistungsBez Is Nothing Then FindPOS.LeistungsBez = "Kapitalbereitstellung" 'RECHNUNG.POSITIONEN.Add(FindPOS) FindPOS.Anzahl = 1 FindPOS.Preis = Math.Round(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz), 2) ' Int(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz) * 10 + 0.5) / 10 @@ -2211,7 +2219,7 @@ Public Class usrCntlFaktAbrechnung 'qryRAPos.Parameters("[prmRK_ID]") = Me![RK_ID] 'Set rstRAPos = qryRAPos.OpenRecordset(dbOpenSnapshot) - Dim Find = RECHNUNG.POSITIONEN.Find(Function(x) x.LeistungsNr = 750 And x.BerechnungsartNr = 9) + Dim Find = RECHNUNG.POSITIONEN.Find(Function(x) x.LeistungsNr = 750) 'And x.BerechnungsartNr = 9) If Find IsNot Nothing Then strZahlbar = "Zahlbar innerhalb 10 Tagen abzüglich Pos. 750; ab 10 Tagen netto fällig." Else @@ -2549,7 +2557,7 @@ Public Class usrCntlFaktAbrechnung If KreditaufwendungenPOS IsNot Nothing Then ' KreditaufwendungenPOS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen KreditaufwendungenPOS.LeistungsNr = 750 - If RECHNUNG.RechnungSprache = "DE" Then KreditaufwendungenPOS.LeistungsBez = "Kreditaufwendungen" + If RECHNUNG.RechnungSprache = "DE" Or KreditaufwendungenPOS.LeistungsBez Is Nothing Then KreditaufwendungenPOS.LeistungsBez = "Kreditaufwendungen" KreditaufwendungenPOS.BerechnungsartNr = 9 ' RECHNUNG.POSITIONEN.Add(KreditaufwendungenPOS) @@ -2771,7 +2779,7 @@ Public Class usrCntlFaktAbrechnung tGespeichert.Enabled = False End Sub - Function saveMe() + Function saveMe() As Boolean If cbxAdmin.Checked And cbxAdmin.Visible Then 'Nix Else @@ -3148,7 +3156,7 @@ Nächste_Textzeile_lesen: If ZKteing_POS Is Nothing Then ZKteing_POS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen ZKteing_POS.LeistungsNr = LeistungsNr - ZKteing_POS.LeistungsBez = LeistungsBez + If RECHNUNG.RechnungSprache = "DE" Or ZKteing_POS.LeistungsBez Is Nothing Then ZKteing_POS.LeistungsBez = LeistungsBez ZKteing_POS.BerechnungsartNr = 8 RECHNUNG.POSITIONEN.Add(ZKteing_POS) End If @@ -3423,19 +3431,24 @@ Nächste_Textzeile_lesen: RECHNUNG.Trdin = 0 RECHNUNG.[BelegartenKz] = "AG" : RECHNUNG.[BelegartenNr] = 71 : RECHNUNG.Vorzeichen = "-" + cboRgGS.SelectedIndex = 1 dgvOfferteDetailsUebersicht.Columns.Clear() - initRECHNUNG() + ' initDGVRechnungenPositionen() przBerechneRAPos("") loadFormRGPosInOfferte() + + initDGVRechnungenPositionen() - przRefreshDGV_Positionen() + + ' przRefreshDGV_Positionen() cboFiliale.Focus() saveMe() + initRECHNUNG() RaiseEvent SOMETHING_CHANGED(RECHNUNG.RK_ID) End If End Sub @@ -3681,7 +3694,8 @@ Nächste_Textzeile_lesen: End Sub Private Sub cboRechnungSprache_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRechnungSprache.SelectedIndexChanged - txtText.Text = cFakturierung.przRechnungstext(RECHNUNG) + txtTextZZ.Text = cFakturierung.przRechnungstextZZ(RECHNUNG) + txtText.Text = cFakturierung.przRechnungstextTXT(RECHNUNG) End Sub Private Sub dbgAnhaenge_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellClick 'dbgAnhaenge.CellContentClick, @@ -3691,14 +3705,14 @@ Nächste_Textzeile_lesen: ' MsgBox(DirectCast(dgvAnhaenge.Rows(e.RowIndex).Cells(e.ColumnIndex), DataGridViewCheckBoxCell).Value) dgvAnhaenge.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = Not DirectCast(dgvAnhaenge.Rows(e.RowIndex).Cells(e.ColumnIndex), DataGridViewCheckBoxCell).Value End If - + dgvAnhaenge.ClearSelection() Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try End Sub Private Sub dbgAnhaenge_sel(sender As Object, e As EventArgs) Handles dgvAnhaenge.SelectionChanged - dgvAnhaenge.ClearSelection() + End Sub Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click @@ -3731,4 +3745,61 @@ Nächste_Textzeile_lesen: End If End If End Sub + + Private Sub dgvAnhaenge_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick + + Try + If dgvAnhaenge.SelectedRows.Count > 0 Then ' If e.RowIndex > 0 Then + dgvAnhaenge.Rows(e.RowIndex).Selected = True + Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhaenge.SelectedRows(0).Cells("clmnDsId").Value)) + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + End Sub + + Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click + ContextMenuStrip1.Show(Cursor.Position) + End Sub + + Private Sub AbsenderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbsenderToolStripMenuItem.Click, EmpfängerToolStripMenuItem.Click, AuftraggeberToolStripMenuItem.Click, AvisiererToolStripMenuItem.Click + If cboRechnungAn._value = "" Then Exit Sub + getValues() + Dim ROLLE = "AUFTRAGGEBER" + + Dim FirmaFrm = (RECHNUNG.RechnungsName_1 & " " & If(RECHNUNG.RechnungsName_2, "")).trim + Dim kdnrFrm As Integer = RECHNUNG.RechnungsKundenNr + + Select Case sender.text.ToString.Substring(0, 1) 'cboRechnungAn._value + Case "1" + ROLLE = "ABSENDER" + FirmaFrm = (RECHNUNG.AbsenderName_1 & " " & If(RECHNUNG.AbsenderName_2, "")).trim + kdnrFrm = RECHNUNG.AbsenderKundenNr + Case "2" + ROLLE = "EMPFAENGER" + FirmaFrm = (RECHNUNG.EmpfängerName_1 & " " & If(RECHNUNG.EmpfängerName_2, "")).trim + kdnrFrm = RECHNUNG.EmpfängerKundenNr + Case "3" + ROLLE = "AUFTRAGGEBER" + FirmaFrm = (RECHNUNG.VermittlerName_1 & " " & If(RECHNUNG.VermittlerName_2, "")).trim + kdnrFrm = RECHNUNG.VermittlerKundenNr + Case "4" + ROLLE = "AVISIERER" + FirmaFrm = (RECHNUNG.Avisierer) + kdnrFrm = RECHNUNG.AvisiererKundenNr + End Select + If SPEDBUCH IsNot Nothing Then + + Dim SENDUNG As New VERAG_PROG_ALLGEMEIN.cSendungen(SPEDBUCH.SendungID) + Dim AVISODAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL + Dim AVISO = AVISODAL.LesenAviso(SPEDBUCH.AvisoID, "") + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG, AVISO, ROLLE, -1, True}) + Else + MsgBox("Speditionsbuch Eintrag nicht gefunden.") + End If + End Sub + + End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_EUSTBerechnen.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_EUSTBerechnen.Designer.vb new file mode 100644 index 00000000..609211e4 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_EUSTBerechnen.Designer.vb @@ -0,0 +1,134 @@ + +Partial Class frmVorauskasse_EUSTBerechnen + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmVorauskasse_EUSTBerechnen)) + Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.lbl = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.btn = New System.Windows.Forms.Button() + Me.clmnBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnProzent = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnSumme = New System.Windows.Forms.DataGridViewTextBoxColumn() + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'MyDatagridview1 + ' + Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 + Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnBetrag, Me.clmnProzent, Me.clmnSumme}) + Me.MyDatagridview1.Location = New System.Drawing.Point(13, 13) + Me.MyDatagridview1.Name = "MyDatagridview1" + Me.MyDatagridview1.Size = New System.Drawing.Size(357, 377) + Me.MyDatagridview1.TabIndex = 0 + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Location = New System.Drawing.Point(13, 397) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(74, 9) + Me.lbl.TabIndex = 1 + Me.lbl.Text = "Gesamtsumme EUST:" + ' + 'Label1 + ' + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(249, 397) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(121, 13) + Me.Label1.TabIndex = 2 + Me.Label1.Text = "0,00" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'btn + ' + Me.btn.DialogResult = System.Windows.Forms.DialogResult.OK + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Location = New System.Drawing.Point(12, 416) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(358, 39) + Me.btn.TabIndex = 3 + Me.btn.Text = "Eintragen" + Me.btn.UseVisualStyleBackColor = True + ' + 'clmnBetrag + ' + Me.clmnBetrag.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + DataGridViewCellStyle1.Format = "C2" + DataGridViewCellStyle1.NullValue = Nothing + Me.clmnBetrag.DefaultCellStyle = DataGridViewCellStyle1 + Me.clmnBetrag.HeaderText = "Betrag" + Me.clmnBetrag.Name = "clmnBetrag" + ' + 'clmnProzent + ' + DataGridViewCellStyle2.Format = "C2" + DataGridViewCellStyle2.NullValue = Nothing + Me.clmnProzent.DefaultCellStyle = DataGridViewCellStyle2 + Me.clmnProzent.HeaderText = "%" + Me.clmnProzent.Name = "clmnProzent" + Me.clmnProzent.Width = 50 + ' + 'clmnSumme + ' + DataGridViewCellStyle3.Format = "C2" + DataGridViewCellStyle3.NullValue = Nothing + Me.clmnSumme.DefaultCellStyle = DataGridViewCellStyle3 + Me.clmnSumme.HeaderText = "EUST" + Me.clmnSumme.Name = "clmnSumme" + Me.clmnSumme.ReadOnly = True + ' + 'frmVorauskasse_EUSTBerechnen + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(382, 465) + Me.Controls.Add(Me.btn) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.lbl) + Me.Controls.Add(Me.MyDatagridview1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmVorauskasse_EUSTBerechnen" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Zoll berechnen" + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents lbl As Label + Friend WithEvents Label1 As Label + Friend WithEvents btn As Button + Friend WithEvents clmnBetrag As DataGridViewTextBoxColumn + Friend WithEvents clmnProzent As DataGridViewTextBoxColumn + Friend WithEvents clmnSumme As DataGridViewTextBoxColumn +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_EUSTBerechnen.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_EUSTBerechnen.resx new file mode 100644 index 00000000..752edeed --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_EUSTBerechnen.resx @@ -0,0 +1,989 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + True + + + True + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_EUSTBerechnen.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_EUSTBerechnen.vb new file mode 100644 index 00000000..b3520ff9 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_EUSTBerechnen.vb @@ -0,0 +1,31 @@ +Public Class frmVorauskasse_EUSTBerechnen + Public GesamtBetrag As Double = 0 + + + + Private Sub MyDatagridview1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles MyDatagridview1.CellValueChanged + If e.ColumnIndex = 2 Then Exit Sub + GesamtBetrag = 0 + For Each r As DataGridViewRow In MyDatagridview1.Rows + If Not r.IsNewRow Then + If IsNumeric(r.Cells(0).Value) And IsNumeric(r.Cells(1).Value) Then + Dim Zoll = CDbl(r.Cells(0).Value) * (CDbl(r.Cells(1).Value) / 100) + Zoll = CDbl(Zoll.ToString("C2")) ' RUNDUNG + r.Cells(2).Value = Zoll + GesamtBetrag += Zoll + Else + r.Cells(2).Value = "" + End If + End If + Next + Label1.Text = GesamtBetrag.ToString("C2") + End Sub + + Private Sub frmVorauskasse_ZollBerechnen_Load(sender As Object, e As EventArgs) Handles Me.Shown + With MyDatagridview1 + .Columns(0).DefaultCellStyle.Format = "N2" + .Columns(1).DefaultCellStyle.Format = "N2" + End With + End Sub + +End Class \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb index eec59af3..118ac748 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb @@ -104,6 +104,7 @@ Partial Class usrcntlVorauskasse Me.cbxBeimErstellenSpeichern = New System.Windows.Forms.CheckBox() Me.txtVKVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel5 = New System.Windows.Forms.Panel() + Me.Button5 = New System.Windows.Forms.Button() Me.txtSonstigeKostenText = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxSVS = New System.Windows.Forms.CheckBox() Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() @@ -113,7 +114,6 @@ Partial Class usrcntlVorauskasse Me.txtWeitereTarifPos = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVerzollungskosten = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtSonstigeKosten = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtPapierePorti = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtEust2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtClearing = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtZoll2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -124,6 +124,7 @@ Partial Class usrcntlVorauskasse Me.txtGesamtsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtMwstProzent = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAndereAbgabenBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPapierePorti = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label42 = New System.Windows.Forms.Label() Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.Button2 = New System.Windows.Forms.Button() @@ -160,80 +161,72 @@ Partial Class usrcntlVorauskasse ' Me.lblVollmachtDE.AutoSize = True Me.lblVollmachtDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblVollmachtDE.Location = New System.Drawing.Point(64, 14) - Me.lblVollmachtDE.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblVollmachtDE.Location = New System.Drawing.Point(43, 9) Me.lblVollmachtDE.Name = "lblVollmachtDE" - Me.lblVollmachtDE.Size = New System.Drawing.Size(367, 29) + Me.lblVollmachtDE.Size = New System.Drawing.Size(256, 20) Me.lblVollmachtDE.TabIndex = 2 Me.lblVollmachtDE.Text = "IMPORTAVISO Vorauszahlung" ' 'lblHerrFrau ' Me.lblHerrFrau.AutoSize = True - Me.lblHerrFrau.Location = New System.Drawing.Point(255, 57) - Me.lblHerrFrau.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblHerrFrau.Location = New System.Drawing.Point(170, 37) Me.lblHerrFrau.Name = "lblHerrFrau" - Me.lblHerrFrau.Size = New System.Drawing.Size(81, 20) + Me.lblHerrFrau.Size = New System.Drawing.Size(56, 13) Me.lblHerrFrau.TabIndex = 8 Me.lblHerrFrau.Text = "Herr/Frau:" ' 'Label1 ' Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(255, 115) - Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label1.Location = New System.Drawing.Point(170, 75) Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(72, 20) + Me.Label1.Size = New System.Drawing.Size(48, 13) Me.Label1.TabIndex = 16 Me.Label1.Text = "Adresse:" ' 'Label2 ' Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(255, 185) - Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label2.Location = New System.Drawing.Point(170, 120) Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(63, 20) + Me.Label2.Size = New System.Drawing.Size(43, 13) Me.Label2.TabIndex = 19 Me.Label2.Text = "UID-Nr:" ' 'Label3 ' Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(873, 185) - Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label3.Location = New System.Drawing.Point(582, 120) Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(74, 20) + Me.Label3.Size = New System.Drawing.Size(50, 13) Me.Label3.TabIndex = 21 Me.Label3.Text = "EORI-Nr:" ' 'Label4 ' Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(873, 214) - Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label4.Location = New System.Drawing.Point(582, 139) Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(39, 20) + Me.Label4.Size = New System.Drawing.Size(27, 13) Me.Label4.TabIndex = 25 Me.Label4.Text = "Fax:" ' 'Label5 ' Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(255, 214) - Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label5.Location = New System.Drawing.Point(170, 139) Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(38, 20) + Me.Label5.Size = New System.Drawing.Size(28, 13) Me.Label5.TabIndex = 23 Me.Label5.Text = "Tel.:" ' 'Label6 ' Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(255, 243) - Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label6.Location = New System.Drawing.Point(170, 158) Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(57, 20) + Me.Label6.Size = New System.Drawing.Size(39, 13) Me.Label6.TabIndex = 27 Me.Label6.Text = "E-Mail:" ' @@ -242,30 +235,27 @@ Partial Class usrcntlVorauskasse Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn.Location = New System.Drawing.Point(1406, 82) - Me.btn.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.btn.Location = New System.Drawing.Point(937, 53) Me.btn.Name = "btn" - Me.btn.Size = New System.Drawing.Size(39, 31) + Me.btn.Size = New System.Drawing.Size(26, 20) Me.btn.TabIndex = 15 Me.btn.UseVisualStyleBackColor = True ' 'Label8 ' Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(770, 18) - Me.Label8.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label8.Location = New System.Drawing.Point(513, 12) Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(204, 20) + Me.Label8.Size = New System.Drawing.Size(134, 13) Me.Label8.TabIndex = 4 Me.Label8.Text = "Ansprechpartner (VERAG):" ' 'Label11 ' Me.Label11.AutoSize = True - Me.Label11.Location = New System.Drawing.Point(873, 243) - Me.Label11.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label11.Location = New System.Drawing.Point(582, 158) Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(84, 20) + Me.Label11.Size = New System.Drawing.Size(56, 13) Me.Label11.TabIndex = 29 Me.Label11.Text = "FA-St.-Nr.:" ' @@ -274,10 +264,9 @@ Partial Class usrcntlVorauskasse Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.pic.Cursor = System.Windows.Forms.Cursors.Hand - Me.pic.Location = New System.Drawing.Point(8, 8) - Me.pic.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.pic.Location = New System.Drawing.Point(5, 5) Me.pic.Name = "pic" - Me.pic.Size = New System.Drawing.Size(48, 49) + Me.pic.Size = New System.Drawing.Size(32, 32) Me.pic.TabIndex = 30 Me.pic.TabStop = False ' @@ -287,10 +276,9 @@ Partial Class usrcntlVorauskasse Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDown.Location = New System.Drawing.Point(1464, 65) - Me.btnDown.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.btnDown.Location = New System.Drawing.Point(976, 42) Me.btnDown.Name = "btnDown" - Me.btnDown.Size = New System.Drawing.Size(38, 32) + Me.btnDown.Size = New System.Drawing.Size(25, 21) Me.btnDown.TabIndex = 10 Me.btnDown.UseVisualStyleBackColor = True ' @@ -300,10 +288,9 @@ Partial Class usrcntlVorauskasse Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnUp.Location = New System.Drawing.Point(1464, 34) - Me.btnUp.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.btnUp.Location = New System.Drawing.Point(976, 22) Me.btnUp.Name = "btnUp" - Me.btnUp.Size = New System.Drawing.Size(38, 32) + Me.btnUp.Size = New System.Drawing.Size(25, 21) Me.btnUp.TabIndex = 7 Me.btnUp.UseVisualStyleBackColor = True ' @@ -313,138 +300,124 @@ Partial Class usrcntlVorauskasse Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDel.Location = New System.Drawing.Point(1464, -2) - Me.btnDel.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.btnDel.Location = New System.Drawing.Point(976, -1) Me.btnDel.Name = "btnDel" - Me.btnDel.Size = New System.Drawing.Size(38, 32) + Me.btnDel.Size = New System.Drawing.Size(25, 21) Me.btnDel.TabIndex = 0 Me.btnDel.UseVisualStyleBackColor = True ' 'Panel3 ' Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel3.Location = New System.Drawing.Point(26, 457) - Me.Panel3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Panel3.Location = New System.Drawing.Point(17, 297) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(384, 2) + Me.Panel3.Size = New System.Drawing.Size(257, 2) Me.Panel3.TabIndex = 33 ' 'Panel2 ' Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel2.Location = New System.Drawing.Point(26, 125) - Me.Panel2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Panel2.Location = New System.Drawing.Point(17, 81) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(384, 2) + Me.Panel2.Size = New System.Drawing.Size(257, 2) Me.Panel2.TabIndex = 7 ' 'Label13 ' Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(27, 468) - Me.Label13.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label13.Location = New System.Drawing.Point(18, 304) Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(118, 20) + Me.Label13.Size = New System.Drawing.Size(76, 13) Me.Label13.TabIndex = 34 Me.Label13.Text = "Gesamtsumme" ' 'Label14 ' Me.Label14.AutoSize = True - Me.Label14.Location = New System.Drawing.Point(27, 432) - Me.Label14.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label14.Location = New System.Drawing.Point(18, 281) Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(144, 20) + Me.Label14.Size = New System.Drawing.Size(98, 13) Me.Label14.TabIndex = 30 Me.Label14.Text = "MWSt. aus Dienstl." ' 'Label15 ' Me.Label15.AutoSize = True - Me.Label15.Location = New System.Drawing.Point(27, 340) - Me.Label15.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label15.Location = New System.Drawing.Point(18, 221) Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(42, 20) + Me.Label15.Size = New System.Drawing.Size(28, 13) Me.Label15.TabIndex = 23 Me.Label15.Text = "SVS" ' 'Label16 ' Me.Label16.AutoSize = True - Me.Label16.Location = New System.Drawing.Point(27, 370) - Me.Label16.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label16.Location = New System.Drawing.Point(18, 240) Me.Label16.Name = "Label16" - Me.Label16.Size = New System.Drawing.Size(99, 20) + Me.Label16.Size = New System.Drawing.Size(67, 13) Me.Label16.TabIndex = 26 Me.Label16.Text = "Papiere Porti" ' 'Label18 ' Me.Label18.AutoSize = True - Me.Label18.Location = New System.Drawing.Point(27, 282) - Me.Label18.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label18.Location = New System.Drawing.Point(18, 183) Me.Label18.Name = "Label18" - Me.Label18.Size = New System.Drawing.Size(171, 20) + Me.Label18.Size = New System.Drawing.Size(115, 13) Me.Label18.TabIndex = 19 Me.Label18.Text = "Übersetung Rechnung" ' 'Label19 ' Me.Label19.AutoSize = True - Me.Label19.Location = New System.Drawing.Point(27, 311) - Me.Label19.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label19.Location = New System.Drawing.Point(18, 202) Me.Label19.Name = "Label19" - Me.Label19.Size = New System.Drawing.Size(47, 20) + Me.Label19.Size = New System.Drawing.Size(33, 13) Me.Label19.TabIndex = 21 Me.Label19.Text = "Aviso" ' 'Label20 ' Me.Label20.AutoSize = True - Me.Label20.Location = New System.Drawing.Point(27, 252) - Me.Label20.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label20.Location = New System.Drawing.Point(18, 164) Me.Label20.Name = "Label20" - Me.Label20.Size = New System.Drawing.Size(191, 20) + Me.Label20.Size = New System.Drawing.Size(129, 13) Me.Label20.TabIndex = 17 Me.Label20.Text = "korr. Rechnung anfordern" ' 'Label21 ' Me.Label21.AutoSize = True - Me.Label21.Location = New System.Drawing.Point(27, 223) - Me.Label21.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label21.Location = New System.Drawing.Point(18, 145) Me.Label21.Name = "Label21" - Me.Label21.Size = New System.Drawing.Size(67, 20) + Me.Label21.Size = New System.Drawing.Size(45, 13) Me.Label21.TabIndex = 15 Me.Label21.Text = "Clearing" ' 'Label22 ' Me.Label22.AutoSize = True - Me.Label22.Location = New System.Drawing.Point(27, 194) - Me.Label22.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label22.Location = New System.Drawing.Point(18, 126) Me.Label22.Name = "Label22" - Me.Label22.Size = New System.Drawing.Size(60, 20) + Me.Label22.Size = New System.Drawing.Size(41, 13) Me.Label22.TabIndex = 13 Me.Label22.Text = "ATLAS" ' 'Label23 ' Me.Label23.AutoSize = True - Me.Label23.Location = New System.Drawing.Point(27, 165) - Me.Label23.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label23.Location = New System.Drawing.Point(18, 107) Me.Label23.Name = "Label23" - Me.Label23.Size = New System.Drawing.Size(131, 20) + Me.Label23.Size = New System.Drawing.Size(89, 13) Me.Label23.TabIndex = 11 Me.Label23.Text = "weitere Tarif-Pos." ' 'Label24 ' Me.Label24.AutoSize = True - Me.Label24.Location = New System.Drawing.Point(27, 135) - Me.Label24.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label24.Location = New System.Drawing.Point(18, 88) Me.Label24.Name = "Label24" - Me.Label24.Size = New System.Drawing.Size(140, 20) + Me.Label24.Size = New System.Drawing.Size(93, 13) Me.Label24.TabIndex = 8 Me.Label24.Text = "Verzollungskosten" ' @@ -452,10 +425,9 @@ Partial Class usrcntlVorauskasse ' Me.Label25.AutoSize = True Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label25.Location = New System.Drawing.Point(27, 66) - Me.Label25.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label25.Location = New System.Drawing.Point(18, 43) Me.Label25.Name = "Label25" - Me.Label25.Size = New System.Drawing.Size(57, 20) + Me.Label25.Size = New System.Drawing.Size(40, 13) Me.Label25.TabIndex = 3 Me.Label25.Text = "EUST" ' @@ -463,10 +435,9 @@ Partial Class usrcntlVorauskasse ' Me.Label27.AutoSize = True Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label27.Location = New System.Drawing.Point(27, 6) - Me.Label27.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label27.Location = New System.Drawing.Point(18, 4) Me.Label27.Name = "Label27" - Me.Label27.Size = New System.Drawing.Size(159, 20) + Me.Label27.Size = New System.Drawing.Size(108, 13) Me.Label27.TabIndex = 0 Me.Label27.Text = "Kostenaufstellung" ' @@ -474,10 +445,9 @@ Partial Class usrcntlVorauskasse ' Me.Label28.AutoSize = True Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label28.Location = New System.Drawing.Point(255, 6) - Me.Label28.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label28.Location = New System.Drawing.Point(170, 4) Me.Label28.Name = "Label28" - Me.Label28.Size = New System.Drawing.Size(178, 20) + Me.Label28.Size = New System.Drawing.Size(124, 13) Me.Label28.TabIndex = 0 Me.Label28.Text = "Abgabenberechnung" ' @@ -485,39 +455,35 @@ Partial Class usrcntlVorauskasse ' Me.Label29.AutoSize = True Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label29.Location = New System.Drawing.Point(27, 37) - Me.Label29.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label29.Location = New System.Drawing.Point(18, 24) Me.Label29.Name = "Label29" - Me.Label29.Size = New System.Drawing.Size(55, 20) + Me.Label29.Size = New System.Drawing.Size(38, 13) Me.Label29.TabIndex = 1 Me.Label29.Text = "ZOLL" ' 'Panel1 ' Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel1.Location = New System.Drawing.Point(255, 223) - Me.Panel1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Panel1.Location = New System.Drawing.Point(170, 145) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(329, 2) + Me.Panel1.Size = New System.Drawing.Size(220, 2) Me.Panel1.TabIndex = 16 ' 'pnl ' Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnl.Location = New System.Drawing.Point(255, 95) - Me.pnl.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.pnl.Location = New System.Drawing.Point(170, 62) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(329, 2) + Me.pnl.Size = New System.Drawing.Size(220, 2) Me.pnl.TabIndex = 5 ' 'Label30 ' Me.Label30.AutoSize = True Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label30.Location = New System.Drawing.Point(255, 263) - Me.Label30.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label30.Location = New System.Drawing.Point(170, 171) Me.Label30.Name = "Label30" - Me.Label30.Size = New System.Drawing.Size(57, 20) + Me.Label30.Size = New System.Drawing.Size(40, 13) Me.Label30.TabIndex = 19 Me.Label30.Text = "EUST" ' @@ -525,130 +491,117 @@ Partial Class usrcntlVorauskasse ' Me.Label31.AutoSize = True Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label31.Location = New System.Drawing.Point(255, 135) - Me.Label31.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label31.Location = New System.Drawing.Point(170, 88) Me.Label31.Name = "Label31" - Me.Label31.Size = New System.Drawing.Size(55, 20) + Me.Label31.Size = New System.Drawing.Size(38, 13) Me.Label31.TabIndex = 8 Me.Label31.Text = "ZOLL" ' 'Label32 ' Me.Label32.AutoSize = True - Me.Label32.Location = New System.Drawing.Point(255, 66) - Me.Label32.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label32.Location = New System.Drawing.Point(170, 43) Me.Label32.Name = "Label32" - Me.Label32.Size = New System.Drawing.Size(165, 20) + Me.Label32.Size = New System.Drawing.Size(110, 13) Me.Label32.TabIndex = 3 Me.Label32.Text = "Frachtkosten Ausland" ' 'Label33 ' Me.Label33.AutoSize = True - Me.Label33.Location = New System.Drawing.Point(255, 234) - Me.Label33.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label33.Location = New System.Drawing.Point(170, 152) Me.Label33.Name = "Label33" - Me.Label33.Size = New System.Drawing.Size(64, 20) + Me.Label33.Size = New System.Drawing.Size(42, 13) Me.Label33.TabIndex = 17 Me.Label33.Text = "Summe" ' 'Label34 ' Me.Label34.AutoSize = True - Me.Label34.Location = New System.Drawing.Point(255, 165) - Me.Label34.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label34.Location = New System.Drawing.Point(170, 107) Me.Label34.Name = "Label34" - Me.Label34.Size = New System.Drawing.Size(151, 20) + Me.Label34.Size = New System.Drawing.Size(101, 13) Me.Label34.TabIndex = 11 Me.Label34.Text = "Frachtkosten Inland" ' 'Label35 ' Me.Label35.AutoSize = True - Me.Label35.Location = New System.Drawing.Point(255, 106) - Me.Label35.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label35.Location = New System.Drawing.Point(170, 69) Me.Label35.Name = "Label35" - Me.Label35.Size = New System.Drawing.Size(128, 20) + Me.Label35.Size = New System.Drawing.Size(86, 13) Me.Label35.TabIndex = 6 Me.Label35.Text = "Zwischensumme" ' 'Label36 ' Me.Label36.AutoSize = True - Me.Label36.Location = New System.Drawing.Point(255, 37) - Me.Label36.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label36.Location = New System.Drawing.Point(170, 24) Me.Label36.Name = "Label36" - Me.Label36.Size = New System.Drawing.Size(137, 20) + Me.Label36.Size = New System.Drawing.Size(92, 13) Me.Label36.TabIndex = 1 Me.Label36.Text = "Rechnungsbetrag" ' 'Label26 ' Me.Label26.AutoSize = True - Me.Label26.Location = New System.Drawing.Point(255, 86) - Me.Label26.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label26.Location = New System.Drawing.Point(170, 56) Me.Label26.Name = "Label26" - Me.Label26.Size = New System.Drawing.Size(118, 20) + Me.Label26.Size = New System.Drawing.Size(78, 13) Me.Label26.TabIndex = 12 Me.Label26.Text = "Firmenwortlaut:" ' 'Label7 ' Me.Label7.AutoSize = True - Me.Label7.Location = New System.Drawing.Point(1248, 385) - Me.Label7.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label7.Location = New System.Drawing.Point(832, 250) Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(71, 20) + Me.Label7.Size = New System.Drawing.Size(49, 13) Me.Label7.TabIndex = 47 Me.Label7.Text = "Gewicht:" ' 'Label9 ' Me.Label9.AutoSize = True - Me.Label9.Location = New System.Drawing.Point(255, 385) - Me.Label9.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label9.Location = New System.Drawing.Point(170, 250) Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(87, 20) + Me.Label9.Size = New System.Drawing.Size(61, 13) Me.Label9.TabIndex = 43 Me.Label9.Text = "Anz./Verp.:" ' 'Label10 ' Me.Label10.AutoSize = True - Me.Label10.Location = New System.Drawing.Point(873, 355) - Me.Label10.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label10.Location = New System.Drawing.Point(582, 231) Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(107, 20) + Me.Label10.Size = New System.Drawing.Size(71, 13) Me.Label10.TabIndex = 40 Me.Label10.Text = "Unternehmer:" ' 'Label37 ' Me.Label37.AutoSize = True - Me.Label37.Location = New System.Drawing.Point(255, 355) - Me.Label37.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label37.Location = New System.Drawing.Point(170, 231) Me.Label37.Name = "Label37" - Me.Label37.Size = New System.Drawing.Size(101, 20) + Me.Label37.Size = New System.Drawing.Size(70, 13) Me.Label37.TabIndex = 38 Me.Label37.Text = "LKW-Kennz.:" ' 'Label38 ' Me.Label38.AutoSize = True - Me.Label38.Location = New System.Drawing.Point(873, 326) - Me.Label38.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label38.Location = New System.Drawing.Point(582, 212) Me.Label38.Name = "Label38" - Me.Label38.Size = New System.Drawing.Size(93, 20) + Me.Label38.Size = New System.Drawing.Size(66, 13) Me.Label38.TabIndex = 36 Me.Label38.Text = "ATR/EUR1:" ' 'Label39 ' Me.Label39.AutoSize = True - Me.Label39.Location = New System.Drawing.Point(255, 326) - Me.Label39.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label39.Location = New System.Drawing.Point(170, 212) Me.Label39.Name = "Label39" - Me.Label39.Size = New System.Drawing.Size(82, 20) + Me.Label39.Size = New System.Drawing.Size(55, 13) Me.Label39.TabIndex = 34 Me.Label39.Text = "Absender:" ' @@ -656,20 +609,18 @@ Partial Class usrcntlVorauskasse ' Me.Label40.AutoSize = True Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label40.Location = New System.Drawing.Point(66, 297) - Me.Label40.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label40.Location = New System.Drawing.Point(44, 193) Me.Label40.Name = "Label40" - Me.Label40.Size = New System.Drawing.Size(143, 20) + Me.Label40.Size = New System.Drawing.Size(99, 13) Me.Label40.TabIndex = 31 Me.Label40.Text = "Sendungsdaten:" ' 'Label41 ' Me.Label41.AutoSize = True - Me.Label41.Location = New System.Drawing.Point(585, 385) - Me.Label41.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label41.Location = New System.Drawing.Point(390, 250) Me.Label41.Name = "Label41" - Me.Label41.Size = New System.Drawing.Size(90, 20) + Me.Label41.Size = New System.Drawing.Size(62, 13) Me.Label41.TabIndex = 45 Me.Label41.Text = "Warenbez.:" ' @@ -711,19 +662,17 @@ Partial Class usrcntlVorauskasse Me.pnlBottom.Controls.Add(Me.Panel4) Me.pnlBottom.Controls.Add(Me.Panel5) Me.pnlBottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlBottom.Location = New System.Drawing.Point(0, 418) - Me.pnlBottom.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.pnlBottom.Location = New System.Drawing.Point(0, 272) Me.pnlBottom.Name = "pnlBottom" - Me.pnlBottom.Size = New System.Drawing.Size(1500, 545) + Me.pnlBottom.Size = New System.Drawing.Size(1000, 354) Me.pnlBottom.TabIndex = 49 ' 'Button4 ' Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button4.Location = New System.Drawing.Point(594, 186) - Me.Button4.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Button4.Location = New System.Drawing.Point(396, 121) Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(150, 35) + Me.Button4.Size = New System.Drawing.Size(100, 23) Me.Button4.TabIndex = 15 Me.Button4.Text = "Zoll berechnen" Me.Button4.UseVisualStyleBackColor = True @@ -735,20 +684,18 @@ Partial Class usrcntlVorauskasse Me.cboFiliale._value = "" Me.cboFiliale.DropDownWidth = 200 Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(260, 340) - Me.cboFiliale.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboFiliale.Location = New System.Drawing.Point(173, 221) Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(98, 28) + Me.cboFiliale.Size = New System.Drawing.Size(67, 21) Me.cboFiliale.TabIndex = 25 ' 'Label44 ' Me.Label44.AutoSize = True Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label44.Location = New System.Drawing.Point(255, 317) - Me.Label44.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label44.Location = New System.Drawing.Point(170, 206) Me.Label44.Name = "Label44" - Me.Label44.Size = New System.Drawing.Size(453, 20) + Me.Label44.Size = New System.Drawing.Size(303, 13) Me.Label44.TabIndex = 24 Me.Label44.Text = "Filiale / Abfertigungsnummer (für Banküberweisung):" ' @@ -764,25 +711,23 @@ Partial Class usrcntlVorauskasse Me.txtAbfertigungsNr._value = "" Me.txtAbfertigungsNr._Waehrung = False Me.txtAbfertigungsNr._WaehrungZeichen = True - Me.txtAbfertigungsNr.Location = New System.Drawing.Point(358, 340) - Me.txtAbfertigungsNr.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAbfertigungsNr.Location = New System.Drawing.Point(239, 221) Me.txtAbfertigungsNr.MaxLength = 8 Me.txtAbfertigungsNr.MaxLineLength = -1 Me.txtAbfertigungsNr.MaxLines_Warning = "" Me.txtAbfertigungsNr.MaxLines_Warning_Label = Nothing Me.txtAbfertigungsNr.Multiline = True Me.txtAbfertigungsNr.Name = "txtAbfertigungsNr" - Me.txtAbfertigungsNr.Size = New System.Drawing.Size(384, 30) + Me.txtAbfertigungsNr.Size = New System.Drawing.Size(257, 21) Me.txtAbfertigungsNr.TabIndex = 26 ' 'lklEintragAufheben ' Me.lklEintragAufheben.AutoSize = True Me.lklEintragAufheben.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lklEintragAufheben.Location = New System.Drawing.Point(54, 475) - Me.lklEintragAufheben.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lklEintragAufheben.Location = New System.Drawing.Point(36, 309) Me.lklEintragAufheben.Name = "lklEintragAufheben" - Me.lklEintragAufheben.Size = New System.Drawing.Size(148, 20) + Me.lklEintragAufheben.Size = New System.Drawing.Size(100, 13) Me.lklEintragAufheben.TabIndex = 31 Me.lklEintragAufheben.TabStop = True Me.lklEintragAufheben.Text = "Kopplung aufheben" @@ -793,10 +738,9 @@ Partial Class usrcntlVorauskasse Me.btnDelFD.BackgroundImage = Global.SDL.My.Resources.Resources.del Me.btnDelFD.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnDelFD.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDelFD.Location = New System.Drawing.Point(8, 469) - Me.btnDelFD.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.btnDelFD.Location = New System.Drawing.Point(5, 305) Me.btnDelFD.Name = "btnDelFD" - Me.btnDelFD.Size = New System.Drawing.Size(38, 31) + Me.btnDelFD.Size = New System.Drawing.Size(25, 20) Me.btnDelFD.TabIndex = 30 Me.btnDelFD.UseVisualStyleBackColor = True Me.btnDelFD.Visible = False @@ -806,10 +750,9 @@ Partial Class usrcntlVorauskasse Me.btnSaveFD.BackgroundImage = Global.SDL.My.Resources.Resources.save Me.btnSaveFD.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnSaveFD.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSaveFD.Location = New System.Drawing.Point(213, 440) - Me.btnSaveFD.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.btnSaveFD.Location = New System.Drawing.Point(142, 286) Me.btnSaveFD.Name = "btnSaveFD" - Me.btnSaveFD.Size = New System.Drawing.Size(38, 31) + Me.btnSaveFD.Size = New System.Drawing.Size(25, 20) Me.btnSaveFD.TabIndex = 29 Me.btnSaveFD.UseVisualStyleBackColor = True ' @@ -818,10 +761,9 @@ Partial Class usrcntlVorauskasse Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.search Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Location = New System.Drawing.Point(213, 469) - Me.Button1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Button1.Location = New System.Drawing.Point(142, 305) Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(38, 31) + Me.Button1.Size = New System.Drawing.Size(25, 20) Me.Button1.TabIndex = 32 Me.Button1.UseVisualStyleBackColor = True ' @@ -838,23 +780,21 @@ Partial Class usrcntlVorauskasse Me.txtVorlage._Waehrung = False Me.txtVorlage._WaehrungZeichen = True Me.txtVorlage.ForeColor = System.Drawing.Color.Black - Me.txtVorlage.Location = New System.Drawing.Point(8, 440) - Me.txtVorlage.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtVorlage.Location = New System.Drawing.Point(5, 286) Me.txtVorlage.MaxLineLength = -1 Me.txtVorlage.MaxLines_Warning = "" Me.txtVorlage.MaxLines_Warning_Label = Nothing Me.txtVorlage.Name = "txtVorlage" - Me.txtVorlage.Size = New System.Drawing.Size(205, 26) + Me.txtVorlage.Size = New System.Drawing.Size(138, 20) Me.txtVorlage.TabIndex = 28 ' 'Label43 ' Me.Label43.AutoSize = True Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label43.Location = New System.Drawing.Point(3, 415) - Me.Label43.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label43.Location = New System.Drawing.Point(2, 270) Me.Label43.Name = "Label43" - Me.Label43.Size = New System.Drawing.Size(200, 20) + Me.Label43.Size = New System.Drawing.Size(134, 13) Me.Label43.TabIndex = 27 Me.Label43.Text = "Als Vorlage speichern:" ' @@ -864,10 +804,9 @@ Partial Class usrcntlVorauskasse Me.txtEustProzent._allowFreiText = True Me.txtEustProzent._value = "" Me.txtEustProzent.FormattingEnabled = True - Me.txtEustProzent.Location = New System.Drawing.Point(369, 257) - Me.txtEustProzent.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtEustProzent.Location = New System.Drawing.Point(246, 167) Me.txtEustProzent.Name = "txtEustProzent" - Me.txtEustProzent.Size = New System.Drawing.Size(76, 28) + Me.txtEustProzent.Size = New System.Drawing.Size(52, 21) Me.txtEustProzent.TabIndex = 20 ' 'MyComboBox1 @@ -876,10 +815,9 @@ Partial Class usrcntlVorauskasse Me.MyComboBox1._allowFreiText = False Me.MyComboBox1._value = "" Me.MyComboBox1.FormattingEnabled = True - Me.MyComboBox1.Location = New System.Drawing.Point(30, 298) - Me.MyComboBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.MyComboBox1.Location = New System.Drawing.Point(20, 194) Me.MyComboBox1.Name = "MyComboBox1" - Me.MyComboBox1.Size = New System.Drawing.Size(120, 28) + Me.MyComboBox1.Size = New System.Drawing.Size(81, 21) Me.MyComboBox1.TabIndex = 23 Me.MyComboBox1.Visible = False ' @@ -887,10 +825,9 @@ Partial Class usrcntlVorauskasse ' Me.Label12.AutoSize = True Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label12.Location = New System.Drawing.Point(26, 272) - Me.Label12.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label12.Location = New System.Drawing.Point(17, 177) Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(103, 20) + Me.Label12.Size = New System.Drawing.Size(72, 13) Me.Label12.TabIndex = 22 Me.Label12.Text = "Bankdaten:" Me.Label12.Visible = False @@ -907,14 +844,13 @@ Partial Class usrcntlVorauskasse Me.txtEustSonstText._value = Nothing Me.txtEustSonstText._Waehrung = False Me.txtEustSonstText._WaehrungZeichen = True - Me.txtEustSonstText.Location = New System.Drawing.Point(260, 189) - Me.txtEustSonstText.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtEustSonstText.Location = New System.Drawing.Point(173, 123) Me.txtEustSonstText.MaxLength = 200 Me.txtEustSonstText.MaxLineLength = -1 Me.txtEustSonstText.MaxLines_Warning = "" Me.txtEustSonstText.MaxLines_Warning_Label = Nothing Me.txtEustSonstText.Name = "txtEustSonstText" - Me.txtEustSonstText.Size = New System.Drawing.Size(186, 26) + Me.txtEustSonstText.Size = New System.Drawing.Size(125, 20) Me.txtEustSonstText.TabIndex = 13 ' 'txtZollProzent @@ -930,13 +866,12 @@ Partial Class usrcntlVorauskasse Me.txtZollProzent._Waehrung = False Me.txtZollProzent._WaehrungZeichen = True Me.txtZollProzent.ForeColor = System.Drawing.Color.Black - Me.txtZollProzent.Location = New System.Drawing.Point(369, 131) - Me.txtZollProzent.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtZollProzent.Location = New System.Drawing.Point(246, 85) Me.txtZollProzent.MaxLineLength = -1 Me.txtZollProzent.MaxLines_Warning = "" Me.txtZollProzent.MaxLines_Warning_Label = Nothing Me.txtZollProzent.Name = "txtZollProzent" - Me.txtZollProzent.Size = New System.Drawing.Size(70, 26) + Me.txtZollProzent.Size = New System.Drawing.Size(48, 20) Me.txtZollProzent.TabIndex = 9 Me.txtZollProzent.Text = "0,00 %" Me.txtZollProzent.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -954,13 +889,12 @@ Partial Class usrcntlVorauskasse Me.lblRechnungsbetrag._Waehrung = True Me.lblRechnungsbetrag._WaehrungZeichen = True Me.lblRechnungsbetrag.ForeColor = System.Drawing.Color.Black - Me.lblRechnungsbetrag.Location = New System.Drawing.Point(459, 32) - Me.lblRechnungsbetrag.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.lblRechnungsbetrag.Location = New System.Drawing.Point(306, 21) Me.lblRechnungsbetrag.MaxLineLength = -1 Me.lblRechnungsbetrag.MaxLines_Warning = "" Me.lblRechnungsbetrag.MaxLines_Warning_Label = Nothing Me.lblRechnungsbetrag.Name = "lblRechnungsbetrag" - Me.lblRechnungsbetrag.Size = New System.Drawing.Size(115, 26) + Me.lblRechnungsbetrag.Size = New System.Drawing.Size(78, 20) Me.lblRechnungsbetrag.TabIndex = 2 Me.lblRechnungsbetrag.Text = "0,00 €" Me.lblRechnungsbetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -978,13 +912,12 @@ Partial Class usrcntlVorauskasse Me.txtFrachtkostenAusl._Waehrung = True Me.txtFrachtkostenAusl._WaehrungZeichen = True Me.txtFrachtkostenAusl.ForeColor = System.Drawing.Color.Black - Me.txtFrachtkostenAusl.Location = New System.Drawing.Point(459, 62) - Me.txtFrachtkostenAusl.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtFrachtkostenAusl.Location = New System.Drawing.Point(306, 40) Me.txtFrachtkostenAusl.MaxLineLength = -1 Me.txtFrachtkostenAusl.MaxLines_Warning = "" Me.txtFrachtkostenAusl.MaxLines_Warning_Label = Nothing Me.txtFrachtkostenAusl.Name = "txtFrachtkostenAusl" - Me.txtFrachtkostenAusl.Size = New System.Drawing.Size(115, 26) + Me.txtFrachtkostenAusl.Size = New System.Drawing.Size(78, 20) Me.txtFrachtkostenAusl.TabIndex = 4 Me.txtFrachtkostenAusl.Text = "0,00 €" Me.txtFrachtkostenAusl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1002,14 +935,13 @@ Partial Class usrcntlVorauskasse Me.txtZwischensumme._Waehrung = True Me.txtZwischensumme._WaehrungZeichen = True Me.txtZwischensumme.ForeColor = System.Drawing.Color.Black - Me.txtZwischensumme.Location = New System.Drawing.Point(459, 102) - Me.txtZwischensumme.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtZwischensumme.Location = New System.Drawing.Point(306, 66) Me.txtZwischensumme.MaxLineLength = -1 Me.txtZwischensumme.MaxLines_Warning = "" Me.txtZwischensumme.MaxLines_Warning_Label = Nothing Me.txtZwischensumme.Name = "txtZwischensumme" Me.txtZwischensumme.ReadOnly = True - Me.txtZwischensumme.Size = New System.Drawing.Size(115, 26) + Me.txtZwischensumme.Size = New System.Drawing.Size(78, 20) Me.txtZwischensumme.TabIndex = 7 Me.txtZwischensumme.Text = "0,00 €" Me.txtZwischensumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1027,14 +959,13 @@ Partial Class usrcntlVorauskasse Me.txtZoll._Waehrung = True Me.txtZoll._WaehrungZeichen = True Me.txtZoll.ForeColor = System.Drawing.Color.Black - Me.txtZoll.Location = New System.Drawing.Point(459, 131) - Me.txtZoll.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtZoll.Location = New System.Drawing.Point(306, 85) Me.txtZoll.MaxLineLength = -1 Me.txtZoll.MaxLines_Warning = "" Me.txtZoll.MaxLines_Warning_Label = Nothing Me.txtZoll.Name = "txtZoll" Me.txtZoll.ReadOnly = True - Me.txtZoll.Size = New System.Drawing.Size(115, 26) + Me.txtZoll.Size = New System.Drawing.Size(78, 20) Me.txtZoll.TabIndex = 10 Me.txtZoll.Text = "0,00 €" Me.txtZoll.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1052,13 +983,12 @@ Partial Class usrcntlVorauskasse Me.txtFrachtkostenInl._Waehrung = True Me.txtFrachtkostenInl._WaehrungZeichen = True Me.txtFrachtkostenInl.ForeColor = System.Drawing.Color.Black - Me.txtFrachtkostenInl.Location = New System.Drawing.Point(459, 160) - Me.txtFrachtkostenInl.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtFrachtkostenInl.Location = New System.Drawing.Point(306, 104) Me.txtFrachtkostenInl.MaxLineLength = -1 Me.txtFrachtkostenInl.MaxLines_Warning = "" Me.txtFrachtkostenInl.MaxLines_Warning_Label = Nothing Me.txtFrachtkostenInl.Name = "txtFrachtkostenInl" - Me.txtFrachtkostenInl.Size = New System.Drawing.Size(115, 26) + Me.txtFrachtkostenInl.Size = New System.Drawing.Size(78, 20) Me.txtFrachtkostenInl.TabIndex = 12 Me.txtFrachtkostenInl.Text = "0,00 €" Me.txtFrachtkostenInl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1076,13 +1006,12 @@ Partial Class usrcntlVorauskasse Me.txtEustSonstBetrag._Waehrung = True Me.txtEustSonstBetrag._WaehrungZeichen = True Me.txtEustSonstBetrag.ForeColor = System.Drawing.Color.Black - Me.txtEustSonstBetrag.Location = New System.Drawing.Point(459, 189) - Me.txtEustSonstBetrag.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtEustSonstBetrag.Location = New System.Drawing.Point(306, 123) Me.txtEustSonstBetrag.MaxLineLength = -1 Me.txtEustSonstBetrag.MaxLines_Warning = "" Me.txtEustSonstBetrag.MaxLines_Warning_Label = Nothing Me.txtEustSonstBetrag.Name = "txtEustSonstBetrag" - Me.txtEustSonstBetrag.Size = New System.Drawing.Size(115, 26) + Me.txtEustSonstBetrag.Size = New System.Drawing.Size(78, 20) Me.txtEustSonstBetrag.TabIndex = 14 Me.txtEustSonstBetrag.Text = "0,00 €" Me.txtEustSonstBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1100,14 +1029,13 @@ Partial Class usrcntlVorauskasse Me.txtSumme._Waehrung = True Me.txtSumme._WaehrungZeichen = True Me.txtSumme.ForeColor = System.Drawing.Color.Black - Me.txtSumme.Location = New System.Drawing.Point(459, 229) - Me.txtSumme.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtSumme.Location = New System.Drawing.Point(306, 149) Me.txtSumme.MaxLineLength = -1 Me.txtSumme.MaxLines_Warning = "" Me.txtSumme.MaxLines_Warning_Label = Nothing Me.txtSumme.Name = "txtSumme" Me.txtSumme.ReadOnly = True - Me.txtSumme.Size = New System.Drawing.Size(115, 26) + Me.txtSumme.Size = New System.Drawing.Size(78, 20) Me.txtSumme.TabIndex = 18 Me.txtSumme.Text = "0,00 €" Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1125,14 +1053,13 @@ Partial Class usrcntlVorauskasse Me.txtEUST._Waehrung = True Me.txtEUST._WaehrungZeichen = True Me.txtEUST.ForeColor = System.Drawing.Color.Black - Me.txtEUST.Location = New System.Drawing.Point(459, 258) - Me.txtEUST.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtEUST.Location = New System.Drawing.Point(306, 168) Me.txtEUST.MaxLineLength = -1 Me.txtEUST.MaxLines_Warning = "" Me.txtEUST.MaxLines_Warning_Label = Nothing Me.txtEUST.Name = "txtEUST" Me.txtEUST.ReadOnly = True - Me.txtEUST.Size = New System.Drawing.Size(115, 26) + Me.txtEUST.Size = New System.Drawing.Size(78, 20) Me.txtEUST.TabIndex = 21 Me.txtEUST.Text = "0,00 €" Me.txtEUST.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1147,19 +1074,17 @@ Partial Class usrcntlVorauskasse Me.Panel4.Controls.Add(Me.lblCRsaved) Me.Panel4.Controls.Add(Me.cbxBeimErstellenSpeichern) Me.Panel4.Controls.Add(Me.txtVKVermerk) - Me.Panel4.Location = New System.Drawing.Point(260, 394) - Me.Panel4.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Panel4.Location = New System.Drawing.Point(173, 256) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(484, 130) + Me.Panel4.Size = New System.Drawing.Size(323, 85) Me.Panel4.TabIndex = 33 ' 'Button3 ' Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button3.Location = New System.Drawing.Point(387, 5) - Me.Button3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Button3.Location = New System.Drawing.Point(258, 3) Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(90, 35) + Me.Button3.Size = New System.Drawing.Size(60, 23) Me.Button3.TabIndex = 1 Me.Button3.Text = "Liste" Me.Button3.UseVisualStyleBackColor = True @@ -1167,20 +1092,18 @@ Partial Class usrcntlVorauskasse 'Label45 ' Me.Label45.AutoSize = True - Me.Label45.Location = New System.Drawing.Point(4, 49) - Me.Label45.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label45.Location = New System.Drawing.Point(3, 32) Me.Label45.Name = "Label45" - Me.Label45.Size = New System.Drawing.Size(73, 20) + Me.Label45.Size = New System.Drawing.Size(49, 13) Me.Label45.TabIndex = 2 Me.Label45.Text = "Vermerk:" ' 'btnStandardPreiseLaden ' Me.btnStandardPreiseLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnStandardPreiseLaden.Location = New System.Drawing.Point(4, 82) - Me.btnStandardPreiseLaden.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.btnStandardPreiseLaden.Location = New System.Drawing.Point(3, 53) Me.btnStandardPreiseLaden.Name = "btnStandardPreiseLaden" - Me.btnStandardPreiseLaden.Size = New System.Drawing.Size(240, 35) + Me.btnStandardPreiseLaden.Size = New System.Drawing.Size(160, 23) Me.btnStandardPreiseLaden.TabIndex = 4 Me.btnStandardPreiseLaden.Text = "jetzt speichern" Me.btnStandardPreiseLaden.UseVisualStyleBackColor = True @@ -1189,10 +1112,9 @@ Partial Class usrcntlVorauskasse ' Me.lblCRsaved.AutoSize = True Me.lblCRsaved.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblCRsaved.Location = New System.Drawing.Point(254, 89) - Me.lblCRsaved.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblCRsaved.Location = New System.Drawing.Point(169, 58) Me.lblCRsaved.Name = "lblCRsaved" - Me.lblCRsaved.Size = New System.Drawing.Size(159, 20) + Me.lblCRsaved.Size = New System.Drawing.Size(113, 13) Me.lblCRsaved.TabIndex = 5 Me.lblCRsaved.Text = "(nicht gespeichert)" ' @@ -1202,10 +1124,9 @@ Partial Class usrcntlVorauskasse Me.cbxBeimErstellenSpeichern.Checked = True Me.cbxBeimErstellenSpeichern.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxBeimErstellenSpeichern.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!) - Me.cbxBeimErstellenSpeichern.Location = New System.Drawing.Point(4, 5) - Me.cbxBeimErstellenSpeichern.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cbxBeimErstellenSpeichern.Location = New System.Drawing.Point(3, 3) Me.cbxBeimErstellenSpeichern.Name = "cbxBeimErstellenSpeichern" - Me.cbxBeimErstellenSpeichern.Size = New System.Drawing.Size(280, 30) + Me.cbxBeimErstellenSpeichern.Size = New System.Drawing.Size(190, 22) Me.cbxBeimErstellenSpeichern.TabIndex = 0 Me.cbxBeimErstellenSpeichern.Text = "Beim Erstellen speichern" Me.cbxBeimErstellenSpeichern.UseVisualStyleBackColor = True @@ -1223,17 +1144,17 @@ Partial Class usrcntlVorauskasse Me.txtVKVermerk._Waehrung = False Me.txtVKVermerk._WaehrungZeichen = True Me.txtVKVermerk.ForeColor = System.Drawing.Color.Black - Me.txtVKVermerk.Location = New System.Drawing.Point(87, 46) - Me.txtVKVermerk.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtVKVermerk.Location = New System.Drawing.Point(58, 30) Me.txtVKVermerk.MaxLineLength = -1 Me.txtVKVermerk.MaxLines_Warning = "" Me.txtVKVermerk.MaxLines_Warning_Label = Nothing Me.txtVKVermerk.Name = "txtVKVermerk" - Me.txtVKVermerk.Size = New System.Drawing.Size(388, 26) + Me.txtVKVermerk.Size = New System.Drawing.Size(260, 20) Me.txtVKVermerk.TabIndex = 3 ' 'Panel5 ' + Me.Panel5.Controls.Add(Me.Button5) Me.Panel5.Controls.Add(Me.txtSonstigeKostenText) Me.Panel5.Controls.Add(Me.Label27) Me.Panel5.Controls.Add(Me.cbxSVS) @@ -1270,12 +1191,21 @@ Partial Class usrcntlVorauskasse Me.Panel5.Controls.Add(Me.txtAndereAbgabenBetrag) Me.Panel5.Controls.Add(Me.Label16) Me.Panel5.Controls.Add(Me.txtPapierePorti) - Me.Panel5.Location = New System.Drawing.Point(846, 0) - Me.Panel5.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Panel5.Location = New System.Drawing.Point(564, 0) Me.Panel5.Name = "Panel5" - Me.Panel5.Size = New System.Drawing.Size(654, 545) + Me.Panel5.Size = New System.Drawing.Size(436, 354) Me.Panel5.TabIndex = 34 ' + 'Button5 + ' + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Location = New System.Drawing.Point(271, 56) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(100, 23) + Me.Button5.TabIndex = 35 + Me.Button5.Text = "EUST berechnen" + Me.Button5.UseVisualStyleBackColor = True + ' 'txtSonstigeKostenText ' Me.txtSonstigeKostenText._DateTimeOnly = False @@ -1289,14 +1219,13 @@ Partial Class usrcntlVorauskasse Me.txtSonstigeKostenText._Waehrung = False Me.txtSonstigeKostenText._WaehrungZeichen = True Me.txtSonstigeKostenText.ForeColor = System.Drawing.Color.Black - Me.txtSonstigeKostenText.Location = New System.Drawing.Point(26, 395) - Me.txtSonstigeKostenText.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtSonstigeKostenText.Location = New System.Drawing.Point(17, 257) Me.txtSonstigeKostenText.MaxLength = 100 Me.txtSonstigeKostenText.MaxLineLength = -1 Me.txtSonstigeKostenText.MaxLines_Warning = "" Me.txtSonstigeKostenText.MaxLines_Warning_Label = Nothing Me.txtSonstigeKostenText.Name = "txtSonstigeKostenText" - Me.txtSonstigeKostenText.Size = New System.Drawing.Size(250, 26) + Me.txtSonstigeKostenText.Size = New System.Drawing.Size(168, 20) Me.txtSonstigeKostenText.TabIndex = 28 Me.txtSonstigeKostenText.Text = "Sonstige Kosten" ' @@ -1307,10 +1236,9 @@ Partial Class usrcntlVorauskasse Me.cbxSVS.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxSVS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxSVS.ForeColor = System.Drawing.Color.Red - Me.cbxSVS.Location = New System.Drawing.Point(252, 340) - Me.cbxSVS.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cbxSVS.Location = New System.Drawing.Point(168, 221) Me.cbxSVS.Name = "cbxSVS" - Me.cbxSVS.Size = New System.Drawing.Size(22, 21) + Me.cbxSVS.Size = New System.Drawing.Size(15, 14) Me.cbxSVS.TabIndex = 24 Me.cbxSVS.UseVisualStyleBackColor = True ' @@ -1318,10 +1246,9 @@ Partial Class usrcntlVorauskasse ' Me.LinkLabel1.AutoSize = True Me.LinkLabel1.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel1.Location = New System.Drawing.Point(402, 135) - Me.LinkLabel1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.LinkLabel1.Location = New System.Drawing.Point(268, 88) Me.LinkLabel1.Name = "LinkLabel1" - Me.LinkLabel1.Size = New System.Drawing.Size(59, 20) + Me.LinkLabel1.Size = New System.Drawing.Size(39, 13) Me.LinkLabel1.TabIndex = 10 Me.LinkLabel1.TabStop = True Me.LinkLabel1.Text = "Offerte" @@ -1340,13 +1267,12 @@ Partial Class usrcntlVorauskasse Me.txtATLAS._Waehrung = True Me.txtATLAS._WaehrungZeichen = True Me.txtATLAS.ForeColor = System.Drawing.Color.Black - Me.txtATLAS.Location = New System.Drawing.Point(276, 189) - Me.txtATLAS.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtATLAS.Location = New System.Drawing.Point(184, 123) Me.txtATLAS.MaxLineLength = -1 Me.txtATLAS.MaxLines_Warning = "" Me.txtATLAS.MaxLines_Warning_Label = Nothing Me.txtATLAS.Name = "txtATLAS" - Me.txtATLAS.Size = New System.Drawing.Size(115, 26) + Me.txtATLAS.Size = New System.Drawing.Size(78, 20) Me.txtATLAS.TabIndex = 14 Me.txtATLAS.Text = "0,00 €" Me.txtATLAS.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1364,13 +1290,12 @@ Partial Class usrcntlVorauskasse Me.txtKorrRechnung._Waehrung = True Me.txtKorrRechnung._WaehrungZeichen = True Me.txtKorrRechnung.ForeColor = System.Drawing.Color.Black - Me.txtKorrRechnung.Location = New System.Drawing.Point(276, 248) - Me.txtKorrRechnung.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtKorrRechnung.Location = New System.Drawing.Point(184, 161) Me.txtKorrRechnung.MaxLineLength = -1 Me.txtKorrRechnung.MaxLines_Warning = "" Me.txtKorrRechnung.MaxLines_Warning_Label = Nothing Me.txtKorrRechnung.Name = "txtKorrRechnung" - Me.txtKorrRechnung.Size = New System.Drawing.Size(115, 26) + Me.txtKorrRechnung.Size = New System.Drawing.Size(78, 20) Me.txtKorrRechnung.TabIndex = 18 Me.txtKorrRechnung.Text = "0,00 €" Me.txtKorrRechnung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1388,13 +1313,12 @@ Partial Class usrcntlVorauskasse Me.txtAviso._Waehrung = True Me.txtAviso._WaehrungZeichen = True Me.txtAviso.ForeColor = System.Drawing.Color.Black - Me.txtAviso.Location = New System.Drawing.Point(276, 306) - Me.txtAviso.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAviso.Location = New System.Drawing.Point(184, 199) Me.txtAviso.MaxLineLength = -1 Me.txtAviso.MaxLines_Warning = "" Me.txtAviso.MaxLines_Warning_Label = Nothing Me.txtAviso.Name = "txtAviso" - Me.txtAviso.Size = New System.Drawing.Size(115, 26) + Me.txtAviso.Size = New System.Drawing.Size(78, 20) Me.txtAviso.TabIndex = 22 Me.txtAviso.Text = "0,00 €" Me.txtAviso.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1412,13 +1336,12 @@ Partial Class usrcntlVorauskasse Me.txtWeitereTarifPos._Waehrung = True Me.txtWeitereTarifPos._WaehrungZeichen = True Me.txtWeitereTarifPos.ForeColor = System.Drawing.Color.Black - Me.txtWeitereTarifPos.Location = New System.Drawing.Point(276, 160) - Me.txtWeitereTarifPos.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtWeitereTarifPos.Location = New System.Drawing.Point(184, 104) Me.txtWeitereTarifPos.MaxLineLength = -1 Me.txtWeitereTarifPos.MaxLines_Warning = "" Me.txtWeitereTarifPos.MaxLines_Warning_Label = Nothing Me.txtWeitereTarifPos.Name = "txtWeitereTarifPos" - Me.txtWeitereTarifPos.Size = New System.Drawing.Size(115, 26) + Me.txtWeitereTarifPos.Size = New System.Drawing.Size(78, 20) Me.txtWeitereTarifPos.TabIndex = 12 Me.txtWeitereTarifPos.Text = "0,00 €" Me.txtWeitereTarifPos.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1436,13 +1359,12 @@ Partial Class usrcntlVorauskasse Me.txtVerzollungskosten._Waehrung = True Me.txtVerzollungskosten._WaehrungZeichen = True Me.txtVerzollungskosten.ForeColor = System.Drawing.Color.Black - Me.txtVerzollungskosten.Location = New System.Drawing.Point(276, 131) - Me.txtVerzollungskosten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtVerzollungskosten.Location = New System.Drawing.Point(184, 85) Me.txtVerzollungskosten.MaxLineLength = -1 Me.txtVerzollungskosten.MaxLines_Warning = "" Me.txtVerzollungskosten.MaxLines_Warning_Label = Nothing Me.txtVerzollungskosten.Name = "txtVerzollungskosten" - Me.txtVerzollungskosten.Size = New System.Drawing.Size(115, 26) + Me.txtVerzollungskosten.Size = New System.Drawing.Size(78, 20) Me.txtVerzollungskosten.TabIndex = 9 Me.txtVerzollungskosten.Text = "0,00 €" Me.txtVerzollungskosten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1460,41 +1382,16 @@ Partial Class usrcntlVorauskasse Me.txtSonstigeKosten._Waehrung = True Me.txtSonstigeKosten._WaehrungZeichen = True Me.txtSonstigeKosten.ForeColor = System.Drawing.Color.Black - Me.txtSonstigeKosten.Location = New System.Drawing.Point(276, 395) - Me.txtSonstigeKosten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtSonstigeKosten.Location = New System.Drawing.Point(184, 257) Me.txtSonstigeKosten.MaxLineLength = -1 Me.txtSonstigeKosten.MaxLines_Warning = "" Me.txtSonstigeKosten.MaxLines_Warning_Label = Nothing Me.txtSonstigeKosten.Name = "txtSonstigeKosten" - Me.txtSonstigeKosten.Size = New System.Drawing.Size(115, 26) + Me.txtSonstigeKosten.Size = New System.Drawing.Size(78, 20) Me.txtSonstigeKosten.TabIndex = 29 Me.txtSonstigeKosten.Text = "0,00 €" Me.txtSonstigeKosten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'txtPapierePorti - ' - Me.txtPapierePorti._DateTimeOnly = False - Me.txtPapierePorti._numbersOnly = False - Me.txtPapierePorti._numbersOnlyKommastellen = "" - Me.txtPapierePorti._Prozent = False - Me.txtPapierePorti._ShortDateNew = False - Me.txtPapierePorti._ShortDateOnly = False - Me.txtPapierePorti._TimeOnly = False - Me.txtPapierePorti._value = Nothing - Me.txtPapierePorti._Waehrung = True - Me.txtPapierePorti._WaehrungZeichen = True - Me.txtPapierePorti.ForeColor = System.Drawing.Color.Black - Me.txtPapierePorti.Location = New System.Drawing.Point(276, 365) - Me.txtPapierePorti.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.txtPapierePorti.MaxLineLength = -1 - Me.txtPapierePorti.MaxLines_Warning = "" - Me.txtPapierePorti.MaxLines_Warning_Label = Nothing - Me.txtPapierePorti.Name = "txtPapierePorti" - Me.txtPapierePorti.Size = New System.Drawing.Size(115, 26) - Me.txtPapierePorti.TabIndex = 27 - Me.txtPapierePorti.Text = "0,00 €" - Me.txtPapierePorti.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'txtEust2 ' Me.txtEust2._DateTimeOnly = False @@ -1508,14 +1405,13 @@ Partial Class usrcntlVorauskasse Me.txtEust2._Waehrung = True Me.txtEust2._WaehrungZeichen = True Me.txtEust2.ForeColor = System.Drawing.Color.Black - Me.txtEust2.Location = New System.Drawing.Point(276, 62) - Me.txtEust2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtEust2.Location = New System.Drawing.Point(184, 40) Me.txtEust2.MaxLineLength = -1 Me.txtEust2.MaxLines_Warning = "" Me.txtEust2.MaxLines_Warning_Label = Nothing Me.txtEust2.Name = "txtEust2" Me.txtEust2.ReadOnly = True - Me.txtEust2.Size = New System.Drawing.Size(115, 26) + Me.txtEust2.Size = New System.Drawing.Size(78, 20) Me.txtEust2.TabIndex = 4 Me.txtEust2.Text = "0,00 €" Me.txtEust2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1533,13 +1429,12 @@ Partial Class usrcntlVorauskasse Me.txtClearing._Waehrung = True Me.txtClearing._WaehrungZeichen = True Me.txtClearing.ForeColor = System.Drawing.Color.Black - Me.txtClearing.Location = New System.Drawing.Point(276, 218) - Me.txtClearing.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtClearing.Location = New System.Drawing.Point(184, 142) Me.txtClearing.MaxLineLength = -1 Me.txtClearing.MaxLines_Warning = "" Me.txtClearing.MaxLines_Warning_Label = Nothing Me.txtClearing.Name = "txtClearing" - Me.txtClearing.Size = New System.Drawing.Size(115, 26) + Me.txtClearing.Size = New System.Drawing.Size(78, 20) Me.txtClearing.TabIndex = 16 Me.txtClearing.Text = "0,00 €" Me.txtClearing.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1557,14 +1452,13 @@ Partial Class usrcntlVorauskasse Me.txtZoll2._Waehrung = True Me.txtZoll2._WaehrungZeichen = True Me.txtZoll2.ForeColor = System.Drawing.Color.Black - Me.txtZoll2.Location = New System.Drawing.Point(276, 32) - Me.txtZoll2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtZoll2.Location = New System.Drawing.Point(184, 21) Me.txtZoll2.MaxLineLength = -1 Me.txtZoll2.MaxLines_Warning = "" Me.txtZoll2.MaxLines_Warning_Label = Nothing Me.txtZoll2.Name = "txtZoll2" Me.txtZoll2.ReadOnly = True - Me.txtZoll2.Size = New System.Drawing.Size(115, 26) + Me.txtZoll2.Size = New System.Drawing.Size(78, 20) Me.txtZoll2.TabIndex = 2 Me.txtZoll2.Text = "0,00 €" Me.txtZoll2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1582,13 +1476,12 @@ Partial Class usrcntlVorauskasse Me.txtUebersetzungRg._Waehrung = True Me.txtUebersetzungRg._WaehrungZeichen = True Me.txtUebersetzungRg.ForeColor = System.Drawing.Color.Black - Me.txtUebersetzungRg.Location = New System.Drawing.Point(276, 277) - Me.txtUebersetzungRg.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtUebersetzungRg.Location = New System.Drawing.Point(184, 180) Me.txtUebersetzungRg.MaxLineLength = -1 Me.txtUebersetzungRg.MaxLines_Warning = "" Me.txtUebersetzungRg.MaxLines_Warning_Label = Nothing Me.txtUebersetzungRg.Name = "txtUebersetzungRg" - Me.txtUebersetzungRg.Size = New System.Drawing.Size(115, 26) + Me.txtUebersetzungRg.Size = New System.Drawing.Size(78, 20) Me.txtUebersetzungRg.TabIndex = 20 Me.txtUebersetzungRg.Text = "0,00 €" Me.txtUebersetzungRg.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1605,14 +1498,13 @@ Partial Class usrcntlVorauskasse Me.txtAndereAbgabenText._value = Nothing Me.txtAndereAbgabenText._Waehrung = False Me.txtAndereAbgabenText._WaehrungZeichen = True - Me.txtAndereAbgabenText.Location = New System.Drawing.Point(32, 91) - Me.txtAndereAbgabenText.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAndereAbgabenText.Location = New System.Drawing.Point(21, 59) Me.txtAndereAbgabenText.MaxLength = 200 Me.txtAndereAbgabenText.MaxLineLength = -1 Me.txtAndereAbgabenText.MaxLines_Warning = "" Me.txtAndereAbgabenText.MaxLines_Warning_Label = Nothing Me.txtAndereAbgabenText.Name = "txtAndereAbgabenText" - Me.txtAndereAbgabenText.Size = New System.Drawing.Size(186, 26) + Me.txtAndereAbgabenText.Size = New System.Drawing.Size(125, 20) Me.txtAndereAbgabenText.TabIndex = 5 ' 'txtSvs @@ -1628,13 +1520,12 @@ Partial Class usrcntlVorauskasse Me.txtSvs._Waehrung = True Me.txtSvs._WaehrungZeichen = True Me.txtSvs.ForeColor = System.Drawing.Color.Black - Me.txtSvs.Location = New System.Drawing.Point(276, 335) - Me.txtSvs.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtSvs.Location = New System.Drawing.Point(184, 218) Me.txtSvs.MaxLineLength = -1 Me.txtSvs.MaxLines_Warning = "" Me.txtSvs.MaxLines_Warning_Label = Nothing Me.txtSvs.Name = "txtSvs" - Me.txtSvs.Size = New System.Drawing.Size(115, 26) + Me.txtSvs.Size = New System.Drawing.Size(78, 20) Me.txtSvs.TabIndex = 25 Me.txtSvs.Text = "0,00 €" Me.txtSvs.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1652,14 +1543,13 @@ Partial Class usrcntlVorauskasse Me.txtMWST._Waehrung = True Me.txtMWST._WaehrungZeichen = True Me.txtMWST.ForeColor = System.Drawing.Color.Black - Me.txtMWST.Location = New System.Drawing.Point(276, 428) - Me.txtMWST.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtMWST.Location = New System.Drawing.Point(184, 278) Me.txtMWST.MaxLineLength = -1 Me.txtMWST.MaxLines_Warning = "" Me.txtMWST.MaxLines_Warning_Label = Nothing Me.txtMWST.Name = "txtMWST" Me.txtMWST.ReadOnly = True - Me.txtMWST.Size = New System.Drawing.Size(115, 26) + Me.txtMWST.Size = New System.Drawing.Size(78, 20) Me.txtMWST.TabIndex = 32 Me.txtMWST.Text = "0,00 €" Me.txtMWST.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1677,14 +1567,13 @@ Partial Class usrcntlVorauskasse Me.txtGesamtsumme._Waehrung = True Me.txtGesamtsumme._WaehrungZeichen = True Me.txtGesamtsumme.ForeColor = System.Drawing.Color.Black - Me.txtGesamtsumme.Location = New System.Drawing.Point(276, 463) - Me.txtGesamtsumme.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtGesamtsumme.Location = New System.Drawing.Point(184, 301) Me.txtGesamtsumme.MaxLineLength = -1 Me.txtGesamtsumme.MaxLines_Warning = "" Me.txtGesamtsumme.MaxLines_Warning_Label = Nothing Me.txtGesamtsumme.Name = "txtGesamtsumme" Me.txtGesamtsumme.ReadOnly = True - Me.txtGesamtsumme.Size = New System.Drawing.Size(115, 26) + Me.txtGesamtsumme.Size = New System.Drawing.Size(78, 20) Me.txtGesamtsumme.TabIndex = 35 Me.txtGesamtsumme.Text = "0,00 €" Me.txtGesamtsumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1702,13 +1591,12 @@ Partial Class usrcntlVorauskasse Me.txtMwstProzent._Waehrung = False Me.txtMwstProzent._WaehrungZeichen = True Me.txtMwstProzent.ForeColor = System.Drawing.Color.Black - Me.txtMwstProzent.Location = New System.Drawing.Point(200, 428) - Me.txtMwstProzent.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtMwstProzent.Location = New System.Drawing.Point(133, 278) Me.txtMwstProzent.MaxLineLength = -1 Me.txtMwstProzent.MaxLines_Warning = "" Me.txtMwstProzent.MaxLines_Warning_Label = Nothing Me.txtMwstProzent.Name = "txtMwstProzent" - Me.txtMwstProzent.Size = New System.Drawing.Size(66, 26) + Me.txtMwstProzent.Size = New System.Drawing.Size(45, 20) Me.txtMwstProzent.TabIndex = 31 Me.txtMwstProzent.Text = "20,00 %" Me.txtMwstProzent.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1726,35 +1614,55 @@ Partial Class usrcntlVorauskasse Me.txtAndereAbgabenBetrag._Waehrung = True Me.txtAndereAbgabenBetrag._WaehrungZeichen = True Me.txtAndereAbgabenBetrag.ForeColor = System.Drawing.Color.Black - Me.txtAndereAbgabenBetrag.Location = New System.Drawing.Point(276, 91) - Me.txtAndereAbgabenBetrag.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAndereAbgabenBetrag.Location = New System.Drawing.Point(184, 59) Me.txtAndereAbgabenBetrag.MaxLineLength = -1 Me.txtAndereAbgabenBetrag.MaxLines_Warning = "" Me.txtAndereAbgabenBetrag.MaxLines_Warning_Label = Nothing Me.txtAndereAbgabenBetrag.Name = "txtAndereAbgabenBetrag" - Me.txtAndereAbgabenBetrag.Size = New System.Drawing.Size(115, 26) + Me.txtAndereAbgabenBetrag.Size = New System.Drawing.Size(78, 20) Me.txtAndereAbgabenBetrag.TabIndex = 6 Me.txtAndereAbgabenBetrag.Text = "0,00 €" Me.txtAndereAbgabenBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' + 'txtPapierePorti + ' + Me.txtPapierePorti._DateTimeOnly = False + Me.txtPapierePorti._numbersOnly = False + Me.txtPapierePorti._numbersOnlyKommastellen = "" + Me.txtPapierePorti._Prozent = False + Me.txtPapierePorti._ShortDateNew = False + Me.txtPapierePorti._ShortDateOnly = False + Me.txtPapierePorti._TimeOnly = False + Me.txtPapierePorti._value = Nothing + Me.txtPapierePorti._Waehrung = True + Me.txtPapierePorti._WaehrungZeichen = True + Me.txtPapierePorti.ForeColor = System.Drawing.Color.Black + Me.txtPapierePorti.Location = New System.Drawing.Point(184, 237) + Me.txtPapierePorti.MaxLineLength = -1 + Me.txtPapierePorti.MaxLines_Warning = "" + Me.txtPapierePorti.MaxLines_Warning_Label = Nothing + Me.txtPapierePorti.Name = "txtPapierePorti" + Me.txtPapierePorti.Size = New System.Drawing.Size(78, 20) + Me.txtPapierePorti.TabIndex = 27 + Me.txtPapierePorti.Text = "0,00 €" + Me.txtPapierePorti.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label42 ' Me.Label42.AutoSize = True Me.Label42.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label42.Location = New System.Drawing.Point(474, 18) - Me.Label42.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label42.Location = New System.Drawing.Point(316, 12) Me.Label42.Name = "Label42" - Me.Label42.Size = New System.Drawing.Size(38, 20) + Me.Label42.Size = New System.Drawing.Size(26, 13) Me.Label42.TabIndex = 3 Me.Label42.Text = "für:" ' 'LinkLabel3 ' Me.LinkLabel3.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel3.Location = New System.Drawing.Point(58, 86) - Me.LinkLabel3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.LinkLabel3.Location = New System.Drawing.Point(39, 56) Me.LinkLabel3.Name = "LinkLabel3" - Me.LinkLabel3.Size = New System.Drawing.Size(188, 20) + Me.LinkLabel3.Size = New System.Drawing.Size(125, 13) Me.LinkLabel3.TabIndex = 11 Me.LinkLabel3.TabStop = True Me.LinkLabel3.Text = "Kopplung aufheben" @@ -1766,10 +1674,9 @@ Partial Class usrcntlVorauskasse Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.person Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.Location = New System.Drawing.Point(1371, 82) - Me.Button2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Button2.Location = New System.Drawing.Point(914, 53) Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(36, 31) + Me.Button2.Size = New System.Drawing.Size(24, 20) Me.Button2.TabIndex = 14 Me.Button2.UseVisualStyleBackColor = True Me.Button2.Visible = False @@ -1777,10 +1684,9 @@ Partial Class usrcntlVorauskasse 'Label46 ' Me.Label46.AutoSize = True - Me.Label46.Location = New System.Drawing.Point(255, 297) - Me.Label46.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label46.Location = New System.Drawing.Point(170, 193) Me.Label46.Name = "Label46" - Me.Label46.Size = New System.Drawing.Size(59, 20) + Me.Label46.Size = New System.Drawing.Size(41, 13) Me.Label46.TabIndex = 32 Me.Label46.Text = "Rg-Nr.:" ' @@ -1789,10 +1695,9 @@ Partial Class usrcntlVorauskasse Me.cbxLKWWartet.AutoSize = True Me.cbxLKWWartet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxLKWWartet.ForeColor = System.Drawing.Color.Red - Me.cbxLKWWartet.Location = New System.Drawing.Point(70, 377) - Me.cbxLKWWartet.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cbxLKWWartet.Location = New System.Drawing.Point(47, 245) Me.cbxLKWWartet.Name = "cbxLKWWartet" - Me.cbxLKWWartet.Size = New System.Drawing.Size(139, 24) + Me.cbxLKWWartet.Size = New System.Drawing.Size(96, 17) Me.cbxLKWWartet.TabIndex = 42 Me.cbxLKWWartet.Text = "LKW wartet!" Me.cbxLKWWartet.UseVisualStyleBackColor = True @@ -1810,14 +1715,13 @@ Partial Class usrcntlVorauskasse Me.txtRechnungsnummern._Waehrung = False Me.txtRechnungsnummern._WaehrungZeichen = True Me.txtRechnungsnummern.ForeColor = System.Drawing.Color.Black - Me.txtRechnungsnummern.Location = New System.Drawing.Point(381, 292) - Me.txtRechnungsnummern.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtRechnungsnummern.Location = New System.Drawing.Point(254, 190) Me.txtRechnungsnummern.MaxLength = 200 Me.txtRechnungsnummern.MaxLineLength = -1 Me.txtRechnungsnummern.MaxLines_Warning = "" Me.txtRechnungsnummern.MaxLines_Warning_Label = Nothing Me.txtRechnungsnummern.Name = "txtRechnungsnummern" - Me.txtRechnungsnummern.Size = New System.Drawing.Size(1062, 26) + Me.txtRechnungsnummern.Size = New System.Drawing.Size(709, 20) Me.txtRechnungsnummern.TabIndex = 33 ' 'txtDW @@ -1833,13 +1737,12 @@ Partial Class usrcntlVorauskasse Me.txtDW._Waehrung = False Me.txtDW._WaehrungZeichen = True Me.txtDW.ForeColor = System.Drawing.Color.Black - Me.txtDW.Location = New System.Drawing.Point(1406, 14) - Me.txtDW.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtDW.Location = New System.Drawing.Point(937, 9) Me.txtDW.MaxLineLength = -1 Me.txtDW.MaxLines_Warning = "" Me.txtDW.MaxLines_Warning_Label = Nothing Me.txtDW.Name = "txtDW" - Me.txtDW.Size = New System.Drawing.Size(37, 26) + Me.txtDW.Size = New System.Drawing.Size(26, 20) Me.txtDW.TabIndex = 6 Me.txtDW.Text = "0" Me.txtDW.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1850,10 +1753,9 @@ Partial Class usrcntlVorauskasse Me.cboFirma._allowFreiText = False Me.cboFirma._value = "" Me.cboFirma.FormattingEnabled = True - Me.cboFirma.Location = New System.Drawing.Point(522, 12) - Me.cboFirma.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboFirma.Location = New System.Drawing.Point(348, 8) Me.cboFirma.Name = "cboFirma" - Me.cboFirma.Size = New System.Drawing.Size(236, 28) + Me.cboFirma.Size = New System.Drawing.Size(159, 21) Me.cboFirma.TabIndex = 1 ' 'txtWarenbez @@ -1869,14 +1771,13 @@ Partial Class usrcntlVorauskasse Me.txtWarenbez._Waehrung = False Me.txtWarenbez._WaehrungZeichen = True Me.txtWarenbez.ForeColor = System.Drawing.Color.Black - Me.txtWarenbez.Location = New System.Drawing.Point(687, 380) - Me.txtWarenbez.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtWarenbez.Location = New System.Drawing.Point(458, 247) Me.txtWarenbez.MaxLength = 200 Me.txtWarenbez.MaxLineLength = -1 Me.txtWarenbez.MaxLines_Warning = "" Me.txtWarenbez.MaxLines_Warning_Label = Nothing Me.txtWarenbez.Name = "txtWarenbez" - Me.txtWarenbez.Size = New System.Drawing.Size(550, 26) + Me.txtWarenbez.Size = New System.Drawing.Size(368, 20) Me.txtWarenbez.TabIndex = 46 ' 'txtGewicht @@ -1892,14 +1793,13 @@ Partial Class usrcntlVorauskasse Me.txtGewicht._Waehrung = False Me.txtGewicht._WaehrungZeichen = True Me.txtGewicht.ForeColor = System.Drawing.Color.Black - Me.txtGewicht.Location = New System.Drawing.Point(1330, 380) - Me.txtGewicht.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtGewicht.Location = New System.Drawing.Point(887, 247) Me.txtGewicht.MaxLength = 200 Me.txtGewicht.MaxLineLength = -1 Me.txtGewicht.MaxLines_Warning = "" Me.txtGewicht.MaxLines_Warning_Label = Nothing Me.txtGewicht.Name = "txtGewicht" - Me.txtGewicht.Size = New System.Drawing.Size(112, 26) + Me.txtGewicht.Size = New System.Drawing.Size(76, 20) Me.txtGewicht.TabIndex = 48 ' 'txtAnzVerp @@ -1915,14 +1815,13 @@ Partial Class usrcntlVorauskasse Me.txtAnzVerp._Waehrung = False Me.txtAnzVerp._WaehrungZeichen = True Me.txtAnzVerp.ForeColor = System.Drawing.Color.Black - Me.txtAnzVerp.Location = New System.Drawing.Point(381, 380) - Me.txtAnzVerp.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAnzVerp.Location = New System.Drawing.Point(254, 247) Me.txtAnzVerp.MaxLength = 200 Me.txtAnzVerp.MaxLineLength = -1 Me.txtAnzVerp.MaxLines_Warning = "" Me.txtAnzVerp.MaxLines_Warning_Label = Nothing Me.txtAnzVerp.Name = "txtAnzVerp" - Me.txtAnzVerp.Size = New System.Drawing.Size(193, 26) + Me.txtAnzVerp.Size = New System.Drawing.Size(130, 20) Me.txtAnzVerp.TabIndex = 44 ' 'txtUnternehmer @@ -1938,14 +1837,13 @@ Partial Class usrcntlVorauskasse Me.txtUnternehmer._Waehrung = False Me.txtUnternehmer._WaehrungZeichen = True Me.txtUnternehmer.ForeColor = System.Drawing.Color.Black - Me.txtUnternehmer.Location = New System.Drawing.Point(980, 351) - Me.txtUnternehmer.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtUnternehmer.Location = New System.Drawing.Point(653, 228) Me.txtUnternehmer.MaxLength = 200 Me.txtUnternehmer.MaxLineLength = -1 Me.txtUnternehmer.MaxLines_Warning = "" Me.txtUnternehmer.MaxLines_Warning_Label = Nothing Me.txtUnternehmer.Name = "txtUnternehmer" - Me.txtUnternehmer.Size = New System.Drawing.Size(463, 26) + Me.txtUnternehmer.Size = New System.Drawing.Size(310, 20) Me.txtUnternehmer.TabIndex = 41 ' 'txtLKWKennz @@ -1961,14 +1859,13 @@ Partial Class usrcntlVorauskasse Me.txtLKWKennz._Waehrung = False Me.txtLKWKennz._WaehrungZeichen = True Me.txtLKWKennz.ForeColor = System.Drawing.Color.Black - Me.txtLKWKennz.Location = New System.Drawing.Point(381, 351) - Me.txtLKWKennz.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtLKWKennz.Location = New System.Drawing.Point(254, 228) Me.txtLKWKennz.MaxLength = 200 Me.txtLKWKennz.MaxLineLength = -1 Me.txtLKWKennz.MaxLines_Warning = "" Me.txtLKWKennz.MaxLines_Warning_Label = Nothing Me.txtLKWKennz.Name = "txtLKWKennz" - Me.txtLKWKennz.Size = New System.Drawing.Size(463, 26) + Me.txtLKWKennz.Size = New System.Drawing.Size(310, 20) Me.txtLKWKennz.TabIndex = 39 ' 'txtATUEur1 @@ -1984,14 +1881,13 @@ Partial Class usrcntlVorauskasse Me.txtATUEur1._Waehrung = False Me.txtATUEur1._WaehrungZeichen = True Me.txtATUEur1.ForeColor = System.Drawing.Color.Black - Me.txtATUEur1.Location = New System.Drawing.Point(980, 322) - Me.txtATUEur1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtATUEur1.Location = New System.Drawing.Point(653, 209) Me.txtATUEur1.MaxLength = 200 Me.txtATUEur1.MaxLineLength = -1 Me.txtATUEur1.MaxLines_Warning = "" Me.txtATUEur1.MaxLines_Warning_Label = Nothing Me.txtATUEur1.Name = "txtATUEur1" - Me.txtATUEur1.Size = New System.Drawing.Size(463, 26) + Me.txtATUEur1.Size = New System.Drawing.Size(310, 20) Me.txtATUEur1.TabIndex = 37 ' 'txtAbsender @@ -2007,14 +1903,13 @@ Partial Class usrcntlVorauskasse Me.txtAbsender._Waehrung = False Me.txtAbsender._WaehrungZeichen = True Me.txtAbsender.ForeColor = System.Drawing.Color.Black - Me.txtAbsender.Location = New System.Drawing.Point(381, 322) - Me.txtAbsender.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAbsender.Location = New System.Drawing.Point(254, 209) Me.txtAbsender.MaxLength = 200 Me.txtAbsender.MaxLineLength = -1 Me.txtAbsender.MaxLines_Warning = "" Me.txtAbsender.MaxLines_Warning_Label = Nothing Me.txtAbsender.Name = "txtAbsender" - Me.txtAbsender.Size = New System.Drawing.Size(463, 26) + Me.txtAbsender.Size = New System.Drawing.Size(310, 20) Me.txtAbsender.TabIndex = 35 ' 'txtHerrFrau @@ -2030,13 +1925,12 @@ Partial Class usrcntlVorauskasse Me.txtHerrFrau._Waehrung = False Me.txtHerrFrau._WaehrungZeichen = True Me.txtHerrFrau.ForeColor = System.Drawing.Color.Black - Me.txtHerrFrau.Location = New System.Drawing.Point(381, 52) - Me.txtHerrFrau.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtHerrFrau.Location = New System.Drawing.Point(254, 34) Me.txtHerrFrau.MaxLineLength = -1 Me.txtHerrFrau.MaxLines_Warning = "" Me.txtHerrFrau.MaxLines_Warning_Label = Nothing Me.txtHerrFrau.Name = "txtHerrFrau" - Me.txtHerrFrau.Size = New System.Drawing.Size(1024, 26) + Me.txtHerrFrau.Size = New System.Drawing.Size(684, 20) Me.txtHerrFrau.TabIndex = 9 ' 'txtFaStNr @@ -2052,14 +1946,13 @@ Partial Class usrcntlVorauskasse Me.txtFaStNr._Waehrung = False Me.txtFaStNr._WaehrungZeichen = True Me.txtFaStNr.ForeColor = System.Drawing.Color.Black - Me.txtFaStNr.Location = New System.Drawing.Point(980, 238) - Me.txtFaStNr.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtFaStNr.Location = New System.Drawing.Point(653, 155) Me.txtFaStNr.MaxLength = 200 Me.txtFaStNr.MaxLineLength = -1 Me.txtFaStNr.MaxLines_Warning = "" Me.txtFaStNr.MaxLines_Warning_Label = Nothing Me.txtFaStNr.Name = "txtFaStNr" - Me.txtFaStNr.Size = New System.Drawing.Size(463, 26) + Me.txtFaStNr.Size = New System.Drawing.Size(310, 20) Me.txtFaStNr.TabIndex = 30 ' 'txtAnsprechpartnerVERAG @@ -2075,13 +1968,12 @@ Partial Class usrcntlVorauskasse Me.txtAnsprechpartnerVERAG._Waehrung = False Me.txtAnsprechpartnerVERAG._WaehrungZeichen = True Me.txtAnsprechpartnerVERAG.ForeColor = System.Drawing.Color.Black - Me.txtAnsprechpartnerVERAG.Location = New System.Drawing.Point(980, 14) - Me.txtAnsprechpartnerVERAG.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAnsprechpartnerVERAG.Location = New System.Drawing.Point(653, 9) Me.txtAnsprechpartnerVERAG.MaxLineLength = -1 Me.txtAnsprechpartnerVERAG.MaxLines_Warning = "" Me.txtAnsprechpartnerVERAG.MaxLines_Warning_Label = Nothing Me.txtAnsprechpartnerVERAG.Name = "txtAnsprechpartnerVERAG" - Me.txtAnsprechpartnerVERAG.Size = New System.Drawing.Size(426, 26) + Me.txtAnsprechpartnerVERAG.Size = New System.Drawing.Size(285, 20) Me.txtAnsprechpartnerVERAG.TabIndex = 5 ' 'txtEmail @@ -2097,14 +1989,13 @@ Partial Class usrcntlVorauskasse Me.txtEmail._Waehrung = False Me.txtEmail._WaehrungZeichen = True Me.txtEmail.ForeColor = System.Drawing.Color.Black - Me.txtEmail.Location = New System.Drawing.Point(381, 238) - Me.txtEmail.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtEmail.Location = New System.Drawing.Point(254, 155) Me.txtEmail.MaxLength = 200 Me.txtEmail.MaxLineLength = -1 Me.txtEmail.MaxLines_Warning = "" Me.txtEmail.MaxLines_Warning_Label = Nothing Me.txtEmail.Name = "txtEmail" - Me.txtEmail.Size = New System.Drawing.Size(463, 26) + Me.txtEmail.Size = New System.Drawing.Size(310, 20) Me.txtEmail.TabIndex = 28 ' 'txtFax @@ -2120,14 +2011,13 @@ Partial Class usrcntlVorauskasse Me.txtFax._Waehrung = False Me.txtFax._WaehrungZeichen = True Me.txtFax.ForeColor = System.Drawing.Color.Black - Me.txtFax.Location = New System.Drawing.Point(980, 209) - Me.txtFax.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtFax.Location = New System.Drawing.Point(653, 136) Me.txtFax.MaxLength = 200 Me.txtFax.MaxLineLength = -1 Me.txtFax.MaxLines_Warning = "" Me.txtFax.MaxLines_Warning_Label = Nothing Me.txtFax.Name = "txtFax" - Me.txtFax.Size = New System.Drawing.Size(463, 26) + Me.txtFax.Size = New System.Drawing.Size(310, 20) Me.txtFax.TabIndex = 26 ' 'txtTel @@ -2143,14 +2033,13 @@ Partial Class usrcntlVorauskasse Me.txtTel._Waehrung = False Me.txtTel._WaehrungZeichen = True Me.txtTel.ForeColor = System.Drawing.Color.Black - Me.txtTel.Location = New System.Drawing.Point(381, 209) - Me.txtTel.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtTel.Location = New System.Drawing.Point(254, 136) Me.txtTel.MaxLength = 200 Me.txtTel.MaxLineLength = -1 Me.txtTel.MaxLines_Warning = "" Me.txtTel.MaxLines_Warning_Label = Nothing Me.txtTel.Name = "txtTel" - Me.txtTel.Size = New System.Drawing.Size(463, 26) + Me.txtTel.Size = New System.Drawing.Size(310, 20) Me.txtTel.TabIndex = 24 ' 'txtEori @@ -2166,14 +2055,13 @@ Partial Class usrcntlVorauskasse Me.txtEori._Waehrung = False Me.txtEori._WaehrungZeichen = True Me.txtEori.ForeColor = System.Drawing.Color.Black - Me.txtEori.Location = New System.Drawing.Point(980, 180) - Me.txtEori.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtEori.Location = New System.Drawing.Point(653, 117) Me.txtEori.MaxLength = 200 Me.txtEori.MaxLineLength = -1 Me.txtEori.MaxLines_Warning = "" Me.txtEori.MaxLines_Warning_Label = Nothing Me.txtEori.Name = "txtEori" - Me.txtEori.Size = New System.Drawing.Size(463, 26) + Me.txtEori.Size = New System.Drawing.Size(310, 20) Me.txtEori.TabIndex = 22 ' 'txtUid @@ -2189,14 +2077,13 @@ Partial Class usrcntlVorauskasse Me.txtUid._Waehrung = False Me.txtUid._WaehrungZeichen = True Me.txtUid.ForeColor = System.Drawing.Color.Black - Me.txtUid.Location = New System.Drawing.Point(381, 180) - Me.txtUid.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtUid.Location = New System.Drawing.Point(254, 117) Me.txtUid.MaxLength = 200 Me.txtUid.MaxLineLength = -1 Me.txtUid.MaxLines_Warning = "" Me.txtUid.MaxLines_Warning_Label = Nothing Me.txtUid.Name = "txtUid" - Me.txtUid.Size = New System.Drawing.Size(463, 26) + Me.txtUid.Size = New System.Drawing.Size(310, 20) Me.txtUid.TabIndex = 20 ' 'txtAdresse2 @@ -2212,13 +2099,12 @@ Partial Class usrcntlVorauskasse Me.txtAdresse2._Waehrung = False Me.txtAdresse2._WaehrungZeichen = True Me.txtAdresse2.ForeColor = System.Drawing.Color.Black - Me.txtAdresse2.Location = New System.Drawing.Point(381, 140) - Me.txtAdresse2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAdresse2.Location = New System.Drawing.Point(254, 91) Me.txtAdresse2.MaxLineLength = -1 Me.txtAdresse2.MaxLines_Warning = "" Me.txtAdresse2.MaxLines_Warning_Label = Nothing Me.txtAdresse2.Name = "txtAdresse2" - Me.txtAdresse2.Size = New System.Drawing.Size(1062, 26) + Me.txtAdresse2.Size = New System.Drawing.Size(709, 20) Me.txtAdresse2.TabIndex = 18 ' 'txtAdresse1 @@ -2234,13 +2120,12 @@ Partial Class usrcntlVorauskasse Me.txtAdresse1._Waehrung = False Me.txtAdresse1._WaehrungZeichen = True Me.txtAdresse1.ForeColor = System.Drawing.Color.Black - Me.txtAdresse1.Location = New System.Drawing.Point(381, 111) - Me.txtAdresse1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAdresse1.Location = New System.Drawing.Point(254, 72) Me.txtAdresse1.MaxLineLength = -1 Me.txtAdresse1.MaxLines_Warning = "" Me.txtAdresse1.MaxLines_Warning_Label = Nothing Me.txtAdresse1.Name = "txtAdresse1" - Me.txtAdresse1.Size = New System.Drawing.Size(1062, 26) + Me.txtAdresse1.Size = New System.Drawing.Size(709, 20) Me.txtAdresse1.TabIndex = 17 ' 'txtFirma @@ -2256,18 +2141,17 @@ Partial Class usrcntlVorauskasse Me.txtFirma._Waehrung = False Me.txtFirma._WaehrungZeichen = True Me.txtFirma.ForeColor = System.Drawing.Color.Black - Me.txtFirma.Location = New System.Drawing.Point(381, 82) - Me.txtFirma.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtFirma.Location = New System.Drawing.Point(254, 53) Me.txtFirma.MaxLineLength = -1 Me.txtFirma.MaxLines_Warning = "" Me.txtFirma.MaxLines_Warning_Label = Nothing Me.txtFirma.Name = "txtFirma" - Me.txtFirma.Size = New System.Drawing.Size(1024, 26) + Me.txtFirma.Size = New System.Drawing.Size(684, 20) Me.txtFirma.TabIndex = 13 ' 'usrcntlVorauskasse ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle @@ -2322,9 +2206,8 @@ Partial Class usrcntlVorauskasse Me.Controls.Add(Me.txtFirma) Me.Controls.Add(Me.lblHerrFrau) Me.Controls.Add(Me.lblVollmachtDE) - Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.Name = "usrcntlVorauskasse" - Me.Size = New System.Drawing.Size(1500, 963) + Me.Size = New System.Drawing.Size(1000, 626) CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlBottom.ResumeLayout(False) Me.pnlBottom.PerformLayout() @@ -2464,4 +2347,5 @@ Partial Class usrcntlVorauskasse Friend WithEvents Panel5 As Panel Friend WithEvents txtSonstigeKostenText As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Button4 As Button + Friend WithEvents Button5 As Button End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb index c98d2ca8..afeaf516 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb @@ -235,6 +235,13 @@ cboFirma.changeItem("1") End Select + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then + cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-UNISPED LTD", "26")) + End If + + + + cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True) Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA @@ -274,6 +281,15 @@ txtMwstProzent._value = 0 bool_steuerberechnung = False End If + Case "GB" + If txtUid.Text.Trim = "" OrElse txtUid.Text.ToUpper.StartsWith("GB") Then + 'If txtMwstProzent._value = "" Then + txtMwstProzent._value = 0.2 + 'End If + Else + txtMwstProzent._value = 0 + bool_steuerberechnung = False + End If Case Else '"D" If txtUid.Text.Trim = "" OrElse txtUid.Text.ToUpper.StartsWith("DE") Then 'If txtMwstProzent._value = "" Then @@ -374,7 +390,7 @@ 'Dim FIRMA_TMP = New VERAG_PROG_ALLGEMEIN.cFirmen(cboFiliale._value) 'Select Case FIRMA_TMP.Firma_LandKz Select Case cboFirma._value - Case "11" ', "21", "23" + Case "11", "26" ', "21", "23" txtEustProzent.changeItem("0,20") Case Else 'If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("20.12.2020") Then @@ -667,4 +683,18 @@ End If End If End Sub + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + Dim f As New frmVorauskasse_ZollBerechnen + If f.ShowDialog(Me) = DialogResult.OK Then + If f.GesamtBetrag > 0 Then + + ' txtEustSonstText.Text = "EUST" + txtAndereAbgabenText.Text = "EUST" + + ' txtEustSonstBetrag._value = f.GesamtBetrag + txtAndereAbgabenBetrag._value = f.GesamtBetrag + End If + End If + End Sub End Class diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 669d05f7..cea3e50f 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -3206,50 +3206,57 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbfertigungsNr.Text, 60, top + 71.5, 43, 8, "bold", 13, , iTextSharp.text.Element.ALIGN_RIGHT)) End If + Dim w = "" + If usrCntl.cboFirma._value = "26" Then + w = "GBP" 'VERAG-UNISPED LTD + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Document-Date: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + Else + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Vorauskasse-Datum: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.lblRechnungsbetrag.Text, 70, top + 0, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrachtkostenAusl.Text, 70, top + 4, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZwischensumme.Text, 70, top + 8.5, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZoll.Text, 70, top + 12, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + End If + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.lblRechnungsbetrag.Text, w), 70, top + 0, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtFrachtkostenAusl.Text, w), 70, top + 4, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZwischensumme.Text, w), 70, top + 8.5, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZoll.Text, w), 70, top + 12, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollProzent.Text, 40, top + 12, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrachtkostenInl.Text, 70, top + 16, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtFrachtkostenInl.Text, w), 70, top + 16, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEustSonstText.Text, 13, top + 20.8, 40, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEustSonstBetrag.Text, 70, top + 20.5, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSumme.Text, 70, top + 25, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEustSonstBetrag.Text, w), 70, top + 20.5, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSumme.Text, w), 70, top + 25, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) Dim eustProz = If(IsNumeric(usrCntl.txtEustProzent._value), CDbl(usrCntl.txtEustProzent._value).ToString("P2"), usrCntl.txtEustProzent._value) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(eustProz, 40, top + 29, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEUST.Text, 70, top + 29, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEUST.Text, w), 70, top + 29, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) top = 209 - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZoll2.Text, 170, top + 0, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEust2.Text, 170, top + 4, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZoll2.Text, w), 170, top + 0, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEust2.Text, w), 170, top + 4, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAndereAbgabenText.Text, 116.5, top + 8, 40, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAndereAbgabenBetrag.Text, 170, top + 8, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerzollungskosten.Text, 170, top + 13, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWeitereTarifPos.Text, 170, top + 17, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATLAS.Text, 170, top + 21, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtClearing.Text, 170, top + 25, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtKorrRechnung.Text, 170, top + 29, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUebersetzungRg.Text, 170, top + 33, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtAndereAbgabenBetrag.Text, w), 170, top + 8, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtVerzollungskosten.Text, w), 170, top + 13, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtWeitereTarifPos.Text, w), 170, top + 17, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtATLAS.Text, w), 170, top + 21, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtClearing.Text, w), 170, top + 25, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtKorrRechnung.Text, w), 170, top + 29, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtUebersetzungRg.Text, w), 170, top + 33, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAviso.Text, 170, top + 37, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSvs.Text, 170, top + 41, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtAviso.Text, w), 170, top + 37, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSvs.Text, w), 170, top + 41, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 56, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtPapierePorti.Text, w), 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSonstigeKosten.Text, w), 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtMWST.Text, w), 170, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGesamtsumme.Text, 170, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtGesamtsumme.Text, w), 170, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Vorauskasse-Datum: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT)) If usrCntl.cbxLKWWartet.Checked Then @@ -3263,23 +3270,27 @@ Public Class FormularManagerNEU End If Dim destPath = "" + If usrCntl.cboFirma._value = "26" Then 'VERAG-UNISPED LTD + destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG-UNISPED", "", "Importaviso_VK", listTowrite) + Else - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX", "AMBAR" - destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite) - Case "UNISPED" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX", "AMBAR" + destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite) + Case "UNISPED" - Select Case usrCntl.cboFirma._value - Case "21", "23" : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VORAUSKASSE_AT", listTowrite) - Case Else : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite) - End Select - Case Else - Select Case usrCntl.cboFirma._value - Case "11" : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS_NEU2", listTowrite) - Case Else : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG_NEU2", listTowrite) - End Select + Select Case usrCntl.cboFirma._value + Case "21", "23" : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VORAUSKASSE_AT", listTowrite) + Case Else : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite) + End Select + Case Else + Select Case usrCntl.cboFirma._value + Case "11" : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS_NEU2", listTowrite) + Case Else : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG_NEU2", listTowrite) + End Select - End Select + End Select + End If Try If destPath <> "" Then @@ -3296,6 +3307,9 @@ Public Class FormularManagerNEU Return destPath End Function + Public Shared Function chWrg(s As String, w As String) + Return If(w <> "", s.Replace("€", w), s) + End Function Public Shared Function saveToDS(AvisoId, fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional ByRef anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing) As Boolean Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", AvisoId, Now.ToString("ddMMyy_HHmmss.ffff"), "", fileName, -1, False) If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index d2d61226..e785f061 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -1553,6 +1553,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property reloadFinance() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("reloadFinance", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -1783,6 +1793,15 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. + ''' + Friend ReadOnly Property sfsfsd1fs5dfsd5fsf() As String + Get + Return ResourceManager.GetString("sfsfsd1fs5dfsd5fsf", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -2262,7 +2281,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 1.2.0.6 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 1.2.0.7 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index 31cedfdd..d6e5ba5b 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -139,6 +139,9 @@ ..\Resources\plose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\brexit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -151,9 +154,6 @@ ..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\mse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -163,15 +163,9 @@ ..\Resources\liste-logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - ..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -193,9 +187,15 @@ ..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\mic-logo - short.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\android-note1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\LKW_Liste.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + ..\Resources\uhr_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -235,8 +235,8 @@ ..\Resources\nurIran.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\mic-logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\rechnung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -253,9 +253,6 @@ ..\Resources\pfeil_oben.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\warenkorb1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -271,9 +268,6 @@ ..\Resources\person_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\entwurf.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -283,11 +277,8 @@ ..\Resources\email11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\flagge_tr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -304,6 +295,9 @@ ..\Resources\frejus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Plakette.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -319,15 +313,15 @@ ..\Resources\Atilla_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Einheitspapier-0777_kurz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\lorry_motion.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -337,6 +331,9 @@ ..\Resources\statistik.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\printer21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\seal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -349,6 +346,9 @@ ..\Resources\NKD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\sgs.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\passpic.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -361,6 +361,9 @@ ..\Resources\Verag-Customs-Service-GMBH-Logo_sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Unisped_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\spedbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -403,12 +406,18 @@ ..\Resources\Excel_2013_logo-155x110.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\beleg_rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -418,11 +427,14 @@ ..\Resources\cards1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\flagge_D.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -439,8 +451,8 @@ ..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\data.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -448,8 +460,11 @@ ..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\picboxZoomOut_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\unisped_aeo_ZS_AT.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -502,9 +517,6 @@ ..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\sms.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -523,8 +535,8 @@ ..\Resources\person.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\aktiveVeredelung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -556,12 +568,15 @@ ..\Resources\transp.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\LKW1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Unisped_DE_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\list_new_small1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -580,8 +595,8 @@ ..\Resources\android-add-contact1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\pdf_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -592,12 +607,18 @@ ..\Resources\ids_bg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\sicherheit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Route2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -622,14 +643,17 @@ ..\Resources\passpic_sw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Verag-Customs-Service-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Route3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 ..\Resources\transfer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -637,20 +661,17 @@ ..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - 1.2.0.6 - ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\FA_Graz_EV-Veranlagung_Muster.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -658,8 +679,8 @@ ..\Resources\info.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - ..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -667,14 +688,17 @@ ..\Resources\SR_EVOLOG.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + ..\Resources\aeo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\android-note12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -688,14 +712,17 @@ ..\Resources\road.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Unisped_ZS_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -715,14 +742,14 @@ ..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\printer21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + 1.2.0.7 ..\Resources\lorry.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Route2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\unisped_aeo_AT.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -745,26 +772,35 @@ ..\Resources\report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\moneybag1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\VERAG-UNISPED-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Telefonliste_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\picboxZoomOut_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\rechnung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -775,46 +811,16 @@ ..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\flagge_A.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\sgs.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\..\..\data\reloadFinance.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Unisped_DE_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Unisped_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\unisped_aeo_ZS_AT.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Unisped_ZS_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\brexit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\VERAG-UNISPED-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ..\Resources\mic-logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\mic-logo - short.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\LKW_Liste.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 4d4d93d2..43bbf3d8 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -462,6 +462,12 @@ Component + + frmVorauskasse_EUSTBerechnen.vb + + + Form + subRptLaufzettelZollDE_Vorpapier.vb @@ -480,6 +486,12 @@ Form + + frmKundenSyska_DatenÜbertragen.vb + + + Form + frmKundenUIDEORI_List.vb @@ -2642,6 +2654,9 @@ rptSammelRechnungAnlagenDruck_Leistungen.vb + + frmVorauskasse_EUSTBerechnen.vb + subRptLaufzettelZollDE_Vorpapier.vb @@ -2651,6 +2666,9 @@ frmKundenBesonderheiten_Add.vb + + frmKundenSyska_DatenÜbertragen.vb + frmKundenUIDEORI_List.vb diff --git a/SDL/SMS/frmSendSMS.Designer.vb b/SDL/SMS/frmSendSMS.Designer.vb index e75bf75b..899a218b 100644 --- a/SDL/SMS/frmSendSMS.Designer.vb +++ b/SDL/SMS/frmSendSMS.Designer.vb @@ -56,6 +56,11 @@ Partial Class frmSendSMS Me.Button19 = New System.Windows.Forms.Button() Me.Button20 = New System.Windows.Forms.Button() Me.btnSndWhatsApp = New System.Windows.Forms.Button() + Me.Button21 = New System.Windows.Forms.Button() + Me.Button22 = New System.Windows.Forms.Button() + Me.Button23 = New System.Windows.Forms.Button() + Me.Button24 = New System.Windows.Forms.Button() + Me.Button25 = New System.Windows.Forms.Button() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -440,12 +445,72 @@ Partial Class frmSendSMS Me.btnSndWhatsApp.UseVisualStyleBackColor = True Me.btnSndWhatsApp.Visible = False ' + 'Button21 + ' + Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button21.Location = New System.Drawing.Point(408, 363) + Me.Button21.Name = "Button21" + Me.Button21.Size = New System.Drawing.Size(35, 25) + Me.Button21.TabIndex = 36 + Me.Button21.Text = "BG" + Me.Button21.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button21.UseVisualStyleBackColor = True + ' + 'Button22 + ' + Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button22.Location = New System.Drawing.Point(375, 363) + Me.Button22.Name = "Button22" + Me.Button22.Size = New System.Drawing.Size(35, 25) + Me.Button22.TabIndex = 35 + Me.Button22.Text = "RO" + Me.Button22.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button22.UseVisualStyleBackColor = True + ' + 'Button23 + ' + Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button23.Location = New System.Drawing.Point(341, 363) + Me.Button23.Name = "Button23" + Me.Button23.Size = New System.Drawing.Size(35, 25) + Me.Button23.TabIndex = 34 + Me.Button23.Text = "YU" + Me.Button23.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button23.UseVisualStyleBackColor = True + ' + 'Button24 + ' + Me.Button24.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button24.Location = New System.Drawing.Point(307, 363) + Me.Button24.Name = "Button24" + Me.Button24.Size = New System.Drawing.Size(35, 25) + Me.Button24.TabIndex = 33 + Me.Button24.Text = "TR" + Me.Button24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button24.UseVisualStyleBackColor = True + ' + 'Button25 + ' + Me.Button25.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button25.Location = New System.Drawing.Point(15, 363) + Me.Button25.Name = "Button25" + Me.Button25.Size = New System.Drawing.Size(293, 25) + Me.Button25.TabIndex = 32 + Me.Button25.Text = "Bitte Kuvert beim Zoll holen und zu VERAG kommen!" + Me.Button25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button25.UseVisualStyleBackColor = True + ' 'frmSendSMS ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(583, 371) + Me.ClientSize = New System.Drawing.Size(583, 391) + Me.Controls.Add(Me.Button21) + Me.Controls.Add(Me.Button22) + Me.Controls.Add(Me.Button23) + Me.Controls.Add(Me.Button24) + Me.Controls.Add(Me.Button25) Me.Controls.Add(Me.btnSndWhatsApp) Me.Controls.Add(Me.Button17) Me.Controls.Add(Me.Button18) @@ -521,4 +586,9 @@ Partial Class frmSendSMS Friend WithEvents Button19 As Button Friend WithEvents Button20 As Button Friend WithEvents btnSndWhatsApp As Button + Friend WithEvents Button21 As Button + Friend WithEvents Button22 As Button + Friend WithEvents Button23 As Button + Friend WithEvents Button24 As Button + Friend WithEvents Button25 As Button End Class diff --git a/SDL/SMS/frmSendSMS.vb b/SDL/SMS/frmSendSMS.vb index 05a761b8..c3db924a 100644 --- a/SDL/SMS/frmSendSMS.vb +++ b/SDL/SMS/frmSendSMS.vb @@ -104,6 +104,7 @@ Public Class frmSendSMS Button2.Text = Button2.Text.Replace("VERAG", FIRMATmp) Button3.Text = Button3.Text.Replace("VERAG", FIRMATmp) Button4.Text = Button4.Text.Replace("VERAG", FIRMATmp) + Button25.Text = Button25.Text.Replace("VERAG", FIRMATmp) End Sub ' @@ -312,6 +313,26 @@ Public Class frmSendSMS nr = nr.Substring(2) ' nullstellen weg Process.Start("https://wa.me/" & nr) End Sub + + Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click + fillTXT("Bitte Kuvert beim Zoll holen und zu VERAG kommen!", "LKW: ") + End Sub + + Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click + fillTXT("Gümrükten zarfini al VERAG'a gel lütfen", "TIR: ") + End Sub + + Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click + fillTXT("Idi na carinu, uzmi kovertu, i dodji u verag", "TRUCK: ") + End Sub + + Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click + fillTXT("Vă rugăm să ridicați plicul de la vamă și să veniți la VERAG", "TRUCK: ") + End Sub + + Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click + fillTXT("Molya, vzemete plika ot mitnitsata i elate vŭv VERAG", "TRUCK: ") + End Sub End Class Public Class cSMSOptions diff --git a/SDL/SMS/usrCntlSMS.Designer.vb b/SDL/SMS/usrCntlSMS.Designer.vb index df7502d1..7a1bbe55 100644 --- a/SDL/SMS/usrCntlSMS.Designer.vb +++ b/SDL/SMS/usrCntlSMS.Designer.vb @@ -33,6 +33,7 @@ Partial Class usrCntlSMS Me.Button6 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() Me.pnloptions = New System.Windows.Forms.Panel() + Me.Button1 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.FlatButton7 = New System.Windows.Forms.Button() Me.Label37 = New System.Windows.Forms.Label() @@ -61,7 +62,7 @@ Partial Class usrCntlSMS Me.cntxtOptionen = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.AbgeholtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StornoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.Button1 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() Me.pnloptions.SuspendLayout() Me.pnlTop.SuspendLayout() Me.Panel1.SuspendLayout() @@ -211,6 +212,7 @@ Partial Class usrCntlSMS 'pnloptions ' Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke + Me.pnloptions.Controls.Add(Me.Button3) Me.pnloptions.Controls.Add(Me.Button1) Me.pnloptions.Controls.Add(Me.Button2) Me.pnloptions.Controls.Add(Me.btnExcel) @@ -223,6 +225,19 @@ Partial Class usrCntlSMS Me.pnloptions.Size = New System.Drawing.Size(1111, 59) Me.pnloptions.TabIndex = 2 ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(113, 5) + Me.Button1.Margin = New System.Windows.Forms.Padding(0) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(104, 45) + Me.Button1.TabIndex = 9 + Me.Button1.Text = "Status prüfen" + Me.Button1.UseVisualStyleBackColor = True + ' 'Button2 ' Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) @@ -574,6 +589,7 @@ Partial Class usrCntlSMS ' 'cntxtOptionen ' + Me.cntxtOptionen.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtOptionen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AbgeholtToolStripMenuItem, Me.StornoToolStripMenuItem}) Me.cntxtOptionen.Name = "cntxtOptionen" Me.cntxtOptionen.Size = New System.Drawing.Size(124, 48) @@ -591,18 +607,18 @@ Partial Class usrCntlSMS Me.StornoToolStripMenuItem.Size = New System.Drawing.Size(123, 22) Me.StornoToolStripMenuItem.Text = "Storno" ' - 'Button1 + 'Button3 ' - Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(113, 5) - Me.Button1.Margin = New System.Windows.Forms.Padding(0) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(104, 45) - Me.Button1.TabIndex = 9 - Me.Button1.Text = "Status prüfen" - Me.Button1.UseVisualStyleBackColor = True + Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button3.Location = New System.Drawing.Point(226, 5) + Me.Button3.Margin = New System.Windows.Forms.Padding(0) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(104, 45) + Me.Button3.TabIndex = 10 + Me.Button3.Text = "Status Link" + Me.Button3.UseVisualStyleBackColor = True ' 'usrCntlSMS ' @@ -663,4 +679,5 @@ Partial Class usrCntlSMS Friend WithEvents cboAbsedner As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Button1 As Button + Friend WithEvents Button3 As Button End Class diff --git a/SDL/SMS/usrCntlSMS.vb b/SDL/SMS/usrCntlSMS.vb index a4a5bbd5..7601c06c 100644 --- a/SDL/SMS/usrCntlSMS.vb +++ b/SDL/SMS/usrCntlSMS.vb @@ -371,6 +371,8 @@ Public Class usrCntlSMS If MyDatagridview1.SelectedRows.Count > 0 Then Dim SMS = New VERAG_PROG_ALLGEMEIN.cSMS(MyDatagridview1.SelectedRows(0).Cells("sms_id").Value) + MsgBox("SMS-Status: " & SMS.checkSMSStatus) + Exit Sub Select Case SMS.checkSMSStatus Case <= 0 : MsgBox("SMS-Status: Wartend...") Case 1 : MsgBox("SMS-Status: Wartend...") @@ -381,6 +383,15 @@ Public Class usrCntlSMS End If End Sub + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + If MyDatagridview1.SelectedRows.Count > 0 Then + Dim SMS = New VERAG_PROG_ALLGEMEIN.cSMS(MyDatagridview1.SelectedRows(0).Cells("sms_id").Value) + If If(SMS.sms_Uris, "") <> "" Then + Process.Start(SMS.sms_Uris) + End If + + End If + End Sub End Class diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/AES/usrCntlATLAS_AES.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/AES/usrCntlATLAS_AES.vb index 8800d9d2..7d524402 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/AES/usrCntlATLAS_AES.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/AES/usrCntlATLAS_AES.vb @@ -362,6 +362,8 @@ Public Class usrCntlATLAS_AES If saveFile <> "" Then If Not cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, FIRMA_DY) Then MsgBox("Sendefehler!") + Else + If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen. End If End If End If diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb index 2bd65fa6..263a489f 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb @@ -689,8 +689,10 @@ Public Class usrCntlATLAS_EZA If saveFile <> "" Then If Not cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, FIRMA_DY) Then MsgBox("Sendefehler!") + Else + If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen. + End If End If - End If End If End If DY_ANM.UPDATE_DATA() diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb index b0216854..73a35ba5 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb @@ -517,6 +517,7 @@ Public Class usrCntlATLAS_NCTS If saveFile <> "" Then If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, Me.FIRMA_DY) Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03) + If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen. Else DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09) MsgBox("Sendefehler!") diff --git a/SDL/kunden/frmKundenSyska_DatenÜbertragen.Designer.vb b/SDL/kunden/frmKundenSyska_DatenÜbertragen.Designer.vb new file mode 100644 index 00000000..8d7d1ae6 --- /dev/null +++ b/SDL/kunden/frmKundenSyska_DatenÜbertragen.Designer.vb @@ -0,0 +1,702 @@ + _ +Partial Class frmKundenSyska_DatenÜbertragen + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenSyska_DatenÜbertragen)) + Me.Label3 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.lblAVISO_UID = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblSYSKA_UID = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblSYSKA_EMail = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblAVISO_EMail = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.cbxUID = New System.Windows.Forms.CheckBox() + Me.cbxEMail = New System.Windows.Forms.CheckBox() + Me.cbxFirma = New System.Windows.Forms.CheckBox() + Me.lblSYSKA_Name1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblAVISO_Name1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblSYSKA_Name2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblAVISO_Name2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxAdresse = New System.Windows.Forms.CheckBox() + Me.lblSYSKA_Strasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblAVISO_Strasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblAVISO_Ort = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblAVISO_Land = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblAVISO_PLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblSYSKA_PLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblSYSKA_Land = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblSYSKA_Ort = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.lblErrSyska = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(90, 40) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(44, 13) + Me.Label3.TabIndex = 2 + Me.Label3.Text = "AVISO" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(683, 40) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(47, 13) + Me.Label4.TabIndex = 3 + Me.Label4.Text = "SYSKA" + ' + 'lblAVISO_UID + ' + Me.lblAVISO_UID._DateTimeOnly = False + Me.lblAVISO_UID._numbersOnly = False + Me.lblAVISO_UID._numbersOnlyKommastellen = "" + Me.lblAVISO_UID._Prozent = False + Me.lblAVISO_UID._ShortDateNew = False + Me.lblAVISO_UID._ShortDateOnly = False + Me.lblAVISO_UID._TimeOnly = False + Me.lblAVISO_UID._value = "AVISO" + Me.lblAVISO_UID._Waehrung = False + Me.lblAVISO_UID._WaehrungZeichen = True + Me.lblAVISO_UID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAVISO_UID.ForeColor = System.Drawing.Color.Black + Me.lblAVISO_UID.Location = New System.Drawing.Point(93, 141) + Me.lblAVISO_UID.MaxLineLength = -1 + Me.lblAVISO_UID.MaxLines_Warning = "" + Me.lblAVISO_UID.MaxLines_Warning_Label = Nothing + Me.lblAVISO_UID.Name = "lblAVISO_UID" + Me.lblAVISO_UID.ReadOnly = True + Me.lblAVISO_UID.Size = New System.Drawing.Size(291, 20) + Me.lblAVISO_UID.TabIndex = 5 + Me.lblAVISO_UID.Text = "AVISO" + ' + 'lblSYSKA_UID + ' + Me.lblSYSKA_UID._DateTimeOnly = False + Me.lblSYSKA_UID._numbersOnly = False + Me.lblSYSKA_UID._numbersOnlyKommastellen = "" + Me.lblSYSKA_UID._Prozent = False + Me.lblSYSKA_UID._ShortDateNew = False + Me.lblSYSKA_UID._ShortDateOnly = False + Me.lblSYSKA_UID._TimeOnly = False + Me.lblSYSKA_UID._value = "SYSKA" + Me.lblSYSKA_UID._Waehrung = False + Me.lblSYSKA_UID._WaehrungZeichen = True + Me.lblSYSKA_UID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSYSKA_UID.ForeColor = System.Drawing.Color.Black + Me.lblSYSKA_UID.Location = New System.Drawing.Point(439, 139) + Me.lblSYSKA_UID.MaxLineLength = -1 + Me.lblSYSKA_UID.MaxLines_Warning = "" + Me.lblSYSKA_UID.MaxLines_Warning_Label = Nothing + Me.lblSYSKA_UID.Name = "lblSYSKA_UID" + Me.lblSYSKA_UID.ReadOnly = True + Me.lblSYSKA_UID.Size = New System.Drawing.Size(291, 20) + Me.lblSYSKA_UID.TabIndex = 6 + Me.lblSYSKA_UID.Text = "SYSKA" + ' + 'lblSYSKA_EMail + ' + Me.lblSYSKA_EMail._DateTimeOnly = False + Me.lblSYSKA_EMail._numbersOnly = False + Me.lblSYSKA_EMail._numbersOnlyKommastellen = "" + Me.lblSYSKA_EMail._Prozent = False + Me.lblSYSKA_EMail._ShortDateNew = False + Me.lblSYSKA_EMail._ShortDateOnly = False + Me.lblSYSKA_EMail._TimeOnly = False + Me.lblSYSKA_EMail._value = "SYSKA" + Me.lblSYSKA_EMail._Waehrung = False + Me.lblSYSKA_EMail._WaehrungZeichen = True + Me.lblSYSKA_EMail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSYSKA_EMail.ForeColor = System.Drawing.Color.Black + Me.lblSYSKA_EMail.Location = New System.Drawing.Point(439, 165) + Me.lblSYSKA_EMail.MaxLineLength = -1 + Me.lblSYSKA_EMail.MaxLines_Warning = "" + Me.lblSYSKA_EMail.MaxLines_Warning_Label = Nothing + Me.lblSYSKA_EMail.Name = "lblSYSKA_EMail" + Me.lblSYSKA_EMail.ReadOnly = True + Me.lblSYSKA_EMail.Size = New System.Drawing.Size(291, 20) + Me.lblSYSKA_EMail.TabIndex = 8 + Me.lblSYSKA_EMail.Text = "SYSKA" + Me.lblSYSKA_EMail.Visible = False + ' + 'lblAVISO_EMail + ' + Me.lblAVISO_EMail._DateTimeOnly = False + Me.lblAVISO_EMail._numbersOnly = False + Me.lblAVISO_EMail._numbersOnlyKommastellen = "" + Me.lblAVISO_EMail._Prozent = False + Me.lblAVISO_EMail._ShortDateNew = False + Me.lblAVISO_EMail._ShortDateOnly = False + Me.lblAVISO_EMail._TimeOnly = False + Me.lblAVISO_EMail._value = "AVISO" + Me.lblAVISO_EMail._Waehrung = False + Me.lblAVISO_EMail._WaehrungZeichen = True + Me.lblAVISO_EMail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAVISO_EMail.ForeColor = System.Drawing.Color.Black + Me.lblAVISO_EMail.Location = New System.Drawing.Point(93, 167) + Me.lblAVISO_EMail.MaxLineLength = -1 + Me.lblAVISO_EMail.MaxLines_Warning = "" + Me.lblAVISO_EMail.MaxLines_Warning_Label = Nothing + Me.lblAVISO_EMail.Name = "lblAVISO_EMail" + Me.lblAVISO_EMail.ReadOnly = True + Me.lblAVISO_EMail.Size = New System.Drawing.Size(291, 20) + Me.lblAVISO_EMail.TabIndex = 7 + Me.lblAVISO_EMail.Text = "AVISO" + Me.lblAVISO_EMail.Visible = False + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(401, 40) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(21, 13) + Me.Label10.TabIndex = 9 + Me.Label10.Text = ">>" + ' + 'Button1 + ' + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!) + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.Location = New System.Drawing.Point(93, 231) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(637, 42) + Me.Button1.TabIndex = 10 + Me.Button1.Text = "Übertragen" + Me.Button1.UseVisualStyleBackColor = True + ' + 'cbxUID + ' + Me.cbxUID.AutoSize = True + Me.cbxUID.Checked = True + Me.cbxUID.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxUID.Location = New System.Drawing.Point(15, 141) + Me.cbxUID.Name = "cbxUID" + Me.cbxUID.Size = New System.Drawing.Size(48, 17) + Me.cbxUID.TabIndex = 11 + Me.cbxUID.Text = "UID:" + Me.cbxUID.UseVisualStyleBackColor = True + ' + 'cbxEMail + ' + Me.cbxEMail.AutoSize = True + Me.cbxEMail.Location = New System.Drawing.Point(15, 168) + Me.cbxEMail.Name = "cbxEMail" + Me.cbxEMail.Size = New System.Drawing.Size(58, 17) + Me.cbxEMail.TabIndex = 12 + Me.cbxEMail.Text = "E-Mail:" + Me.cbxEMail.UseVisualStyleBackColor = True + Me.cbxEMail.Visible = False + ' + 'cbxFirma + ' + Me.cbxFirma.AutoSize = True + Me.cbxFirma.Checked = True + Me.cbxFirma.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxFirma.Location = New System.Drawing.Point(15, 58) + Me.cbxFirma.Name = "cbxFirma" + Me.cbxFirma.Size = New System.Drawing.Size(54, 17) + Me.cbxFirma.TabIndex = 15 + Me.cbxFirma.Text = "Firma:" + Me.cbxFirma.UseVisualStyleBackColor = True + ' + 'lblSYSKA_Name1 + ' + Me.lblSYSKA_Name1._DateTimeOnly = False + Me.lblSYSKA_Name1._numbersOnly = False + Me.lblSYSKA_Name1._numbersOnlyKommastellen = "" + Me.lblSYSKA_Name1._Prozent = False + Me.lblSYSKA_Name1._ShortDateNew = False + Me.lblSYSKA_Name1._ShortDateOnly = False + Me.lblSYSKA_Name1._TimeOnly = False + Me.lblSYSKA_Name1._value = "SYSKA" + Me.lblSYSKA_Name1._Waehrung = False + Me.lblSYSKA_Name1._WaehrungZeichen = True + Me.lblSYSKA_Name1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSYSKA_Name1.ForeColor = System.Drawing.Color.Black + Me.lblSYSKA_Name1.Location = New System.Drawing.Point(439, 56) + Me.lblSYSKA_Name1.MaxLineLength = -1 + Me.lblSYSKA_Name1.MaxLines_Warning = "" + Me.lblSYSKA_Name1.MaxLines_Warning_Label = Nothing + Me.lblSYSKA_Name1.Name = "lblSYSKA_Name1" + Me.lblSYSKA_Name1.ReadOnly = True + Me.lblSYSKA_Name1.Size = New System.Drawing.Size(291, 20) + Me.lblSYSKA_Name1.TabIndex = 14 + Me.lblSYSKA_Name1.Text = "SYSKA" + ' + 'lblAVISO_Name1 + ' + Me.lblAVISO_Name1._DateTimeOnly = False + Me.lblAVISO_Name1._numbersOnly = False + Me.lblAVISO_Name1._numbersOnlyKommastellen = "" + Me.lblAVISO_Name1._Prozent = False + Me.lblAVISO_Name1._ShortDateNew = False + Me.lblAVISO_Name1._ShortDateOnly = False + Me.lblAVISO_Name1._TimeOnly = False + Me.lblAVISO_Name1._value = "AVISO" + Me.lblAVISO_Name1._Waehrung = False + Me.lblAVISO_Name1._WaehrungZeichen = True + Me.lblAVISO_Name1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAVISO_Name1.ForeColor = System.Drawing.Color.Black + Me.lblAVISO_Name1.Location = New System.Drawing.Point(93, 58) + Me.lblAVISO_Name1.MaxLineLength = -1 + Me.lblAVISO_Name1.MaxLines_Warning = "" + Me.lblAVISO_Name1.MaxLines_Warning_Label = Nothing + Me.lblAVISO_Name1.Name = "lblAVISO_Name1" + Me.lblAVISO_Name1.ReadOnly = True + Me.lblAVISO_Name1.Size = New System.Drawing.Size(291, 20) + Me.lblAVISO_Name1.TabIndex = 13 + Me.lblAVISO_Name1.Text = "AVISO" + ' + 'lblSYSKA_Name2 + ' + Me.lblSYSKA_Name2._DateTimeOnly = False + Me.lblSYSKA_Name2._numbersOnly = False + Me.lblSYSKA_Name2._numbersOnlyKommastellen = "" + Me.lblSYSKA_Name2._Prozent = False + Me.lblSYSKA_Name2._ShortDateNew = False + Me.lblSYSKA_Name2._ShortDateOnly = False + Me.lblSYSKA_Name2._TimeOnly = False + Me.lblSYSKA_Name2._value = "SYSKA" + Me.lblSYSKA_Name2._Waehrung = False + Me.lblSYSKA_Name2._WaehrungZeichen = True + Me.lblSYSKA_Name2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSYSKA_Name2.ForeColor = System.Drawing.Color.Black + Me.lblSYSKA_Name2.Location = New System.Drawing.Point(439, 75) + Me.lblSYSKA_Name2.MaxLineLength = -1 + Me.lblSYSKA_Name2.MaxLines_Warning = "" + Me.lblSYSKA_Name2.MaxLines_Warning_Label = Nothing + Me.lblSYSKA_Name2.Name = "lblSYSKA_Name2" + Me.lblSYSKA_Name2.ReadOnly = True + Me.lblSYSKA_Name2.Size = New System.Drawing.Size(291, 20) + Me.lblSYSKA_Name2.TabIndex = 17 + Me.lblSYSKA_Name2.Text = "SYSKA" + ' + 'lblAVISO_Name2 + ' + Me.lblAVISO_Name2._DateTimeOnly = False + Me.lblAVISO_Name2._numbersOnly = False + Me.lblAVISO_Name2._numbersOnlyKommastellen = "" + Me.lblAVISO_Name2._Prozent = False + Me.lblAVISO_Name2._ShortDateNew = False + Me.lblAVISO_Name2._ShortDateOnly = False + Me.lblAVISO_Name2._TimeOnly = False + Me.lblAVISO_Name2._value = "AVISO" + Me.lblAVISO_Name2._Waehrung = False + Me.lblAVISO_Name2._WaehrungZeichen = True + Me.lblAVISO_Name2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAVISO_Name2.ForeColor = System.Drawing.Color.Black + Me.lblAVISO_Name2.Location = New System.Drawing.Point(93, 77) + Me.lblAVISO_Name2.MaxLineLength = -1 + Me.lblAVISO_Name2.MaxLines_Warning = "" + Me.lblAVISO_Name2.MaxLines_Warning_Label = Nothing + Me.lblAVISO_Name2.Name = "lblAVISO_Name2" + Me.lblAVISO_Name2.ReadOnly = True + Me.lblAVISO_Name2.Size = New System.Drawing.Size(291, 20) + Me.lblAVISO_Name2.TabIndex = 16 + Me.lblAVISO_Name2.Text = "AVISO" + ' + 'cbxAdresse + ' + Me.cbxAdresse.AutoSize = True + Me.cbxAdresse.Checked = True + Me.cbxAdresse.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAdresse.Location = New System.Drawing.Point(15, 96) + Me.cbxAdresse.Name = "cbxAdresse" + Me.cbxAdresse.Size = New System.Drawing.Size(67, 17) + Me.cbxAdresse.TabIndex = 21 + Me.cbxAdresse.Text = "Adresse:" + Me.cbxAdresse.UseVisualStyleBackColor = True + ' + 'lblSYSKA_Strasse + ' + Me.lblSYSKA_Strasse._DateTimeOnly = False + Me.lblSYSKA_Strasse._numbersOnly = False + Me.lblSYSKA_Strasse._numbersOnlyKommastellen = "" + Me.lblSYSKA_Strasse._Prozent = False + Me.lblSYSKA_Strasse._ShortDateNew = False + Me.lblSYSKA_Strasse._ShortDateOnly = False + Me.lblSYSKA_Strasse._TimeOnly = False + Me.lblSYSKA_Strasse._value = "SYSKA" + Me.lblSYSKA_Strasse._Waehrung = False + Me.lblSYSKA_Strasse._WaehrungZeichen = True + Me.lblSYSKA_Strasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSYSKA_Strasse.ForeColor = System.Drawing.Color.Black + Me.lblSYSKA_Strasse.Location = New System.Drawing.Point(439, 94) + Me.lblSYSKA_Strasse.MaxLineLength = -1 + Me.lblSYSKA_Strasse.MaxLines_Warning = "" + Me.lblSYSKA_Strasse.MaxLines_Warning_Label = Nothing + Me.lblSYSKA_Strasse.Name = "lblSYSKA_Strasse" + Me.lblSYSKA_Strasse.ReadOnly = True + Me.lblSYSKA_Strasse.Size = New System.Drawing.Size(291, 20) + Me.lblSYSKA_Strasse.TabIndex = 20 + Me.lblSYSKA_Strasse.Text = "SYSKA" + ' + 'lblAVISO_Strasse + ' + Me.lblAVISO_Strasse._DateTimeOnly = False + Me.lblAVISO_Strasse._numbersOnly = False + Me.lblAVISO_Strasse._numbersOnlyKommastellen = "" + Me.lblAVISO_Strasse._Prozent = False + Me.lblAVISO_Strasse._ShortDateNew = False + Me.lblAVISO_Strasse._ShortDateOnly = False + Me.lblAVISO_Strasse._TimeOnly = False + Me.lblAVISO_Strasse._value = "AVISO" + Me.lblAVISO_Strasse._Waehrung = False + Me.lblAVISO_Strasse._WaehrungZeichen = True + Me.lblAVISO_Strasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAVISO_Strasse.ForeColor = System.Drawing.Color.Black + Me.lblAVISO_Strasse.Location = New System.Drawing.Point(93, 96) + Me.lblAVISO_Strasse.MaxLineLength = -1 + Me.lblAVISO_Strasse.MaxLines_Warning = "" + Me.lblAVISO_Strasse.MaxLines_Warning_Label = Nothing + Me.lblAVISO_Strasse.Name = "lblAVISO_Strasse" + Me.lblAVISO_Strasse.ReadOnly = True + Me.lblAVISO_Strasse.Size = New System.Drawing.Size(291, 20) + Me.lblAVISO_Strasse.TabIndex = 19 + Me.lblAVISO_Strasse.Text = "AVISO" + ' + 'lblAVISO_Ort + ' + Me.lblAVISO_Ort._DateTimeOnly = False + Me.lblAVISO_Ort._numbersOnly = False + Me.lblAVISO_Ort._numbersOnlyKommastellen = "" + Me.lblAVISO_Ort._Prozent = False + Me.lblAVISO_Ort._ShortDateNew = False + Me.lblAVISO_Ort._ShortDateOnly = False + Me.lblAVISO_Ort._TimeOnly = False + Me.lblAVISO_Ort._value = "AVISO" + Me.lblAVISO_Ort._Waehrung = False + Me.lblAVISO_Ort._WaehrungZeichen = True + Me.lblAVISO_Ort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAVISO_Ort.ForeColor = System.Drawing.Color.Black + Me.lblAVISO_Ort.Location = New System.Drawing.Point(171, 113) + Me.lblAVISO_Ort.MaxLineLength = -1 + Me.lblAVISO_Ort.MaxLines_Warning = "" + Me.lblAVISO_Ort.MaxLines_Warning_Label = Nothing + Me.lblAVISO_Ort.Name = "lblAVISO_Ort" + Me.lblAVISO_Ort.ReadOnly = True + Me.lblAVISO_Ort.Size = New System.Drawing.Size(213, 20) + Me.lblAVISO_Ort.TabIndex = 22 + Me.lblAVISO_Ort.Text = "AVISO" + ' + 'lblAVISO_Land + ' + Me.lblAVISO_Land._DateTimeOnly = False + Me.lblAVISO_Land._numbersOnly = False + Me.lblAVISO_Land._numbersOnlyKommastellen = "" + Me.lblAVISO_Land._Prozent = False + Me.lblAVISO_Land._ShortDateNew = False + Me.lblAVISO_Land._ShortDateOnly = False + Me.lblAVISO_Land._TimeOnly = False + Me.lblAVISO_Land._value = "AVISO" + Me.lblAVISO_Land._Waehrung = False + Me.lblAVISO_Land._WaehrungZeichen = True + Me.lblAVISO_Land.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAVISO_Land.ForeColor = System.Drawing.Color.Black + Me.lblAVISO_Land.Location = New System.Drawing.Point(93, 113) + Me.lblAVISO_Land.MaxLineLength = -1 + Me.lblAVISO_Land.MaxLines_Warning = "" + Me.lblAVISO_Land.MaxLines_Warning_Label = Nothing + Me.lblAVISO_Land.Name = "lblAVISO_Land" + Me.lblAVISO_Land.ReadOnly = True + Me.lblAVISO_Land.Size = New System.Drawing.Size(26, 20) + Me.lblAVISO_Land.TabIndex = 24 + Me.lblAVISO_Land.Text = "AVISO" + ' + 'lblAVISO_PLZ + ' + Me.lblAVISO_PLZ._DateTimeOnly = False + Me.lblAVISO_PLZ._numbersOnly = False + Me.lblAVISO_PLZ._numbersOnlyKommastellen = "" + Me.lblAVISO_PLZ._Prozent = False + Me.lblAVISO_PLZ._ShortDateNew = False + Me.lblAVISO_PLZ._ShortDateOnly = False + Me.lblAVISO_PLZ._TimeOnly = False + Me.lblAVISO_PLZ._value = "AVISO" + Me.lblAVISO_PLZ._Waehrung = False + Me.lblAVISO_PLZ._WaehrungZeichen = True + Me.lblAVISO_PLZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAVISO_PLZ.ForeColor = System.Drawing.Color.Black + Me.lblAVISO_PLZ.Location = New System.Drawing.Point(118, 113) + Me.lblAVISO_PLZ.MaxLineLength = -1 + Me.lblAVISO_PLZ.MaxLines_Warning = "" + Me.lblAVISO_PLZ.MaxLines_Warning_Label = Nothing + Me.lblAVISO_PLZ.Name = "lblAVISO_PLZ" + Me.lblAVISO_PLZ.ReadOnly = True + Me.lblAVISO_PLZ.Size = New System.Drawing.Size(54, 20) + Me.lblAVISO_PLZ.TabIndex = 25 + Me.lblAVISO_PLZ.Text = "AVISO" + ' + 'lblSYSKA_PLZ + ' + Me.lblSYSKA_PLZ._DateTimeOnly = False + Me.lblSYSKA_PLZ._numbersOnly = False + Me.lblSYSKA_PLZ._numbersOnlyKommastellen = "" + Me.lblSYSKA_PLZ._Prozent = False + Me.lblSYSKA_PLZ._ShortDateNew = False + Me.lblSYSKA_PLZ._ShortDateOnly = False + Me.lblSYSKA_PLZ._TimeOnly = False + Me.lblSYSKA_PLZ._value = "SYSKA" + Me.lblSYSKA_PLZ._Waehrung = False + Me.lblSYSKA_PLZ._WaehrungZeichen = True + Me.lblSYSKA_PLZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSYSKA_PLZ.ForeColor = System.Drawing.Color.Black + Me.lblSYSKA_PLZ.Location = New System.Drawing.Point(464, 113) + Me.lblSYSKA_PLZ.MaxLineLength = -1 + Me.lblSYSKA_PLZ.MaxLines_Warning = "" + Me.lblSYSKA_PLZ.MaxLines_Warning_Label = Nothing + Me.lblSYSKA_PLZ.Name = "lblSYSKA_PLZ" + Me.lblSYSKA_PLZ.ReadOnly = True + Me.lblSYSKA_PLZ.Size = New System.Drawing.Size(54, 20) + Me.lblSYSKA_PLZ.TabIndex = 28 + Me.lblSYSKA_PLZ.Text = "SYSKA" + ' + 'lblSYSKA_Land + ' + Me.lblSYSKA_Land._DateTimeOnly = False + Me.lblSYSKA_Land._numbersOnly = False + Me.lblSYSKA_Land._numbersOnlyKommastellen = "" + Me.lblSYSKA_Land._Prozent = False + Me.lblSYSKA_Land._ShortDateNew = False + Me.lblSYSKA_Land._ShortDateOnly = False + Me.lblSYSKA_Land._TimeOnly = False + Me.lblSYSKA_Land._value = "SYSKA" + Me.lblSYSKA_Land._Waehrung = False + Me.lblSYSKA_Land._WaehrungZeichen = True + Me.lblSYSKA_Land.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSYSKA_Land.ForeColor = System.Drawing.Color.Black + Me.lblSYSKA_Land.Location = New System.Drawing.Point(439, 113) + Me.lblSYSKA_Land.MaxLineLength = -1 + Me.lblSYSKA_Land.MaxLines_Warning = "" + Me.lblSYSKA_Land.MaxLines_Warning_Label = Nothing + Me.lblSYSKA_Land.Name = "lblSYSKA_Land" + Me.lblSYSKA_Land.ReadOnly = True + Me.lblSYSKA_Land.Size = New System.Drawing.Size(26, 20) + Me.lblSYSKA_Land.TabIndex = 27 + Me.lblSYSKA_Land.Text = "SYSKA" + ' + 'lblSYSKA_Ort + ' + Me.lblSYSKA_Ort._DateTimeOnly = False + Me.lblSYSKA_Ort._numbersOnly = False + Me.lblSYSKA_Ort._numbersOnlyKommastellen = "" + Me.lblSYSKA_Ort._Prozent = False + Me.lblSYSKA_Ort._ShortDateNew = False + Me.lblSYSKA_Ort._ShortDateOnly = False + Me.lblSYSKA_Ort._TimeOnly = False + Me.lblSYSKA_Ort._value = "SYSKA" + Me.lblSYSKA_Ort._Waehrung = False + Me.lblSYSKA_Ort._WaehrungZeichen = True + Me.lblSYSKA_Ort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSYSKA_Ort.ForeColor = System.Drawing.Color.Black + Me.lblSYSKA_Ort.Location = New System.Drawing.Point(517, 113) + Me.lblSYSKA_Ort.MaxLineLength = -1 + Me.lblSYSKA_Ort.MaxLines_Warning = "" + Me.lblSYSKA_Ort.MaxLines_Warning_Label = Nothing + Me.lblSYSKA_Ort.Name = "lblSYSKA_Ort" + Me.lblSYSKA_Ort.ReadOnly = True + Me.lblSYSKA_Ort.Size = New System.Drawing.Size(213, 20) + Me.lblSYSKA_Ort.TabIndex = 26 + Me.lblSYSKA_Ort.Text = "SYSKA" + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.Location = New System.Drawing.Point(15, 191) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(50, 17) + Me.CheckBox1.TabIndex = 31 + Me.CheckBox1.Text = "ZZiel" + Me.CheckBox1.UseVisualStyleBackColor = True + Me.CheckBox1.Visible = False + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = False + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._value = "SYSKA" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(439, 188) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.ReadOnly = True + Me.MyTextBox1.Size = New System.Drawing.Size(291, 20) + Me.MyTextBox1.TabIndex = 30 + Me.MyTextBox1.Text = "SYSKA" + Me.MyTextBox1.Visible = False + ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = False + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._value = "AVISO" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyTextBox2.ForeColor = System.Drawing.Color.Black + Me.MyTextBox2.Location = New System.Drawing.Point(93, 190) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.ReadOnly = True + Me.MyTextBox2.Size = New System.Drawing.Size(291, 20) + Me.MyTextBox2.TabIndex = 29 + Me.MyTextBox2.Text = "AVISO" + Me.MyTextBox2.Visible = False + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(90, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(41, 13) + Me.Label1.TabIndex = 32 + Me.Label1.Text = "Firma:" + ' + 'cboFirma + ' + Me.cboFirma._allowedValuesFreiText = Nothing + Me.cboFirma._allowFreiText = False + Me.cboFirma._value = "" + Me.cboFirma.FormattingEnabled = True + Me.cboFirma.Location = New System.Drawing.Point(138, 6) + Me.cboFirma.Name = "cboFirma" + Me.cboFirma.Size = New System.Drawing.Size(592, 21) + Me.cboFirma.TabIndex = 33 + ' + 'lblErrSyska + ' + Me.lblErrSyska.AutoSize = True + Me.lblErrSyska.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblErrSyska.ForeColor = System.Drawing.Color.Red + Me.lblErrSyska.Location = New System.Drawing.Point(436, 40) + Me.lblErrSyska.Name = "lblErrSyska" + Me.lblErrSyska.Size = New System.Drawing.Size(80, 13) + Me.lblErrSyska.TabIndex = 34 + Me.lblErrSyska.Text = "Kein Eintrag!" + Me.lblErrSyska.Visible = False + ' + 'frmKundenSyska_DatenÜbertragen + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(748, 295) + Me.Controls.Add(Me.lblErrSyska) + Me.Controls.Add(Me.cboFirma) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.CheckBox1) + Me.Controls.Add(Me.MyTextBox1) + Me.Controls.Add(Me.MyTextBox2) + Me.Controls.Add(Me.lblSYSKA_PLZ) + Me.Controls.Add(Me.lblSYSKA_Land) + Me.Controls.Add(Me.lblSYSKA_Ort) + Me.Controls.Add(Me.lblAVISO_PLZ) + Me.Controls.Add(Me.lblAVISO_Land) + Me.Controls.Add(Me.lblAVISO_Ort) + Me.Controls.Add(Me.cbxAdresse) + Me.Controls.Add(Me.lblSYSKA_Strasse) + Me.Controls.Add(Me.lblAVISO_Strasse) + Me.Controls.Add(Me.lblSYSKA_Name2) + Me.Controls.Add(Me.lblAVISO_Name2) + Me.Controls.Add(Me.cbxFirma) + Me.Controls.Add(Me.lblSYSKA_Name1) + Me.Controls.Add(Me.lblAVISO_Name1) + Me.Controls.Add(Me.cbxEMail) + Me.Controls.Add(Me.cbxUID) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.Label10) + Me.Controls.Add(Me.lblSYSKA_EMail) + Me.Controls.Add(Me.lblAVISO_EMail) + Me.Controls.Add(Me.lblSYSKA_UID) + Me.Controls.Add(Me.lblAVISO_UID) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.Label3) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmKundenSyska_DatenÜbertragen" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "Übertrag Syska" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label3 As Label + Friend WithEvents Label4 As Label + Friend WithEvents lblAVISO_UID As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblSYSKA_UID As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblSYSKA_EMail As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblAVISO_EMail As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label10 As Label + Friend WithEvents Button1 As Button + Friend WithEvents cbxUID As CheckBox + Friend WithEvents cbxEMail As CheckBox + Friend WithEvents cbxFirma As CheckBox + Friend WithEvents lblSYSKA_Name1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblAVISO_Name1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblSYSKA_Name2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblAVISO_Name2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cbxAdresse As CheckBox + Friend WithEvents lblSYSKA_Strasse As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblAVISO_Strasse As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblAVISO_Ort As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblAVISO_Land As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblAVISO_PLZ As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblSYSKA_PLZ As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblSYSKA_Land As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblSYSKA_Ort As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents CheckBox1 As CheckBox + Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label1 As Label + Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents lblErrSyska As Label +End Class diff --git a/SDL/kunden/frmKundenSyska_DatenÜbertragen.resx b/SDL/kunden/frmKundenSyska_DatenÜbertragen.resx new file mode 100644 index 00000000..d584bd9e --- /dev/null +++ b/SDL/kunden/frmKundenSyska_DatenÜbertragen.resx @@ -0,0 +1,980 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/kunden/frmKundenSyska_DatenÜbertragen.vb b/SDL/kunden/frmKundenSyska_DatenÜbertragen.vb new file mode 100644 index 00000000..1dfe3492 --- /dev/null +++ b/SDL/kunden/frmKundenSyska_DatenÜbertragen.vb @@ -0,0 +1,125 @@ +Public Class frmKundenSyska_DatenÜbertragen + + Dim Sql As New VERAG_PROG_ALLGEMEIN.SQL + Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen + Dim KD As VERAG_PROG_ALLGEMEIN.cKunde + + Dim KundenNr As Integer = -1 + + Sub New(KundenNr) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.KundenNr = KundenNr + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Button1.Image = Nothing + If cboFirma._value = "" Then MsgBox("Keine Fimra!") : Exit Sub + + Dim fehler = False + If vbYes = MsgBox("Möchten Sie den Eintrag in der SYSKA-Datenbank überschreiben?", vbYesNoCancel) Then + + Dim FIRMA_ID = cboFirma._value + Dim SystembenutzerText = "AVISO_User" + + If cbxUID.Checked Then + If Not Sql.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET c_ustidnr='" & lblAVISO_UID.Text & "', c_manipulator = '" & SystembenutzerText & "', dt_manipulation = Getdate() where i_konto='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") Then fehler = True + End If + If cbxEMail.Checked Then + If Not Sql.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET c_email='" & lblAVISO_EMail.Text & "', c_manipulator = '" & SystembenutzerText & "', dt_manipulation = Getdate() where i_konto='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") Then fehler = True + End If + If cbxFirma.Checked Then + If Not Sql.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET c_name='" & lblAVISO_Name1.Text & "', c_manipulator = '" & SystembenutzerText & "', dt_manipulation = Getdate() where i_konto='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") Then fehler = True + If Not Sql.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET c_name2='" & lblAVISO_Name2.Text & "', c_manipulator = '" & SystembenutzerText & "', dt_manipulation = Getdate() where i_konto='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") Then fehler = True + End If + If cbxAdresse.Checked Then + If Not Sql.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET c_strasse='" & lblAVISO_Strasse.Text & "', c_manipulator = '" & SystembenutzerText & "', dt_manipulation = Getdate() where i_konto='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") Then fehler = True + If Not Sql.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET c_plz='" & lblAVISO_PLZ.Text & "', c_manipulator = '" & SystembenutzerText & "', dt_manipulation = Getdate() where i_konto='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") Then fehler = True + If Not Sql.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET c_ort='" & lblAVISO_Ort.Text & "', c_manipulator = '" & SystembenutzerText & "', dt_manipulation = Getdate() where i_konto='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") Then fehler = True + If Not Sql.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET c_landid='" & lblAVISO_Land.Text & "', c_manipulator = '" & SystembenutzerText & "', dt_manipulation = Getdate() where i_konto='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") Then fehler = True + End If + End If + + If fehler Then + Button1.Image = My.Resources.del + Else + Button1.Image = My.Resources.ok + End If + End Sub + + Private Sub frmKundenSyska_DatenÜbertragen_Load(sender As Object, e As EventArgs) Handles Me.Load + AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KundenNr) + KD = New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr) + + If AD Is Nothing Or KD Is Nothing Then + Me.Close() + Exit Sub + End If + + cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] ORDER BY Firma_ID ", True, "FMZOLL", False) + If KD.FiBuSchnittstelleNr IsNot Nothing AndAlso KD.FiBuSchnittstelleNr > 0 Then + cboFirma.changeItem(KD.FiBuSchnittstelleNr) + Else + cboFirma.changeItem("1") + End If + + End Sub + + Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged + Button1.Image = Nothing + If cboFirma._value = "" Then Exit Sub + Dim FIRMA_ID = cboFirma._value + + setSperre(False) + + lblSYSKA_UID.Text = "" + lblSYSKA_EMail.Text = "" + lblSYSKA_Name1.Text = "" + lblSYSKA_Name2.Text = "" + lblSYSKA_Strasse.Text = "" + lblSYSKA_PLZ.Text = "" + lblSYSKA_Ort.Text = "" + lblSYSKA_Land.Text = "" + + ' Dim dt = Sql.loadDgvBySql("Select isnull(UstID,'') as UstID, isnull(EMailadresse,'') as EMailadresse , isnull(Firmenname,'') as Firmenname, isnull(Zusatz,'') as Zusatz, isnull(Strasse,'') as Strasse, isnull(PLZ,'') as PLZ, isnull(Land,'') as Land, isnull(Ort,'') as Ort FROM [Hilfsdatenbank].[dbo].[Kunden] where Kontonummer='" & KundenNr & "'", "FIBU") + Dim dt = Sql.loadDgvBySql(" select isnull(c_ustidnr,'')c_ustidnr,isnull(c_name,'')c_name,isnull(c_name2,'')c_name2,isnull(c_strasse,'')c_strasse, isnull(c_plz,'')c_plz,isnull(c_ort,'')c_ort,isnull(c_landid,'')c_landid,isnull(c_email,'')c_email FROM [FIBU2].[dbo].[fibu_konto] where i_konto ='" & KundenNr & "' AND i_firm_refid = '" & FIRMA_ID & "'", "FIBU") + If dt Is Nothing OrElse dt.Rows.Count = 0 Then + 'msgBox("Kein SYSKA-Eintrag gefunden!") + setSperre(True) + Exit Sub + End If + + lblAVISO_UID.Text = If(AD.UstIdKz, "") & If(AD.UstIdNr, "") + 'lblAVISO_EMail.Text = If(AD.UstIdKz, "") & If(AD.UstIdNr, "") + If lblAVISO_UID.Text = "" Then cbxUID.Checked = False + If lblAVISO_EMail.Text = "" Then cbxEMail.Checked = False + + lblAVISO_Name1.Text = If(AD.Name_1, "") + lblAVISO_Name2.Text = If(AD.Name_2, "") + lblAVISO_Strasse.Text = If(AD.Straße, "") + lblAVISO_PLZ.Text = If(AD.PLZ, "") + lblAVISO_Ort.Text = If(AD.Ort, "") + lblAVISO_Land.Text = cProgramFunctions.getISO2Land(If(AD.LandKz, "")) + + lblSYSKA_UID.Text = dt.Rows(0)("c_ustidnr") + lblSYSKA_EMail.Text = dt.Rows(0)("c_email") + lblSYSKA_Name1.Text = dt.Rows(0)("c_name") + lblSYSKA_Name2.Text = dt.Rows(0)("c_name2") + lblSYSKA_Strasse.Text = dt.Rows(0)("c_strasse") + lblSYSKA_PLZ.Text = dt.Rows(0)("c_plz") + lblSYSKA_Ort.Text = dt.Rows(0)("c_ort") + lblSYSKA_Land.Text = dt.Rows(0)("c_landid") + + End Sub + + Sub setSperre(sperre) + Button1.Enabled = Not sperre + lblErrSyska.Visible = sperre + + + End Sub + +End Class \ No newline at end of file diff --git a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb index a00b104a..26fa9b93 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb +++ b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb @@ -42,6 +42,7 @@ Partial Class frmKundenUebersichtZOLL Me.TabPage1 = New System.Windows.Forms.TabPage() Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.tbStatistik = New System.Windows.Forms.TabPage() + Me.cboKundenblattFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Button1 = New System.Windows.Forms.Button() Me.btnUbersicht = New System.Windows.Forms.Button() Me.Label27 = New System.Windows.Forms.Label() @@ -141,7 +142,7 @@ Partial Class frmKundenUebersichtZOLL Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.cboKundenblattFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox + Me.SYSKAÜbertragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ContextMenuStrip1.SuspendLayout() Me.tabZolltarife.SuspendLayout() Me.tabKundendaten.SuspendLayout() @@ -311,6 +312,17 @@ Partial Class frmKundenUebersichtZOLL Me.tbStatistik.TabIndex = 3 Me.tbStatistik.Text = "Statikstik" ' + 'cboKundenblattFirma + ' + Me.cboKundenblattFirma._allowedValuesFreiText = Nothing + Me.cboKundenblattFirma._allowFreiText = False + Me.cboKundenblattFirma._value = "" + Me.cboKundenblattFirma.FormattingEnabled = True + Me.cboKundenblattFirma.Location = New System.Drawing.Point(6, 331) + Me.cboKundenblattFirma.Name = "cboKundenblattFirma" + Me.cboKundenblattFirma.Size = New System.Drawing.Size(224, 21) + Me.cboKundenblattFirma.TabIndex = 171 + ' 'Button1 ' Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -1185,7 +1197,7 @@ Partial Class frmKundenUebersichtZOLL ' 'toolOptionen ' - Me.toolOptionen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem, Me.AnDakosyÜbertragenToolStripMenuItem, Me.AufschubEORIBearbeitenToolStripMenuItem}) + Me.toolOptionen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem, Me.AnDakosyÜbertragenToolStripMenuItem, Me.AufschubEORIBearbeitenToolStripMenuItem, Me.SYSKAÜbertragToolStripMenuItem}) Me.toolOptionen.Enabled = False Me.toolOptionen.ForeColor = System.Drawing.Color.White Me.toolOptionen.Margin = New System.Windows.Forms.Padding(0, 20, 0, 0) @@ -1390,13 +1402,11 @@ Partial Class frmKundenUebersichtZOLL Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' - 'cboKundenblattFirma + 'SYSKAÜbertragToolStripMenuItem ' - Me.cboKundenblattFirma.FormattingEnabled = True - Me.cboKundenblattFirma.Location = New System.Drawing.Point(6, 331) - Me.cboKundenblattFirma.Name = "cboKundenblattFirma" - Me.cboKundenblattFirma.Size = New System.Drawing.Size(224, 21) - Me.cboKundenblattFirma.TabIndex = 171 + Me.SYSKAÜbertragToolStripMenuItem.Name = "SYSKAÜbertragToolStripMenuItem" + Me.SYSKAÜbertragToolStripMenuItem.Size = New System.Drawing.Size(217, 22) + Me.SYSKAÜbertragToolStripMenuItem.Text = "SYSKA übertragen" ' 'frmKundenUebersichtZOLL ' @@ -1558,4 +1568,5 @@ Partial Class frmKundenUebersichtZOLL Friend WithEvents toolNeuerKunde As ToolStripMenuItem Friend WithEvents ToolStripMenuItem11 As ToolStripMenuItem Friend WithEvents cboKundenblattFirma As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents SYSKAÜbertragToolStripMenuItem As ToolStripMenuItem End Class diff --git a/SDL/kunden/frmKundenUebersichtZOLL.vb b/SDL/kunden/frmKundenUebersichtZOLL.vb index 64b63f6c..598d6848 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.vb +++ b/SDL/kunden/frmKundenUebersichtZOLL.vb @@ -1330,4 +1330,12 @@ Public Class frmKundenUebersichtZOLL End If End Sub + + Private Sub SYSKAÜbertragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SYSKAÜbertragToolStripMenuItem.Click + If KUNDE Is Nothing Then Exit Sub + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SYSKA_UPDATE", "SDL") Then + Dim f As New frmKundenSyska_DatenÜbertragen(KUNDE.KundenNrZentrale) + f.ShowDialog(Me) + End If + End Sub End Class diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb index bf4bdce4..4c4b1931 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb @@ -76,7 +76,6 @@ Partial Class usrCntlKundenuebersicht Me.Label15 = New System.Windows.Forms.Label() Me.lblAviso = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() - Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() Me.rtbInfo = New System.Windows.Forms.RichTextBox() Me.lblAbfertigungsverbot = New System.Windows.Forms.Label() Me.Label45 = New System.Windows.Forms.Label() @@ -128,6 +127,7 @@ Partial Class usrCntlKundenuebersicht Me.grpAdresse = New System.Windows.Forms.GroupBox() Me.tbKontakt = New System.Windows.Forms.TabControl() Me.tbKontaktKontakt = New System.Windows.Forms.TabPage() + Me.btncheckliste = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.lblAnsprechpartner = New System.Windows.Forms.TextBox() @@ -141,7 +141,6 @@ Partial Class usrCntlKundenuebersicht Me.PictureBox3 = New System.Windows.Forms.PictureBox() Me.PictureBox5 = New System.Windows.Forms.PictureBox() Me.tbKontaktSpez = New System.Windows.Forms.TabPage() - Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() Me.Label38 = New System.Windows.Forms.Label() Me.txtDebitorennr = New System.Windows.Forms.TextBox() Me.lblFwlFiskal = New System.Windows.Forms.LinkLabel() @@ -153,6 +152,8 @@ Partial Class usrCntlKundenuebersicht Me.lblFirmenname2 = New System.Windows.Forms.TextBox() Me.lblTESTSystem = New System.Windows.Forms.Label() Me.grpSonstiges = New System.Windows.Forms.GroupBox() + Me.Button14 = New System.Windows.Forms.Button() + Me.Button13 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button() @@ -183,7 +184,6 @@ Partial Class usrCntlKundenuebersicht Me.Button8 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button() Me.tbAvisoMail = New System.Windows.Forms.TabPage() - Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() Me.tbKdSpez = New System.Windows.Forms.TabPage() Me.Label14 = New System.Windows.Forms.Label() Me.txtInfoKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -204,7 +204,6 @@ Partial Class usrCntlKundenuebersicht Me.Label8 = New System.Windows.Forms.Label() Me.lblZnv = New System.Windows.Forms.TextBox() Me.Label7 = New System.Windows.Forms.Label() - Me.btncheckliste = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.lblUIDNr = New System.Windows.Forms.Label() Me.lblUid = New System.Windows.Forms.TextBox() Me.lblEORI = New System.Windows.Forms.TextBox() @@ -234,8 +233,10 @@ Partial Class usrCntlKundenuebersicht Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem() Me.GültigungültigToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.Button13 = New System.Windows.Forms.Button() - Me.Button14 = New System.Windows.Forms.Button() + Me.btnReloadOP = New System.Windows.Forms.Button() + Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() + Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() + Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() Me.cntxtAddSdl.SuspendLayout() Me.tbWeitereKundenDetails.SuspendLayout() Me.TabPage4.SuspendLayout() @@ -299,9 +300,10 @@ Partial Class usrCntlKundenuebersicht ' Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnExcel.Cursor = System.Windows.Forms.Cursors.Hand Me.btnExcel.FlatAppearance.BorderSize = 0 Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnExcel.Location = New System.Drawing.Point(856, 371) + Me.btnExcel.Location = New System.Drawing.Point(876, 367) Me.btnExcel.Name = "btnExcel" Me.btnExcel.Size = New System.Drawing.Size(20, 20) Me.btnExcel.TabIndex = 8 @@ -325,7 +327,7 @@ Partial Class usrCntlKundenuebersicht Me.Label30.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label30.AutoSize = True Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label30.Location = New System.Drawing.Point(882, 371) + Me.Label30.Location = New System.Drawing.Point(901, 371) Me.Label30.Name = "Label30" Me.Label30.Size = New System.Drawing.Size(82, 13) Me.Label30.TabIndex = 9 @@ -340,9 +342,9 @@ Partial Class usrCntlKundenuebersicht Me.cboFirmaFMZOLL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboFirmaFMZOLL.FormattingEnabled = True - Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(970, 368) + Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(984, 368) Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" - Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(198, 21) + Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21) Me.cboFirmaFMZOLL.TabIndex = 10 Me.cboFirmaFMZOLL.Visible = False ' @@ -885,16 +887,6 @@ Partial Class usrCntlKundenuebersicht Me.Label2.Text = "Aviso:" Me.Label2.Visible = False ' - 'UsrCntlKundenBesonderheiten1 - ' - Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(7, 32) - Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1" - Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52) - Me.UsrCntlKundenBesonderheiten1.TabIndex = 6 - Me.UsrCntlKundenBesonderheiten1.Visible = False - ' 'rtbInfo ' Me.rtbInfo.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -1713,6 +1705,24 @@ Partial Class usrCntlKundenuebersicht Me.tbKontaktKontakt.Text = "Kontakt" Me.tbKontaktKontakt.UseVisualStyleBackColor = True ' + 'btncheckliste + ' + Me.btncheckliste.allowBorder = False + Me.btncheckliste.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btncheckliste.FlatAppearance.BorderSize = 0 + Me.btncheckliste.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btncheckliste.ForeColor = System.Drawing.Color.Black + Me.btncheckliste.Image = Global.SDL.My.Resources.Resources.checklist + Me.btncheckliste.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btncheckliste.Location = New System.Drawing.Point(388, 107) + Me.btncheckliste.Name = "btncheckliste" + Me.btncheckliste.Size = New System.Drawing.Size(88, 53) + Me.btncheckliste.TabIndex = 9 + Me.btncheckliste.Tag = "" + Me.btncheckliste.Text = "Checkliste" + Me.btncheckliste.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btncheckliste.UseVisualStyleBackColor = True + ' 'FlatButton1 ' Me.FlatButton1.allowBorder = False @@ -1872,14 +1882,6 @@ Partial Class usrCntlKundenuebersicht Me.tbKontaktSpez.Text = "Spezifisch" Me.tbKontaktSpez.UseVisualStyleBackColor = True ' - 'ucKundenKontakte - ' - Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill - Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) - Me.ucKundenKontakte.Name = "ucKundenKontakte" - Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158) - Me.ucKundenKontakte.TabIndex = 0 - ' 'Label38 ' Me.Label38.AutoSize = True @@ -2019,6 +2021,30 @@ Partial Class usrCntlKundenuebersicht Me.grpSonstiges.TabIndex = 6 Me.grpSonstiges.TabStop = False ' + 'Button14 + ' + Me.Button14.BackgroundImage = Global.SDL.My.Resources.Resources.list + Me.Button14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button14.FlatAppearance.BorderSize = 0 + Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button14.Location = New System.Drawing.Point(461, 36) + Me.Button14.Name = "Button14" + Me.Button14.Size = New System.Drawing.Size(25, 20) + Me.Button14.TabIndex = 14 + Me.Button14.UseVisualStyleBackColor = True + ' + 'Button13 + ' + Me.Button13.BackgroundImage = Global.SDL.My.Resources.Resources.list + Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button13.FlatAppearance.BorderSize = 0 + Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button13.Location = New System.Drawing.Point(461, 13) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(25, 20) + Me.Button13.TabIndex = 13 + Me.Button13.UseVisualStyleBackColor = True + ' 'Button2 ' Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.pdf @@ -2453,15 +2479,6 @@ Partial Class usrCntlKundenuebersicht Me.tbAvisoMail.Text = "Aviso E-Mails" Me.tbAvisoMail.UseVisualStyleBackColor = True ' - 'UsrCntlKundenAvisoMailBenachrichtigung1 - ' - Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0 - ' 'tbKdSpez ' Me.tbKdSpez.Controls.Add(Me.Label14) @@ -2714,24 +2731,6 @@ Partial Class usrCntlKundenuebersicht Me.Label7.TabIndex = 6 Me.Label7.Text = "Aufsch. Zoll:" ' - 'btncheckliste - ' - Me.btncheckliste.allowBorder = False - Me.btncheckliste.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btncheckliste.FlatAppearance.BorderSize = 0 - Me.btncheckliste.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btncheckliste.ForeColor = System.Drawing.Color.Black - Me.btncheckliste.Image = Global.SDL.My.Resources.Resources.checklist - Me.btncheckliste.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btncheckliste.Location = New System.Drawing.Point(388, 107) - Me.btncheckliste.Name = "btncheckliste" - Me.btncheckliste.Size = New System.Drawing.Size(88, 53) - Me.btncheckliste.TabIndex = 9 - Me.btncheckliste.Tag = "" - Me.btncheckliste.Text = "Checkliste" - Me.btncheckliste.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.btncheckliste.UseVisualStyleBackColor = True - ' 'lblUIDNr ' Me.lblUIDNr.AutoSize = True @@ -2979,35 +2978,53 @@ Partial Class usrCntlKundenuebersicht Me.GültigungültigToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.GültigungültigToolStripMenuItem.Text = "gültig/ungültig" ' - 'Button13 + 'btnReloadOP ' - Me.Button13.BackgroundImage = Global.SDL.My.Resources.Resources.list - Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button13.FlatAppearance.BorderSize = 0 - Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button13.Location = New System.Drawing.Point(461, 13) - Me.Button13.Name = "Button13" - Me.Button13.Size = New System.Drawing.Size(25, 20) - Me.Button13.TabIndex = 13 - Me.Button13.UseVisualStyleBackColor = True + Me.btnReloadOP.BackgroundImage = Global.SDL.My.Resources.Resources.reloadFinance + Me.btnReloadOP.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnReloadOP.Cursor = System.Windows.Forms.Cursors.Hand + Me.btnReloadOP.FlatAppearance.BorderSize = 0 + Me.btnReloadOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnReloadOP.Location = New System.Drawing.Point(847, 364) + Me.btnReloadOP.Name = "btnReloadOP" + Me.btnReloadOP.Size = New System.Drawing.Size(25, 25) + Me.btnReloadOP.TabIndex = 12 + Me.btnReloadOP.UseVisualStyleBackColor = True + Me.btnReloadOP.Visible = False ' - 'Button14 + 'UsrCntlKundenBesonderheiten1 ' - Me.Button14.BackgroundImage = Global.SDL.My.Resources.Resources.list - Me.Button14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button14.FlatAppearance.BorderSize = 0 - Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button14.Location = New System.Drawing.Point(461, 36) - Me.Button14.Name = "Button14" - Me.Button14.Size = New System.Drawing.Size(25, 20) - Me.Button14.TabIndex = 14 - Me.Button14.UseVisualStyleBackColor = True + Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(7, 32) + Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1" + Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52) + Me.UsrCntlKundenBesonderheiten1.TabIndex = 6 + Me.UsrCntlKundenBesonderheiten1.Visible = False + ' + 'ucKundenKontakte + ' + Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) + Me.ucKundenKontakte.Name = "ucKundenKontakte" + Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158) + Me.ucKundenKontakte.TabIndex = 0 + ' + 'UsrCntlKundenAvisoMailBenachrichtigung1 + ' + Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0 ' 'usrCntlKundenuebersicht ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.btnReloadOP) Me.Controls.Add(Me.lblFirma) Me.Controls.Add(Me.btnExcel) Me.Controls.Add(Me.lblInaktiv) @@ -3285,4 +3302,5 @@ Partial Class usrCntlKundenuebersicht Friend WithEvents GültigungültigToolStripMenuItem As ToolStripMenuItem Friend WithEvents Button14 As Button Friend WithEvents Button13 As Button + Friend WithEvents btnReloadOP As Button End Class diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index 1ea1d216..3ca1cd44 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -1159,7 +1159,7 @@ Public Class usrCntlKundenuebersicht .DataSource = SQL.loadDgvBySql("SELECT [KundenNr] as KdNr,[Datum] as Datum,[Rechnung] as Nummer,[Saldo] as Betrag,'-' as [OP-Saldo],'EUR' as Währung ,'-' as [KumSaldoEUR] ,[Buchungstext] " & " FROM [Offene_Posten_DVO] " & - " WHERE KundenNr='" & KUNDE.KundenNr & "' " & where & " order BY datum DESC,[OP_ID] DESC", "FMZOLL") + " WHERE KundenNr='" & KUNDE.KundenNrZentrale & "' " & where & " order BY datum DESC, [OP_ID] DESC", "FMZOLL") If .Columns.Count > 0 Then .Columns("KdNr").Visible = False @@ -1276,7 +1276,7 @@ Public Class usrCntlKundenuebersicht .DataSource = SQL.loadDgvBySql("SELECT [Kontonummer] as KdNr,[Belegdatum] as Datum,[Belegnummer] as Nummer,[Bruttobetrag] as Betrag,[Gesamtausstand] as [OP-Saldo],[Waehrung] as Währung,[KumSaldoEUR] ,[Buchungstext] as Referenz " & " FROM [Offene Posten] " & - " WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' " & where & " ORDER BY Belegdatum DESC", "FMZOLL") + " WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' " & where & " ORDER BY OP_ID DESC /*, Belegdatum DESC*/", "FMZOLL") If .DataSource Is Nothing Then Exit Sub If .Columns.Count = 0 Then Exit Sub @@ -1853,6 +1853,11 @@ Public Class usrCntlKundenuebersicht cboFirmaFMZOLL.Visible = (tbWeitereKundenDetails.SelectedIndex > 0) Label30.Visible = (tbWeitereKundenDetails.SelectedIndex > 0) btnExcel.Visible = (tbWeitereKundenDetails.SelectedTab Is tbOffenePosten) + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OP_LADEN", "SDL") Then + btnReloadOP.Visible = (tbWeitereKundenDetails.SelectedTab Is tbOffenePosten) + End If + End Sub Private Sub FlatButton5_Click(sender As Object, e As EventArgs) Handles btnBonitaetBearbeiten.Click @@ -2367,4 +2372,20 @@ Public Class usrCntlKundenuebersicht End Sub + Private Sub Button15_Click(sender As Object, e As EventArgs) Handles btnReloadOP.Click + Me.Cursor = Cursors.WaitCursor + Try + If KUNDE Is Nothing Then Exit Sub + If cboFirmaFMZOLL._value <> "" Then + VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen(cboFirmaFMZOLL._value, KUNDE.KundenNrZentrale) + Else + VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen_ALL(KUNDE.KundenNrZentrale) + End If + initDGVUmsatz() + initDGVOffenePosten() + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Cursor = Cursors.Default + End Sub End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index f5edab9b..79bb542d 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -312,6 +312,9 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxFiBu = New System.Windows.Forms.CheckBox() Me.cbxFiBuLG = New System.Windows.Forms.CheckBox() + Me.Label97 = New System.Windows.Forms.Label() + Me.Button4 = New System.Windows.Forms.Button() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -3866,9 +3869,9 @@ Partial Class usrcntlKundeBearbeitenFull 'Button1 ' Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Location = New System.Drawing.Point(475, 509) + Me.Button1.Location = New System.Drawing.Point(585, 509) Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(203, 30) + Me.Button1.Size = New System.Drawing.Size(126, 38) Me.Button1.TabIndex = 14 Me.Button1.Text = "Kundenstamm jetzt übertragen" Me.Button1.UseVisualStyleBackColor = True @@ -3877,7 +3880,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label28.AutoSize = True Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label28.Location = New System.Drawing.Point(587, 493) + Me.Label28.Location = New System.Drawing.Point(585, 550) Me.Label28.Name = "Label28" Me.Label28.Size = New System.Drawing.Size(10, 13) Me.Label28.TabIndex = 9 @@ -3887,7 +3890,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label29.AutoSize = True Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label29.Location = New System.Drawing.Point(472, 493) + Me.Label29.Location = New System.Drawing.Point(582, 493) Me.Label29.Name = "Label29" Me.Label29.Size = New System.Drawing.Size(109, 13) Me.Label29.TabIndex = 8 @@ -3971,9 +3974,9 @@ Partial Class usrcntlKundeBearbeitenFull Me.pnlNeukunde.Controls.Add(Me.cboFiliale) Me.pnlNeukunde.Controls.Add(Me.cboKundenkreis) Me.pnlNeukunde.Controls.Add(Me.Label68) - Me.pnlNeukunde.Location = New System.Drawing.Point(705, 487) + Me.pnlNeukunde.Location = New System.Drawing.Point(717, 487) Me.pnlNeukunde.Name = "pnlNeukunde" - Me.pnlNeukunde.Size = New System.Drawing.Size(315, 80) + Me.pnlNeukunde.Size = New System.Drawing.Size(303, 80) Me.pnlNeukunde.TabIndex = 15 Me.pnlNeukunde.Visible = False ' @@ -4150,11 +4153,46 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxFiBuLG.UseVisualStyleBackColor = True Me.cbxFiBuLG.Visible = False ' + 'Label97 + ' + Me.Label97.AutoSize = True + Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label97.Location = New System.Drawing.Point(463, 493) + Me.Label97.Name = "Label97" + Me.Label97.Size = New System.Drawing.Size(100, 13) + Me.Label97.TabIndex = 19 + Me.Label97.Text = "Übertrag in SYSKA:" + ' + 'Button4 + ' + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.Location = New System.Drawing.Point(466, 509) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(113, 38) + Me.Button4.TabIndex = 21 + Me.Button4.Text = "Kundenstamm jetzt übertragen" + Me.Button4.UseVisualStyleBackColor = True + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.Checked = True + Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked + Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CheckBox1.Location = New System.Drawing.Point(466, 549) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(101, 17) + Me.CheckBox1.TabIndex = 22 + Me.CheckBox1.Text = "zuvor speichern" + Me.CheckBox1.UseVisualStyleBackColor = True + ' 'usrcntlKundeBearbeitenFull ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.CheckBox1) + Me.Controls.Add(Me.Button4) Me.Controls.Add(Me.cbxFiBuLG) Me.Controls.Add(Me.cbxFiBu) Me.Controls.Add(Me.Label80) @@ -4179,6 +4217,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.Controls.Add(Me.txtERROR) Me.Controls.Add(Me.lblKundennr) Me.Controls.Add(Me.Label77) + Me.Controls.Add(Me.Label97) Me.Name = "usrcntlKundeBearbeitenFull" Me.Size = New System.Drawing.Size(1152, 570) Me.tbcntrDetails.ResumeLayout(False) @@ -4513,4 +4552,7 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents cboRechnungSprache As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents txtSonst_KdNrTOBB As TextBox Friend WithEvents Label96 As Label + Friend WithEvents Label97 As Label + Friend WithEvents Button4 As Button + Friend WithEvents CheckBox1 As CheckBox End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index e22fe12d..798e1b15 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -64,14 +64,14 @@ Public Class usrcntlKundeBearbeitenFull cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 5-stellig: Fiskal (keine Abrechnung)", "30000-49999")) cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 800000-899999: BREXIT", "800000-899999")) cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999")) - cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1000000-1099990")) + cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1080000-1099990")) Else Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" - cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1000000-1099990")) - cboKundenkreis.changeItem("1000000-1099990") + cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1080000-1099990")) + cboKundenkreis.changeItem("1080000-1099990") Case "UNISPED" cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2000000-2099999: UNISPED", "2000000-2099990")) cboKundenkreis.changeItem("2000000-2099990") @@ -96,7 +96,7 @@ Public Class usrcntlKundeBearbeitenFull cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 800000-899999: BREXIT", "800000-899999")) cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999")) - ' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1000000-1099990")) + ' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1080000-1099990")) cboKundenkreis.changeItem("728000-799999") End Select End If @@ -110,10 +110,10 @@ Public Class usrcntlKundeBearbeitenFull End If pnlNeukunde.Visible = True - End If + End If - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 9900000-9999999: FRONT-OFFICE - Kunden", "9900000-9999999")) End If @@ -379,6 +379,7 @@ Public Class usrcntlKundeBearbeitenFull End Function Function loadDataInKdAd() As Boolean + If ADRESSE.AdressenNr <= 0 Then If cboFiliale.Text = "" Then MsgBox("Bitte geben Sie die zuständige Filiale an!") : Return False @@ -390,13 +391,18 @@ Public Class usrcntlKundeBearbeitenFull If cbxLandKz._value = "A" Then kundenkreis = "2200250-2209999" 'AT-Kundenkreis Else - kundenkreis = "2256000 -2259990" 'ausl.Kundenkreis + kundenkreis = "2256000-2259990" 'ausl.Kundenkreis End If End Select Dim s_KdNr = kundenkreis.Split("-") Dim kdnr = WunschKdNr 'Wenn Wunschkdnr, sonst neue vergeben: - If WunschKdNr <= 0 Then kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1 + + If WunschKdNr <= 0 Then + + kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1 + + End If If kdnr > 0 Then ' Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr) @@ -713,18 +719,18 @@ Public Class usrcntlKundeBearbeitenFull Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" - cboFiliale.changeItem("5501") - Case "UNISPED" - cboFiliale.changeItem("5601") - Case "AMBAR" - cboFiliale.changeItem("5701") - cboFiliale.changeItem("5701") - Case "ATILLA" - cboFiliale.changeItem("4801") - Case Else - cboFiliale.changeItem("4803") - End Select + Case "IMEX" + cboFiliale.changeItem("5501") + Case "UNISPED" + cboFiliale.changeItem("5601") + Case "AMBAR" + cboFiliale.changeItem("5701") + cboFiliale.changeItem("5701") + Case "ATILLA" + cboFiliale.changeItem("4801") + Case Else + cboFiliale.changeItem("4803") + End Select cboAuswahl.Items.Clear() @@ -1034,6 +1040,11 @@ Public Class usrcntlKundeBearbeitenFull If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me.FindForm) Then btnFirmendatenFormularSpeichern.Enabled = False End If + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SYSKA_UPDATE", "SDL") Then + Label97.Visible = True + Button4.Visible = True + End If tbcntrAbf.TabPages.Remove(TabPage4) If Filiale > 0 Then @@ -1153,7 +1164,7 @@ Public Class usrcntlKundeBearbeitenFull If ADRESSE Is Nothing OrElse ADRESSE.AdressenNr <= 0 Then Select Case cboKundenkreis._value - Case "1000000-1099990" : cbxFiBu.Checked = True : cboFirma.changeItem("20") : cboFiliale.changeItem("5501") + Case "1080000-1099990" : cbxFiBu.Checked = True : cboFirma.changeItem("20") : cboFiliale.changeItem("5501") Case "2000000-2099990" : cbxFiBu.Checked = True : cboFirma.changeItem("21") : cboFiliale.changeItem("5601") Case "3000000-3099990" : cbxFiBu.Checked = True : cboFirma.changeItem("24") : cboFiliale.changeItem("5701") Case "728000-799999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803") @@ -1171,7 +1182,7 @@ Public Class usrcntlKundeBearbeitenFull Case "VERAG" If cboKundenkreis._value = "100000-199999" Then cboFiliale.changeItem("4801") - ElseIf cboKundenkreis._value = "1000000-1999999" Then + ElseIf cboKundenkreis._value = "1000000-1099999" Then cboFiliale.changeItem("5501") Else If cboFiliale._value = "4801" Then cboFiliale.changeItem("4803") @@ -1311,4 +1322,15 @@ Public Class usrcntlKundeBearbeitenFull cboKundenkreis.changeItem("2000000-2099999") End If End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + If KUNDE Is Nothing Then Exit Sub + If CheckBox1.Checked Then btnFirmendatenFormularSpeichern.PerformClick() 'Speichern! + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SYSKA_UPDATE", "SDL") Then + Dim f As New frmKundenSyska_DatenÜbertragen(KUNDE.KundenNr) + f.ShowDialog(Me) + End If + End Sub + + End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index be31d1bc..4b0cc643 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -855,7 +855,7 @@ Public Class frmMDMDatenverarbetiung cFakturierung.setGesamtBetraege(RG) - RG.Text = cFakturierung.przRechnungstext(RG) + RG.Text = (cFakturierung.przRechnungstextTXT(RG) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim ' Call usrCntlFaktAbrechnung.przSVSRVS(RG) ' SVS/RVS errechnen ' Call przSKR() ' SKR errechnen diff --git a/SDL/mdm/usrCntlKartenDaten.vb b/SDL/mdm/usrCntlKartenDaten.vb index b6a09d35..c820c8da 100644 --- a/SDL/mdm/usrCntlKartenDaten.vb +++ b/SDL/mdm/usrCntlKartenDaten.vb @@ -153,6 +153,14 @@ Public Class usrCntlKartenDaten End Try For Each c As DataGridViewColumn In dgvSDL.Columns Dim cNew As DataGridViewColumn = c.Clone + + If c.ReadOnly And c.Name = "IDS-KdNr" Then + cNew = New DataGridViewTextBoxColumn + cNew.Name = c.Name + cNew.Width = c.Width + cNew.Visible = c.Visible + 'KundenNr + End If cNew.MinimumWidth = c.Width dgvFILTER.Columns.Add(cNew) If cNew.GetType Is GetType(DataGridViewCheckBoxColumn) Then @@ -219,8 +227,10 @@ Public Class usrCntlKartenDaten Dim srchstr = getSqlText(c.Value.ToString.Trim) If c.OwningColumn.Name.Contains("SDLNr") Then filter &= andstr & " SDL.[" & c.OwningColumn.Name & "] LIKE '%" & srchstr & "%' " - ElseIf IsDate(srchstr) Then - If srchstr.ToLower = "ist null" Then + ElseIf c.OwningColumn.Name.Contains("IDS-KdNr") Then + filter &= andstr & " (SELECT TOP 1 [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE [KdNrVERAG]=KundenNr AND KdNrAlt =0 ORDER BY Zeitstempel DESC) LIKE '%" & srchstr & "%' " + ElseIf IsDate(srchstr) Then + If srchstr.ToLower = "ist null" Then filter &= andstr & "( [" & c.OwningColumn.Name & "] is null ) " Else filter &= andstr & " convert(varchar,[" & c.OwningColumn.Name & "] ,104) LIKE '%" & srchstr & "%' " @@ -412,13 +422,16 @@ Public Class usrCntlKartenDaten b.ForeColor = Color.Black aktbtn = b.Name - If aktbtn = "btnSDL_Alle" Then - dgvSDL.Columns("SDLNr").Visible = True - ' dgvSDL.ReadOnly = True - ' Button11.Enabled = False - Else - dgvSDL.Columns("SDLNr").Visible = False - ' dgvSDL.ReadOnly = False + If dgvSDL.Columns("SDLNr") IsNot Nothing Then + + If aktbtn = "btnSDL_Alle" Then + dgvSDL.Columns("SDLNr").Visible = True + ' dgvSDL.ReadOnly = True + ' Button11.Enabled = False + Else + dgvSDL.Columns("SDLNr").Visible = False + ' dgvSDL.ReadOnly = False + End If End If ' If kdNr_filter Then @@ -638,6 +651,7 @@ Public Class usrCntlKartenDaten dgvInitWait = True If doFilter Then Dim filter As String = getFilter() + If filter <> "" Then sql &= " AND " & filter ' sql &= " ORDER BY sdl.[Erfassungsdatum] ASC" Else diff --git a/SDL/zoll/usrCntlBrgBuchungenFremd.vb b/SDL/zoll/usrCntlBrgBuchungenFremd.vb index dd64b06d..89575440 100644 --- a/SDL/zoll/usrCntlBrgBuchungenFremd.vb +++ b/SDL/zoll/usrCntlBrgBuchungenFremd.vb @@ -7,12 +7,12 @@ Public Class usrCntlBrgBuchungenFremd Private Sub usrCntlBrgBuchungenFremd_Load(sender As Object, e As EventArgs) Handles Me.Load cboBRG.Items.Clear() cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) - cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 / 21TR0004000079552 / 21TR0004000078157", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518','21TR0004000079552','21TR0004000078157'")) + cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 / 21TR0004000079552 / 21TR0004000078157 / 21TR0004000092350", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518','21TR0004000079552','21TR0004000078157','21TR0004000092350'")) cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SGS - 16DE0000000068410", "'16DE0000000068410'")) cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MARS - 15TR0004000020908", "'15TR0004000020908'")) cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EKOL - 13TR0004000005094", "'13TR0004000005094'")) - cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OREGON - 18DE0000000073276 / 19DE0000000075520 / 18DE0000000075520 / 15TR0004000020500", "'18DE0000000073276','19DE0000000075520','18DE0000000075520','15TR0004000020500'")) + cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OREGON - 18DE0000000073276 / 19DE0000000075520 / 18DE0000000075520 / 15TR0004000020500 / 21DE0000000079716", "'18DE0000000073276','19DE0000000075520','18DE0000000075520','15TR0004000020500','21DE0000000079716'")) cboBRG.SelectedIndex = 1 MyComboBox1.Items.Clear() diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index ae922046..4cf83020 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -405,6 +405,11 @@ Public Class cADMIN Return SQL.getValueTxtBySql("SELECT TOP 1 [mit_username] FROM [tblMitarbeiter] WHERE ([mit_AliasAD_Domain]='" & Domain & "' AND [mit_AliasAD_Username]='" & User & "') Or ([mit_AliasAD_Domain2]='" & Domain & "' AND [mit_AliasAD_Username2]='" & User & "' )", "ADMIN") End Function + Public Function getUstFirma_ByAD(Domain As String, User As String) As String + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.getValueTxtBySql("SELECT TOP 1 case when mit_firma='ALL' then mit_FirmaHaupt else mit_firma END mit_firma FROM [tblMitarbeiter] WHERE ([mit_AliasAD_Domain]='" & Domain & "' AND [mit_AliasAD_Username]='" & User & "') Or ([mit_AliasAD_Domain2]='" & Domain & "' AND [mit_AliasAD_Username2]='" & User & "' )", "ADMIN") + End Function + Public Function getUstId_ByAD(Domain As String, User As String) As Integer Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Return SQL.getValueTxtBySql("SELECT TOP 1 [mit_id] FROM [tblMitarbeiter] WHERE ([mit_AliasAD_Domain]='" & Domain & "' AND [mit_AliasAD_Username]='" & User & "') Or ([mit_AliasAD_Domain2]='" & Domain & "' AND [mit_AliasAD_Username2]='" & User & "' )", "ADMIN",,, "-1") diff --git a/VERAG_PROG_ALLGEMEIN/App.config b/VERAG_PROG_ALLGEMEIN/App.config index a8ba7a3d..75205a94 100644 --- a/VERAG_PROG_ALLGEMEIN/App.config +++ b/VERAG_PROG_ALLGEMEIN/App.config @@ -41,6 +41,8 @@ connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;" /> + @@ -72,18 +74,22 @@ serializeAs="String"> https://finanzonline.bmf.gv.at:443/fonws/ws/session + + http://localhost:8733/DSFinVKService + - + + bindingConfiguration="BasicHttpBinding_IDSFinVKServer1" contract="DSFinVKService.IDSFinVKServer" + name="BasicHttpBinding_IDSFinVKServer1" /> diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb index 45f9aced..8d2c2f69 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb @@ -154,6 +154,22 @@ Public Class SQL Return Nothing End Function + Public Shared Function GetNewOpenConnectionSYSKA(Optional pooling As Boolean = True) As SqlConnection + Dim cn As New SqlConnection() + Try + cn.ConnectionString = GetSYSKAConnectionString() & IIf(pooling, "", ";pooling=false") + cn.Open() + Return cn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + + End Function + Public Shared Function GetSYSKAConnectionString() As String + Return My.MySettings.Default.SYSKAConnectionString + End Function + Public Shared Function GetNewOpenConnectionUID(Optional pooling As Boolean = True) As SqlConnection Dim cn As New SqlConnection() 'cn.ConnectionString = My.Resources.connStringSDL_DEV @@ -410,6 +426,7 @@ Public Class SQL Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() Case "FD" : conn = GetNewOpenConnectionFD() Case "WEB" : conn = GetNewOpenConnectionWEB() + Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA() Case "AVISO_ATILLA" conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" @@ -640,6 +657,7 @@ Public Class SQL Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() Case "DISPO" : conn = GetNewOpenConnectionDISPO() Case "WEB" : conn = GetNewOpenConnectionWEB() + Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA() Case "AVISO_ATILLA" conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb index ec220f4f..069d85d4 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb @@ -65,8 +65,7 @@ Public Class cAdressen Public Shared Function getHoechsteKdNr(NrKr_von As Integer, NrKr_bis As Integer) As Integer Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL(False) - - Using cmd As New SqlCommand("select isnull(min([AdressenNr]) +1," & NrKr_von & ") as AdressenNr from [Adressen] a INNER JOIN Kunden ON Kundennr=adressennr where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' AND not exists ( select * from [Adressen] b where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' and a.[AdressenNr] +1 = b.[AdressenNr]) AND KundenNr NOT IN (([AdressenNr]) +1) ", conn) + Using cmd As New SqlCommand("select isnull(min([AdressenNr]) +1," & NrKr_von & ") as AdressenNr from [Adressen] a INNER JOIN Kunden ON Kundennr=adressennr where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' AND not exists ( select * from [Adressen] b INNER JOIN Kunden k2 ON k2.Kundennr=b.adressennr where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' and a.[AdressenNr] +1 = b.[AdressenNr]) AND KundenNr NOT IN (([AdressenNr]) +1) ", conn) 'Using cmd As New SqlCommand("SELECT isnull(max([AdressenNr])," & NrKr_von & ") as AdressenNr FROM Adressen WHERE AdressenNr BETWEEN '" & NrKr_von & "' AND '" & NrKr_bis & "' ", conn) Dim dr = cmd.ExecuteReader() If dr.HasRows Then diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb b/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb index 3fce694d..0430e812 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb @@ -5,8 +5,8 @@ Public Class cNCTS_TR Property ncts_Id As Integer Property ncts_Partnersystem As Object = Nothing 'DAKOSY_Worker.cDY_Statusliste.S_00 - Property ncts_Status As Object = Nothing ' DAKOSY_Worker.cDY_Statusliste.S_00 - Property ncts_Status_KEWILL_Equivalent As Object = Nothing 'DAKOSY_Worker.cDY_Statusliste.S_00 + Property ncts_Status As Object = 0 + Property ncts_Status_KEWILL_Equivalent As Object = 0 'DAKOSY_Worker.cDY_Statusliste.S_00 Property ncts_dyaArt As String = "" Property ncts_dyaAnmID As Integer diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten.vb b/VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten.vb index 191c0645..bcf88495 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten.vb @@ -42,7 +42,8 @@ Public Class cOffene_Posten Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OP_ID", OP_ID, , True, True)) + ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OP_ID", OP_ID, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OP_ID", OP_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kontonummer", Kontonummer)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kontoname", Kontoname)) @@ -88,6 +89,13 @@ Public Class cOffene_Posten End Function + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + + OP_ID = SQL.doSQLVarListID(OP_ID, getInsertCmd(), "FMZOLL", , list) + Return OP_ID > 0 + End Function Public Sub LOAD() Try diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb index 30461482..ef667b63 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb @@ -110,6 +110,7 @@ Public Class cRechnungsausgang Property Grenze As Object = Nothing Property RechnungSprache As Object = Nothing Property FakturierungsGruppe As String = "" + Property TextZZ As Object = Nothing ' FROM [VERAG as object=nothing.[dbo as object=nothing.[Rechnungsausgang as object=nothing @@ -124,7 +125,7 @@ Public Class cRechnungsausgang Sub New(RK_ID) Me.RK_ID = RK_ID - LOAD() : LOAD_POSITIONEN() + LOAD() : LOAD_POSITIONEN() : LOAD_ANHAENGE() End Sub Sub New(FilialenNr, AbfertigungsNr) @@ -336,6 +337,7 @@ Public Class cRechnungsausgang list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Grenze", Grenze)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungSprache", RechnungSprache)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FakturierungsGruppe", FakturierungsGruppe)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TextZZ", TextZZ)) Return list End Function @@ -404,7 +406,7 @@ Public Class cRechnungsausgang Public Function SAVE(Optional saveAll As Boolean = True) As Boolean - doVorzeichen() + doVorzeichen() ' Für GS in Minusbeträge umwandeln Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Rechnungsausgang WHERE RK_ID=@RK_ID) " & " BEGIN " & getUpdateCmd() & " END " & @@ -416,12 +418,14 @@ Public Class cRechnungsausgang If RK_ID > 0 Then - doVorzeichenPOS() + doVorzeichenPOS() ' Für GS in Minusbeträge umwandeln If saveAll Then SAVE_POSITIONEN(RK_ID) ' positionen speicehrn + doVorzeichenPOS() ' Minusbeträge bei GS zurückumwandeln + If saveAll Then SAVE_ANHAENGE(RK_ID) ' positionen speicehrn - doVorzeichenPOS() + End If - doVorzeichen() + doVorzeichen() ' Minusbeträge bei GS zurückumwandeln Return RK_ID > 0 End Function @@ -615,7 +619,8 @@ Public Class cRechnungsausgang dr.Close() End Using End Using - doVorzeichenPOS() + doVorzeichenPOS() ' Minus in Plus umwandeln (DB hat Minus, System hat Plus-Beträge) + Catch ex As Exception MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try @@ -644,7 +649,6 @@ Public Class cRechnungsausgang dr.Close() End Using End Using - doVorzeichenPOS() Catch ex As Exception MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try @@ -686,7 +690,7 @@ Public Class cRechnungsausgang Catch ex As Exception 'Preis null?? End Try - POSITIONEN = POSITIONEN.OrderBy(Function(x) x.LeistungsNr).ToList() + POSITIONEN = POSITIONEN.OrderBy(Function(x) CInt(x.LeistungsNr)).ToList() Catch ex As Exception MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb index 43c8287b..85af2a45 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb @@ -264,6 +264,11 @@ Public Class cSendungen Return SQL.doSQL(sqlstr, "AVISO") End Function + Public Function SET_VGMA() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " UPDATE [tblSendungen] SET tblSnd_VG_MA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "', LetzterMitarbeiterId='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "', LetzterMitarbeiter='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "' WHERE tblSnd_SendungID=" & Me.tblSnd_SendungID + Return SQL.doSQL(sqlstr, "AVISO") + + End Function Public Shared Function LOADByFilialenNrAbfertigungsNr(FilialenNr As Integer, AbfertigungsNr As Integer) As cSendungen Dim sql As New VERAG_PROG_ALLGEMEIN.SQL Dim tblSnd_SendungID = sql.getValueTxtBySql("SELECT TOP 1 tblSnd_SendungID FROM tblSendungen WHERE FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "'", "AVISO") @@ -274,6 +279,35 @@ Public Class cSendungen End If End Function + Public Function getKdAtrNr(art As String) As String + Try + + ' If SND Is Nothing Then Return "" + Dim KdNR = -1 + Dim KdAtrNr = Nothing + Select Case art + Case "EMPFAENGER" : KdAtrNr = Me.tblSnd_KdAuftragsNrEmpfaenger : KdNR = Me.tblSnd_EmpfaengerKdNr + Case "AUFTRAGGEBER" : KdAtrNr = Me.tblSnd_KdAuftragsNr : KdNR = Me.tblSnd_AuftraggeberKdNr + Case "FRAECHTER" : KdAtrNr = Me.tblSnd_KdAuftragsNrFrachtfuehrer : KdNR = Me.tblSnd_FrachtfuehrerKdNr + Case "AVISIERER" : KdAtrNr = Me.tblSnd_KdAuftragsNrAvisierer : KdNR = Me.tblSnd_AvisiererKdNr + End Select + + If If(KdAtrNr, "").Trim <> String.Empty Then + Return KdAtrNr + Else + If Me.tblSnd_EmpfaengerKdNr = KdNR And If(Me.tblSnd_KdAuftragsNrEmpfaenger, "").Trim <> String.Empty Then Return Me.tblSnd_KdAuftragsNrEmpfaenger + If Me.tblSnd_AuftraggeberKdNr = KdNR And If(Me.tblSnd_KdAuftragsNr, "").Trim <> String.Empty Then Return Me.tblSnd_KdAuftragsNr + If Me.tblSnd_FrachtfuehrerKdNr = KdNR And If(Me.tblSnd_KdAuftragsNrFrachtfuehrer, "").Trim <> String.Empty Then Return Me.tblSnd_KdAuftragsNrFrachtfuehrer + If Me.tblSnd_AvisiererKdNr = KdNR And If(Me.tblSnd_KdAuftragsNrAvisierer, "").Trim <> String.Empty Then Return Me.tblSnd_KdAuftragsNrAvisierer + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN ATRNR '", System.Reflection.MethodInfo.GetCurrentMethod.Name) + + End Try + Return "" + + End Function Public Sub LOAD(tblSnd_SendungID As Integer) Try Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO() diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb index 3c1d1f54..2f2d6e2e 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb @@ -332,7 +332,7 @@ Class TrdInvoice_FUNCTIONS Dim WährungsdifferenzSteuerpflichtigerBetrag As Double Dim WährungsdifferenzSteuerfreierBetrag As Integer - Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdInvoice(Firma), "FMZOLL", 2400) + Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdInvoice(Firma), "FMZOLL", 9800) If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then For Each ROW In dt.Rows Dim TRD_INVOICE As New VERAG_PROG_ALLGEMEIN.cTrdInvoice(ROW("RK_RechnungsDatum"), ROW("RK_RechnungsNr")) diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index 721728f8..e7b5d16c 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -14,7 +14,7 @@ Public Class cDATENSERVER Property da_kategorie As String = "" Property da_ordner As String = "" Property da_KundenNr As Integer = 0 - Property da_vorlage As Boolean = True + Property da_vorlage As Boolean = False Property da_uOrdner1 As String = "" 'SDL: LKW Property da_uOrdner2 As String = "" 'SDL: SDL_Leistung/... Property da_uOrdner3 As String = "" 'SDL: History diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb b/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb index a7e6cc86..4a2d192a 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Public NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase @@ -54,17 +54,75 @@ Namespace My End Get End Property + _ + Public Property SCANCANON_PRODConnectionString() As String + Get + Return CType(Me("SCANCANON_PRODConnectionString"),String) + End Get + Set + Me("SCANCANON_PRODConnectionString") = value + End Set + End Property + _ - Public ReadOnly Property ATLASConnectionString() As String + Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl), _ + Global.System.Configuration.DefaultSettingValueAttribute("http://ec.europa.eu/taxation_customs/vies/services/checkVatService")> _ + Public ReadOnly Property VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService() As String Get - Return CType(Me("ATLASConnectionString"),String) + Return CType(Me("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"),String) End Get End Property + _ + Public Property DISPOConnectionString() As String + Get + Return CType(Me("DISPOConnectionString"),String) + End Get + Set + Me("DISPOConnectionString") = value + End Set + End Property + + _ + Public ReadOnly Property VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService() As String + Get + Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService"),String) + End Get + End Property + + _ + Public ReadOnly Property VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService() As String + Get + Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService"),String) + End Get + End Property + + _ + Public Property asdadasdasdasdasdasd() As String + Get + Return CType(Me("asdadasdasdasdasdasd"),String) + End Get + Set + Me("asdadasdasdasdasdasd") = value + End Set + End Property + _ + Public ReadOnly Property SYSKAConnectionString() As String + Get + Return CType(Me("SYSKAConnectionString"),String) + End Get + End Property + + _ + Public ReadOnly Property ATLASConnectionString() As String + Get + Return CType(Me("ATLASConnectionString"),String) + End Get + End Property + - Public ReadOnly Property AVISOConnectionString() As String - Get - Return CType(Me("AVISOConnectionString"), String) - End Get - End Property - - - Public ReadOnly Property SDLConnectionString() As String - Get - Return CType(Me("SDLConnectionString"), String) - End Get - End Property - - + + _ Public ReadOnly Property AVISOConnectionStringTEST() As String Get - Return CType(Me("AVISOConnectionStringTEST"), String) + Return CType(Me("AVISOConnectionStringTEST"),String) End Get End Property - - - Public Property SCANCANON_PRODConnectionString() As String + + _ + Public ReadOnly Property AVISOConnectionString() As String Get - Return CType(Me("SCANCANON_PRODConnectionString"), String) + Return CType(Me("AVISOConnectionString"),String) End Get - Set - Me("SCANCANON_PRODConnectionString") = Value - End Set End Property - - - Public ReadOnly Property VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService() As String + + _ + Public ReadOnly Property SDLConnectionString() As String Get - Return CType(Me("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"), String) + Return CType(Me("SDLConnectionString"),String) End Get End Property - - - Public Property DISPOConnectionString() As String - Get - Return CType(Me("DISPOConnectionString"), String) - End Get - Set - Me("DISPOConnectionString") = Value - End Set - End Property - - - Public ReadOnly Property VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService() As String - Get - Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService"), String) - End Get - End Property - - - Public ReadOnly Property VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService() As String - Get - Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService"), String) - End Get - End Property - - - Public Property asdadasdasdasdasdasd() As String - Get - Return CType(Me("asdadasdasdasdasdasd"), String) - End Get - Set - Me("asdadasdasdasdasdasd") = Value - End Set - End Property - - + + _ Public ReadOnly Property EZOLLConnectionString() As String Get - Return CType(Me("EZOLLConnectionString"), String) + Return CType(Me("EZOLLConnectionString"),String) End Get End Property - - + + _ Public ReadOnly Property AVISO_ATILLAConnectionString() As String Get Return CType(Me("AVISO_ATILLAConnectionString"),String) @@ -303,6 +314,16 @@ Namespace My Return CType(Me("DISPOConnectionStringTEST"),String) End Get End Property + + _ + Public ReadOnly Property VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer() As String + Get + Return CType(Me("VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer"),String) + End Get + End Property End Class End Namespace diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Settings.settings b/VERAG_PROG_ALLGEMEIN/My Project/Settings.settings index 6300f9f9..4bab0e3c 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/Settings.settings +++ b/VERAG_PROG_ALLGEMEIN/My Project/Settings.settings @@ -2,120 +2,15 @@ - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> -</SerializableConnectionString> - Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956; - - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</ConnectionString> -</SerializableConnectionString> - Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; - - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</ConnectionString> -</SerializableConnectionString> - Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; - - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</ConnectionString> -</SerializableConnectionString> - Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; - - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</ConnectionString> -</SerializableConnectionString> - Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; - - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</ConnectionString> -</SerializableConnectionString> - Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200 - - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Persist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCertificate=False</ConnectionString> -</SerializableConnectionString> - Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Persist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCertificate=False - - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</ConnectionString> -</SerializableConnectionString> - Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; - - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</ConnectionString> -</SerializableConnectionString> - Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200 - - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> -</SerializableConnectionString> - Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956; - - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> -</SerializableConnectionString> - Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956; - - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;User ID=sa;Password=BmWr501956</ConnectionString> -</SerializableConnectionString> - Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;User ID=sa;Password=BmWr501956 - Data Source=192.168.0.99;Initial Catalog=Therefore;Integrated Security=false;User ID=sa;Password=BmWr501956; - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> -</SerializableConnectionString> - Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956; - - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> -</SerializableConnectionString> - Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956; - http://ec.europa.eu/taxation_customs/vies/services/checkVatService Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200 - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</ConnectionString> -</SerializableConnectionString> - Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200 - https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/ @@ -125,12 +20,127 @@ - + <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=FIBU2;Integrated Security=false;User ID=Aviso_User;Password=DMQRNdUCcK;</ConnectionString> +</SerializableConnectionString> + Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=FIBU2;Integrated Security=false;User ID=Aviso_User;Password=DMQRNdUCcK; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</ConnectionString> +</SerializableConnectionString> + Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200 + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> <ConnectionString>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</ConnectionString> </SerializableConnectionString> Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200 + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Persist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCertificate=False</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Persist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCertificate=False + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</ConnectionString> +</SerializableConnectionString> + Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</ConnectionString> +</SerializableConnectionString> + Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200 + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;User ID=sa;Password=BmWr501956</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;User ID=sa;Password=BmWr501956 + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> +</SerializableConnectionString> + Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> +</SerializableConnectionString> + Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</ConnectionString> +</SerializableConnectionString> + Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200 + + + http://localhost:8733/DSFinVKService + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb index a0e0f0d9..0146ff8c 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb @@ -236,7 +236,7 @@ group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig ORDER BY Rechnungsdatum, Rechnungsnummer " ' --and IVO.Rechnungsnummer=19400002 - Return SQL.loadDgvBySql(sqlStr, "FMZOLL") + Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800) End Function diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb index 2dab7018..c7b44b82 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb @@ -271,7 +271,7 @@ group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig ORDER BY Rechnungsdatum, Rechnungsnummer " ' --and IVO.Rechnungsnummer=19400002 - Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 300) + Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800) End Function Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer) As String diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb index a3904597..f4af7b33 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb @@ -98,7 +98,7 @@ Public Class cSyska_Interface getPersonenKto &= If(Lastschrift, row("BLZ"), "") & vbTab getPersonenKto &= If(Lastschrift, row("KTO"), "") & vbTab getPersonenKto &= "00" & vbTab 'Skontotage - getPersonenKto &= If(row("ZZiel") <> String.Empty, CDbl(row("ZZiel")).ToString("00"), "") & vbTab + getPersonenKto &= If(row("ZZiel") IsNot DBNull.Value AndAlso row("ZZiel") <> String.Empty, CDbl(row("ZZiel")).ToString("00"), "") & vbTab getPersonenKto &= "00,00" & vbTab 'Skonto getPersonenKto &= "01" & vbTab 'Mahnkennung getPersonenKto &= FormatStringSYS(row("UST-Id-Nummer"), 50) & vbTab @@ -517,7 +517,7 @@ Public Class cSyska_Interface group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum/*,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig*/ ORDER BY Rechnungsdatum, Rechnungsnummer " ' --and IVO.Rechnungsnummer=19400002 - Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 2400) + Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800) End Function @@ -568,7 +568,7 @@ Public Class cSyska_Interface GROUP BY Sachkonto,IVO.Rechnungsdatum,IVO.Rechnungsnummer,FilialenNr,AbfertigungsNr,UnterNr,steuerpflichtig,[Steuersatz %] ,BelegartenNr,WährungFremd,WährungLokal ORDER BY Rechnungsdatum, Rechnungsnummer " ' --and IVO.Rechnungsnummer=19400002 - Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 2400) + Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800) End Function @@ -1282,47 +1282,138 @@ Public Class cSyska_Interface ' End Function - Public Shared Function OP_Einlesen(Firma_ID As Integer, Optional KdNr As Integer = -1) + Public Shared Sub OP_Einlesen_ALL(Optional KdNr As Integer = -1) + Dim dt As DataTable = SQL.loadDgvBySql("SELECT Firma_ID FROM tblFirma ORDER BY tblFirma.Firma_ID", "FMZOLL") - Dim dt_OP As DataTable = SQL.loadDgvBySql("SELECT * FROM op_debitor WHERE (i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL) " & If(KdNr > 0, " AND i_personenkonto='" & KdNr & "'", "") & " ORDER BY i_personenkonto, d_rechnung, c_urbelegid", "FIBU") - - If dt_OP IsNot Nothing Then - - - If OP_DELETE(Firma_ID, KdNr) Then - - - For Each r_OP In dt_OP.Rows - - Try - - Dim OP As New VERAG_PROG_ALLGEMEIN.cOffene_Posten() - - OP.Kontonummer = r_OP("i_personenkonto") - OP.Belegnummer = r_OP("c_urbelegid") - OP.Belegdatum = r_OP("d_rechnung") - OP.Fälligkeitsdatum = r_OP("d_netto") - OP.Bruttobetrag = r_OP("eur_bruttobetrag") - OP.Waehrung = "EUR" - OP.Gesamtausstand = r_OP("eur_bruttobetrag") + r_OP("eur_zahlung") - OP.Buchungstext = r_OP("c_bemerkung") - OP.Mahnstufe = r_OP("si_mahnstufe") - OP.Mahndatum = r_OP("d_mahnung") - OP.Firma_ID = r_OP("i_firm_refid") - - OP.SAVE() - Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) - End Try - - Next - - Else - MsgBox("FEHLER beim Löschen der vorhandenen OP-Liste.") - End If + If dt IsNot Nothing Then + For Each r_firma In dt.Rows + OP_Einlesen(r_firma("Firma_ID"), KdNr) + Next End If + End Sub + + Public Shared Function OP_Einlesen(Firma_ID As Integer, Optional KdNr As Integer = -1) + Try + Dim OP_ID_CNT = 0 + If OP_ID_CNT < 1000000 Then OP_ID_CNT = 1000000 * Firma_ID + + Dim dt_OP As DataTable = SQL.loadDgvBySql("SELECT * FROM op_debitor WHERE (i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL) " & If(KdNr > 0, " AND i_personenkonto='" & KdNr & "'", "") & " ORDER BY i_personenkonto, d_rechnung, c_urbelegid", "FIBU") + + If dt_OP IsNot Nothing Then + Dim KumSaldoEUR As Double = 0 + Dim tmpFirma_Id As Integer = -1 + Dim tmpKonotnr As Integer = -1 + + ' If OP_DELETE(Firma_ID, KdNr) Then + If OP_DELETE(Firma_ID, KdNr) Then + + For Each r_OP In dt_OP.Rows + + Try + If KdNr > 1 Then OP_ID_CNT = SQL.getValueTxtBySql("SELECT isnull(MAX(OP_ID),0)+1 FROM [Offene Posten]", "FMZOLL") 'Wenn ein Kunde geändert wird, wird die höchste ID ermittelt + + Dim OP As New VERAG_PROG_ALLGEMEIN.cOffene_Posten() + + OP.OP_ID = OP_ID_CNT + OP.Kontonummer = r_OP("i_personenkonto") + OP.Belegnummer = r_OP("c_urbelegid") + OP.Belegdatum = r_OP("d_rechnung") + OP.Fälligkeitsdatum = r_OP("d_netto") + OP.Bruttobetrag = r_OP("eur_bruttobetrag") + OP.Waehrung = "EUR" + OP.Gesamtausstand = r_OP("eur_bruttobetrag") + r_OP("eur_zahlung") + OP.Buchungstext = r_OP("c_bemerkung") + OP.Mahnstufe = r_OP("si_mahnstufe") + OP.Mahndatum = r_OP("d_mahnung") + OP.Firma_ID = r_OP("i_firm_refid") + + + 'Erstmals setzen: + If tmpFirma_Id < 0 Then tmpFirma_Id = OP.Firma_ID + If tmpKonotnr < 0 Then tmpKonotnr = OP.Kontonummer + + If tmpKonotnr <> OP.Kontonummer Or tmpFirma_Id <> OP.Firma_ID Then + KumSaldoEUR = 0 'Zurücksetzen, wenn anderer Kunde, oder andere Firma + End If + KumSaldoEUR += OP.Gesamtausstand 'um Betrag erhöhen + OP.KumSaldoEUR = KumSaldoEUR 'Kumsalde in DB + + ' MsgBox(OP.Belegnummer) + + OP.INSERT() + + OP_ID_CNT += 1 + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + Next + + Else + MsgBox("FEHLER beim Löschen der vorhandenen OP-Liste.") + Return False + End If + End If + Return True + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + Return False + End Try End Function + + + + + ' strSQL = "SELECT [Offene Posten].Kontonummer, [Offene Posten].Firma_ID, [Offene Posten].Belegdatum, [Offene Posten].Belegnummer, [Offene Posten].Gesamtausstand, [Offene Posten].KumSaldoEUR" & _ + ' " FROM [Offene Posten]" & _ + ' " ORDER BY [Offene Posten].Kontonummer, [Offene Posten].Firma_ID, [Offene Posten].Belegdatum, [Offene Posten].Belegnummer;" + '5180 Set rst = dbs.OpenRecordset(strSQL, dbOpenDynaset) + '5190 With rst + '5200 If Not .EOF Then + '5210 lngKontonummer = !Kontonummer + '5220 intFirma_ID = !Firma_ID + '5230 curKumSaldoFirma = 0 + '5240 curKumSaldo = 0 + '5250 Do Until .EOF + '5260 .Edit + ' ' Saldo je Kontonummer und Firma kumulieren. + '5270 If lngKontonummer <> !Kontonummer Then + '5280 strKumSaldo = CStr(curKumSaldo) + '5290 I = InStr(strKumSaldo, ",") + '5300 If I > 0 Then Mid(strKumSaldo, I, 1) = "." + '5310 strSQL = "UPDATE Kunden SET Kunden.LfdSaldo = " & strKumSaldo & " WHERE (((Kunden.KundenNrZentrale)=" & lngKontonummer & "));" + '5320 dbs.Execute strSQL, dbFailOnError + '5330 lngKontonummer = !Kontonummer + '5340 intFirma_ID = !Firma_ID + '5350 curKumSaldoFirma = !Gesamtausstand + '5360 curKumSaldo = !Gesamtausstand + '5370 Else + '5380 curKumSaldo = curKumSaldo + !Gesamtausstand + '5390 If intFirma_ID <> !Firma_ID Then + '5400 intFirma_ID = !Firma_ID + '5410 curKumSaldoFirma = !Gesamtausstand + '5420 Else + '5430 curKumSaldoFirma = curKumSaldoFirma + !Gesamtausstand + '5440 End If + '5450 End If + '5460 !KumSaldoEUR = curKumSaldoFirma + '5470 .Update + '5480 .MoveNext + '5490 Loop + '5500 strKumSaldo = CStr(curKumSaldo) + '5510 I = InStr(strKumSaldo, ",") + '5520 If I > 0 Then Mid(strKumSaldo, I, 1) = "." + '5530 strSQL = "UPDATE Kunden SET Kunden.LfdSaldo = " & strKumSaldo & " WHERE (((Kunden.KundenNrZentrale)=" & lngKontonummer & "));" + '5540 dbs.Execute strSQL, dbFailOnError + '5550 End If + '5560 .Close + '5570 End With + + + + Public Shared Function OP_DELETE(Firma_ID As Integer, Optional KdNr As Integer = -1) As Boolean Dim SQL As New SQL Return SQL.doSQL("DELETE FROM [Offene Posten] where Firma_ID='" & Firma_ID & "'" & If(KdNr > 0, " AND Kontonummer='" & KdNr & "'", ""), "FMZOLL") diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Arrays.xsd b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/Arrays.xsd similarity index 100% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Arrays.xsd rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/Arrays.xsd diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/DSFinVK.xsd b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/DSFinVK.xsd similarity index 93% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/DSFinVK.xsd rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/DSFinVK.xsd index 5bc15585..6020a092 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/DSFinVK.xsd +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/DSFinVK.xsd @@ -1,7 +1,7 @@  - - + + @@ -65,6 +65,20 @@ + + + + 203 + + + + + + + 204 + + + diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/ItgKsV.xsd b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/ItgKsV.xsd similarity index 100% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/ItgKsV.xsd rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/ItgKsV.xsd diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Reference.svcmap b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/Reference.svcmap similarity index 79% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Reference.svcmap rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/Reference.svcmap index b6c75ddd..6d2348eb 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Reference.svcmap +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/Reference.svcmap @@ -1,5 +1,5 @@ - + false true @@ -22,12 +22,12 @@ - - - - - - + + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Reference.vb b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/Reference.vb similarity index 82% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Reference.vb rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/Reference.vb index 9515beeb..446cefb7 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Reference.vb +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/Reference.vb @@ -14,7 +14,7 @@ Option Explicit On Imports System Imports System.Runtime.Serialization -Namespace RKSV_DE +Namespace DSFinVKService _ @@ -77,6 +77,12 @@ Namespace RKSV_DE _ CASHBOX_NOT_FOUND = 202 + _ + CASHBOX_NOT_MANAGED = 203 + + _ + CASHBOX_ALREADY_MANAGED = 204 + _ ROW_HAS_INVALID_DATA = 10001 @@ -1604,7 +1610,7 @@ Namespace RKSV_DE End Class _ + System.ServiceModel.ServiceContractAttribute(ConfigurationName:="DSFinVKService.IDSFinVKServer")> _ Public Interface IDSFinVKServer _ @@ -1614,78 +1620,78 @@ Namespace RKSV_DE Function GetMachineCodeAsync(ByVal isDemoLicense As Boolean, ByVal clientId As String) As System.Threading.Tasks.Task(Of String) _ - Function InitializeLibrary(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) As RKSV_DE.ErrorCode + Function InitializeLibrary(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) As DSFinVKService.ErrorCode _ - Function InitializeLibraryAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) + Function InitializeLibraryAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ - Function CleanupLibrary() As RKSV_DE.ErrorCode + Function CleanupLibrary(ByVal Z_KASSE_ID As String) As DSFinVKService.ErrorCode _ - Function CleanupLibraryAsync() As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) + Function CleanupLibraryAsync(ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ - Function CreateDatabase(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As RKSV_DE.ErrorCode + Function CreateDatabase(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As DSFinVKService.ErrorCode _ - Function CreateDatabaseAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) + Function CreateDatabaseAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ - Function CreateCashbox(ByVal cashbox As RKSV_DE.Kassendaten) As RKSV_DE.ErrorCode + Function CreateCashbox(ByVal cashbox As DSFinVKService.Kassendaten) As DSFinVKService.ErrorCode _ - Function CreateCashboxAsync(ByVal cashbox As RKSV_DE.Kassendaten) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) + Function CreateCashboxAsync(ByVal cashbox As DSFinVKService.Kassendaten) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ - Function GetCashboxes(ByVal request As RKSV_DE.GetCashboxesRequest) As RKSV_DE.GetCashboxesResponse + Function GetCashboxes(ByVal request As DSFinVKService.GetCashboxesRequest) As DSFinVKService.GetCashboxesResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ - Function GetCashboxesAsync(ByVal request As RKSV_DE.GetCashboxesRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetCashboxesResponse) + Function GetCashboxesAsync(ByVal request As DSFinVKService.GetCashboxesRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetCashboxesResponse) _ - Function BeginReceipt(ByVal request As RKSV_DE.BeginReceiptRequest) As RKSV_DE.BeginReceiptResponse + Function BeginReceipt(ByVal request As DSFinVKService.BeginReceiptRequest) As DSFinVKService.BeginReceiptResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ - Function BeginReceiptAsync(ByVal request As RKSV_DE.BeginReceiptRequest) As System.Threading.Tasks.Task(Of RKSV_DE.BeginReceiptResponse) + Function BeginReceiptAsync(ByVal request As DSFinVKService.BeginReceiptRequest) As System.Threading.Tasks.Task(Of DSFinVKService.BeginReceiptResponse) _ - Function UpdateReceipt(ByVal cashboxName As String, ByVal transactionNumber As Integer) As RKSV_DE.ErrorCode + Function UpdateReceipt(ByVal cashboxName As String, ByVal transactionNumber As Integer) As DSFinVKService.ErrorCode _ - Function UpdateReceiptAsync(ByVal cashboxName As String, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) + Function UpdateReceiptAsync(ByVal cashboxName As String, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ - Function FinishReceipt(ByVal cashboxName As String, ByVal bonkopfFinish As RKSV_DE.BonKopfFinish, ByVal transactionNumber As Integer) As RKSV_DE.ErrorCode + Function FinishReceipt(ByVal cashboxName As String, ByVal bonkopfFinish As DSFinVKService.BonKopfFinish, ByVal transactionNumber As Integer) As DSFinVKService.ErrorCode _ - Function FinishReceiptAsync(ByVal cashboxName As String, ByVal bonkopfFinish As RKSV_DE.BonKopfFinish, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) + Function FinishReceiptAsync(ByVal cashboxName As String, ByVal bonkopfFinish As DSFinVKService.BonKopfFinish, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ - Function AddPositionToReceipt(ByVal cashboxName As String, ByVal position As RKSV_DE.BonPosition, ByVal position_vat As RKSV_DE.BonPosition_Ust, ByVal transactionNumber As Integer) As RKSV_DE.ErrorCode + Function AddPositionToReceipt(ByVal cashboxName As String, ByVal position As DSFinVKService.BonPosition, ByVal position_vat As DSFinVKService.BonPosition_Ust, ByVal transactionNumber As Integer) As DSFinVKService.ErrorCode _ - Function AddPositionToReceiptAsync(ByVal cashboxName As String, ByVal position As RKSV_DE.BonPosition, ByVal position_vat As RKSV_DE.BonPosition_Ust, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) + Function AddPositionToReceiptAsync(ByVal cashboxName As String, ByVal position As DSFinVKService.BonPosition, ByVal position_vat As DSFinVKService.BonPosition_Ust, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ - Function ExportFull(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_To As Integer, ByVal path As String, ByVal zipFileName As String) As RKSV_DE.ErrorCode + Function ExportFull(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_To As Integer, ByVal path As String, ByVal zipFileName As String) As DSFinVKService.ErrorCode _ - Function ExportFullAsync(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_To As Integer, ByVal path As String, ByVal zipFileName As String) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) + Function ExportFullAsync(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_To As Integer, ByVal path As String, ByVal zipFileName As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ - Function ExportDateToDate(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As RKSV_DE.ErrorCode + Function ExportDateToDate(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As DSFinVKService.ErrorCode _ - Function ExportDateToDateAsync(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) + Function ExportDateToDateAsync(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ - Function ExportNumberToNumber(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As RKSV_DE.ErrorCode + Function ExportNumberToNumber(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As DSFinVKService.ErrorCode _ - Function ExportNumberToNumberAsync(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) + Function ExportNumberToNumberAsync(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ Function ExportCSVFiles( _ @@ -1713,7 +1719,7 @@ Namespace RKSV_DE ByVal exportItemamounts As Boolean, _ ByVal exportSubitems As Boolean, _ ByVal exportReferences As Boolean, _ - ByVal exportTransactionsTse As Boolean) As RKSV_DE.ErrorCode + ByVal exportTransactionsTse As Boolean) As DSFinVKService.ErrorCode _ Function ExportCSVFilesAsync( _ @@ -1741,34 +1747,34 @@ Namespace RKSV_DE ByVal exportItemamounts As Boolean, _ ByVal exportSubitems As Boolean, _ ByVal exportReferences As Boolean, _ - ByVal exportTransactionsTse As Boolean) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) + ByVal exportTransactionsTse As Boolean) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ - Function GetAvailableTseList(ByVal request As RKSV_DE.GetAvailableTseListRequest) As RKSV_DE.GetAvailableTseListResponse + Function GetAvailableTseList(ByVal request As DSFinVKService.GetAvailableTseListRequest) As DSFinVKService.GetAvailableTseListResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ - Function GetAvailableTseListAsync(ByVal request As RKSV_DE.GetAvailableTseListRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetAvailableTseListResponse) + Function GetAvailableTseListAsync(ByVal request As DSFinVKService.GetAvailableTseListRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetAvailableTseListResponse) _ - Function GetDsFinVKValues(ByVal request As RKSV_DE.GetDsFinVKValuesRequest) As RKSV_DE.GetDsFinVKValuesResponse + Function GetDsFinVKValues(ByVal request As DSFinVKService.GetDsFinVKValuesRequest) As DSFinVKService.GetDsFinVKValuesResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ - Function GetDsFinVKValuesAsync(ByVal request As RKSV_DE.GetDsFinVKValuesRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetDsFinVKValuesResponse) + Function GetDsFinVKValuesAsync(ByVal request As DSFinVKService.GetDsFinVKValuesRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetDsFinVKValuesResponse) _ - Function GetDsFinVKValuesForTse(ByVal request As RKSV_DE.GetDsFinVKValuesForTseRequest) As RKSV_DE.GetDsFinVKValuesForTseResponse + Function GetDsFinVKValuesForTse(ByVal request As DSFinVKService.GetDsFinVKValuesForTseRequest) As DSFinVKService.GetDsFinVKValuesForTseResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ - Function GetDsFinVKValuesForTseAsync(ByVal request As RKSV_DE.GetDsFinVKValuesForTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetDsFinVKValuesForTseResponse) + Function GetDsFinVKValuesForTseAsync(ByVal request As DSFinVKService.GetDsFinVKValuesForTseRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetDsFinVKValuesForTseResponse) _ - Function SetupTseForFirstUseTse(ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) As Integer + Function SetupTseForFirstUseTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) As Integer _ - Function SetupTseForFirstUseTseAsync(ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) As System.Threading.Tasks.Task(Of Integer) + Function SetupTseForFirstUseTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) As System.Threading.Tasks.Task(Of Integer) _ Function StringifyTseErrorCode(ByVal tseErrorCode As Integer) As String @@ -1777,65 +1783,65 @@ Namespace RKSV_DE Function StringifyTseErrorCodeAsync(ByVal tseErrorCode As Integer) As System.Threading.Tasks.Task(Of String) _ - Function GetAvailableClientsTse(ByVal request As RKSV_DE.GetAvailableClientsTseRequest) As RKSV_DE.GetAvailableClientsTseResponse + Function GetAvailableClientsTse(ByVal request As DSFinVKService.GetAvailableClientsTseRequest) As DSFinVKService.GetAvailableClientsTseResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ - Function GetAvailableClientsTseAsync(ByVal request As RKSV_DE.GetAvailableClientsTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetAvailableClientsTseResponse) + Function GetAvailableClientsTseAsync(ByVal request As DSFinVKService.GetAvailableClientsTseRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetAvailableClientsTseResponse) _ - Function IsClientPresentTse(ByVal request As RKSV_DE.IsClientPresentTseRequest) As RKSV_DE.IsClientPresentTseResponse + Function IsClientPresentTse(ByVal request As DSFinVKService.IsClientPresentTseRequest) As DSFinVKService.IsClientPresentTseResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ - Function IsClientPresentTseAsync(ByVal request As RKSV_DE.IsClientPresentTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE.IsClientPresentTseResponse) + Function IsClientPresentTseAsync(ByVal request As DSFinVKService.IsClientPresentTseRequest) As System.Threading.Tasks.Task(Of DSFinVKService.IsClientPresentTseResponse) _ - Function GetTaxIds(ByVal request As RKSV_DE.GetTaxIdsRequest) As RKSV_DE.GetTaxIdsResponse + Function GetTaxIds(ByVal request As DSFinVKService.GetTaxIdsRequest) As DSFinVKService.GetTaxIdsResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ - Function GetTaxIdsAsync(ByVal request As RKSV_DE.GetTaxIdsRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetTaxIdsResponse) + Function GetTaxIdsAsync(ByVal request As DSFinVKService.GetTaxIdsRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetTaxIdsResponse) _ - Function CreateCashpointClosing(ByVal Z_KASSE_ID As String) As RKSV_DE.ErrorCode + Function CreateCashpointClosing(ByVal Z_KASSE_ID As String) As DSFinVKService.ErrorCode _ - Function CreateCashpointClosingAsync(ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) + Function CreateCashpointClosingAsync(ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ - Function GetLastReceiptValues(ByVal request As RKSV_DE.GetLastReceiptValuesRequest) As RKSV_DE.GetLastReceiptValuesResponse + Function GetLastReceiptValues(ByVal request As DSFinVKService.GetLastReceiptValuesRequest) As DSFinVKService.GetLastReceiptValuesResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ - Function GetLastReceiptValuesAsync(ByVal request As RKSV_DE.GetLastReceiptValuesRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetLastReceiptValuesResponse) + Function GetLastReceiptValuesAsync(ByVal request As DSFinVKService.GetLastReceiptValuesRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetLastReceiptValuesResponse) _ - Function GetLastReceiptQrCode(ByVal request As RKSV_DE.GetLastReceiptQrCodeRequest) As RKSV_DE.GetLastReceiptQrCodeResponse + Function GetLastReceiptQrCode(ByVal request As DSFinVKService.GetLastReceiptQrCodeRequest) As DSFinVKService.GetLastReceiptQrCodeResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ - Function GetLastReceiptQrCodeAsync(ByVal request As RKSV_DE.GetLastReceiptQrCodeRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetLastReceiptQrCodeResponse) + Function GetLastReceiptQrCodeAsync(ByVal request As DSFinVKService.GetLastReceiptQrCodeRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetLastReceiptQrCodeResponse) _ - Function GetLastReceiptQrCodeContent(ByVal request As RKSV_DE.GetLastReceiptQrCodeContentRequest) As RKSV_DE.GetLastReceiptQrCodeContentResponse + Function GetLastReceiptQrCodeContent(ByVal request As DSFinVKService.GetLastReceiptQrCodeContentRequest) As DSFinVKService.GetLastReceiptQrCodeContentResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ - Function GetLastReceiptQrCodeContentAsync(ByVal request As RKSV_DE.GetLastReceiptQrCodeContentRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetLastReceiptQrCodeContentResponse) + Function GetLastReceiptQrCodeContentAsync(ByVal request As DSFinVKService.GetLastReceiptQrCodeContentRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetLastReceiptQrCodeContentResponse) _ - Function RegisterNewClientTse(ByVal driveLetter As String, ByVal newClientId As String) As RKSV_DE.ErrorCode + Function RegisterNewClientTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String) As DSFinVKService.ErrorCode _ - Function RegisterNewClientTseAsync(ByVal driveLetter As String, ByVal newClientId As String) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) + Function RegisterNewClientTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ - Function GetNextBON_ID(ByVal request As RKSV_DE.GetNextBON_IDRequest) As RKSV_DE.GetNextBON_IDResponse + Function GetNextBON_ID(ByVal request As DSFinVKService.GetNextBON_IDRequest) As DSFinVKService.GetNextBON_IDResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ - Function GetNextBON_IDAsync(ByVal request As RKSV_DE.GetNextBON_IDRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetNextBON_IDResponse) + Function GetNextBON_IDAsync(ByVal request As DSFinVKService.GetNextBON_IDRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetNextBON_IDResponse) End Interface _ - Public cashBoxes() As RKSV_DE.Kassendaten + Public cashBoxes() As DSFinVKService.Kassendaten Public Sub New() MyBase.New End Sub - Public Sub New(ByVal cashBoxes() As RKSV_DE.Kassendaten) + Public Sub New(ByVal cashBoxes() As DSFinVKService.Kassendaten) MyBase.New Me.cashBoxes = cashBoxes End Sub @@ -1862,16 +1868,16 @@ Namespace RKSV_DE Partial Public Class GetCashboxesResponse _ - Public GetCashboxesResult As RKSV_DE.ErrorCode + Public GetCashboxesResult As DSFinVKService.ErrorCode _ - Public cashBoxes() As RKSV_DE.Kassendaten + Public cashBoxes() As DSFinVKService.Kassendaten Public Sub New() MyBase.New End Sub - Public Sub New(ByVal GetCashboxesResult As RKSV_DE.ErrorCode, ByVal cashBoxes() As RKSV_DE.Kassendaten) + Public Sub New(ByVal GetCashboxesResult As DSFinVKService.ErrorCode, ByVal cashBoxes() As DSFinVKService.Kassendaten) MyBase.New Me.GetCashboxesResult = GetCashboxesResult Me.cashBoxes = cashBoxes @@ -1887,7 +1893,7 @@ Namespace RKSV_DE Public cashboxName As String _ - Public bonkopfBegin As RKSV_DE.BonKopfBegin + Public bonkopfBegin As DSFinVKService.BonKopfBegin _ Public transactionNumber As Integer @@ -1896,7 +1902,7 @@ Namespace RKSV_DE MyBase.New End Sub - Public Sub New(ByVal cashboxName As String, ByVal bonkopfBegin As RKSV_DE.BonKopfBegin, ByVal transactionNumber As Integer) + Public Sub New(ByVal cashboxName As String, ByVal bonkopfBegin As DSFinVKService.BonKopfBegin, ByVal transactionNumber As Integer) MyBase.New Me.cashboxName = cashboxName Me.bonkopfBegin = bonkopfBegin @@ -1910,7 +1916,7 @@ Namespace RKSV_DE Partial Public Class BeginReceiptResponse _ - Public BeginReceiptResult As RKSV_DE.ErrorCode + Public BeginReceiptResult As DSFinVKService.ErrorCode _ Public transactionNumber As Integer @@ -1919,7 +1925,7 @@ Namespace RKSV_DE MyBase.New End Sub - Public Sub New(ByVal BeginReceiptResult As RKSV_DE.ErrorCode, ByVal transactionNumber As Integer) + Public Sub New(ByVal BeginReceiptResult As DSFinVKService.ErrorCode, ByVal transactionNumber As Integer) MyBase.New Me.BeginReceiptResult = BeginReceiptResult Me.transactionNumber = transactionNumber @@ -1996,29 +2002,33 @@ Namespace RKSV_DE Partial Public Class GetDsFinVKValuesRequest _ - Public tse_serial As String + Public Z_KASSE_ID As String _ - Public tse_sig_algo As String + Public tse_serial As String _ - Public tse_zeitformat As String + Public tse_sig_algo As String _ - Public tse_pd_encoding As String + Public tse_zeitformat As String _ - Public tse_public_key As String + Public tse_pd_encoding As String _ + Public tse_public_key As String + + _ Public tse_zertifikat As String Public Sub New() MyBase.New End Sub - Public Sub New(ByVal tse_serial As String, ByVal tse_sig_algo As String, ByVal tse_zeitformat As String, ByVal tse_pd_encoding As String, ByVal tse_public_key As String, ByVal tse_zertifikat As String) + Public Sub New(ByVal Z_KASSE_ID As String, ByVal tse_serial As String, ByVal tse_sig_algo As String, ByVal tse_zeitformat As String, ByVal tse_pd_encoding As String, ByVal tse_public_key As String, ByVal tse_zertifikat As String) MyBase.New + Me.Z_KASSE_ID = Z_KASSE_ID Me.tse_serial = tse_serial Me.tse_sig_algo = tse_sig_algo Me.tse_zeitformat = tse_zeitformat @@ -2076,17 +2086,21 @@ Namespace RKSV_DE Partial Public Class GetDsFinVKValuesForTseRequest _ - Public driveLetter As String + Public Z_KASSE_ID As String _ - Public tseData As RKSV_DE.TSEData + Public driveLetter As String + + _ + Public tseData As DSFinVKService.TSEData Public Sub New() MyBase.New End Sub - Public Sub New(ByVal driveLetter As String, ByVal tseData As RKSV_DE.TSEData) + Public Sub New(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal tseData As DSFinVKService.TSEData) MyBase.New + Me.Z_KASSE_ID = Z_KASSE_ID Me.driveLetter = driveLetter Me.tseData = tseData End Sub @@ -2101,13 +2115,13 @@ Namespace RKSV_DE Public GetDsFinVKValuesForTseResult As Integer _ - Public tseData As RKSV_DE.TSEData + Public tseData As DSFinVKService.TSEData Public Sub New() MyBase.New End Sub - Public Sub New(ByVal GetDsFinVKValuesForTseResult As Integer, ByVal tseData As RKSV_DE.TSEData) + Public Sub New(ByVal GetDsFinVKValuesForTseResult As Integer, ByVal tseData As DSFinVKService.TSEData) MyBase.New Me.GetDsFinVKValuesForTseResult = GetDsFinVKValuesForTseResult Me.tseData = tseData @@ -2120,20 +2134,24 @@ Namespace RKSV_DE Partial Public Class GetAvailableClientsTseRequest _ - Public driveLetter As String + Public Z_KASSE_ID As String _ - Public clientIds() As String + Public driveLetter As String _ + Public clientIds() As String + + _ Public count As Integer Public Sub New() MyBase.New End Sub - Public Sub New(ByVal driveLetter As String, ByVal clientIds() As String, ByVal count As Integer) + Public Sub New(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientIds() As String, ByVal count As Integer) MyBase.New + Me.Z_KASSE_ID = Z_KASSE_ID Me.driveLetter = driveLetter Me.clientIds = clientIds Me.count = count @@ -2172,20 +2190,24 @@ Namespace RKSV_DE Partial Public Class IsClientPresentTseRequest _ - Public driveLetter As String + Public Z_KASSE_ID As String _ - Public clientId As String + Public driveLetter As String _ + Public clientId As String + + _ Public result As Boolean Public Sub New() MyBase.New End Sub - Public Sub New(ByVal driveLetter As String, ByVal clientId As String, ByVal result As Boolean) + Public Sub New(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientId As String, ByVal result As Boolean) MyBase.New + Me.Z_KASSE_ID = Z_KASSE_ID Me.driveLetter = driveLetter Me.clientId = clientId Me.result = result @@ -2198,7 +2220,7 @@ Namespace RKSV_DE Partial Public Class IsClientPresentTseResponse _ - Public IsClientPresentTseResult As RKSV_DE.ErrorCode + Public IsClientPresentTseResult As DSFinVKService.ErrorCode _ Public result As Boolean @@ -2207,7 +2229,7 @@ Namespace RKSV_DE MyBase.New End Sub - Public Sub New(ByVal IsClientPresentTseResult As RKSV_DE.ErrorCode, ByVal result As Boolean) + Public Sub New(ByVal IsClientPresentTseResult As DSFinVKService.ErrorCode, ByVal result As Boolean) MyBase.New Me.IsClientPresentTseResult = IsClientPresentTseResult Me.result = result @@ -2223,13 +2245,13 @@ Namespace RKSV_DE Public Z_KASSE_ID As String _ - Public taxes As RKSV_DE.Taxes + Public taxes As DSFinVKService.Taxes Public Sub New() MyBase.New End Sub - Public Sub New(ByVal Z_KASSE_ID As String, ByVal taxes As RKSV_DE.Taxes) + Public Sub New(ByVal Z_KASSE_ID As String, ByVal taxes As DSFinVKService.Taxes) MyBase.New Me.Z_KASSE_ID = Z_KASSE_ID Me.taxes = taxes @@ -2242,16 +2264,16 @@ Namespace RKSV_DE Partial Public Class GetTaxIdsResponse _ - Public GetTaxIdsResult As RKSV_DE.ErrorCode + Public GetTaxIdsResult As DSFinVKService.ErrorCode _ - Public taxes As RKSV_DE.Taxes + Public taxes As DSFinVKService.Taxes Public Sub New() MyBase.New End Sub - Public Sub New(ByVal GetTaxIdsResult As RKSV_DE.ErrorCode, ByVal taxes As RKSV_DE.Taxes) + Public Sub New(ByVal GetTaxIdsResult As DSFinVKService.ErrorCode, ByVal taxes As DSFinVKService.Taxes) MyBase.New Me.GetTaxIdsResult = GetTaxIdsResult Me.taxes = taxes @@ -2264,45 +2286,7 @@ Namespace RKSV_DE Partial Public Class GetLastReceiptValuesRequest _ - Public transactionNumber As String - - _ - Public serialNumber As String - - _ - Public signature As String - - _ - Public transactionStart As Date - - _ - Public transactionFinish As Date - - _ - Public sigCounter As String - - Public Sub New() - MyBase.New - End Sub - - Public Sub New(ByVal transactionNumber As String, ByVal serialNumber As String, ByVal signature As String, ByVal transactionStart As Date, ByVal transactionFinish As Date, ByVal sigCounter As String) - MyBase.New - Me.transactionNumber = transactionNumber - Me.serialNumber = serialNumber - Me.signature = signature - Me.transactionStart = transactionStart - Me.transactionFinish = transactionFinish - Me.sigCounter = sigCounter - End Sub - End Class - - _ - Partial Public Class GetLastReceiptValuesResponse - - _ - Public GetLastReceiptValuesResult As RKSV_DE.ErrorCode + Public Z_KASSE_ID As String _ Public transactionNumber As String @@ -2326,7 +2310,49 @@ Namespace RKSV_DE MyBase.New End Sub - Public Sub New(ByVal GetLastReceiptValuesResult As RKSV_DE.ErrorCode, ByVal transactionNumber As String, ByVal serialNumber As String, ByVal signature As String, ByVal transactionStart As Date, ByVal transactionFinish As Date, ByVal sigCounter As String) + Public Sub New(ByVal Z_KASSE_ID As String, ByVal transactionNumber As String, ByVal serialNumber As String, ByVal signature As String, ByVal transactionStart As Date, ByVal transactionFinish As Date, ByVal sigCounter As String) + MyBase.New + Me.Z_KASSE_ID = Z_KASSE_ID + Me.transactionNumber = transactionNumber + Me.serialNumber = serialNumber + Me.signature = signature + Me.transactionStart = transactionStart + Me.transactionFinish = transactionFinish + Me.sigCounter = sigCounter + End Sub + End Class + + _ + Partial Public Class GetLastReceiptValuesResponse + + _ + Public GetLastReceiptValuesResult As DSFinVKService.ErrorCode + + _ + Public transactionNumber As String + + _ + Public serialNumber As String + + _ + Public signature As String + + _ + Public transactionStart As Date + + _ + Public transactionFinish As Date + + _ + Public sigCounter As String + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetLastReceiptValuesResult As DSFinVKService.ErrorCode, ByVal transactionNumber As String, ByVal serialNumber As String, ByVal signature As String, ByVal transactionStart As Date, ByVal transactionFinish As Date, ByVal sigCounter As String) MyBase.New Me.GetLastReceiptValuesResult = GetLastReceiptValuesResult Me.transactionNumber = transactionNumber @@ -2344,17 +2370,21 @@ Namespace RKSV_DE Partial Public Class GetLastReceiptQrCodeRequest _ - Public qrCode As String + Public Z_KASSE_ID As String _ + Public qrCode As String + + _ Public mimeType As String Public Sub New() MyBase.New End Sub - Public Sub New(ByVal qrCode As String, ByVal mimeType As String) + Public Sub New(ByVal Z_KASSE_ID As String, ByVal qrCode As String, ByVal mimeType As String) MyBase.New + Me.Z_KASSE_ID = Z_KASSE_ID Me.qrCode = qrCode Me.mimeType = mimeType End Sub @@ -2366,7 +2396,7 @@ Namespace RKSV_DE Partial Public Class GetLastReceiptQrCodeResponse _ - Public GetLastReceiptQrCodeResult As RKSV_DE.ErrorCode + Public GetLastReceiptQrCodeResult As DSFinVKService.ErrorCode _ Public qrCode As String @@ -2375,7 +2405,7 @@ Namespace RKSV_DE MyBase.New End Sub - Public Sub New(ByVal GetLastReceiptQrCodeResult As RKSV_DE.ErrorCode, ByVal qrCode As String) + Public Sub New(ByVal GetLastReceiptQrCodeResult As DSFinVKService.ErrorCode, ByVal qrCode As String) MyBase.New Me.GetLastReceiptQrCodeResult = GetLastReceiptQrCodeResult Me.qrCode = qrCode @@ -2388,14 +2418,18 @@ Namespace RKSV_DE Partial Public Class GetLastReceiptQrCodeContentRequest _ + Public Z_KASSE_ID As String + + _ Public qrCodeContent As String Public Sub New() MyBase.New End Sub - Public Sub New(ByVal qrCodeContent As String) + Public Sub New(ByVal Z_KASSE_ID As String, ByVal qrCodeContent As String) MyBase.New + Me.Z_KASSE_ID = Z_KASSE_ID Me.qrCodeContent = qrCodeContent End Sub End Class @@ -2406,7 +2440,7 @@ Namespace RKSV_DE Partial Public Class GetLastReceiptQrCodeContentResponse _ - Public GetLastReceiptQrCodeContentResult As RKSV_DE.ErrorCode + Public GetLastReceiptQrCodeContentResult As DSFinVKService.ErrorCode _ Public qrCodeContent As String @@ -2415,7 +2449,7 @@ Namespace RKSV_DE MyBase.New End Sub - Public Sub New(ByVal GetLastReceiptQrCodeContentResult As RKSV_DE.ErrorCode, ByVal qrCodeContent As String) + Public Sub New(ByVal GetLastReceiptQrCodeContentResult As DSFinVKService.ErrorCode, ByVal qrCodeContent As String) MyBase.New Me.GetLastReceiptQrCodeContentResult = GetLastReceiptQrCodeContentResult Me.qrCodeContent = qrCodeContent @@ -2450,7 +2484,7 @@ Namespace RKSV_DE Partial Public Class GetNextBON_IDResponse _ - Public GetNextBON_IDResult As RKSV_DE.ErrorCode + Public GetNextBON_IDResult As DSFinVKService.ErrorCode _ Public BON_ID As Integer @@ -2459,7 +2493,7 @@ Namespace RKSV_DE MyBase.New End Sub - Public Sub New(ByVal GetNextBON_IDResult As RKSV_DE.ErrorCode, ByVal BON_ID As Integer) + Public Sub New(ByVal GetNextBON_IDResult As DSFinVKService.ErrorCode, ByVal BON_ID As Integer) MyBase.New Me.GetNextBON_IDResult = GetNextBON_IDResult Me.BON_ID = BON_ID @@ -2468,14 +2502,14 @@ Namespace RKSV_DE _ Public Interface IDSFinVKServerChannel - Inherits RKSV_DE.IDSFinVKServer, System.ServiceModel.IClientChannel + Inherits DSFinVKService.IDSFinVKServer, System.ServiceModel.IClientChannel End Interface _ Partial Public Class DSFinVKServerClient - Inherits System.ServiceModel.ClientBase(Of RKSV_DE.IDSFinVKServer) - Implements RKSV_DE.IDSFinVKServer + Inherits System.ServiceModel.ClientBase(Of DSFinVKService.IDSFinVKServer) + Implements DSFinVKService.IDSFinVKServer Public Sub New() MyBase.New @@ -2497,127 +2531,127 @@ Namespace RKSV_DE MyBase.New(binding, remoteAddress) End Sub - Public Function GetMachineCode(ByVal isDemoLicense As Boolean, ByVal clientId As String) As String Implements RKSV_DE.IDSFinVKServer.GetMachineCode + Public Function GetMachineCode(ByVal isDemoLicense As Boolean, ByVal clientId As String) As String Implements DSFinVKService.IDSFinVKServer.GetMachineCode Return MyBase.Channel.GetMachineCode(isDemoLicense, clientId) End Function - Public Function GetMachineCodeAsync(ByVal isDemoLicense As Boolean, ByVal clientId As String) As System.Threading.Tasks.Task(Of String) Implements RKSV_DE.IDSFinVKServer.GetMachineCodeAsync + Public Function GetMachineCodeAsync(ByVal isDemoLicense As Boolean, ByVal clientId As String) As System.Threading.Tasks.Task(Of String) Implements DSFinVKService.IDSFinVKServer.GetMachineCodeAsync Return MyBase.Channel.GetMachineCodeAsync(isDemoLicense, clientId) End Function - Public Function InitializeLibrary(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) As RKSV_DE.ErrorCode Implements RKSV_DE.IDSFinVKServer.InitializeLibrary + Public Function InitializeLibrary(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.InitializeLibrary Return MyBase.Channel.InitializeLibrary(server, database, username, password, Z_KASSE_ID) End Function - Public Function InitializeLibraryAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) Implements RKSV_DE.IDSFinVKServer.InitializeLibraryAsync + Public Function InitializeLibraryAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.InitializeLibraryAsync Return MyBase.Channel.InitializeLibraryAsync(server, database, username, password, Z_KASSE_ID) End Function - Public Function CleanupLibrary() As RKSV_DE.ErrorCode Implements RKSV_DE.IDSFinVKServer.CleanupLibrary - Return MyBase.Channel.CleanupLibrary + Public Function CleanupLibrary(ByVal Z_KASSE_ID As String) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.CleanupLibrary + Return MyBase.Channel.CleanupLibrary(Z_KASSE_ID) End Function - Public Function CleanupLibraryAsync() As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) Implements RKSV_DE.IDSFinVKServer.CleanupLibraryAsync - Return MyBase.Channel.CleanupLibraryAsync + Public Function CleanupLibraryAsync(ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.CleanupLibraryAsync + Return MyBase.Channel.CleanupLibraryAsync(Z_KASSE_ID) End Function - Public Function CreateDatabase(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As RKSV_DE.ErrorCode Implements RKSV_DE.IDSFinVKServer.CreateDatabase + Public Function CreateDatabase(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.CreateDatabase Return MyBase.Channel.CreateDatabase(server, database, username, password) End Function - Public Function CreateDatabaseAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) Implements RKSV_DE.IDSFinVKServer.CreateDatabaseAsync + Public Function CreateDatabaseAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.CreateDatabaseAsync Return MyBase.Channel.CreateDatabaseAsync(server, database, username, password) End Function - Public Function CreateCashbox(ByVal cashbox As RKSV_DE.Kassendaten) As RKSV_DE.ErrorCode Implements RKSV_DE.IDSFinVKServer.CreateCashbox + Public Function CreateCashbox(ByVal cashbox As DSFinVKService.Kassendaten) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.CreateCashbox Return MyBase.Channel.CreateCashbox(cashbox) End Function - Public Function CreateCashboxAsync(ByVal cashbox As RKSV_DE.Kassendaten) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) Implements RKSV_DE.IDSFinVKServer.CreateCashboxAsync + Public Function CreateCashboxAsync(ByVal cashbox As DSFinVKService.Kassendaten) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.CreateCashboxAsync Return MyBase.Channel.CreateCashboxAsync(cashbox) End Function _ - Function RKSV_DE_IDSFinVKServer_GetCashboxes(ByVal request As RKSV_DE.GetCashboxesRequest) As RKSV_DE.GetCashboxesResponse Implements RKSV_DE.IDSFinVKServer.GetCashboxes + Function DSFinVKService_IDSFinVKServer_GetCashboxes(ByVal request As DSFinVKService.GetCashboxesRequest) As DSFinVKService.GetCashboxesResponse Implements DSFinVKService.IDSFinVKServer.GetCashboxes Return MyBase.Channel.GetCashboxes(request) End Function - Public Function GetCashboxes(ByRef cashBoxes() As RKSV_DE.Kassendaten) As RKSV_DE.ErrorCode - Dim inValue As RKSV_DE.GetCashboxesRequest = New RKSV_DE.GetCashboxesRequest() + Public Function GetCashboxes(ByRef cashBoxes() As DSFinVKService.Kassendaten) As DSFinVKService.ErrorCode + Dim inValue As DSFinVKService.GetCashboxesRequest = New DSFinVKService.GetCashboxesRequest() inValue.cashBoxes = cashBoxes - Dim retVal As RKSV_DE.GetCashboxesResponse = CType(Me,RKSV_DE.IDSFinVKServer).GetCashboxes(inValue) + Dim retVal As DSFinVKService.GetCashboxesResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetCashboxes(inValue) cashBoxes = retVal.cashBoxes Return retVal.GetCashboxesResult End Function - Public Function GetCashboxesAsync(ByVal request As RKSV_DE.GetCashboxesRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetCashboxesResponse) Implements RKSV_DE.IDSFinVKServer.GetCashboxesAsync + Public Function GetCashboxesAsync(ByVal request As DSFinVKService.GetCashboxesRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetCashboxesResponse) Implements DSFinVKService.IDSFinVKServer.GetCashboxesAsync Return MyBase.Channel.GetCashboxesAsync(request) End Function _ - Function RKSV_DE_IDSFinVKServer_BeginReceipt(ByVal request As RKSV_DE.BeginReceiptRequest) As RKSV_DE.BeginReceiptResponse Implements RKSV_DE.IDSFinVKServer.BeginReceipt + Function DSFinVKService_IDSFinVKServer_BeginReceipt(ByVal request As DSFinVKService.BeginReceiptRequest) As DSFinVKService.BeginReceiptResponse Implements DSFinVKService.IDSFinVKServer.BeginReceipt Return MyBase.Channel.BeginReceipt(request) End Function - Public Function BeginReceipt(ByVal cashboxName As String, ByVal bonkopfBegin As RKSV_DE.BonKopfBegin, ByRef transactionNumber As Integer) As RKSV_DE.ErrorCode - Dim inValue As RKSV_DE.BeginReceiptRequest = New RKSV_DE.BeginReceiptRequest() + Public Function BeginReceipt(ByVal cashboxName As String, ByVal bonkopfBegin As DSFinVKService.BonKopfBegin, ByRef transactionNumber As Integer) As DSFinVKService.ErrorCode + Dim inValue As DSFinVKService.BeginReceiptRequest = New DSFinVKService.BeginReceiptRequest() inValue.cashboxName = cashboxName inValue.bonkopfBegin = bonkopfBegin inValue.transactionNumber = transactionNumber - Dim retVal As RKSV_DE.BeginReceiptResponse = CType(Me,RKSV_DE.IDSFinVKServer).BeginReceipt(inValue) + Dim retVal As DSFinVKService.BeginReceiptResponse = CType(Me,DSFinVKService.IDSFinVKServer).BeginReceipt(inValue) transactionNumber = retVal.transactionNumber Return retVal.BeginReceiptResult End Function - Public Function BeginReceiptAsync(ByVal request As RKSV_DE.BeginReceiptRequest) As System.Threading.Tasks.Task(Of RKSV_DE.BeginReceiptResponse) Implements RKSV_DE.IDSFinVKServer.BeginReceiptAsync + Public Function BeginReceiptAsync(ByVal request As DSFinVKService.BeginReceiptRequest) As System.Threading.Tasks.Task(Of DSFinVKService.BeginReceiptResponse) Implements DSFinVKService.IDSFinVKServer.BeginReceiptAsync Return MyBase.Channel.BeginReceiptAsync(request) End Function - Public Function UpdateReceipt(ByVal cashboxName As String, ByVal transactionNumber As Integer) As RKSV_DE.ErrorCode Implements RKSV_DE.IDSFinVKServer.UpdateReceipt + Public Function UpdateReceipt(ByVal cashboxName As String, ByVal transactionNumber As Integer) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.UpdateReceipt Return MyBase.Channel.UpdateReceipt(cashboxName, transactionNumber) End Function - Public Function UpdateReceiptAsync(ByVal cashboxName As String, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) Implements RKSV_DE.IDSFinVKServer.UpdateReceiptAsync + Public Function UpdateReceiptAsync(ByVal cashboxName As String, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.UpdateReceiptAsync Return MyBase.Channel.UpdateReceiptAsync(cashboxName, transactionNumber) End Function - Public Function FinishReceipt(ByVal cashboxName As String, ByVal bonkopfFinish As RKSV_DE.BonKopfFinish, ByVal transactionNumber As Integer) As RKSV_DE.ErrorCode Implements RKSV_DE.IDSFinVKServer.FinishReceipt + Public Function FinishReceipt(ByVal cashboxName As String, ByVal bonkopfFinish As DSFinVKService.BonKopfFinish, ByVal transactionNumber As Integer) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.FinishReceipt Return MyBase.Channel.FinishReceipt(cashboxName, bonkopfFinish, transactionNumber) End Function - Public Function FinishReceiptAsync(ByVal cashboxName As String, ByVal bonkopfFinish As RKSV_DE.BonKopfFinish, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) Implements RKSV_DE.IDSFinVKServer.FinishReceiptAsync + Public Function FinishReceiptAsync(ByVal cashboxName As String, ByVal bonkopfFinish As DSFinVKService.BonKopfFinish, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.FinishReceiptAsync Return MyBase.Channel.FinishReceiptAsync(cashboxName, bonkopfFinish, transactionNumber) End Function - Public Function AddPositionToReceipt(ByVal cashboxName As String, ByVal position As RKSV_DE.BonPosition, ByVal position_vat As RKSV_DE.BonPosition_Ust, ByVal transactionNumber As Integer) As RKSV_DE.ErrorCode Implements RKSV_DE.IDSFinVKServer.AddPositionToReceipt + Public Function AddPositionToReceipt(ByVal cashboxName As String, ByVal position As DSFinVKService.BonPosition, ByVal position_vat As DSFinVKService.BonPosition_Ust, ByVal transactionNumber As Integer) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.AddPositionToReceipt Return MyBase.Channel.AddPositionToReceipt(cashboxName, position, position_vat, transactionNumber) End Function - Public Function AddPositionToReceiptAsync(ByVal cashboxName As String, ByVal position As RKSV_DE.BonPosition, ByVal position_vat As RKSV_DE.BonPosition_Ust, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) Implements RKSV_DE.IDSFinVKServer.AddPositionToReceiptAsync + Public Function AddPositionToReceiptAsync(ByVal cashboxName As String, ByVal position As DSFinVKService.BonPosition, ByVal position_vat As DSFinVKService.BonPosition_Ust, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.AddPositionToReceiptAsync Return MyBase.Channel.AddPositionToReceiptAsync(cashboxName, position, position_vat, transactionNumber) End Function - Public Function ExportFull(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_To As Integer, ByVal path As String, ByVal zipFileName As String) As RKSV_DE.ErrorCode Implements RKSV_DE.IDSFinVKServer.ExportFull + Public Function ExportFull(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_To As Integer, ByVal path As String, ByVal zipFileName As String) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.ExportFull Return MyBase.Channel.ExportFull(Z_KASSE_ID, Z_NR_From, Z_NR_To, path, zipFileName) End Function - Public Function ExportFullAsync(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_To As Integer, ByVal path As String, ByVal zipFileName As String) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) Implements RKSV_DE.IDSFinVKServer.ExportFullAsync + Public Function ExportFullAsync(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_To As Integer, ByVal path As String, ByVal zipFileName As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.ExportFullAsync Return MyBase.Channel.ExportFullAsync(Z_KASSE_ID, Z_NR_From, Z_NR_To, path, zipFileName) End Function - Public Function ExportDateToDate(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As RKSV_DE.ErrorCode Implements RKSV_DE.IDSFinVKServer.ExportDateToDate + Public Function ExportDateToDate(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.ExportDateToDate Return MyBase.Channel.ExportDateToDate(cashboxName, dtFrom, dtTo) End Function - Public Function ExportDateToDateAsync(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) Implements RKSV_DE.IDSFinVKServer.ExportDateToDateAsync + Public Function ExportDateToDateAsync(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.ExportDateToDateAsync Return MyBase.Channel.ExportDateToDateAsync(cashboxName, dtFrom, dtTo) End Function - Public Function ExportNumberToNumber(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As RKSV_DE.ErrorCode Implements RKSV_DE.IDSFinVKServer.ExportNumberToNumber + Public Function ExportNumberToNumber(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.ExportNumberToNumber Return MyBase.Channel.ExportNumberToNumber(cashboxName, numberFrom, numberTo) End Function - Public Function ExportNumberToNumberAsync(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) Implements RKSV_DE.IDSFinVKServer.ExportNumberToNumberAsync + Public Function ExportNumberToNumberAsync(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.ExportNumberToNumberAsync Return MyBase.Channel.ExportNumberToNumberAsync(cashboxName, numberFrom, numberTo) End Function @@ -2646,7 +2680,7 @@ Namespace RKSV_DE ByVal exportItemamounts As Boolean, _ ByVal exportSubitems As Boolean, _ ByVal exportReferences As Boolean, _ - ByVal exportTransactionsTse As Boolean) As RKSV_DE.ErrorCode Implements RKSV_DE.IDSFinVKServer.ExportCSVFiles + ByVal exportTransactionsTse As Boolean) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.ExportCSVFiles Return MyBase.Channel.ExportCSVFiles(Z_KASSE_ID, Z_NR_From, Z_NR_To, path, zipFileName, exportCashpointclosing, exportLocation, exportCashregister, exportSlaves, exportPa, exportVat, exportTse, exportBusinesscases, exportPayment, exportCashPerCurrency, exportTransactions, exportAllocationGroups, exportTransactionsVat, exportDatapayment, exportLines, exportLinesVat, exportItemamounts, exportSubitems, exportReferences, exportTransactionsTse) End Function @@ -2675,47 +2709,48 @@ Namespace RKSV_DE ByVal exportItemamounts As Boolean, _ ByVal exportSubitems As Boolean, _ ByVal exportReferences As Boolean, _ - ByVal exportTransactionsTse As Boolean) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) Implements RKSV_DE.IDSFinVKServer.ExportCSVFilesAsync + ByVal exportTransactionsTse As Boolean) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.ExportCSVFilesAsync Return MyBase.Channel.ExportCSVFilesAsync(Z_KASSE_ID, Z_NR_From, Z_NR_To, path, zipFileName, exportCashpointclosing, exportLocation, exportCashregister, exportSlaves, exportPa, exportVat, exportTse, exportBusinesscases, exportPayment, exportCashPerCurrency, exportTransactions, exportAllocationGroups, exportTransactionsVat, exportDatapayment, exportLines, exportLinesVat, exportItemamounts, exportSubitems, exportReferences, exportTransactionsTse) End Function _ - Function RKSV_DE_IDSFinVKServer_GetAvailableTseList(ByVal request As RKSV_DE.GetAvailableTseListRequest) As RKSV_DE.GetAvailableTseListResponse Implements RKSV_DE.IDSFinVKServer.GetAvailableTseList + Function DSFinVKService_IDSFinVKServer_GetAvailableTseList(ByVal request As DSFinVKService.GetAvailableTseListRequest) As DSFinVKService.GetAvailableTseListResponse Implements DSFinVKService.IDSFinVKServer.GetAvailableTseList Return MyBase.Channel.GetAvailableTseList(request) End Function Public Function GetAvailableTseList(ByVal startDriveLetter As String, ByVal endDriveLetter As String, ByRef tseDriveLetterList() As String, ByRef tseSerialList() As String, ByRef count As Integer) As Integer - Dim inValue As RKSV_DE.GetAvailableTseListRequest = New RKSV_DE.GetAvailableTseListRequest() + Dim inValue As DSFinVKService.GetAvailableTseListRequest = New DSFinVKService.GetAvailableTseListRequest() inValue.startDriveLetter = startDriveLetter inValue.endDriveLetter = endDriveLetter inValue.tseDriveLetterList = tseDriveLetterList inValue.tseSerialList = tseSerialList inValue.count = count - Dim retVal As RKSV_DE.GetAvailableTseListResponse = CType(Me,RKSV_DE.IDSFinVKServer).GetAvailableTseList(inValue) + Dim retVal As DSFinVKService.GetAvailableTseListResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetAvailableTseList(inValue) tseDriveLetterList = retVal.tseDriveLetterList tseSerialList = retVal.tseSerialList count = retVal.count Return retVal.GetAvailableTseListResult End Function - Public Function GetAvailableTseListAsync(ByVal request As RKSV_DE.GetAvailableTseListRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetAvailableTseListResponse) Implements RKSV_DE.IDSFinVKServer.GetAvailableTseListAsync + Public Function GetAvailableTseListAsync(ByVal request As DSFinVKService.GetAvailableTseListRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetAvailableTseListResponse) Implements DSFinVKService.IDSFinVKServer.GetAvailableTseListAsync Return MyBase.Channel.GetAvailableTseListAsync(request) End Function _ - Function RKSV_DE_IDSFinVKServer_GetDsFinVKValues(ByVal request As RKSV_DE.GetDsFinVKValuesRequest) As RKSV_DE.GetDsFinVKValuesResponse Implements RKSV_DE.IDSFinVKServer.GetDsFinVKValues + Function DSFinVKService_IDSFinVKServer_GetDsFinVKValues(ByVal request As DSFinVKService.GetDsFinVKValuesRequest) As DSFinVKService.GetDsFinVKValuesResponse Implements DSFinVKService.IDSFinVKServer.GetDsFinVKValues Return MyBase.Channel.GetDsFinVKValues(request) End Function - Public Function GetDsFinVKValues(ByRef tse_serial As String, ByRef tse_sig_algo As String, ByRef tse_zeitformat As String, ByRef tse_pd_encoding As String, ByRef tse_public_key As String, ByRef tse_zertifikat As String) As Integer - Dim inValue As RKSV_DE.GetDsFinVKValuesRequest = New RKSV_DE.GetDsFinVKValuesRequest() + Public Function GetDsFinVKValues(ByVal Z_KASSE_ID As String, ByRef tse_serial As String, ByRef tse_sig_algo As String, ByRef tse_zeitformat As String, ByRef tse_pd_encoding As String, ByRef tse_public_key As String, ByRef tse_zertifikat As String) As Integer + Dim inValue As DSFinVKService.GetDsFinVKValuesRequest = New DSFinVKService.GetDsFinVKValuesRequest() + inValue.Z_KASSE_ID = Z_KASSE_ID inValue.tse_serial = tse_serial inValue.tse_sig_algo = tse_sig_algo inValue.tse_zeitformat = tse_zeitformat inValue.tse_pd_encoding = tse_pd_encoding inValue.tse_public_key = tse_public_key inValue.tse_zertifikat = tse_zertifikat - Dim retVal As RKSV_DE.GetDsFinVKValuesResponse = CType(Me,RKSV_DE.IDSFinVKServer).GetDsFinVKValues(inValue) + Dim retVal As DSFinVKService.GetDsFinVKValuesResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetDsFinVKValues(inValue) tse_serial = retVal.tse_serial tse_sig_algo = retVal.tse_sig_algo tse_zeitformat = retVal.tse_zeitformat @@ -2725,123 +2760,127 @@ Namespace RKSV_DE Return retVal.GetDsFinVKValuesResult End Function - Public Function GetDsFinVKValuesAsync(ByVal request As RKSV_DE.GetDsFinVKValuesRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetDsFinVKValuesResponse) Implements RKSV_DE.IDSFinVKServer.GetDsFinVKValuesAsync + Public Function GetDsFinVKValuesAsync(ByVal request As DSFinVKService.GetDsFinVKValuesRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetDsFinVKValuesResponse) Implements DSFinVKService.IDSFinVKServer.GetDsFinVKValuesAsync Return MyBase.Channel.GetDsFinVKValuesAsync(request) End Function _ - Function RKSV_DE_IDSFinVKServer_GetDsFinVKValuesForTse(ByVal request As RKSV_DE.GetDsFinVKValuesForTseRequest) As RKSV_DE.GetDsFinVKValuesForTseResponse Implements RKSV_DE.IDSFinVKServer.GetDsFinVKValuesForTse + Function DSFinVKService_IDSFinVKServer_GetDsFinVKValuesForTse(ByVal request As DSFinVKService.GetDsFinVKValuesForTseRequest) As DSFinVKService.GetDsFinVKValuesForTseResponse Implements DSFinVKService.IDSFinVKServer.GetDsFinVKValuesForTse Return MyBase.Channel.GetDsFinVKValuesForTse(request) End Function - Public Function GetDsFinVKValuesForTse(ByVal driveLetter As String, ByRef tseData As RKSV_DE.TSEData) As Integer - Dim inValue As RKSV_DE.GetDsFinVKValuesForTseRequest = New RKSV_DE.GetDsFinVKValuesForTseRequest() + Public Function GetDsFinVKValuesForTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByRef tseData As DSFinVKService.TSEData) As Integer + Dim inValue As DSFinVKService.GetDsFinVKValuesForTseRequest = New DSFinVKService.GetDsFinVKValuesForTseRequest() + inValue.Z_KASSE_ID = Z_KASSE_ID inValue.driveLetter = driveLetter inValue.tseData = tseData - Dim retVal As RKSV_DE.GetDsFinVKValuesForTseResponse = CType(Me,RKSV_DE.IDSFinVKServer).GetDsFinVKValuesForTse(inValue) + Dim retVal As DSFinVKService.GetDsFinVKValuesForTseResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetDsFinVKValuesForTse(inValue) tseData = retVal.tseData Return retVal.GetDsFinVKValuesForTseResult End Function - Public Function GetDsFinVKValuesForTseAsync(ByVal request As RKSV_DE.GetDsFinVKValuesForTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetDsFinVKValuesForTseResponse) Implements RKSV_DE.IDSFinVKServer.GetDsFinVKValuesForTseAsync + Public Function GetDsFinVKValuesForTseAsync(ByVal request As DSFinVKService.GetDsFinVKValuesForTseRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetDsFinVKValuesForTseResponse) Implements DSFinVKService.IDSFinVKServer.GetDsFinVKValuesForTseAsync Return MyBase.Channel.GetDsFinVKValuesForTseAsync(request) End Function - Public Function SetupTseForFirstUseTse(ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) As Integer Implements RKSV_DE.IDSFinVKServer.SetupTseForFirstUseTse - Return MyBase.Channel.SetupTseForFirstUseTse(driveLetter, admin_puk, admin_pin, timeadmin_pin, clientId) + Public Function SetupTseForFirstUseTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) As Integer Implements DSFinVKService.IDSFinVKServer.SetupTseForFirstUseTse + Return MyBase.Channel.SetupTseForFirstUseTse(Z_KASSE_ID, driveLetter, admin_puk, admin_pin, timeadmin_pin, clientId) End Function - Public Function SetupTseForFirstUseTseAsync(ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) As System.Threading.Tasks.Task(Of Integer) Implements RKSV_DE.IDSFinVKServer.SetupTseForFirstUseTseAsync - Return MyBase.Channel.SetupTseForFirstUseTseAsync(driveLetter, admin_puk, admin_pin, timeadmin_pin, clientId) + Public Function SetupTseForFirstUseTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) As System.Threading.Tasks.Task(Of Integer) Implements DSFinVKService.IDSFinVKServer.SetupTseForFirstUseTseAsync + Return MyBase.Channel.SetupTseForFirstUseTseAsync(Z_KASSE_ID, driveLetter, admin_puk, admin_pin, timeadmin_pin, clientId) End Function - Public Function StringifyTseErrorCode(ByVal tseErrorCode As Integer) As String Implements RKSV_DE.IDSFinVKServer.StringifyTseErrorCode + Public Function StringifyTseErrorCode(ByVal tseErrorCode As Integer) As String Implements DSFinVKService.IDSFinVKServer.StringifyTseErrorCode Return MyBase.Channel.StringifyTseErrorCode(tseErrorCode) End Function - Public Function StringifyTseErrorCodeAsync(ByVal tseErrorCode As Integer) As System.Threading.Tasks.Task(Of String) Implements RKSV_DE.IDSFinVKServer.StringifyTseErrorCodeAsync + Public Function StringifyTseErrorCodeAsync(ByVal tseErrorCode As Integer) As System.Threading.Tasks.Task(Of String) Implements DSFinVKService.IDSFinVKServer.StringifyTseErrorCodeAsync Return MyBase.Channel.StringifyTseErrorCodeAsync(tseErrorCode) End Function _ - Function RKSV_DE_IDSFinVKServer_GetAvailableClientsTse(ByVal request As RKSV_DE.GetAvailableClientsTseRequest) As RKSV_DE.GetAvailableClientsTseResponse Implements RKSV_DE.IDSFinVKServer.GetAvailableClientsTse + Function DSFinVKService_IDSFinVKServer_GetAvailableClientsTse(ByVal request As DSFinVKService.GetAvailableClientsTseRequest) As DSFinVKService.GetAvailableClientsTseResponse Implements DSFinVKService.IDSFinVKServer.GetAvailableClientsTse Return MyBase.Channel.GetAvailableClientsTse(request) End Function - Public Function GetAvailableClientsTse(ByVal driveLetter As String, ByRef clientIds() As String, ByRef count As Integer) As Integer - Dim inValue As RKSV_DE.GetAvailableClientsTseRequest = New RKSV_DE.GetAvailableClientsTseRequest() + Public Function GetAvailableClientsTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByRef clientIds() As String, ByRef count As Integer) As Integer + Dim inValue As DSFinVKService.GetAvailableClientsTseRequest = New DSFinVKService.GetAvailableClientsTseRequest() + inValue.Z_KASSE_ID = Z_KASSE_ID inValue.driveLetter = driveLetter inValue.clientIds = clientIds inValue.count = count - Dim retVal As RKSV_DE.GetAvailableClientsTseResponse = CType(Me,RKSV_DE.IDSFinVKServer).GetAvailableClientsTse(inValue) + Dim retVal As DSFinVKService.GetAvailableClientsTseResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetAvailableClientsTse(inValue) clientIds = retVal.clientIds count = retVal.count Return retVal.GetAvailableClientsTseResult End Function - Public Function GetAvailableClientsTseAsync(ByVal request As RKSV_DE.GetAvailableClientsTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetAvailableClientsTseResponse) Implements RKSV_DE.IDSFinVKServer.GetAvailableClientsTseAsync + Public Function GetAvailableClientsTseAsync(ByVal request As DSFinVKService.GetAvailableClientsTseRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetAvailableClientsTseResponse) Implements DSFinVKService.IDSFinVKServer.GetAvailableClientsTseAsync Return MyBase.Channel.GetAvailableClientsTseAsync(request) End Function _ - Function RKSV_DE_IDSFinVKServer_IsClientPresentTse(ByVal request As RKSV_DE.IsClientPresentTseRequest) As RKSV_DE.IsClientPresentTseResponse Implements RKSV_DE.IDSFinVKServer.IsClientPresentTse + Function DSFinVKService_IDSFinVKServer_IsClientPresentTse(ByVal request As DSFinVKService.IsClientPresentTseRequest) As DSFinVKService.IsClientPresentTseResponse Implements DSFinVKService.IDSFinVKServer.IsClientPresentTse Return MyBase.Channel.IsClientPresentTse(request) End Function - Public Function IsClientPresentTse(ByVal driveLetter As String, ByVal clientId As String, ByRef result As Boolean) As RKSV_DE.ErrorCode - Dim inValue As RKSV_DE.IsClientPresentTseRequest = New RKSV_DE.IsClientPresentTseRequest() + Public Function IsClientPresentTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientId As String, ByRef result As Boolean) As DSFinVKService.ErrorCode + Dim inValue As DSFinVKService.IsClientPresentTseRequest = New DSFinVKService.IsClientPresentTseRequest() + inValue.Z_KASSE_ID = Z_KASSE_ID inValue.driveLetter = driveLetter inValue.clientId = clientId inValue.result = result - Dim retVal As RKSV_DE.IsClientPresentTseResponse = CType(Me,RKSV_DE.IDSFinVKServer).IsClientPresentTse(inValue) + Dim retVal As DSFinVKService.IsClientPresentTseResponse = CType(Me,DSFinVKService.IDSFinVKServer).IsClientPresentTse(inValue) result = retVal.result Return retVal.IsClientPresentTseResult End Function - Public Function IsClientPresentTseAsync(ByVal request As RKSV_DE.IsClientPresentTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE.IsClientPresentTseResponse) Implements RKSV_DE.IDSFinVKServer.IsClientPresentTseAsync + Public Function IsClientPresentTseAsync(ByVal request As DSFinVKService.IsClientPresentTseRequest) As System.Threading.Tasks.Task(Of DSFinVKService.IsClientPresentTseResponse) Implements DSFinVKService.IDSFinVKServer.IsClientPresentTseAsync Return MyBase.Channel.IsClientPresentTseAsync(request) End Function _ - Function RKSV_DE_IDSFinVKServer_GetTaxIds(ByVal request As RKSV_DE.GetTaxIdsRequest) As RKSV_DE.GetTaxIdsResponse Implements RKSV_DE.IDSFinVKServer.GetTaxIds + Function DSFinVKService_IDSFinVKServer_GetTaxIds(ByVal request As DSFinVKService.GetTaxIdsRequest) As DSFinVKService.GetTaxIdsResponse Implements DSFinVKService.IDSFinVKServer.GetTaxIds Return MyBase.Channel.GetTaxIds(request) End Function - Public Function GetTaxIds(ByVal Z_KASSE_ID As String, ByRef taxes As RKSV_DE.Taxes) As RKSV_DE.ErrorCode - Dim inValue As RKSV_DE.GetTaxIdsRequest = New RKSV_DE.GetTaxIdsRequest() + Public Function GetTaxIds(ByVal Z_KASSE_ID As String, ByRef taxes As DSFinVKService.Taxes) As DSFinVKService.ErrorCode + Dim inValue As DSFinVKService.GetTaxIdsRequest = New DSFinVKService.GetTaxIdsRequest() inValue.Z_KASSE_ID = Z_KASSE_ID inValue.taxes = taxes - Dim retVal As RKSV_DE.GetTaxIdsResponse = CType(Me,RKSV_DE.IDSFinVKServer).GetTaxIds(inValue) + Dim retVal As DSFinVKService.GetTaxIdsResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetTaxIds(inValue) taxes = retVal.taxes Return retVal.GetTaxIdsResult End Function - Public Function GetTaxIdsAsync(ByVal request As RKSV_DE.GetTaxIdsRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetTaxIdsResponse) Implements RKSV_DE.IDSFinVKServer.GetTaxIdsAsync + Public Function GetTaxIdsAsync(ByVal request As DSFinVKService.GetTaxIdsRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetTaxIdsResponse) Implements DSFinVKService.IDSFinVKServer.GetTaxIdsAsync Return MyBase.Channel.GetTaxIdsAsync(request) End Function - Public Function CreateCashpointClosing(ByVal Z_KASSE_ID As String) As RKSV_DE.ErrorCode Implements RKSV_DE.IDSFinVKServer.CreateCashpointClosing + Public Function CreateCashpointClosing(ByVal Z_KASSE_ID As String) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.CreateCashpointClosing Return MyBase.Channel.CreateCashpointClosing(Z_KASSE_ID) End Function - Public Function CreateCashpointClosingAsync(ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) Implements RKSV_DE.IDSFinVKServer.CreateCashpointClosingAsync + Public Function CreateCashpointClosingAsync(ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.CreateCashpointClosingAsync Return MyBase.Channel.CreateCashpointClosingAsync(Z_KASSE_ID) End Function _ - Function RKSV_DE_IDSFinVKServer_GetLastReceiptValues(ByVal request As RKSV_DE.GetLastReceiptValuesRequest) As RKSV_DE.GetLastReceiptValuesResponse Implements RKSV_DE.IDSFinVKServer.GetLastReceiptValues + Function DSFinVKService_IDSFinVKServer_GetLastReceiptValues(ByVal request As DSFinVKService.GetLastReceiptValuesRequest) As DSFinVKService.GetLastReceiptValuesResponse Implements DSFinVKService.IDSFinVKServer.GetLastReceiptValues Return MyBase.Channel.GetLastReceiptValues(request) End Function - Public Function GetLastReceiptValues(ByRef transactionNumber As String, ByRef serialNumber As String, ByRef signature As String, ByRef transactionStart As Date, ByRef transactionFinish As Date, ByRef sigCounter As String) As RKSV_DE.ErrorCode - Dim inValue As RKSV_DE.GetLastReceiptValuesRequest = New RKSV_DE.GetLastReceiptValuesRequest() + Public Function GetLastReceiptValues(ByVal Z_KASSE_ID As String, ByRef transactionNumber As String, ByRef serialNumber As String, ByRef signature As String, ByRef transactionStart As Date, ByRef transactionFinish As Date, ByRef sigCounter As String) As DSFinVKService.ErrorCode + Dim inValue As DSFinVKService.GetLastReceiptValuesRequest = New DSFinVKService.GetLastReceiptValuesRequest() + inValue.Z_KASSE_ID = Z_KASSE_ID inValue.transactionNumber = transactionNumber inValue.serialNumber = serialNumber inValue.signature = signature inValue.transactionStart = transactionStart inValue.transactionFinish = transactionFinish inValue.sigCounter = sigCounter - Dim retVal As RKSV_DE.GetLastReceiptValuesResponse = CType(Me,RKSV_DE.IDSFinVKServer).GetLastReceiptValues(inValue) + Dim retVal As DSFinVKService.GetLastReceiptValuesResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetLastReceiptValues(inValue) transactionNumber = retVal.transactionNumber serialNumber = retVal.serialNumber signature = retVal.signature @@ -2851,68 +2890,70 @@ Namespace RKSV_DE Return retVal.GetLastReceiptValuesResult End Function - Public Function GetLastReceiptValuesAsync(ByVal request As RKSV_DE.GetLastReceiptValuesRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetLastReceiptValuesResponse) Implements RKSV_DE.IDSFinVKServer.GetLastReceiptValuesAsync + Public Function GetLastReceiptValuesAsync(ByVal request As DSFinVKService.GetLastReceiptValuesRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetLastReceiptValuesResponse) Implements DSFinVKService.IDSFinVKServer.GetLastReceiptValuesAsync Return MyBase.Channel.GetLastReceiptValuesAsync(request) End Function _ - Function RKSV_DE_IDSFinVKServer_GetLastReceiptQrCode(ByVal request As RKSV_DE.GetLastReceiptQrCodeRequest) As RKSV_DE.GetLastReceiptQrCodeResponse Implements RKSV_DE.IDSFinVKServer.GetLastReceiptQrCode + Function DSFinVKService_IDSFinVKServer_GetLastReceiptQrCode(ByVal request As DSFinVKService.GetLastReceiptQrCodeRequest) As DSFinVKService.GetLastReceiptQrCodeResponse Implements DSFinVKService.IDSFinVKServer.GetLastReceiptQrCode Return MyBase.Channel.GetLastReceiptQrCode(request) End Function - Public Function GetLastReceiptQrCode(ByRef qrCode As String, ByVal mimeType As String) As RKSV_DE.ErrorCode - Dim inValue As RKSV_DE.GetLastReceiptQrCodeRequest = New RKSV_DE.GetLastReceiptQrCodeRequest() + Public Function GetLastReceiptQrCode(ByVal Z_KASSE_ID As String, ByRef qrCode As String, ByVal mimeType As String) As DSFinVKService.ErrorCode + Dim inValue As DSFinVKService.GetLastReceiptQrCodeRequest = New DSFinVKService.GetLastReceiptQrCodeRequest() + inValue.Z_KASSE_ID = Z_KASSE_ID inValue.qrCode = qrCode inValue.mimeType = mimeType - Dim retVal As RKSV_DE.GetLastReceiptQrCodeResponse = CType(Me,RKSV_DE.IDSFinVKServer).GetLastReceiptQrCode(inValue) + Dim retVal As DSFinVKService.GetLastReceiptQrCodeResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetLastReceiptQrCode(inValue) qrCode = retVal.qrCode Return retVal.GetLastReceiptQrCodeResult End Function - Public Function GetLastReceiptQrCodeAsync(ByVal request As RKSV_DE.GetLastReceiptQrCodeRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetLastReceiptQrCodeResponse) Implements RKSV_DE.IDSFinVKServer.GetLastReceiptQrCodeAsync + Public Function GetLastReceiptQrCodeAsync(ByVal request As DSFinVKService.GetLastReceiptQrCodeRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetLastReceiptQrCodeResponse) Implements DSFinVKService.IDSFinVKServer.GetLastReceiptQrCodeAsync Return MyBase.Channel.GetLastReceiptQrCodeAsync(request) End Function _ - Function RKSV_DE_IDSFinVKServer_GetLastReceiptQrCodeContent(ByVal request As RKSV_DE.GetLastReceiptQrCodeContentRequest) As RKSV_DE.GetLastReceiptQrCodeContentResponse Implements RKSV_DE.IDSFinVKServer.GetLastReceiptQrCodeContent + Function DSFinVKService_IDSFinVKServer_GetLastReceiptQrCodeContent(ByVal request As DSFinVKService.GetLastReceiptQrCodeContentRequest) As DSFinVKService.GetLastReceiptQrCodeContentResponse Implements DSFinVKService.IDSFinVKServer.GetLastReceiptQrCodeContent Return MyBase.Channel.GetLastReceiptQrCodeContent(request) End Function - Public Function GetLastReceiptQrCodeContent(ByRef qrCodeContent As String) As RKSV_DE.ErrorCode - Dim inValue As RKSV_DE.GetLastReceiptQrCodeContentRequest = New RKSV_DE.GetLastReceiptQrCodeContentRequest() + Public Function GetLastReceiptQrCodeContent(ByVal Z_KASSE_ID As String, ByRef qrCodeContent As String) As DSFinVKService.ErrorCode + Dim inValue As DSFinVKService.GetLastReceiptQrCodeContentRequest = New DSFinVKService.GetLastReceiptQrCodeContentRequest() + inValue.Z_KASSE_ID = Z_KASSE_ID inValue.qrCodeContent = qrCodeContent - Dim retVal As RKSV_DE.GetLastReceiptQrCodeContentResponse = CType(Me,RKSV_DE.IDSFinVKServer).GetLastReceiptQrCodeContent(inValue) + Dim retVal As DSFinVKService.GetLastReceiptQrCodeContentResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetLastReceiptQrCodeContent(inValue) qrCodeContent = retVal.qrCodeContent Return retVal.GetLastReceiptQrCodeContentResult End Function - Public Function GetLastReceiptQrCodeContentAsync(ByVal request As RKSV_DE.GetLastReceiptQrCodeContentRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetLastReceiptQrCodeContentResponse) Implements RKSV_DE.IDSFinVKServer.GetLastReceiptQrCodeContentAsync + Public Function GetLastReceiptQrCodeContentAsync(ByVal request As DSFinVKService.GetLastReceiptQrCodeContentRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetLastReceiptQrCodeContentResponse) Implements DSFinVKService.IDSFinVKServer.GetLastReceiptQrCodeContentAsync Return MyBase.Channel.GetLastReceiptQrCodeContentAsync(request) End Function - Public Function RegisterNewClientTse(ByVal driveLetter As String, ByVal newClientId As String) As RKSV_DE.ErrorCode Implements RKSV_DE.IDSFinVKServer.RegisterNewClientTse - Return MyBase.Channel.RegisterNewClientTse(driveLetter, newClientId) + Public Function RegisterNewClientTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.RegisterNewClientTse + Return MyBase.Channel.RegisterNewClientTse(Z_KASSE_ID, driveLetter, newClientId) End Function - Public Function RegisterNewClientTseAsync(ByVal driveLetter As String, ByVal newClientId As String) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode) Implements RKSV_DE.IDSFinVKServer.RegisterNewClientTseAsync - Return MyBase.Channel.RegisterNewClientTseAsync(driveLetter, newClientId) + Public Function RegisterNewClientTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.RegisterNewClientTseAsync + Return MyBase.Channel.RegisterNewClientTseAsync(Z_KASSE_ID, driveLetter, newClientId) End Function _ - Function RKSV_DE_IDSFinVKServer_GetNextBON_ID(ByVal request As RKSV_DE.GetNextBON_IDRequest) As RKSV_DE.GetNextBON_IDResponse Implements RKSV_DE.IDSFinVKServer.GetNextBON_ID + Function DSFinVKService_IDSFinVKServer_GetNextBON_ID(ByVal request As DSFinVKService.GetNextBON_IDRequest) As DSFinVKService.GetNextBON_IDResponse Implements DSFinVKService.IDSFinVKServer.GetNextBON_ID Return MyBase.Channel.GetNextBON_ID(request) End Function - Public Function GetNextBON_ID(ByVal Z_KASSE_ID As String, ByRef BON_ID As Integer) As RKSV_DE.ErrorCode - Dim inValue As RKSV_DE.GetNextBON_IDRequest = New RKSV_DE.GetNextBON_IDRequest() + Public Function GetNextBON_ID(ByVal Z_KASSE_ID As String, ByRef BON_ID As Integer) As DSFinVKService.ErrorCode + Dim inValue As DSFinVKService.GetNextBON_IDRequest = New DSFinVKService.GetNextBON_IDRequest() inValue.Z_KASSE_ID = Z_KASSE_ID inValue.BON_ID = BON_ID - Dim retVal As RKSV_DE.GetNextBON_IDResponse = CType(Me,RKSV_DE.IDSFinVKServer).GetNextBON_ID(inValue) + Dim retVal As DSFinVKService.GetNextBON_IDResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetNextBON_ID(inValue) BON_ID = retVal.BON_ID Return retVal.GetNextBON_IDResult End Function - Public Function GetNextBON_IDAsync(ByVal request As RKSV_DE.GetNextBON_IDRequest) As System.Threading.Tasks.Task(Of RKSV_DE.GetNextBON_IDResponse) Implements RKSV_DE.IDSFinVKServer.GetNextBON_IDAsync + Public Function GetNextBON_IDAsync(ByVal request As DSFinVKService.GetNextBON_IDRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetNextBON_IDResponse) Implements DSFinVKService.IDSFinVKServer.GetNextBON_IDAsync Return MyBase.Channel.GetNextBON_IDAsync(request) End Function End Class diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.BeginReceiptResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.BeginReceiptResponse.datasource similarity index 67% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.BeginReceiptResponse.datasource rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.BeginReceiptResponse.datasource index c7c48bbc..c5f91628 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.BeginReceiptResponse.datasource +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.BeginReceiptResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - VERAG_PROG_ALLGEMEIN.RKSV_DE.BeginReceiptResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.DSFinVKService.BeginReceiptResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.ErrorCode.datasource b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.datasource similarity index 68% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.ErrorCode.datasource rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.datasource index 825c0b00..05cf7217 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.ErrorCode.datasource +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - VERAG_PROG_ALLGEMEIN.RKSV_DE.ErrorCode, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableClientsTseResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetAvailableClientsTseResponse.datasource similarity index 67% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableClientsTseResponse.datasource rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetAvailableClientsTseResponse.datasource index 04577e1b..0b31fcd5 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableClientsTseResponse.datasource +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetAvailableClientsTseResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableClientsTseResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.DSFinVKService.GetAvailableClientsTseResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableTseListResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetAvailableTseListResponse.datasource similarity index 67% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableTseListResponse.datasource rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetAvailableTseListResponse.datasource index 5287110a..fdeb3239 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableTseListResponse.datasource +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetAvailableTseListResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableTseListResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.DSFinVKService.GetAvailableTseListResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetCashboxesResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetCashboxesResponse.datasource similarity index 67% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetCashboxesResponse.datasource rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetCashboxesResponse.datasource index 2532278f..e57a55d5 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetCashboxesResponse.datasource +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetCashboxesResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - VERAG_PROG_ALLGEMEIN.RKSV_DE.GetCashboxesResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.DSFinVKService.GetCashboxesResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesForTseResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetDsFinVKValuesForTseResponse.datasource similarity index 67% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesForTseResponse.datasource rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetDsFinVKValuesForTseResponse.datasource index f6fca228..68383ed7 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesForTseResponse.datasource +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetDsFinVKValuesForTseResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesForTseResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.DSFinVKService.GetDsFinVKValuesForTseResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetDsFinVKValuesResponse.datasource similarity index 67% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesResponse.datasource rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetDsFinVKValuesResponse.datasource index 8d257b2f..d4c096e5 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesResponse.datasource +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetDsFinVKValuesResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.DSFinVKService.GetDsFinVKValuesResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeContentResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptQrCodeContentResponse.datasource similarity index 67% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeContentResponse.datasource rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptQrCodeContentResponse.datasource index 7f7dad92..a5dd055d 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeContentResponse.datasource +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptQrCodeContentResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeContentResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptQrCodeContentResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptQrCodeResponse.datasource similarity index 67% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeResponse.datasource rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptQrCodeResponse.datasource index 0a92b5c9..3c52b081 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeResponse.datasource +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptQrCodeResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptQrCodeResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptValuesResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptValuesResponse.datasource similarity index 67% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptValuesResponse.datasource rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptValuesResponse.datasource index c8c57681..be8585a6 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptValuesResponse.datasource +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptValuesResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptValuesResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptValuesResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetNextBON_IDResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetNextBON_IDResponse.datasource similarity index 67% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetNextBON_IDResponse.datasource rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetNextBON_IDResponse.datasource index 033a25af..da5187fa 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetNextBON_IDResponse.datasource +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetNextBON_IDResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - VERAG_PROG_ALLGEMEIN.RKSV_DE.GetNextBON_IDResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.DSFinVKService.GetNextBON_IDResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetTaxIdsResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetTaxIdsResponse.datasource similarity index 68% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetTaxIdsResponse.datasource rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetTaxIdsResponse.datasource index 858bff07..24e7a358 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetTaxIdsResponse.datasource +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetTaxIdsResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - VERAG_PROG_ALLGEMEIN.RKSV_DE.GetTaxIdsResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.DSFinVKService.GetTaxIdsResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.IsClientPresentTseResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.IsClientPresentTseResponse.datasource similarity index 67% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.IsClientPresentTseResponse.datasource rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.IsClientPresentTseResponse.datasource index 508ce75f..a6b21477 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.IsClientPresentTseResponse.datasource +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.IsClientPresentTseResponse.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - VERAG_PROG_ALLGEMEIN.RKSV_DE.IsClientPresentTseResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.DSFinVKService.IsClientPresentTseResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.Kassendaten.datasource b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.Kassendaten.datasource similarity index 68% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.Kassendaten.datasource rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.Kassendaten.datasource index 99498f49..6ea8378d 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.Kassendaten.datasource +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.Kassendaten.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - VERAG_PROG_ALLGEMEIN.RKSV_DE.Kassendaten, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.DSFinVKService.Kassendaten, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.TSEData.datasource b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.TSEData.datasource similarity index 68% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.TSEData.datasource rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.TSEData.datasource index 0039b6b6..3e13f939 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.TSEData.datasource +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.TSEData.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - VERAG_PROG_ALLGEMEIN.RKSV_DE.TSEData, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.DSFinVKService.TSEData, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.Taxes.datasource b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.Taxes.datasource similarity index 68% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.Taxes.datasource rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.Taxes.datasource index e70cdc08..587c7dc9 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.Taxes.datasource +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.Taxes.datasource @@ -6,5 +6,5 @@ cause the file to be unrecognizable by the program. --> - VERAG_PROG_ALLGEMEIN.RKSV_DE.Taxes, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + VERAG_PROG_ALLGEMEIN.DSFinVKService.Taxes, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/configuration.svcinfo b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/configuration.svcinfo similarity index 53% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/configuration.svcinfo rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/configuration.svcinfo index 3ee9b9ba..c0f0ae57 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/configuration.svcinfo +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/configuration.svcinfo @@ -2,9 +2,9 @@ - + - + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/configuration91.svcinfo b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/configuration91.svcinfo similarity index 96% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/configuration91.svcinfo rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/configuration91.svcinfo index cd0919a8..0d43b91b 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/configuration91.svcinfo +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/configuration91.svcinfo @@ -1,10 +1,10 @@ - + - + - BasicHttpBinding_IDSFinVKServer + BasicHttpBinding_IDSFinVKServer1 @@ -112,7 +112,7 @@ - + http://localhost:8733/DSFinVKService @@ -124,10 +124,10 @@ basicHttpBinding - BasicHttpBinding_IDSFinVKServer + BasicHttpBinding_IDSFinVKServer1 - RKSV_DE.IDSFinVKServer + DSFinVKService.IDSFinVKServer System.ServiceModel.Configuration.AddressHeaderCollectionElement @@ -187,7 +187,7 @@ False - BasicHttpBinding_IDSFinVKServer + BasicHttpBinding_IDSFinVKServer1 diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/service.wsdl b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/service.wsdl similarity index 98% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/service.wsdl rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/service.wsdl index 29c494e9..8866756d 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/service.wsdl +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/service.wsdl @@ -2,11 +2,11 @@ - - - - - + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/service.xsd b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/service.xsd similarity index 95% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/service.xsd rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/service.xsd index da180b00..87ef2ee9 100644 --- a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/service.xsd +++ b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/service.xsd @@ -1,8 +1,8 @@  - - - + + + @@ -38,7 +38,9 @@ - + + + @@ -271,6 +273,7 @@ + @@ -296,6 +299,7 @@ + @@ -312,6 +316,7 @@ + @@ -344,6 +349,7 @@ + @@ -362,6 +368,7 @@ + @@ -409,6 +416,7 @@ + @@ -434,6 +442,7 @@ + @@ -450,6 +459,7 @@ + @@ -465,6 +475,7 @@ + diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/service1.xsd b/VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/service1.xsd similarity index 100% rename from VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/service1.xsd rename to VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/service1.xsd diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 66d45c08..14ab38d1 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -521,7 +521,7 @@ - + True True Reference.svcmap @@ -536,6 +536,11 @@ True Reference.map + + True + True + Reference.map + True True @@ -681,68 +686,68 @@ Designer - + Designer - + Designer - + Designer - - + + Designer - + Designer - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap - + Reference.svcmap @@ -761,6 +766,23 @@ Designer + + + Reference.map + + + Reference.map + + + MSDiscoCodeGenerator + Reference.vb + + + Reference.map + + + Reference.map + Designer @@ -904,6 +926,17 @@ MySettings VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService + + Dynamic + Web References\RKSV_DE_DSFinVKService\ + http://ymgk028055.verag.ost.dmn:8733/DSFinVKService%3fsingleWsdl + + + + + MySettings + VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer + Dynamic Web References\at.gv.bmf.finanzonline\ @@ -1013,16 +1046,16 @@ - + - + - + - + WCF Proxy Generator Reference.vb diff --git a/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/DSFinVKServer.wsdl b/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/DSFinVKServer.wsdl new file mode 100644 index 00000000..7384cc81 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/DSFinVKServer.wsdl @@ -0,0 +1,1350 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 100 + + + + + + + 101 + + + + + + + 102 + + + + + + + 103 + + + + + + + 200 + + + + + + + 201 + + + + + + + 202 + + + + + + + 203 + + + + + + + 204 + + + + + + + 10001 + + + + + + + 10100 + + + + + + + 10101 + + + + + + + 10102 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/ErrorCode.datasource b/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/ErrorCode.datasource new file mode 100644 index 00000000..1fba43db --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/ErrorCode.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.ErrorCode, Web References.RKSV_DE_DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/Kassendaten.datasource b/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/Kassendaten.datasource new file mode 100644 index 00000000..e9858c6b --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/Kassendaten.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.Kassendaten, Web References.RKSV_DE_DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/Reference.map b/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/Reference.map new file mode 100644 index 00000000..6e5baa76 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/Reference.map @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/Reference.vb b/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/Reference.vb new file mode 100644 index 00000000..2b2223b5 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/Reference.vb @@ -0,0 +1,3780 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + +Imports System +Imports System.ComponentModel +Imports System.Diagnostics +Imports System.Web.Services +Imports System.Web.Services.Protocols +Imports System.Xml.Serialization + +' +'Der Quellcode wurde automatisch mit Microsoft.VSDesigner generiert. Version 4.0.30319.42000. +' +Namespace RKSV_DE_DSFinVKService + + ''' + _ + Partial Public Class DSFinVKServer + Inherits System.Web.Services.Protocols.SoapHttpClientProtocol + + Private GetMachineCodeOperationCompleted As System.Threading.SendOrPostCallback + + Private InitializeLibraryOperationCompleted As System.Threading.SendOrPostCallback + + Private CleanupLibraryOperationCompleted As System.Threading.SendOrPostCallback + + Private CreateDatabaseOperationCompleted As System.Threading.SendOrPostCallback + + Private CreateCashboxOperationCompleted As System.Threading.SendOrPostCallback + + Private GetCashboxesOperationCompleted As System.Threading.SendOrPostCallback + + Private BeginReceiptOperationCompleted As System.Threading.SendOrPostCallback + + Private UpdateReceiptOperationCompleted As System.Threading.SendOrPostCallback + + Private FinishReceiptOperationCompleted As System.Threading.SendOrPostCallback + + Private AddPositionToReceiptOperationCompleted As System.Threading.SendOrPostCallback + + Private ExportFullOperationCompleted As System.Threading.SendOrPostCallback + + Private ExportDateToDateOperationCompleted As System.Threading.SendOrPostCallback + + Private ExportNumberToNumberOperationCompleted As System.Threading.SendOrPostCallback + + Private ExportCSVFilesOperationCompleted As System.Threading.SendOrPostCallback + + Private GetAvailableTseListOperationCompleted As System.Threading.SendOrPostCallback + + Private GetDsFinVKValuesOperationCompleted As System.Threading.SendOrPostCallback + + Private GetDsFinVKValuesForTseOperationCompleted As System.Threading.SendOrPostCallback + + Private SetupTseForFirstUseTseOperationCompleted As System.Threading.SendOrPostCallback + + Private StringifyTseErrorCodeOperationCompleted As System.Threading.SendOrPostCallback + + Private GetAvailableClientsTseOperationCompleted As System.Threading.SendOrPostCallback + + Private IsClientPresentTseOperationCompleted As System.Threading.SendOrPostCallback + + Private GetTaxIdsOperationCompleted As System.Threading.SendOrPostCallback + + Private CreateCashpointClosingOperationCompleted As System.Threading.SendOrPostCallback + + Private GetLastReceiptValuesOperationCompleted As System.Threading.SendOrPostCallback + + Private GetLastReceiptQrCodeOperationCompleted As System.Threading.SendOrPostCallback + + Private GetLastReceiptQrCodeContentOperationCompleted As System.Threading.SendOrPostCallback + + Private RegisterNewClientTseOperationCompleted As System.Threading.SendOrPostCallback + + Private GetNextBON_IDOperationCompleted As System.Threading.SendOrPostCallback + + Private useDefaultCredentialsSetExplicitly As Boolean + + ''' + Public Sub New() + MyBase.New + Me.Url = Global.VERAG_PROG_ALLGEMEIN.My.MySettings.Default.VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer + If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then + Me.UseDefaultCredentials = true + Me.useDefaultCredentialsSetExplicitly = false + Else + Me.useDefaultCredentialsSetExplicitly = true + End If + End Sub + + Public Shadows Property Url() As String + Get + Return MyBase.Url + End Get + Set + If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true) _ + AndAlso (Me.useDefaultCredentialsSetExplicitly = false)) _ + AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then + MyBase.UseDefaultCredentials = false + End If + MyBase.Url = value + End Set + End Property + + Public Shadows Property UseDefaultCredentials() As Boolean + Get + Return MyBase.UseDefaultCredentials + End Get + Set + MyBase.UseDefaultCredentials = value + Me.useDefaultCredentialsSetExplicitly = true + End Set + End Property + + ''' + Public Event GetMachineCodeCompleted As GetMachineCodeCompletedEventHandler + + ''' + Public Event InitializeLibraryCompleted As InitializeLibraryCompletedEventHandler + + ''' + Public Event CleanupLibraryCompleted As CleanupLibraryCompletedEventHandler + + ''' + Public Event CreateDatabaseCompleted As CreateDatabaseCompletedEventHandler + + ''' + Public Event CreateCashboxCompleted As CreateCashboxCompletedEventHandler + + ''' + Public Event GetCashboxesCompleted As GetCashboxesCompletedEventHandler + + ''' + Public Event BeginReceiptCompleted As BeginReceiptCompletedEventHandler + + ''' + Public Event UpdateReceiptCompleted As UpdateReceiptCompletedEventHandler + + ''' + Public Event FinishReceiptCompleted As FinishReceiptCompletedEventHandler + + ''' + Public Event AddPositionToReceiptCompleted As AddPositionToReceiptCompletedEventHandler + + ''' + Public Event ExportFullCompleted As ExportFullCompletedEventHandler + + ''' + Public Event ExportDateToDateCompleted As ExportDateToDateCompletedEventHandler + + ''' + Public Event ExportNumberToNumberCompleted As ExportNumberToNumberCompletedEventHandler + + ''' + Public Event ExportCSVFilesCompleted As ExportCSVFilesCompletedEventHandler + + ''' + Public Event GetAvailableTseListCompleted As GetAvailableTseListCompletedEventHandler + + ''' + Public Event GetDsFinVKValuesCompleted As GetDsFinVKValuesCompletedEventHandler + + ''' + Public Event GetDsFinVKValuesForTseCompleted As GetDsFinVKValuesForTseCompletedEventHandler + + ''' + Public Event SetupTseForFirstUseTseCompleted As SetupTseForFirstUseTseCompletedEventHandler + + ''' + Public Event StringifyTseErrorCodeCompleted As StringifyTseErrorCodeCompletedEventHandler + + ''' + Public Event GetAvailableClientsTseCompleted As GetAvailableClientsTseCompletedEventHandler + + ''' + Public Event IsClientPresentTseCompleted As IsClientPresentTseCompletedEventHandler + + ''' + Public Event GetTaxIdsCompleted As GetTaxIdsCompletedEventHandler + + ''' + Public Event CreateCashpointClosingCompleted As CreateCashpointClosingCompletedEventHandler + + ''' + Public Event GetLastReceiptValuesCompleted As GetLastReceiptValuesCompletedEventHandler + + ''' + Public Event GetLastReceiptQrCodeCompleted As GetLastReceiptQrCodeCompletedEventHandler + + ''' + Public Event GetLastReceiptQrCodeContentCompleted As GetLastReceiptQrCodeContentCompletedEventHandler + + ''' + Public Event RegisterNewClientTseCompleted As RegisterNewClientTseCompletedEventHandler + + ''' + Public Event GetNextBON_IDCompleted As GetNextBON_IDCompletedEventHandler + + ''' + _ + Public Function GetMachineCode(ByVal isDemoLicense As Boolean, ByVal isDemoLicenseSpecified As Boolean, ByVal clientId As String) As String + Dim results() As Object = Me.Invoke("GetMachineCode", New Object() {isDemoLicense, isDemoLicenseSpecified, clientId}) + Return CType(results(0),String) + End Function + + ''' + Public Overloads Sub GetMachineCodeAsync(ByVal isDemoLicense As Boolean, ByVal isDemoLicenseSpecified As Boolean, ByVal clientId As String) + Me.GetMachineCodeAsync(isDemoLicense, isDemoLicenseSpecified, clientId, Nothing) + End Sub + + ''' + Public Overloads Sub GetMachineCodeAsync(ByVal isDemoLicense As Boolean, ByVal isDemoLicenseSpecified As Boolean, ByVal clientId As String, ByVal userState As Object) + If (Me.GetMachineCodeOperationCompleted Is Nothing) Then + Me.GetMachineCodeOperationCompleted = AddressOf Me.OnGetMachineCodeOperationCompleted + End If + Me.InvokeAsync("GetMachineCode", New Object() {isDemoLicense, isDemoLicenseSpecified, clientId}, Me.GetMachineCodeOperationCompleted, userState) + End Sub + + Private Sub OnGetMachineCodeOperationCompleted(ByVal arg As Object) + If (Not (Me.GetMachineCodeCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetMachineCodeCompleted(Me, New GetMachineCodeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub InitializeLibrary( ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String, ByRef InitializeLibraryResult As ErrorCode, ByRef InitializeLibraryResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("InitializeLibrary", New Object() {server, database, username, password, Z_KASSE_ID}) + InitializeLibraryResult = CType(results(0),ErrorCode) + InitializeLibraryResultSpecified = CType(results(1),Boolean) + End Sub + + ''' + Public Overloads Sub InitializeLibraryAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) + Me.InitializeLibraryAsync(server, database, username, password, Z_KASSE_ID, Nothing) + End Sub + + ''' + Public Overloads Sub InitializeLibraryAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String, ByVal userState As Object) + If (Me.InitializeLibraryOperationCompleted Is Nothing) Then + Me.InitializeLibraryOperationCompleted = AddressOf Me.OnInitializeLibraryOperationCompleted + End If + Me.InvokeAsync("InitializeLibrary", New Object() {server, database, username, password, Z_KASSE_ID}, Me.InitializeLibraryOperationCompleted, userState) + End Sub + + Private Sub OnInitializeLibraryOperationCompleted(ByVal arg As Object) + If (Not (Me.InitializeLibraryCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent InitializeLibraryCompleted(Me, New InitializeLibraryCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub CleanupLibrary( ByVal Z_KASSE_ID As String, ByRef CleanupLibraryResult As ErrorCode, ByRef CleanupLibraryResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("CleanupLibrary", New Object() {Z_KASSE_ID}) + CleanupLibraryResult = CType(results(0),ErrorCode) + CleanupLibraryResultSpecified = CType(results(1),Boolean) + End Sub + + ''' + Public Overloads Sub CleanupLibraryAsync(ByVal Z_KASSE_ID As String) + Me.CleanupLibraryAsync(Z_KASSE_ID, Nothing) + End Sub + + ''' + Public Overloads Sub CleanupLibraryAsync(ByVal Z_KASSE_ID As String, ByVal userState As Object) + If (Me.CleanupLibraryOperationCompleted Is Nothing) Then + Me.CleanupLibraryOperationCompleted = AddressOf Me.OnCleanupLibraryOperationCompleted + End If + Me.InvokeAsync("CleanupLibrary", New Object() {Z_KASSE_ID}, Me.CleanupLibraryOperationCompleted, userState) + End Sub + + Private Sub OnCleanupLibraryOperationCompleted(ByVal arg As Object) + If (Not (Me.CleanupLibraryCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent CleanupLibraryCompleted(Me, New CleanupLibraryCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub CreateDatabase( ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByRef CreateDatabaseResult As ErrorCode, ByRef CreateDatabaseResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("CreateDatabase", New Object() {server, database, username, password}) + CreateDatabaseResult = CType(results(0),ErrorCode) + CreateDatabaseResultSpecified = CType(results(1),Boolean) + End Sub + + ''' + Public Overloads Sub CreateDatabaseAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) + Me.CreateDatabaseAsync(server, database, username, password, Nothing) + End Sub + + ''' + Public Overloads Sub CreateDatabaseAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal userState As Object) + If (Me.CreateDatabaseOperationCompleted Is Nothing) Then + Me.CreateDatabaseOperationCompleted = AddressOf Me.OnCreateDatabaseOperationCompleted + End If + Me.InvokeAsync("CreateDatabase", New Object() {server, database, username, password}, Me.CreateDatabaseOperationCompleted, userState) + End Sub + + Private Sub OnCreateDatabaseOperationCompleted(ByVal arg As Object) + If (Not (Me.CreateDatabaseCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent CreateDatabaseCompleted(Me, New CreateDatabaseCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub CreateCashbox( ByVal cashbox As Kassendaten, ByRef CreateCashboxResult As ErrorCode, ByRef CreateCashboxResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("CreateCashbox", New Object() {cashbox}) + CreateCashboxResult = CType(results(0),ErrorCode) + CreateCashboxResultSpecified = CType(results(1),Boolean) + End Sub + + ''' + Public Overloads Sub CreateCashboxAsync(ByVal cashbox As Kassendaten) + Me.CreateCashboxAsync(cashbox, Nothing) + End Sub + + ''' + Public Overloads Sub CreateCashboxAsync(ByVal cashbox As Kassendaten, ByVal userState As Object) + If (Me.CreateCashboxOperationCompleted Is Nothing) Then + Me.CreateCashboxOperationCompleted = AddressOf Me.OnCreateCashboxOperationCompleted + End If + Me.InvokeAsync("CreateCashbox", New Object() {cashbox}, Me.CreateCashboxOperationCompleted, userState) + End Sub + + Private Sub OnCreateCashboxOperationCompleted(ByVal arg As Object) + If (Not (Me.CreateCashboxCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent CreateCashboxCompleted(Me, New CreateCashboxCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub GetCashboxes( ByRef cashBoxes() As Kassendaten, ByRef GetCashboxesResult As ErrorCode, ByRef GetCashboxesResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("GetCashboxes", New Object() {cashBoxes}) + cashBoxes = CType(results(0),Kassendaten()) + GetCashboxesResult = CType(results(1),ErrorCode) + GetCashboxesResultSpecified = CType(results(2),Boolean) + End Sub + + ''' + Public Overloads Sub GetCashboxesAsync(ByVal cashBoxes() As Kassendaten) + Me.GetCashboxesAsync(cashBoxes, Nothing) + End Sub + + ''' + Public Overloads Sub GetCashboxesAsync(ByVal cashBoxes() As Kassendaten, ByVal userState As Object) + If (Me.GetCashboxesOperationCompleted Is Nothing) Then + Me.GetCashboxesOperationCompleted = AddressOf Me.OnGetCashboxesOperationCompleted + End If + Me.InvokeAsync("GetCashboxes", New Object() {cashBoxes}, Me.GetCashboxesOperationCompleted, userState) + End Sub + + Private Sub OnGetCashboxesOperationCompleted(ByVal arg As Object) + If (Not (Me.GetCashboxesCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetCashboxesCompleted(Me, New GetCashboxesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub BeginReceipt( ByVal cashboxName As String, ByVal bonkopfBegin As BonKopfBegin, ByRef transactionNumber As Integer, ByRef transactionNumberSpecified As Boolean, ByRef BeginReceiptResult As ErrorCode, ByRef BeginReceiptResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("BeginReceipt", New Object() {cashboxName, bonkopfBegin, transactionNumber, transactionNumberSpecified}) + transactionNumber = CType(results(0),Integer) + transactionNumberSpecified = CType(results(1),Boolean) + BeginReceiptResult = CType(results(2),ErrorCode) + BeginReceiptResultSpecified = CType(results(3),Boolean) + End Sub + + ''' + Public Overloads Sub BeginReceiptAsync(ByVal cashboxName As String, ByVal bonkopfBegin As BonKopfBegin, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean) + Me.BeginReceiptAsync(cashboxName, bonkopfBegin, transactionNumber, transactionNumberSpecified, Nothing) + End Sub + + ''' + Public Overloads Sub BeginReceiptAsync(ByVal cashboxName As String, ByVal bonkopfBegin As BonKopfBegin, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean, ByVal userState As Object) + If (Me.BeginReceiptOperationCompleted Is Nothing) Then + Me.BeginReceiptOperationCompleted = AddressOf Me.OnBeginReceiptOperationCompleted + End If + Me.InvokeAsync("BeginReceipt", New Object() {cashboxName, bonkopfBegin, transactionNumber, transactionNumberSpecified}, Me.BeginReceiptOperationCompleted, userState) + End Sub + + Private Sub OnBeginReceiptOperationCompleted(ByVal arg As Object) + If (Not (Me.BeginReceiptCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent BeginReceiptCompleted(Me, New BeginReceiptCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub UpdateReceipt( ByVal cashboxName As String, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean, ByRef UpdateReceiptResult As ErrorCode, ByRef UpdateReceiptResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("UpdateReceipt", New Object() {cashboxName, transactionNumber, transactionNumberSpecified}) + UpdateReceiptResult = CType(results(0),ErrorCode) + UpdateReceiptResultSpecified = CType(results(1),Boolean) + End Sub + + ''' + Public Overloads Sub UpdateReceiptAsync(ByVal cashboxName As String, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean) + Me.UpdateReceiptAsync(cashboxName, transactionNumber, transactionNumberSpecified, Nothing) + End Sub + + ''' + Public Overloads Sub UpdateReceiptAsync(ByVal cashboxName As String, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean, ByVal userState As Object) + If (Me.UpdateReceiptOperationCompleted Is Nothing) Then + Me.UpdateReceiptOperationCompleted = AddressOf Me.OnUpdateReceiptOperationCompleted + End If + Me.InvokeAsync("UpdateReceipt", New Object() {cashboxName, transactionNumber, transactionNumberSpecified}, Me.UpdateReceiptOperationCompleted, userState) + End Sub + + Private Sub OnUpdateReceiptOperationCompleted(ByVal arg As Object) + If (Not (Me.UpdateReceiptCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent UpdateReceiptCompleted(Me, New UpdateReceiptCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub FinishReceipt( ByVal cashboxName As String, ByVal bonkopfFinish As BonKopfFinish, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean, ByRef FinishReceiptResult As ErrorCode, ByRef FinishReceiptResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("FinishReceipt", New Object() {cashboxName, bonkopfFinish, transactionNumber, transactionNumberSpecified}) + FinishReceiptResult = CType(results(0),ErrorCode) + FinishReceiptResultSpecified = CType(results(1),Boolean) + End Sub + + ''' + Public Overloads Sub FinishReceiptAsync(ByVal cashboxName As String, ByVal bonkopfFinish As BonKopfFinish, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean) + Me.FinishReceiptAsync(cashboxName, bonkopfFinish, transactionNumber, transactionNumberSpecified, Nothing) + End Sub + + ''' + Public Overloads Sub FinishReceiptAsync(ByVal cashboxName As String, ByVal bonkopfFinish As BonKopfFinish, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean, ByVal userState As Object) + If (Me.FinishReceiptOperationCompleted Is Nothing) Then + Me.FinishReceiptOperationCompleted = AddressOf Me.OnFinishReceiptOperationCompleted + End If + Me.InvokeAsync("FinishReceipt", New Object() {cashboxName, bonkopfFinish, transactionNumber, transactionNumberSpecified}, Me.FinishReceiptOperationCompleted, userState) + End Sub + + Private Sub OnFinishReceiptOperationCompleted(ByVal arg As Object) + If (Not (Me.FinishReceiptCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FinishReceiptCompleted(Me, New FinishReceiptCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub AddPositionToReceipt( ByVal cashboxName As String, ByVal position As BonPosition, ByVal position_vat As BonPosition_Ust, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean, ByRef AddPositionToReceiptResult As ErrorCode, ByRef AddPositionToReceiptResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("AddPositionToReceipt", New Object() {cashboxName, position, position_vat, transactionNumber, transactionNumberSpecified}) + AddPositionToReceiptResult = CType(results(0),ErrorCode) + AddPositionToReceiptResultSpecified = CType(results(1),Boolean) + End Sub + + ''' + Public Overloads Sub AddPositionToReceiptAsync(ByVal cashboxName As String, ByVal position As BonPosition, ByVal position_vat As BonPosition_Ust, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean) + Me.AddPositionToReceiptAsync(cashboxName, position, position_vat, transactionNumber, transactionNumberSpecified, Nothing) + End Sub + + ''' + Public Overloads Sub AddPositionToReceiptAsync(ByVal cashboxName As String, ByVal position As BonPosition, ByVal position_vat As BonPosition_Ust, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean, ByVal userState As Object) + If (Me.AddPositionToReceiptOperationCompleted Is Nothing) Then + Me.AddPositionToReceiptOperationCompleted = AddressOf Me.OnAddPositionToReceiptOperationCompleted + End If + Me.InvokeAsync("AddPositionToReceipt", New Object() {cashboxName, position, position_vat, transactionNumber, transactionNumberSpecified}, Me.AddPositionToReceiptOperationCompleted, userState) + End Sub + + Private Sub OnAddPositionToReceiptOperationCompleted(ByVal arg As Object) + If (Not (Me.AddPositionToReceiptCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent AddPositionToReceiptCompleted(Me, New AddPositionToReceiptCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub ExportFull( ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_FromSpecified As Boolean, ByVal Z_NR_To As Integer, ByVal Z_NR_ToSpecified As Boolean, ByVal path As String, ByVal zipFileName As String, ByRef ExportFullResult As ErrorCode, ByRef ExportFullResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("ExportFull", New Object() {Z_KASSE_ID, Z_NR_From, Z_NR_FromSpecified, Z_NR_To, Z_NR_ToSpecified, path, zipFileName}) + ExportFullResult = CType(results(0),ErrorCode) + ExportFullResultSpecified = CType(results(1),Boolean) + End Sub + + ''' + Public Overloads Sub ExportFullAsync(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_FromSpecified As Boolean, ByVal Z_NR_To As Integer, ByVal Z_NR_ToSpecified As Boolean, ByVal path As String, ByVal zipFileName As String) + Me.ExportFullAsync(Z_KASSE_ID, Z_NR_From, Z_NR_FromSpecified, Z_NR_To, Z_NR_ToSpecified, path, zipFileName, Nothing) + End Sub + + ''' + Public Overloads Sub ExportFullAsync(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_FromSpecified As Boolean, ByVal Z_NR_To As Integer, ByVal Z_NR_ToSpecified As Boolean, ByVal path As String, ByVal zipFileName As String, ByVal userState As Object) + If (Me.ExportFullOperationCompleted Is Nothing) Then + Me.ExportFullOperationCompleted = AddressOf Me.OnExportFullOperationCompleted + End If + Me.InvokeAsync("ExportFull", New Object() {Z_KASSE_ID, Z_NR_From, Z_NR_FromSpecified, Z_NR_To, Z_NR_ToSpecified, path, zipFileName}, Me.ExportFullOperationCompleted, userState) + End Sub + + Private Sub OnExportFullOperationCompleted(ByVal arg As Object) + If (Not (Me.ExportFullCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ExportFullCompleted(Me, New ExportFullCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub ExportDateToDate( ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtFromSpecified As Boolean, ByVal dtTo As Date, ByVal dtToSpecified As Boolean, ByRef ExportDateToDateResult As ErrorCode, ByRef ExportDateToDateResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("ExportDateToDate", New Object() {cashboxName, dtFrom, dtFromSpecified, dtTo, dtToSpecified}) + ExportDateToDateResult = CType(results(0),ErrorCode) + ExportDateToDateResultSpecified = CType(results(1),Boolean) + End Sub + + ''' + Public Overloads Sub ExportDateToDateAsync(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtFromSpecified As Boolean, ByVal dtTo As Date, ByVal dtToSpecified As Boolean) + Me.ExportDateToDateAsync(cashboxName, dtFrom, dtFromSpecified, dtTo, dtToSpecified, Nothing) + End Sub + + ''' + Public Overloads Sub ExportDateToDateAsync(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtFromSpecified As Boolean, ByVal dtTo As Date, ByVal dtToSpecified As Boolean, ByVal userState As Object) + If (Me.ExportDateToDateOperationCompleted Is Nothing) Then + Me.ExportDateToDateOperationCompleted = AddressOf Me.OnExportDateToDateOperationCompleted + End If + Me.InvokeAsync("ExportDateToDate", New Object() {cashboxName, dtFrom, dtFromSpecified, dtTo, dtToSpecified}, Me.ExportDateToDateOperationCompleted, userState) + End Sub + + Private Sub OnExportDateToDateOperationCompleted(ByVal arg As Object) + If (Not (Me.ExportDateToDateCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ExportDateToDateCompleted(Me, New ExportDateToDateCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub ExportNumberToNumber( ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberFromSpecified As Boolean, ByVal numberTo As Integer, ByVal numberToSpecified As Boolean, ByRef ExportNumberToNumberResult As ErrorCode, ByRef ExportNumberToNumberResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("ExportNumberToNumber", New Object() {cashboxName, numberFrom, numberFromSpecified, numberTo, numberToSpecified}) + ExportNumberToNumberResult = CType(results(0),ErrorCode) + ExportNumberToNumberResultSpecified = CType(results(1),Boolean) + End Sub + + ''' + Public Overloads Sub ExportNumberToNumberAsync(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberFromSpecified As Boolean, ByVal numberTo As Integer, ByVal numberToSpecified As Boolean) + Me.ExportNumberToNumberAsync(cashboxName, numberFrom, numberFromSpecified, numberTo, numberToSpecified, Nothing) + End Sub + + ''' + Public Overloads Sub ExportNumberToNumberAsync(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberFromSpecified As Boolean, ByVal numberTo As Integer, ByVal numberToSpecified As Boolean, ByVal userState As Object) + If (Me.ExportNumberToNumberOperationCompleted Is Nothing) Then + Me.ExportNumberToNumberOperationCompleted = AddressOf Me.OnExportNumberToNumberOperationCompleted + End If + Me.InvokeAsync("ExportNumberToNumber", New Object() {cashboxName, numberFrom, numberFromSpecified, numberTo, numberToSpecified}, Me.ExportNumberToNumberOperationCompleted, userState) + End Sub + + Private Sub OnExportNumberToNumberOperationCompleted(ByVal arg As Object) + If (Not (Me.ExportNumberToNumberCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ExportNumberToNumberCompleted(Me, New ExportNumberToNumberCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub ExportCSVFiles( _ + ByVal Z_KASSE_ID As String, _ + ByVal Z_NR_From As Integer, _ + ByVal Z_NR_FromSpecified As Boolean, _ + ByVal Z_NR_To As Integer, _ + ByVal Z_NR_ToSpecified As Boolean, _ + ByVal path As String, _ + ByVal zipFileName As String, _ + ByVal exportCashpointclosing As Boolean, _ + ByVal exportCashpointclosingSpecified As Boolean, _ + ByVal exportLocation As Boolean, _ + ByVal exportLocationSpecified As Boolean, _ + ByVal exportCashregister As Boolean, _ + ByVal exportCashregisterSpecified As Boolean, _ + ByVal exportSlaves As Boolean, _ + ByVal exportSlavesSpecified As Boolean, _ + ByVal exportPa As Boolean, _ + ByVal exportPaSpecified As Boolean, _ + ByVal exportVat As Boolean, _ + ByVal exportVatSpecified As Boolean, _ + ByVal exportTse As Boolean, _ + ByVal exportTseSpecified As Boolean, _ + ByVal exportBusinesscases As Boolean, _ + ByVal exportBusinesscasesSpecified As Boolean, _ + ByVal exportPayment As Boolean, _ + ByVal exportPaymentSpecified As Boolean, _ + ByVal exportCashPerCurrency As Boolean, _ + ByVal exportCashPerCurrencySpecified As Boolean, _ + ByVal exportTransactions As Boolean, _ + ByVal exportTransactionsSpecified As Boolean, _ + ByVal exportAllocationGroups As Boolean, _ + ByVal exportAllocationGroupsSpecified As Boolean, _ + ByVal exportTransactionsVat As Boolean, _ + ByVal exportTransactionsVatSpecified As Boolean, _ + ByVal exportDatapayment As Boolean, _ + ByVal exportDatapaymentSpecified As Boolean, _ + ByVal exportLines As Boolean, _ + ByVal exportLinesSpecified As Boolean, _ + ByVal exportLinesVat As Boolean, _ + ByVal exportLinesVatSpecified As Boolean, _ + ByVal exportItemamounts As Boolean, _ + ByVal exportItemamountsSpecified As Boolean, _ + ByVal exportSubitems As Boolean, _ + ByVal exportSubitemsSpecified As Boolean, _ + ByVal exportReferences As Boolean, _ + ByVal exportReferencesSpecified As Boolean, _ + ByVal exportTransactionsTse As Boolean, _ + ByVal exportTransactionsTseSpecified As Boolean, _ + ByRef ExportCSVFilesResult As ErrorCode, _ + ByRef ExportCSVFilesResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("ExportCSVFiles", New Object() {Z_KASSE_ID, Z_NR_From, Z_NR_FromSpecified, Z_NR_To, Z_NR_ToSpecified, path, zipFileName, exportCashpointclosing, exportCashpointclosingSpecified, exportLocation, exportLocationSpecified, exportCashregister, exportCashregisterSpecified, exportSlaves, exportSlavesSpecified, exportPa, exportPaSpecified, exportVat, exportVatSpecified, exportTse, exportTseSpecified, exportBusinesscases, exportBusinesscasesSpecified, exportPayment, exportPaymentSpecified, exportCashPerCurrency, exportCashPerCurrencySpecified, exportTransactions, exportTransactionsSpecified, exportAllocationGroups, exportAllocationGroupsSpecified, exportTransactionsVat, exportTransactionsVatSpecified, exportDatapayment, exportDatapaymentSpecified, exportLines, exportLinesSpecified, exportLinesVat, exportLinesVatSpecified, exportItemamounts, exportItemamountsSpecified, exportSubitems, exportSubitemsSpecified, exportReferences, exportReferencesSpecified, exportTransactionsTse, exportTransactionsTseSpecified}) + ExportCSVFilesResult = CType(results(0),ErrorCode) + ExportCSVFilesResultSpecified = CType(results(1),Boolean) + End Sub + + ''' + Public Overloads Sub ExportCSVFilesAsync( _ + ByVal Z_KASSE_ID As String, _ + ByVal Z_NR_From As Integer, _ + ByVal Z_NR_FromSpecified As Boolean, _ + ByVal Z_NR_To As Integer, _ + ByVal Z_NR_ToSpecified As Boolean, _ + ByVal path As String, _ + ByVal zipFileName As String, _ + ByVal exportCashpointclosing As Boolean, _ + ByVal exportCashpointclosingSpecified As Boolean, _ + ByVal exportLocation As Boolean, _ + ByVal exportLocationSpecified As Boolean, _ + ByVal exportCashregister As Boolean, _ + ByVal exportCashregisterSpecified As Boolean, _ + ByVal exportSlaves As Boolean, _ + ByVal exportSlavesSpecified As Boolean, _ + ByVal exportPa As Boolean, _ + ByVal exportPaSpecified As Boolean, _ + ByVal exportVat As Boolean, _ + ByVal exportVatSpecified As Boolean, _ + ByVal exportTse As Boolean, _ + ByVal exportTseSpecified As Boolean, _ + ByVal exportBusinesscases As Boolean, _ + ByVal exportBusinesscasesSpecified As Boolean, _ + ByVal exportPayment As Boolean, _ + ByVal exportPaymentSpecified As Boolean, _ + ByVal exportCashPerCurrency As Boolean, _ + ByVal exportCashPerCurrencySpecified As Boolean, _ + ByVal exportTransactions As Boolean, _ + ByVal exportTransactionsSpecified As Boolean, _ + ByVal exportAllocationGroups As Boolean, _ + ByVal exportAllocationGroupsSpecified As Boolean, _ + ByVal exportTransactionsVat As Boolean, _ + ByVal exportTransactionsVatSpecified As Boolean, _ + ByVal exportDatapayment As Boolean, _ + ByVal exportDatapaymentSpecified As Boolean, _ + ByVal exportLines As Boolean, _ + ByVal exportLinesSpecified As Boolean, _ + ByVal exportLinesVat As Boolean, _ + ByVal exportLinesVatSpecified As Boolean, _ + ByVal exportItemamounts As Boolean, _ + ByVal exportItemamountsSpecified As Boolean, _ + ByVal exportSubitems As Boolean, _ + ByVal exportSubitemsSpecified As Boolean, _ + ByVal exportReferences As Boolean, _ + ByVal exportReferencesSpecified As Boolean, _ + ByVal exportTransactionsTse As Boolean, _ + ByVal exportTransactionsTseSpecified As Boolean) + Me.ExportCSVFilesAsync(Z_KASSE_ID, Z_NR_From, Z_NR_FromSpecified, Z_NR_To, Z_NR_ToSpecified, path, zipFileName, exportCashpointclosing, exportCashpointclosingSpecified, exportLocation, exportLocationSpecified, exportCashregister, exportCashregisterSpecified, exportSlaves, exportSlavesSpecified, exportPa, exportPaSpecified, exportVat, exportVatSpecified, exportTse, exportTseSpecified, exportBusinesscases, exportBusinesscasesSpecified, exportPayment, exportPaymentSpecified, exportCashPerCurrency, exportCashPerCurrencySpecified, exportTransactions, exportTransactionsSpecified, exportAllocationGroups, exportAllocationGroupsSpecified, exportTransactionsVat, exportTransactionsVatSpecified, exportDatapayment, exportDatapaymentSpecified, exportLines, exportLinesSpecified, exportLinesVat, exportLinesVatSpecified, exportItemamounts, exportItemamountsSpecified, exportSubitems, exportSubitemsSpecified, exportReferences, exportReferencesSpecified, exportTransactionsTse, exportTransactionsTseSpecified, Nothing) + End Sub + + ''' + Public Overloads Sub ExportCSVFilesAsync( _ + ByVal Z_KASSE_ID As String, _ + ByVal Z_NR_From As Integer, _ + ByVal Z_NR_FromSpecified As Boolean, _ + ByVal Z_NR_To As Integer, _ + ByVal Z_NR_ToSpecified As Boolean, _ + ByVal path As String, _ + ByVal zipFileName As String, _ + ByVal exportCashpointclosing As Boolean, _ + ByVal exportCashpointclosingSpecified As Boolean, _ + ByVal exportLocation As Boolean, _ + ByVal exportLocationSpecified As Boolean, _ + ByVal exportCashregister As Boolean, _ + ByVal exportCashregisterSpecified As Boolean, _ + ByVal exportSlaves As Boolean, _ + ByVal exportSlavesSpecified As Boolean, _ + ByVal exportPa As Boolean, _ + ByVal exportPaSpecified As Boolean, _ + ByVal exportVat As Boolean, _ + ByVal exportVatSpecified As Boolean, _ + ByVal exportTse As Boolean, _ + ByVal exportTseSpecified As Boolean, _ + ByVal exportBusinesscases As Boolean, _ + ByVal exportBusinesscasesSpecified As Boolean, _ + ByVal exportPayment As Boolean, _ + ByVal exportPaymentSpecified As Boolean, _ + ByVal exportCashPerCurrency As Boolean, _ + ByVal exportCashPerCurrencySpecified As Boolean, _ + ByVal exportTransactions As Boolean, _ + ByVal exportTransactionsSpecified As Boolean, _ + ByVal exportAllocationGroups As Boolean, _ + ByVal exportAllocationGroupsSpecified As Boolean, _ + ByVal exportTransactionsVat As Boolean, _ + ByVal exportTransactionsVatSpecified As Boolean, _ + ByVal exportDatapayment As Boolean, _ + ByVal exportDatapaymentSpecified As Boolean, _ + ByVal exportLines As Boolean, _ + ByVal exportLinesSpecified As Boolean, _ + ByVal exportLinesVat As Boolean, _ + ByVal exportLinesVatSpecified As Boolean, _ + ByVal exportItemamounts As Boolean, _ + ByVal exportItemamountsSpecified As Boolean, _ + ByVal exportSubitems As Boolean, _ + ByVal exportSubitemsSpecified As Boolean, _ + ByVal exportReferences As Boolean, _ + ByVal exportReferencesSpecified As Boolean, _ + ByVal exportTransactionsTse As Boolean, _ + ByVal exportTransactionsTseSpecified As Boolean, _ + ByVal userState As Object) + If (Me.ExportCSVFilesOperationCompleted Is Nothing) Then + Me.ExportCSVFilesOperationCompleted = AddressOf Me.OnExportCSVFilesOperationCompleted + End If + Me.InvokeAsync("ExportCSVFiles", New Object() {Z_KASSE_ID, Z_NR_From, Z_NR_FromSpecified, Z_NR_To, Z_NR_ToSpecified, path, zipFileName, exportCashpointclosing, exportCashpointclosingSpecified, exportLocation, exportLocationSpecified, exportCashregister, exportCashregisterSpecified, exportSlaves, exportSlavesSpecified, exportPa, exportPaSpecified, exportVat, exportVatSpecified, exportTse, exportTseSpecified, exportBusinesscases, exportBusinesscasesSpecified, exportPayment, exportPaymentSpecified, exportCashPerCurrency, exportCashPerCurrencySpecified, exportTransactions, exportTransactionsSpecified, exportAllocationGroups, exportAllocationGroupsSpecified, exportTransactionsVat, exportTransactionsVatSpecified, exportDatapayment, exportDatapaymentSpecified, exportLines, exportLinesSpecified, exportLinesVat, exportLinesVatSpecified, exportItemamounts, exportItemamountsSpecified, exportSubitems, exportSubitemsSpecified, exportReferences, exportReferencesSpecified, exportTransactionsTse, exportTransactionsTseSpecified}, Me.ExportCSVFilesOperationCompleted, userState) + End Sub + + Private Sub OnExportCSVFilesOperationCompleted(ByVal arg As Object) + If (Not (Me.ExportCSVFilesCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent ExportCSVFilesCompleted(Me, New ExportCSVFilesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub GetAvailableTseList( ByVal startDriveLetter As String, ByVal endDriveLetter As String, ByRef tseDriveLetterList() As String, ByRef tseSerialList() As String, ByRef count As Integer, ByRef countSpecified As Boolean, ByRef GetAvailableTseListResult As Integer, ByRef GetAvailableTseListResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("GetAvailableTseList", New Object() {startDriveLetter, endDriveLetter, tseDriveLetterList, tseSerialList, count, countSpecified}) + tseDriveLetterList = CType(results(0),String()) + tseSerialList = CType(results(1),String()) + count = CType(results(2),Integer) + countSpecified = CType(results(3),Boolean) + GetAvailableTseListResult = CType(results(4),Integer) + GetAvailableTseListResultSpecified = CType(results(5),Boolean) + End Sub + + ''' + Public Overloads Sub GetAvailableTseListAsync(ByVal startDriveLetter As String, ByVal endDriveLetter As String, ByVal tseDriveLetterList() As String, ByVal tseSerialList() As String, ByVal count As Integer, ByVal countSpecified As Boolean) + Me.GetAvailableTseListAsync(startDriveLetter, endDriveLetter, tseDriveLetterList, tseSerialList, count, countSpecified, Nothing) + End Sub + + ''' + Public Overloads Sub GetAvailableTseListAsync(ByVal startDriveLetter As String, ByVal endDriveLetter As String, ByVal tseDriveLetterList() As String, ByVal tseSerialList() As String, ByVal count As Integer, ByVal countSpecified As Boolean, ByVal userState As Object) + If (Me.GetAvailableTseListOperationCompleted Is Nothing) Then + Me.GetAvailableTseListOperationCompleted = AddressOf Me.OnGetAvailableTseListOperationCompleted + End If + Me.InvokeAsync("GetAvailableTseList", New Object() {startDriveLetter, endDriveLetter, tseDriveLetterList, tseSerialList, count, countSpecified}, Me.GetAvailableTseListOperationCompleted, userState) + End Sub + + Private Sub OnGetAvailableTseListOperationCompleted(ByVal arg As Object) + If (Not (Me.GetAvailableTseListCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetAvailableTseListCompleted(Me, New GetAvailableTseListCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub GetDsFinVKValues( ByVal Z_KASSE_ID As String, ByRef tse_serial As String, ByRef tse_sig_algo As String, ByRef tse_zeitformat As String, ByRef tse_pd_encoding As String, ByRef tse_public_key As String, ByRef tse_zertifikat As String, ByRef GetDsFinVKValuesResult As Integer, ByRef GetDsFinVKValuesResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("GetDsFinVKValues", New Object() {Z_KASSE_ID, tse_serial, tse_sig_algo, tse_zeitformat, tse_pd_encoding, tse_public_key, tse_zertifikat}) + tse_serial = CType(results(0),String) + tse_sig_algo = CType(results(1),String) + tse_zeitformat = CType(results(2),String) + tse_pd_encoding = CType(results(3),String) + tse_public_key = CType(results(4),String) + tse_zertifikat = CType(results(5),String) + GetDsFinVKValuesResult = CType(results(6),Integer) + GetDsFinVKValuesResultSpecified = CType(results(7),Boolean) + End Sub + + ''' + Public Overloads Sub GetDsFinVKValuesAsync(ByVal Z_KASSE_ID As String, ByVal tse_serial As String, ByVal tse_sig_algo As String, ByVal tse_zeitformat As String, ByVal tse_pd_encoding As String, ByVal tse_public_key As String, ByVal tse_zertifikat As String) + Me.GetDsFinVKValuesAsync(Z_KASSE_ID, tse_serial, tse_sig_algo, tse_zeitformat, tse_pd_encoding, tse_public_key, tse_zertifikat, Nothing) + End Sub + + ''' + Public Overloads Sub GetDsFinVKValuesAsync(ByVal Z_KASSE_ID As String, ByVal tse_serial As String, ByVal tse_sig_algo As String, ByVal tse_zeitformat As String, ByVal tse_pd_encoding As String, ByVal tse_public_key As String, ByVal tse_zertifikat As String, ByVal userState As Object) + If (Me.GetDsFinVKValuesOperationCompleted Is Nothing) Then + Me.GetDsFinVKValuesOperationCompleted = AddressOf Me.OnGetDsFinVKValuesOperationCompleted + End If + Me.InvokeAsync("GetDsFinVKValues", New Object() {Z_KASSE_ID, tse_serial, tse_sig_algo, tse_zeitformat, tse_pd_encoding, tse_public_key, tse_zertifikat}, Me.GetDsFinVKValuesOperationCompleted, userState) + End Sub + + Private Sub OnGetDsFinVKValuesOperationCompleted(ByVal arg As Object) + If (Not (Me.GetDsFinVKValuesCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetDsFinVKValuesCompleted(Me, New GetDsFinVKValuesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub GetDsFinVKValuesForTse( ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByRef tseData As TSEData, ByRef GetDsFinVKValuesForTseResult As Integer, ByRef GetDsFinVKValuesForTseResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("GetDsFinVKValuesForTse", New Object() {Z_KASSE_ID, driveLetter, tseData}) + tseData = CType(results(0),TSEData) + GetDsFinVKValuesForTseResult = CType(results(1),Integer) + GetDsFinVKValuesForTseResultSpecified = CType(results(2),Boolean) + End Sub + + ''' + Public Overloads Sub GetDsFinVKValuesForTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal tseData As TSEData) + Me.GetDsFinVKValuesForTseAsync(Z_KASSE_ID, driveLetter, tseData, Nothing) + End Sub + + ''' + Public Overloads Sub GetDsFinVKValuesForTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal tseData As TSEData, ByVal userState As Object) + If (Me.GetDsFinVKValuesForTseOperationCompleted Is Nothing) Then + Me.GetDsFinVKValuesForTseOperationCompleted = AddressOf Me.OnGetDsFinVKValuesForTseOperationCompleted + End If + Me.InvokeAsync("GetDsFinVKValuesForTse", New Object() {Z_KASSE_ID, driveLetter, tseData}, Me.GetDsFinVKValuesForTseOperationCompleted, userState) + End Sub + + Private Sub OnGetDsFinVKValuesForTseOperationCompleted(ByVal arg As Object) + If (Not (Me.GetDsFinVKValuesForTseCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetDsFinVKValuesForTseCompleted(Me, New GetDsFinVKValuesForTseCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub SetupTseForFirstUseTse( ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String, ByRef SetupTseForFirstUseTseResult As Integer, ByRef SetupTseForFirstUseTseResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("SetupTseForFirstUseTse", New Object() {Z_KASSE_ID, driveLetter, admin_puk, admin_pin, timeadmin_pin, clientId}) + SetupTseForFirstUseTseResult = CType(results(0),Integer) + SetupTseForFirstUseTseResultSpecified = CType(results(1),Boolean) + End Sub + + ''' + Public Overloads Sub SetupTseForFirstUseTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) + Me.SetupTseForFirstUseTseAsync(Z_KASSE_ID, driveLetter, admin_puk, admin_pin, timeadmin_pin, clientId, Nothing) + End Sub + + ''' + Public Overloads Sub SetupTseForFirstUseTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String, ByVal userState As Object) + If (Me.SetupTseForFirstUseTseOperationCompleted Is Nothing) Then + Me.SetupTseForFirstUseTseOperationCompleted = AddressOf Me.OnSetupTseForFirstUseTseOperationCompleted + End If + Me.InvokeAsync("SetupTseForFirstUseTse", New Object() {Z_KASSE_ID, driveLetter, admin_puk, admin_pin, timeadmin_pin, clientId}, Me.SetupTseForFirstUseTseOperationCompleted, userState) + End Sub + + Private Sub OnSetupTseForFirstUseTseOperationCompleted(ByVal arg As Object) + If (Not (Me.SetupTseForFirstUseTseCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent SetupTseForFirstUseTseCompleted(Me, New SetupTseForFirstUseTseCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function StringifyTseErrorCode(ByVal tseErrorCode As Integer, ByVal tseErrorCodeSpecified As Boolean) As String + Dim results() As Object = Me.Invoke("StringifyTseErrorCode", New Object() {tseErrorCode, tseErrorCodeSpecified}) + Return CType(results(0),String) + End Function + + ''' + Public Overloads Sub StringifyTseErrorCodeAsync(ByVal tseErrorCode As Integer, ByVal tseErrorCodeSpecified As Boolean) + Me.StringifyTseErrorCodeAsync(tseErrorCode, tseErrorCodeSpecified, Nothing) + End Sub + + ''' + Public Overloads Sub StringifyTseErrorCodeAsync(ByVal tseErrorCode As Integer, ByVal tseErrorCodeSpecified As Boolean, ByVal userState As Object) + If (Me.StringifyTseErrorCodeOperationCompleted Is Nothing) Then + Me.StringifyTseErrorCodeOperationCompleted = AddressOf Me.OnStringifyTseErrorCodeOperationCompleted + End If + Me.InvokeAsync("StringifyTseErrorCode", New Object() {tseErrorCode, tseErrorCodeSpecified}, Me.StringifyTseErrorCodeOperationCompleted, userState) + End Sub + + Private Sub OnStringifyTseErrorCodeOperationCompleted(ByVal arg As Object) + If (Not (Me.StringifyTseErrorCodeCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent StringifyTseErrorCodeCompleted(Me, New StringifyTseErrorCodeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub GetAvailableClientsTse( ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByRef clientIds() As String, ByRef count As Integer, ByRef countSpecified As Boolean, ByRef GetAvailableClientsTseResult As Integer, ByRef GetAvailableClientsTseResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("GetAvailableClientsTse", New Object() {Z_KASSE_ID, driveLetter, clientIds, count, countSpecified}) + clientIds = CType(results(0),String()) + count = CType(results(1),Integer) + countSpecified = CType(results(2),Boolean) + GetAvailableClientsTseResult = CType(results(3),Integer) + GetAvailableClientsTseResultSpecified = CType(results(4),Boolean) + End Sub + + ''' + Public Overloads Sub GetAvailableClientsTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientIds() As String, ByVal count As Integer, ByVal countSpecified As Boolean) + Me.GetAvailableClientsTseAsync(Z_KASSE_ID, driveLetter, clientIds, count, countSpecified, Nothing) + End Sub + + ''' + Public Overloads Sub GetAvailableClientsTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientIds() As String, ByVal count As Integer, ByVal countSpecified As Boolean, ByVal userState As Object) + If (Me.GetAvailableClientsTseOperationCompleted Is Nothing) Then + Me.GetAvailableClientsTseOperationCompleted = AddressOf Me.OnGetAvailableClientsTseOperationCompleted + End If + Me.InvokeAsync("GetAvailableClientsTse", New Object() {Z_KASSE_ID, driveLetter, clientIds, count, countSpecified}, Me.GetAvailableClientsTseOperationCompleted, userState) + End Sub + + Private Sub OnGetAvailableClientsTseOperationCompleted(ByVal arg As Object) + If (Not (Me.GetAvailableClientsTseCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetAvailableClientsTseCompleted(Me, New GetAvailableClientsTseCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub IsClientPresentTse( ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientId As String, ByRef result As Boolean, ByRef resultSpecified As Boolean, ByRef IsClientPresentTseResult As ErrorCode, ByRef IsClientPresentTseResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("IsClientPresentTse", New Object() {Z_KASSE_ID, driveLetter, clientId, result, resultSpecified}) + result = CType(results(0),Boolean) + resultSpecified = CType(results(1),Boolean) + IsClientPresentTseResult = CType(results(2),ErrorCode) + IsClientPresentTseResultSpecified = CType(results(3),Boolean) + End Sub + + ''' + Public Overloads Sub IsClientPresentTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientId As String, ByVal result As Boolean, ByVal resultSpecified As Boolean) + Me.IsClientPresentTseAsync(Z_KASSE_ID, driveLetter, clientId, result, resultSpecified, Nothing) + End Sub + + ''' + Public Overloads Sub IsClientPresentTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientId As String, ByVal result As Boolean, ByVal resultSpecified As Boolean, ByVal userState As Object) + If (Me.IsClientPresentTseOperationCompleted Is Nothing) Then + Me.IsClientPresentTseOperationCompleted = AddressOf Me.OnIsClientPresentTseOperationCompleted + End If + Me.InvokeAsync("IsClientPresentTse", New Object() {Z_KASSE_ID, driveLetter, clientId, result, resultSpecified}, Me.IsClientPresentTseOperationCompleted, userState) + End Sub + + Private Sub OnIsClientPresentTseOperationCompleted(ByVal arg As Object) + If (Not (Me.IsClientPresentTseCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent IsClientPresentTseCompleted(Me, New IsClientPresentTseCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub GetTaxIds( ByVal Z_KASSE_ID As String, ByRef taxes As Taxes, ByRef GetTaxIdsResult As ErrorCode, ByRef GetTaxIdsResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("GetTaxIds", New Object() {Z_KASSE_ID, taxes}) + taxes = CType(results(0),Taxes) + GetTaxIdsResult = CType(results(1),ErrorCode) + GetTaxIdsResultSpecified = CType(results(2),Boolean) + End Sub + + ''' + Public Overloads Sub GetTaxIdsAsync(ByVal Z_KASSE_ID As String, ByVal taxes As Taxes) + Me.GetTaxIdsAsync(Z_KASSE_ID, taxes, Nothing) + End Sub + + ''' + Public Overloads Sub GetTaxIdsAsync(ByVal Z_KASSE_ID As String, ByVal taxes As Taxes, ByVal userState As Object) + If (Me.GetTaxIdsOperationCompleted Is Nothing) Then + Me.GetTaxIdsOperationCompleted = AddressOf Me.OnGetTaxIdsOperationCompleted + End If + Me.InvokeAsync("GetTaxIds", New Object() {Z_KASSE_ID, taxes}, Me.GetTaxIdsOperationCompleted, userState) + End Sub + + Private Sub OnGetTaxIdsOperationCompleted(ByVal arg As Object) + If (Not (Me.GetTaxIdsCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetTaxIdsCompleted(Me, New GetTaxIdsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub CreateCashpointClosing( ByVal Z_KASSE_ID As String, ByRef CreateCashpointClosingResult As ErrorCode, ByRef CreateCashpointClosingResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("CreateCashpointClosing", New Object() {Z_KASSE_ID}) + CreateCashpointClosingResult = CType(results(0),ErrorCode) + CreateCashpointClosingResultSpecified = CType(results(1),Boolean) + End Sub + + ''' + Public Overloads Sub CreateCashpointClosingAsync(ByVal Z_KASSE_ID As String) + Me.CreateCashpointClosingAsync(Z_KASSE_ID, Nothing) + End Sub + + ''' + Public Overloads Sub CreateCashpointClosingAsync(ByVal Z_KASSE_ID As String, ByVal userState As Object) + If (Me.CreateCashpointClosingOperationCompleted Is Nothing) Then + Me.CreateCashpointClosingOperationCompleted = AddressOf Me.OnCreateCashpointClosingOperationCompleted + End If + Me.InvokeAsync("CreateCashpointClosing", New Object() {Z_KASSE_ID}, Me.CreateCashpointClosingOperationCompleted, userState) + End Sub + + Private Sub OnCreateCashpointClosingOperationCompleted(ByVal arg As Object) + If (Not (Me.CreateCashpointClosingCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent CreateCashpointClosingCompleted(Me, New CreateCashpointClosingCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub GetLastReceiptValues( ByVal Z_KASSE_ID As String, ByRef transactionNumber As String, ByRef serialNumber As String, ByRef signature As String, ByRef transactionStart As Date, ByRef transactionStartSpecified As Boolean, ByRef transactionFinish As Date, ByRef transactionFinishSpecified As Boolean, ByRef sigCounter As String, ByRef GetLastReceiptValuesResult As ErrorCode, ByRef GetLastReceiptValuesResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("GetLastReceiptValues", New Object() {Z_KASSE_ID, transactionNumber, serialNumber, signature, transactionStart, transactionStartSpecified, transactionFinish, transactionFinishSpecified, sigCounter}) + transactionNumber = CType(results(0),String) + serialNumber = CType(results(1),String) + signature = CType(results(2),String) + transactionStart = CType(results(3),Date) + transactionStartSpecified = CType(results(4),Boolean) + transactionFinish = CType(results(5),Date) + transactionFinishSpecified = CType(results(6),Boolean) + sigCounter = CType(results(7),String) + GetLastReceiptValuesResult = CType(results(8),ErrorCode) + GetLastReceiptValuesResultSpecified = CType(results(9),Boolean) + End Sub + + ''' + Public Overloads Sub GetLastReceiptValuesAsync(ByVal Z_KASSE_ID As String, ByVal transactionNumber As String, ByVal serialNumber As String, ByVal signature As String, ByVal transactionStart As Date, ByVal transactionStartSpecified As Boolean, ByVal transactionFinish As Date, ByVal transactionFinishSpecified As Boolean, ByVal sigCounter As String) + Me.GetLastReceiptValuesAsync(Z_KASSE_ID, transactionNumber, serialNumber, signature, transactionStart, transactionStartSpecified, transactionFinish, transactionFinishSpecified, sigCounter, Nothing) + End Sub + + ''' + Public Overloads Sub GetLastReceiptValuesAsync(ByVal Z_KASSE_ID As String, ByVal transactionNumber As String, ByVal serialNumber As String, ByVal signature As String, ByVal transactionStart As Date, ByVal transactionStartSpecified As Boolean, ByVal transactionFinish As Date, ByVal transactionFinishSpecified As Boolean, ByVal sigCounter As String, ByVal userState As Object) + If (Me.GetLastReceiptValuesOperationCompleted Is Nothing) Then + Me.GetLastReceiptValuesOperationCompleted = AddressOf Me.OnGetLastReceiptValuesOperationCompleted + End If + Me.InvokeAsync("GetLastReceiptValues", New Object() {Z_KASSE_ID, transactionNumber, serialNumber, signature, transactionStart, transactionStartSpecified, transactionFinish, transactionFinishSpecified, sigCounter}, Me.GetLastReceiptValuesOperationCompleted, userState) + End Sub + + Private Sub OnGetLastReceiptValuesOperationCompleted(ByVal arg As Object) + If (Not (Me.GetLastReceiptValuesCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetLastReceiptValuesCompleted(Me, New GetLastReceiptValuesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub GetLastReceiptQrCode( ByVal Z_KASSE_ID As String, ByRef qrCode As String, ByVal mimeType As String, ByRef GetLastReceiptQrCodeResult As ErrorCode, ByRef GetLastReceiptQrCodeResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("GetLastReceiptQrCode", New Object() {Z_KASSE_ID, qrCode, mimeType}) + qrCode = CType(results(0),String) + GetLastReceiptQrCodeResult = CType(results(1),ErrorCode) + GetLastReceiptQrCodeResultSpecified = CType(results(2),Boolean) + End Sub + + ''' + Public Overloads Sub GetLastReceiptQrCodeAsync(ByVal Z_KASSE_ID As String, ByVal qrCode As String, ByVal mimeType As String) + Me.GetLastReceiptQrCodeAsync(Z_KASSE_ID, qrCode, mimeType, Nothing) + End Sub + + ''' + Public Overloads Sub GetLastReceiptQrCodeAsync(ByVal Z_KASSE_ID As String, ByVal qrCode As String, ByVal mimeType As String, ByVal userState As Object) + If (Me.GetLastReceiptQrCodeOperationCompleted Is Nothing) Then + Me.GetLastReceiptQrCodeOperationCompleted = AddressOf Me.OnGetLastReceiptQrCodeOperationCompleted + End If + Me.InvokeAsync("GetLastReceiptQrCode", New Object() {Z_KASSE_ID, qrCode, mimeType}, Me.GetLastReceiptQrCodeOperationCompleted, userState) + End Sub + + Private Sub OnGetLastReceiptQrCodeOperationCompleted(ByVal arg As Object) + If (Not (Me.GetLastReceiptQrCodeCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetLastReceiptQrCodeCompleted(Me, New GetLastReceiptQrCodeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub GetLastReceiptQrCodeContent( ByVal Z_KASSE_ID As String, ByRef qrCodeContent As String, ByRef GetLastReceiptQrCodeContentResult As ErrorCode, ByRef GetLastReceiptQrCodeContentResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("GetLastReceiptQrCodeContent", New Object() {Z_KASSE_ID, qrCodeContent}) + qrCodeContent = CType(results(0),String) + GetLastReceiptQrCodeContentResult = CType(results(1),ErrorCode) + GetLastReceiptQrCodeContentResultSpecified = CType(results(2),Boolean) + End Sub + + ''' + Public Overloads Sub GetLastReceiptQrCodeContentAsync(ByVal Z_KASSE_ID As String, ByVal qrCodeContent As String) + Me.GetLastReceiptQrCodeContentAsync(Z_KASSE_ID, qrCodeContent, Nothing) + End Sub + + ''' + Public Overloads Sub GetLastReceiptQrCodeContentAsync(ByVal Z_KASSE_ID As String, ByVal qrCodeContent As String, ByVal userState As Object) + If (Me.GetLastReceiptQrCodeContentOperationCompleted Is Nothing) Then + Me.GetLastReceiptQrCodeContentOperationCompleted = AddressOf Me.OnGetLastReceiptQrCodeContentOperationCompleted + End If + Me.InvokeAsync("GetLastReceiptQrCodeContent", New Object() {Z_KASSE_ID, qrCodeContent}, Me.GetLastReceiptQrCodeContentOperationCompleted, userState) + End Sub + + Private Sub OnGetLastReceiptQrCodeContentOperationCompleted(ByVal arg As Object) + If (Not (Me.GetLastReceiptQrCodeContentCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetLastReceiptQrCodeContentCompleted(Me, New GetLastReceiptQrCodeContentCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub RegisterNewClientTse( ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String, ByRef RegisterNewClientTseResult As ErrorCode, ByRef RegisterNewClientTseResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("RegisterNewClientTse", New Object() {Z_KASSE_ID, driveLetter, newClientId}) + RegisterNewClientTseResult = CType(results(0),ErrorCode) + RegisterNewClientTseResultSpecified = CType(results(1),Boolean) + End Sub + + ''' + Public Overloads Sub RegisterNewClientTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String) + Me.RegisterNewClientTseAsync(Z_KASSE_ID, driveLetter, newClientId, Nothing) + End Sub + + ''' + Public Overloads Sub RegisterNewClientTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String, ByVal userState As Object) + If (Me.RegisterNewClientTseOperationCompleted Is Nothing) Then + Me.RegisterNewClientTseOperationCompleted = AddressOf Me.OnRegisterNewClientTseOperationCompleted + End If + Me.InvokeAsync("RegisterNewClientTse", New Object() {Z_KASSE_ID, driveLetter, newClientId}, Me.RegisterNewClientTseOperationCompleted, userState) + End Sub + + Private Sub OnRegisterNewClientTseOperationCompleted(ByVal arg As Object) + If (Not (Me.RegisterNewClientTseCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent RegisterNewClientTseCompleted(Me, New RegisterNewClientTseCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Sub GetNextBON_ID( ByVal Z_KASSE_ID As String, ByRef BON_ID As Integer, ByRef BON_IDSpecified As Boolean, ByRef GetNextBON_IDResult As ErrorCode, ByRef GetNextBON_IDResultSpecified As Boolean) + Dim results() As Object = Me.Invoke("GetNextBON_ID", New Object() {Z_KASSE_ID, BON_ID, BON_IDSpecified}) + BON_ID = CType(results(0),Integer) + BON_IDSpecified = CType(results(1),Boolean) + GetNextBON_IDResult = CType(results(2),ErrorCode) + GetNextBON_IDResultSpecified = CType(results(3),Boolean) + End Sub + + ''' + Public Overloads Sub GetNextBON_IDAsync(ByVal Z_KASSE_ID As String, ByVal BON_ID As Integer, ByVal BON_IDSpecified As Boolean) + Me.GetNextBON_IDAsync(Z_KASSE_ID, BON_ID, BON_IDSpecified, Nothing) + End Sub + + ''' + Public Overloads Sub GetNextBON_IDAsync(ByVal Z_KASSE_ID As String, ByVal BON_ID As Integer, ByVal BON_IDSpecified As Boolean, ByVal userState As Object) + If (Me.GetNextBON_IDOperationCompleted Is Nothing) Then + Me.GetNextBON_IDOperationCompleted = AddressOf Me.OnGetNextBON_IDOperationCompleted + End If + Me.InvokeAsync("GetNextBON_ID", New Object() {Z_KASSE_ID, BON_ID, BON_IDSpecified}, Me.GetNextBON_IDOperationCompleted, userState) + End Sub + + Private Sub OnGetNextBON_IDOperationCompleted(ByVal arg As Object) + If (Not (Me.GetNextBON_IDCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent GetNextBON_IDCompleted(Me, New GetNextBON_IDCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + Public Shadows Sub CancelAsync(ByVal userState As Object) + MyBase.CancelAsync(userState) + End Sub + + Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean + If ((url Is Nothing) _ + OrElse (url Is String.Empty)) Then + Return false + End If + Dim wsUri As System.Uri = New System.Uri(url) + If ((wsUri.Port >= 1024) _ + AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then + Return true + End If + Return false + End Function + End Class + + ''' + _ + Public Enum ErrorCode + + ''' + OK + + ''' + FAILED + + ''' + BAD_USERNAME + + ''' + BAD_PASSWORD + + ''' + TSE_NOT_FOUND + + ''' + TSE_INITIALIZATION_FAILED + + ''' + TSE_BEGIN_TRANSACTION_FAILED + + ''' + TSE_FINISH_TRANSACTION_FAILED + + ''' + ARRAY_LENGTH_NOT_EQUAL + + ''' + PARAMETER_ERROR + + ''' + DSFINVKCOM_LICENSE_NOT_VALID + + ''' + KSVCOM_LICENSE_NOT_VALID + + ''' + DATABASE_NO_CONNECTION + + ''' + DATABASE_CONNECTION_NOT_OPENED + + ''' + DATABASE_NOT_SPECIFIED + + ''' + DATABASE_OPERATION_FAILED + + ''' + CASHBOX_NAME_NOT_UNIQUE + + ''' + CASHBOX_IN_USE + + ''' + CASHBOX_NOT_FOUND + + ''' + CASHBOX_NOT_MANAGED + + ''' + CASHBOX_ALREADY_MANAGED + + ''' + ROW_HAS_INVALID_DATA + + ''' + ROW_BON_ID_NOT_FOUND + + ''' + ROW_BON_ID_ALREADY_EXISTS + + ''' + ROW_BON_ID_ALREADY_FINISHED + End Enum + + ''' + _ + Partial Public Class Kassendaten + + Private iVNRField As Integer + + Private iVNRFieldSpecified As Boolean + + Private kASSE_BASISWAEH_CODEField As String + + Private kASSE_BRANDField As String + + Private kASSE_MODELLField As String + + Private kASSE_SERIENNRField As String + + Private kASSE_SW_BRANDField As String + + Private kASSE_SW_VERSIONField As String + + Private kEINE_UST_ZUORDNUNGField As String + + Private lOC_LANDField As String + + Private lOC_NAMEField As String + + Private lOC_ORTField As String + + Private lOC_PLZField As String + + Private lOC_STRASSEField As String + + Private lOC_USTIDField As String + + Private z_KASSE_IDField As String + + Private z_NRField As Long + + Private z_NRFieldSpecified As Boolean + + Private licenseField As String + + Private tse_bezeichnungField As String + + Private tse_ivnrField As Integer + + Private tse_ivnrFieldSpecified As Boolean + + ''' + Public Property IVNR() As Integer + Get + Return Me.iVNRField + End Get + Set + Me.iVNRField = value + End Set + End Property + + ''' + _ + Public Property IVNRSpecified() As Boolean + Get + Return Me.iVNRFieldSpecified + End Get + Set + Me.iVNRFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property KASSE_BASISWAEH_CODE() As String + Get + Return Me.kASSE_BASISWAEH_CODEField + End Get + Set + Me.kASSE_BASISWAEH_CODEField = value + End Set + End Property + + ''' + _ + Public Property KASSE_BRAND() As String + Get + Return Me.kASSE_BRANDField + End Get + Set + Me.kASSE_BRANDField = value + End Set + End Property + + ''' + _ + Public Property KASSE_MODELL() As String + Get + Return Me.kASSE_MODELLField + End Get + Set + Me.kASSE_MODELLField = value + End Set + End Property + + ''' + _ + Public Property KASSE_SERIENNR() As String + Get + Return Me.kASSE_SERIENNRField + End Get + Set + Me.kASSE_SERIENNRField = value + End Set + End Property + + ''' + _ + Public Property KASSE_SW_BRAND() As String + Get + Return Me.kASSE_SW_BRANDField + End Get + Set + Me.kASSE_SW_BRANDField = value + End Set + End Property + + ''' + _ + Public Property KASSE_SW_VERSION() As String + Get + Return Me.kASSE_SW_VERSIONField + End Get + Set + Me.kASSE_SW_VERSIONField = value + End Set + End Property + + ''' + _ + Public Property KEINE_UST_ZUORDNUNG() As String + Get + Return Me.kEINE_UST_ZUORDNUNGField + End Get + Set + Me.kEINE_UST_ZUORDNUNGField = value + End Set + End Property + + ''' + _ + Public Property LOC_LAND() As String + Get + Return Me.lOC_LANDField + End Get + Set + Me.lOC_LANDField = value + End Set + End Property + + ''' + _ + Public Property LOC_NAME() As String + Get + Return Me.lOC_NAMEField + End Get + Set + Me.lOC_NAMEField = value + End Set + End Property + + ''' + _ + Public Property LOC_ORT() As String + Get + Return Me.lOC_ORTField + End Get + Set + Me.lOC_ORTField = value + End Set + End Property + + ''' + _ + Public Property LOC_PLZ() As String + Get + Return Me.lOC_PLZField + End Get + Set + Me.lOC_PLZField = value + End Set + End Property + + ''' + _ + Public Property LOC_STRASSE() As String + Get + Return Me.lOC_STRASSEField + End Get + Set + Me.lOC_STRASSEField = value + End Set + End Property + + ''' + _ + Public Property LOC_USTID() As String + Get + Return Me.lOC_USTIDField + End Get + Set + Me.lOC_USTIDField = value + End Set + End Property + + ''' + _ + Public Property Z_KASSE_ID() As String + Get + Return Me.z_KASSE_IDField + End Get + Set + Me.z_KASSE_IDField = value + End Set + End Property + + ''' + Public Property Z_NR() As Long + Get + Return Me.z_NRField + End Get + Set + Me.z_NRField = value + End Set + End Property + + ''' + _ + Public Property Z_NRSpecified() As Boolean + Get + Return Me.z_NRFieldSpecified + End Get + Set + Me.z_NRFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property license() As String + Get + Return Me.licenseField + End Get + Set + Me.licenseField = value + End Set + End Property + + ''' + _ + Public Property tse_bezeichnung() As String + Get + Return Me.tse_bezeichnungField + End Get + Set + Me.tse_bezeichnungField = value + End Set + End Property + + ''' + Public Property tse_ivnr() As Integer + Get + Return Me.tse_ivnrField + End Get + Set + Me.tse_ivnrField = value + End Set + End Property + + ''' + _ + Public Property tse_ivnrSpecified() As Boolean + Get + Return Me.tse_ivnrFieldSpecified + End Get + Set + Me.tse_ivnrFieldSpecified = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class Taxes + + Private countField As Integer + + Private countFieldSpecified As Boolean + + Private uST_BESCHRField() As String + + Private uST_SATZField() As Decimal + + Private uST_SCHLUESSELField() As Integer + + ''' + Public Property Count() As Integer + Get + Return Me.countField + End Get + Set + Me.countField = value + End Set + End Property + + ''' + _ + Public Property CountSpecified() As Boolean + Get + Return Me.countFieldSpecified + End Get + Set + Me.countFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property UST_BESCHR() As String() + Get + Return Me.uST_BESCHRField + End Get + Set + Me.uST_BESCHRField = value + End Set + End Property + + ''' + _ + Public Property UST_SATZ() As Decimal() + Get + Return Me.uST_SATZField + End Get + Set + Me.uST_SATZField = value + End Set + End Property + + ''' + _ + Public Property UST_SCHLUESSEL() As Integer() + Get + Return Me.uST_SCHLUESSELField + End Get + Set + Me.uST_SCHLUESSELField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class TSEData + + Private tse_pd_encodingField As String + + Private tse_public_keyField As String + + Private tse_serialField As String + + Private tse_sig_algoField As String + + Private tse_zeitformatField As String + + Private tse_zertifikatField As String + + ''' + _ + Public Property tse_pd_encoding() As String + Get + Return Me.tse_pd_encodingField + End Get + Set + Me.tse_pd_encodingField = value + End Set + End Property + + ''' + _ + Public Property tse_public_key() As String + Get + Return Me.tse_public_keyField + End Get + Set + Me.tse_public_keyField = value + End Set + End Property + + ''' + _ + Public Property tse_serial() As String + Get + Return Me.tse_serialField + End Get + Set + Me.tse_serialField = value + End Set + End Property + + ''' + _ + Public Property tse_sig_algo() As String + Get + Return Me.tse_sig_algoField + End Get + Set + Me.tse_sig_algoField = value + End Set + End Property + + ''' + _ + Public Property tse_zeitformat() As String + Get + Return Me.tse_zeitformatField + End Get + Set + Me.tse_zeitformatField = value + End Set + End Property + + ''' + _ + Public Property tse_zertifikat() As String + Get + Return Me.tse_zertifikatField + End Get + Set + Me.tse_zertifikatField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class BonPosition_Ust + + Private bON_IDField As String + + Private pOS_BRUTTOField As Decimal + + Private pOS_BRUTTOFieldSpecified As Boolean + + Private pOS_NETTOField As Decimal + + Private pOS_NETTOFieldSpecified As Boolean + + Private pOS_USTField As Decimal + + Private pOS_USTFieldSpecified As Boolean + + Private pOS_ZEILEField As String + + Private uST_SCHLUESSELField As Integer + + Private uST_SCHLUESSELFieldSpecified As Boolean + + ''' + _ + Public Property BON_ID() As String + Get + Return Me.bON_IDField + End Get + Set + Me.bON_IDField = value + End Set + End Property + + ''' + Public Property POS_BRUTTO() As Decimal + Get + Return Me.pOS_BRUTTOField + End Get + Set + Me.pOS_BRUTTOField = value + End Set + End Property + + ''' + _ + Public Property POS_BRUTTOSpecified() As Boolean + Get + Return Me.pOS_BRUTTOFieldSpecified + End Get + Set + Me.pOS_BRUTTOFieldSpecified = value + End Set + End Property + + ''' + Public Property POS_NETTO() As Decimal + Get + Return Me.pOS_NETTOField + End Get + Set + Me.pOS_NETTOField = value + End Set + End Property + + ''' + _ + Public Property POS_NETTOSpecified() As Boolean + Get + Return Me.pOS_NETTOFieldSpecified + End Get + Set + Me.pOS_NETTOFieldSpecified = value + End Set + End Property + + ''' + Public Property POS_UST() As Decimal + Get + Return Me.pOS_USTField + End Get + Set + Me.pOS_USTField = value + End Set + End Property + + ''' + _ + Public Property POS_USTSpecified() As Boolean + Get + Return Me.pOS_USTFieldSpecified + End Get + Set + Me.pOS_USTFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property POS_ZEILE() As String + Get + Return Me.pOS_ZEILEField + End Get + Set + Me.pOS_ZEILEField = value + End Set + End Property + + ''' + Public Property UST_SCHLUESSEL() As Integer + Get + Return Me.uST_SCHLUESSELField + End Get + Set + Me.uST_SCHLUESSELField = value + End Set + End Property + + ''' + _ + Public Property UST_SCHLUESSELSpecified() As Boolean + Get + Return Me.uST_SCHLUESSELFieldSpecified + End Get + Set + Me.uST_SCHLUESSELFieldSpecified = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class BonPosition + + Private aGENTUR_IDField As Integer + + Private aGENTUR_IDFieldSpecified As Boolean + + Private aRTIKELTEXTField As String + + Private aRT_NRField As String + + Private bON_IDField As String + + Private eINHEITField As String + + Private fAKTORField As Decimal + + Private fAKTORFieldSpecified As Boolean + + Private gTINField As String + + Private gUTSCHEIN_NRField As String + + Private gV_NAMEField As String + + Private gV_TYPField As String + + Private iNHAUSField As String + + Private mENGEField As Decimal + + Private mENGEFieldSpecified As Boolean + + Private pOS_TERMINAL_IDField As String + + Private pOS_ZEILEField As String + + Private p_STORNOField As String + + Private sTK_BRField As Decimal + + Private sTK_BRFieldSpecified As Boolean + + Private wARENGRField As String + + Private wARENGR_IDField As String + + Private z_KASSE_IDField As String + + ''' + Public Property AGENTUR_ID() As Integer + Get + Return Me.aGENTUR_IDField + End Get + Set + Me.aGENTUR_IDField = value + End Set + End Property + + ''' + _ + Public Property AGENTUR_IDSpecified() As Boolean + Get + Return Me.aGENTUR_IDFieldSpecified + End Get + Set + Me.aGENTUR_IDFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property ARTIKELTEXT() As String + Get + Return Me.aRTIKELTEXTField + End Get + Set + Me.aRTIKELTEXTField = value + End Set + End Property + + ''' + _ + Public Property ART_NR() As String + Get + Return Me.aRT_NRField + End Get + Set + Me.aRT_NRField = value + End Set + End Property + + ''' + _ + Public Property BON_ID() As String + Get + Return Me.bON_IDField + End Get + Set + Me.bON_IDField = value + End Set + End Property + + ''' + _ + Public Property EINHEIT() As String + Get + Return Me.eINHEITField + End Get + Set + Me.eINHEITField = value + End Set + End Property + + ''' + Public Property FAKTOR() As Decimal + Get + Return Me.fAKTORField + End Get + Set + Me.fAKTORField = value + End Set + End Property + + ''' + _ + Public Property FAKTORSpecified() As Boolean + Get + Return Me.fAKTORFieldSpecified + End Get + Set + Me.fAKTORFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property GTIN() As String + Get + Return Me.gTINField + End Get + Set + Me.gTINField = value + End Set + End Property + + ''' + _ + Public Property GUTSCHEIN_NR() As String + Get + Return Me.gUTSCHEIN_NRField + End Get + Set + Me.gUTSCHEIN_NRField = value + End Set + End Property + + ''' + _ + Public Property GV_NAME() As String + Get + Return Me.gV_NAMEField + End Get + Set + Me.gV_NAMEField = value + End Set + End Property + + ''' + _ + Public Property GV_TYP() As String + Get + Return Me.gV_TYPField + End Get + Set + Me.gV_TYPField = value + End Set + End Property + + ''' + _ + Public Property INHAUS() As String + Get + Return Me.iNHAUSField + End Get + Set + Me.iNHAUSField = value + End Set + End Property + + ''' + Public Property MENGE() As Decimal + Get + Return Me.mENGEField + End Get + Set + Me.mENGEField = value + End Set + End Property + + ''' + _ + Public Property MENGESpecified() As Boolean + Get + Return Me.mENGEFieldSpecified + End Get + Set + Me.mENGEFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property POS_TERMINAL_ID() As String + Get + Return Me.pOS_TERMINAL_IDField + End Get + Set + Me.pOS_TERMINAL_IDField = value + End Set + End Property + + ''' + _ + Public Property POS_ZEILE() As String + Get + Return Me.pOS_ZEILEField + End Get + Set + Me.pOS_ZEILEField = value + End Set + End Property + + ''' + _ + Public Property P_STORNO() As String + Get + Return Me.p_STORNOField + End Get + Set + Me.p_STORNOField = value + End Set + End Property + + ''' + Public Property STK_BR() As Decimal + Get + Return Me.sTK_BRField + End Get + Set + Me.sTK_BRField = value + End Set + End Property + + ''' + _ + Public Property STK_BRSpecified() As Boolean + Get + Return Me.sTK_BRFieldSpecified + End Get + Set + Me.sTK_BRFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property WARENGR() As String + Get + Return Me.wARENGRField + End Get + Set + Me.wARENGRField = value + End Set + End Property + + ''' + _ + Public Property WARENGR_ID() As String + Get + Return Me.wARENGR_IDField + End Get + Set + Me.wARENGR_IDField = value + End Set + End Property + + ''' + _ + Public Property Z_KASSE_ID() As String + Get + Return Me.z_KASSE_IDField + End Get + Set + Me.z_KASSE_IDField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class BonKopfFinish + + Private bON_ENDEField As String + + Private bON_IDField As String + + Private pROCESS_TYPEField As String + + Private uMS_BRUTTOField As Decimal + + Private uMS_BRUTTOFieldSpecified As Boolean + + Private z_KASSE_IDField As String + + Private payment_currenciesField() As String + + Private payment_per_currencyField() As Decimal + + Private payment_typesField() As String + + ''' + _ + Public Property BON_ENDE() As String + Get + Return Me.bON_ENDEField + End Get + Set + Me.bON_ENDEField = value + End Set + End Property + + ''' + _ + Public Property BON_ID() As String + Get + Return Me.bON_IDField + End Get + Set + Me.bON_IDField = value + End Set + End Property + + ''' + _ + Public Property PROCESS_TYPE() As String + Get + Return Me.pROCESS_TYPEField + End Get + Set + Me.pROCESS_TYPEField = value + End Set + End Property + + ''' + Public Property UMS_BRUTTO() As Decimal + Get + Return Me.uMS_BRUTTOField + End Get + Set + Me.uMS_BRUTTOField = value + End Set + End Property + + ''' + _ + Public Property UMS_BRUTTOSpecified() As Boolean + Get + Return Me.uMS_BRUTTOFieldSpecified + End Get + Set + Me.uMS_BRUTTOFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property Z_KASSE_ID() As String + Get + Return Me.z_KASSE_IDField + End Get + Set + Me.z_KASSE_IDField = value + End Set + End Property + + ''' + _ + Public Property payment_currencies() As String() + Get + Return Me.payment_currenciesField + End Get + Set + Me.payment_currenciesField = value + End Set + End Property + + ''' + _ + Public Property payment_per_currency() As Decimal() + Get + Return Me.payment_per_currencyField + End Get + Set + Me.payment_per_currencyField = value + End Set + End Property + + ''' + _ + Public Property payment_types() As String() + Get + Return Me.payment_typesField + End Get + Set + Me.payment_typesField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class BonKopfBegin + + Private bEDIENER_IDField As String + + Private bEDIENER_NAMEField As String + + Private bON_IDField As String + + Private bON_NAMEField As String + + Private bON_NOTIZField As String + + Private bON_NRField As Integer + + Private bON_NRFieldSpecified As Boolean + + Private bON_STARTField As String + + Private bON_STORNOField As String + + Private bON_TYPField As String + + Private kUNDE_IDField As String + + Private kUNDE_LANDField As String + + Private kUNDE_NAMEField As String + + Private kUNDE_ORTField As String + + Private kUNDE_PLZField As String + + Private kUNDE_STRASSEField As String + + Private kUNDE_TYPField As String + + Private kUNDE_USTIDField As String + + Private tERMINAL_IDField As String + + Private z_KASSE_IDField As String + + ''' + _ + Public Property BEDIENER_ID() As String + Get + Return Me.bEDIENER_IDField + End Get + Set + Me.bEDIENER_IDField = value + End Set + End Property + + ''' + _ + Public Property BEDIENER_NAME() As String + Get + Return Me.bEDIENER_NAMEField + End Get + Set + Me.bEDIENER_NAMEField = value + End Set + End Property + + ''' + _ + Public Property BON_ID() As String + Get + Return Me.bON_IDField + End Get + Set + Me.bON_IDField = value + End Set + End Property + + ''' + _ + Public Property BON_NAME() As String + Get + Return Me.bON_NAMEField + End Get + Set + Me.bON_NAMEField = value + End Set + End Property + + ''' + _ + Public Property BON_NOTIZ() As String + Get + Return Me.bON_NOTIZField + End Get + Set + Me.bON_NOTIZField = value + End Set + End Property + + ''' + Public Property BON_NR() As Integer + Get + Return Me.bON_NRField + End Get + Set + Me.bON_NRField = value + End Set + End Property + + ''' + _ + Public Property BON_NRSpecified() As Boolean + Get + Return Me.bON_NRFieldSpecified + End Get + Set + Me.bON_NRFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property BON_START() As String + Get + Return Me.bON_STARTField + End Get + Set + Me.bON_STARTField = value + End Set + End Property + + ''' + _ + Public Property BON_STORNO() As String + Get + Return Me.bON_STORNOField + End Get + Set + Me.bON_STORNOField = value + End Set + End Property + + ''' + _ + Public Property BON_TYP() As String + Get + Return Me.bON_TYPField + End Get + Set + Me.bON_TYPField = value + End Set + End Property + + ''' + _ + Public Property KUNDE_ID() As String + Get + Return Me.kUNDE_IDField + End Get + Set + Me.kUNDE_IDField = value + End Set + End Property + + ''' + _ + Public Property KUNDE_LAND() As String + Get + Return Me.kUNDE_LANDField + End Get + Set + Me.kUNDE_LANDField = value + End Set + End Property + + ''' + _ + Public Property KUNDE_NAME() As String + Get + Return Me.kUNDE_NAMEField + End Get + Set + Me.kUNDE_NAMEField = value + End Set + End Property + + ''' + _ + Public Property KUNDE_ORT() As String + Get + Return Me.kUNDE_ORTField + End Get + Set + Me.kUNDE_ORTField = value + End Set + End Property + + ''' + _ + Public Property KUNDE_PLZ() As String + Get + Return Me.kUNDE_PLZField + End Get + Set + Me.kUNDE_PLZField = value + End Set + End Property + + ''' + _ + Public Property KUNDE_STRASSE() As String + Get + Return Me.kUNDE_STRASSEField + End Get + Set + Me.kUNDE_STRASSEField = value + End Set + End Property + + ''' + _ + Public Property KUNDE_TYP() As String + Get + Return Me.kUNDE_TYPField + End Get + Set + Me.kUNDE_TYPField = value + End Set + End Property + + ''' + _ + Public Property KUNDE_USTID() As String + Get + Return Me.kUNDE_USTIDField + End Get + Set + Me.kUNDE_USTIDField = value + End Set + End Property + + ''' + _ + Public Property TERMINAL_ID() As String + Get + Return Me.tERMINAL_IDField + End Get + Set + Me.tERMINAL_IDField = value + End Set + End Property + + ''' + _ + Public Property Z_KASSE_ID() As String + Get + Return Me.z_KASSE_IDField + End Get + Set + Me.z_KASSE_IDField = value + End Set + End Property + End Class + + ''' + _ + Public Delegate Sub GetMachineCodeCompletedEventHandler(ByVal sender As Object, ByVal e As GetMachineCodeCompletedEventArgs) + + ''' + _ + Partial Public Class GetMachineCodeCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),String) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub InitializeLibraryCompletedEventHandler(ByVal sender As Object, ByVal e As InitializeLibraryCompletedEventArgs) + + ''' + _ + Partial Public Class InitializeLibraryCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property InitializeLibraryResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property InitializeLibraryResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub CleanupLibraryCompletedEventHandler(ByVal sender As Object, ByVal e As CleanupLibraryCompletedEventArgs) + + ''' + _ + Partial Public Class CleanupLibraryCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property CleanupLibraryResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property CleanupLibraryResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub CreateDatabaseCompletedEventHandler(ByVal sender As Object, ByVal e As CreateDatabaseCompletedEventArgs) + + ''' + _ + Partial Public Class CreateDatabaseCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property CreateDatabaseResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property CreateDatabaseResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub CreateCashboxCompletedEventHandler(ByVal sender As Object, ByVal e As CreateCashboxCompletedEventArgs) + + ''' + _ + Partial Public Class CreateCashboxCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property CreateCashboxResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property CreateCashboxResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetCashboxesCompletedEventHandler(ByVal sender As Object, ByVal e As GetCashboxesCompletedEventArgs) + + ''' + _ + Partial Public Class GetCashboxesCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property cashBoxes() As Kassendaten() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),Kassendaten()) + End Get + End Property + + ''' + Public ReadOnly Property GetCashboxesResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property GetCashboxesResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub BeginReceiptCompletedEventHandler(ByVal sender As Object, ByVal e As BeginReceiptCompletedEventArgs) + + ''' + _ + Partial Public Class BeginReceiptCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property transactionNumber() As Integer + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),Integer) + End Get + End Property + + ''' + Public ReadOnly Property transactionNumberSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + + ''' + Public ReadOnly Property BeginReceiptResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property BeginReceiptResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub UpdateReceiptCompletedEventHandler(ByVal sender As Object, ByVal e As UpdateReceiptCompletedEventArgs) + + ''' + _ + Partial Public Class UpdateReceiptCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property UpdateReceiptResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property UpdateReceiptResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FinishReceiptCompletedEventHandler(ByVal sender As Object, ByVal e As FinishReceiptCompletedEventArgs) + + ''' + _ + Partial Public Class FinishReceiptCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property FinishReceiptResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property FinishReceiptResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub AddPositionToReceiptCompletedEventHandler(ByVal sender As Object, ByVal e As AddPositionToReceiptCompletedEventArgs) + + ''' + _ + Partial Public Class AddPositionToReceiptCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property AddPositionToReceiptResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property AddPositionToReceiptResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ExportFullCompletedEventHandler(ByVal sender As Object, ByVal e As ExportFullCompletedEventArgs) + + ''' + _ + Partial Public Class ExportFullCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property ExportFullResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property ExportFullResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ExportDateToDateCompletedEventHandler(ByVal sender As Object, ByVal e As ExportDateToDateCompletedEventArgs) + + ''' + _ + Partial Public Class ExportDateToDateCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property ExportDateToDateResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property ExportDateToDateResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ExportNumberToNumberCompletedEventHandler(ByVal sender As Object, ByVal e As ExportNumberToNumberCompletedEventArgs) + + ''' + _ + Partial Public Class ExportNumberToNumberCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property ExportNumberToNumberResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property ExportNumberToNumberResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub ExportCSVFilesCompletedEventHandler(ByVal sender As Object, ByVal e As ExportCSVFilesCompletedEventArgs) + + ''' + _ + Partial Public Class ExportCSVFilesCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property ExportCSVFilesResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property ExportCSVFilesResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetAvailableTseListCompletedEventHandler(ByVal sender As Object, ByVal e As GetAvailableTseListCompletedEventArgs) + + ''' + _ + Partial Public Class GetAvailableTseListCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property tseDriveLetterList() As String() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),String()) + End Get + End Property + + ''' + Public ReadOnly Property tseSerialList() As String() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String()) + End Get + End Property + + ''' + Public ReadOnly Property count() As Integer + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Integer) + End Get + End Property + + ''' + Public ReadOnly Property countSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),Boolean) + End Get + End Property + + ''' + Public ReadOnly Property GetAvailableTseListResult() As Integer + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),Integer) + End Get + End Property + + ''' + Public ReadOnly Property GetAvailableTseListResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetDsFinVKValuesCompletedEventHandler(ByVal sender As Object, ByVal e As GetDsFinVKValuesCompletedEventArgs) + + ''' + _ + Partial Public Class GetDsFinVKValuesCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property tse_serial() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),String) + End Get + End Property + + ''' + Public ReadOnly Property tse_sig_algo() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + + ''' + Public ReadOnly Property tse_zeitformat() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),String) + End Get + End Property + + ''' + Public ReadOnly Property tse_pd_encoding() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),String) + End Get + End Property + + ''' + Public ReadOnly Property tse_public_key() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),String) + End Get + End Property + + ''' + Public ReadOnly Property tse_zertifikat() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),String) + End Get + End Property + + ''' + Public ReadOnly Property GetDsFinVKValuesResult() As Integer + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(6),Integer) + End Get + End Property + + ''' + Public ReadOnly Property GetDsFinVKValuesResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(7),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetDsFinVKValuesForTseCompletedEventHandler(ByVal sender As Object, ByVal e As GetDsFinVKValuesForTseCompletedEventArgs) + + ''' + _ + Partial Public Class GetDsFinVKValuesForTseCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property tseData() As TSEData + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),TSEData) + End Get + End Property + + ''' + Public ReadOnly Property GetDsFinVKValuesForTseResult() As Integer + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Integer) + End Get + End Property + + ''' + Public ReadOnly Property GetDsFinVKValuesForTseResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub SetupTseForFirstUseTseCompletedEventHandler(ByVal sender As Object, ByVal e As SetupTseForFirstUseTseCompletedEventArgs) + + ''' + _ + Partial Public Class SetupTseForFirstUseTseCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property SetupTseForFirstUseTseResult() As Integer + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),Integer) + End Get + End Property + + ''' + Public ReadOnly Property SetupTseForFirstUseTseResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub StringifyTseErrorCodeCompletedEventHandler(ByVal sender As Object, ByVal e As StringifyTseErrorCodeCompletedEventArgs) + + ''' + _ + Partial Public Class StringifyTseErrorCodeCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),String) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetAvailableClientsTseCompletedEventHandler(ByVal sender As Object, ByVal e As GetAvailableClientsTseCompletedEventArgs) + + ''' + _ + Partial Public Class GetAvailableClientsTseCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property clientIds() As String() + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),String()) + End Get + End Property + + ''' + Public ReadOnly Property count() As Integer + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Integer) + End Get + End Property + + ''' + Public ReadOnly Property countSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Boolean) + End Get + End Property + + ''' + Public ReadOnly Property GetAvailableClientsTseResult() As Integer + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),Integer) + End Get + End Property + + ''' + Public ReadOnly Property GetAvailableClientsTseResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub IsClientPresentTseCompletedEventHandler(ByVal sender As Object, ByVal e As IsClientPresentTseCompletedEventArgs) + + ''' + _ + Partial Public Class IsClientPresentTseCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property result() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),Boolean) + End Get + End Property + + ''' + Public ReadOnly Property resultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + + ''' + Public ReadOnly Property IsClientPresentTseResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property IsClientPresentTseResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetTaxIdsCompletedEventHandler(ByVal sender As Object, ByVal e As GetTaxIdsCompletedEventArgs) + + ''' + _ + Partial Public Class GetTaxIdsCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property taxes() As Taxes + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),Taxes) + End Get + End Property + + ''' + Public ReadOnly Property GetTaxIdsResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property GetTaxIdsResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub CreateCashpointClosingCompletedEventHandler(ByVal sender As Object, ByVal e As CreateCashpointClosingCompletedEventArgs) + + ''' + _ + Partial Public Class CreateCashpointClosingCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property CreateCashpointClosingResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property CreateCashpointClosingResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetLastReceiptValuesCompletedEventHandler(ByVal sender As Object, ByVal e As GetLastReceiptValuesCompletedEventArgs) + + ''' + _ + Partial Public Class GetLastReceiptValuesCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property transactionNumber() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),String) + End Get + End Property + + ''' + Public ReadOnly Property serialNumber() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),String) + End Get + End Property + + ''' + Public ReadOnly Property signature() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),String) + End Get + End Property + + ''' + Public ReadOnly Property transactionStart() As Date + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),Date) + End Get + End Property + + ''' + Public ReadOnly Property transactionStartSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(4),Boolean) + End Get + End Property + + ''' + Public ReadOnly Property transactionFinish() As Date + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(5),Date) + End Get + End Property + + ''' + Public ReadOnly Property transactionFinishSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(6),Boolean) + End Get + End Property + + ''' + Public ReadOnly Property sigCounter() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(7),String) + End Get + End Property + + ''' + Public ReadOnly Property GetLastReceiptValuesResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(8),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property GetLastReceiptValuesResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(9),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetLastReceiptQrCodeCompletedEventHandler(ByVal sender As Object, ByVal e As GetLastReceiptQrCodeCompletedEventArgs) + + ''' + _ + Partial Public Class GetLastReceiptQrCodeCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property qrCode() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),String) + End Get + End Property + + ''' + Public ReadOnly Property GetLastReceiptQrCodeResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property GetLastReceiptQrCodeResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetLastReceiptQrCodeContentCompletedEventHandler(ByVal sender As Object, ByVal e As GetLastReceiptQrCodeContentCompletedEventArgs) + + ''' + _ + Partial Public Class GetLastReceiptQrCodeContentCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property qrCodeContent() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),String) + End Get + End Property + + ''' + Public ReadOnly Property GetLastReceiptQrCodeContentResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property GetLastReceiptQrCodeContentResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub RegisterNewClientTseCompletedEventHandler(ByVal sender As Object, ByVal e As RegisterNewClientTseCompletedEventArgs) + + ''' + _ + Partial Public Class RegisterNewClientTseCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property RegisterNewClientTseResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property RegisterNewClientTseResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub GetNextBON_IDCompletedEventHandler(ByVal sender As Object, ByVal e As GetNextBON_IDCompletedEventArgs) + + ''' + _ + Partial Public Class GetNextBON_IDCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property BON_ID() As Integer + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),Integer) + End Get + End Property + + ''' + Public ReadOnly Property BON_IDSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(1),Boolean) + End Get + End Property + + ''' + Public ReadOnly Property GetNextBON_IDResult() As ErrorCode + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(2),ErrorCode) + End Get + End Property + + ''' + Public ReadOnly Property GetNextBON_IDResultSpecified() As Boolean + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(3),Boolean) + End Get + End Property + End Class +End Namespace diff --git a/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/TSEData.datasource b/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/TSEData.datasource new file mode 100644 index 00000000..80cd782c --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/TSEData.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.TSEData, Web References.RKSV_DE_DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/Taxes.datasource b/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/Taxes.datasource new file mode 100644 index 00000000..0cb0c70c --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/Taxes.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.Taxes, Web References.RKSV_DE_DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index 6dd88a6c..35018474 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -252,6 +252,13 @@ Public Class cProgramFunctions mySmtpsvr.Send(Msg) Catch ex As Exception + + Try 'Falls Fehler nicht beim Senden, sonder was anderes. + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "TO: " & eMailTo & vbNewLine & "SUBJ: " & betreff & vbNewLine & "TXT: " & text, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + Catch ex3 As Exception + End Try + + Try mySmtpsvr.Port = 25 mySmtpsvr.Send(Msg) @@ -271,7 +278,6 @@ Public Class cProgramFunctions End Try End Try - End Try Return True End Function