diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb
index 9a764b11..bfe51fc4 100644
--- a/SDL/Classes/cRKSV.vb
+++ b/SDL/Classes/cRKSV.vb
@@ -904,11 +904,11 @@ Public Class cRKSV
End If
KASSE.SET_LAST_QR_JWS(LastJWS, QR_CodeString)
End If
-
- If KASSE.rksvDE_aktiv Then ' WENN für die Kasse die DEUTSCHLAND gilt
+ Dim TESTFLAG = True
+ If TESTFLAG Or KASSE.rksvDE_aktiv Then ' WENN für die Kasse die DEUTSCHLAND gilt
Dim answer = ""
- If Not cRKSV_DE.insertRKSV_DE(KASSE, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, BELEG.BelegDat, BELEG.Steuerschlüssel, RKSV_Beleg_Id, 0, QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
+ If Not cRKSV_DE.insertRKSV_DE(PERSONAL, BELEG, KASSE, RKSV_Beleg_Id, 0, QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
If Not TESTBUCHUNG Then
KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, summe * -1)
cRKSV.DELETE(BELEG)
@@ -1602,7 +1602,7 @@ End Class
-Public Class cRKSV_DE
+Public Class cRKSV_DE__TEST
Shared SQL As New SQL
Shared Function getBelegSting_BAR(summeBRUTTO As Double, steuerSchluessel As Integer) As String
@@ -1633,6 +1633,8 @@ Public Class cRKSV_DE
Shared Function insertRKSV_DE(ByVal kasse As cRKSV_Kasse, CompanyGUID As String, ByVal umsatzZaehler As Double, ByVal belegDat As DateTime, ByVal steuerSchluessel As Integer, 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) As Boolean
+ MsgBox("123")
+
Try
@@ -1641,7 +1643,8 @@ Public Class cRKSV_DE
' Dim licenseKey As String = kasse.rksv_DE_license '"07.11.2020;MEUCIQDfTvMPWQo4IVvTtuTbU9YHNwJ7EdMbogfGqmAp+rdw4gIgPJoEDE0OCfac/nCOKdksWvOZq+xvkFoYI0HFxJPkldU="
' Dim TSESerialNumber As String = "77A9D25F044A89E87578A8CD52D2A92564CC09214CC6448465414008D31C1CF1"
- Dim m_ksv As ItgKsV.KsVCom = New ItgKsV.KsVCom()
+ Dim m_ksv = New ItgKsV.KsVCom()
+ 'Dim m_ksv As ItgKsV.KsVCom = New ItgKsV.KsVCom()
' Dim result As Integer = m_ksv.InitialiseLibrary("F:", "SwissbitDemo", "12345", licenseKey)
MsgBox(kasse.rksv_ipAdresse & " --- " & kasse.rksv_DE_TSE_Serial & " --- " & kasse.rksv_DE_apiToken & " --- " & kasse.rksv_DE_user & " --- " & kasse.rksv_DE_pwd & " --- " & kasse.rksv_DE_license)
@@ -1649,43 +1652,43 @@ Public Class cRKSV_DE
Dim result As Integer = m_ksv.InitialiseLibraryLan(kasse.rksv_ipAdresse, kasse.rksv_DE_TSE_Serial, kasse.rksv_DE_apiToken, kasse.rksv_DE_user, kasse.rksv_DE_pwd, kasse.rksv_DE_license) '--> ClientId/User "Admin" mit KsVCom Demo registriert
If result <> &H0 Then
- MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
- Return False
- End If
+ MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ Return False
+ End If
- '' Setup bei erstmaliger Verwendung der Swissbit-TSE !!!
+ '' Setup bei erstmaliger Verwendung der Swissbit-TSE !!!
- 'result = m_ksv.SetupTSEForFirstUse("123456", "12345", "98765", "SwissbitDemo")
+ 'result = m_ksv.SetupTSEForFirstUse("123456", "12345", "98765", "SwissbitDemo")
- 'If result <> &H0 Then
- ' MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
- 'Else
- ' MessageBox.Show("TSE setup succeeded.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
- 'End If
+ 'If result <> &H0 Then
+ ' MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ 'Else
+ ' MessageBox.Show("TSE setup succeeded.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
+ 'End If
- ' BeginTransaction: für jede neue Rechnung wird eine Transaktion gestartet
+ ' BeginTransaction: für jede neue Rechnung wird eine Transaktion gestartet
- Dim transactionNumber As Long = 0
- result = m_ksv.StartTransaction(transactionNumber)
+ Dim transactionNumber As Long = 0
+ result = m_ksv.StartTransaction(transactionNumber)
- If result <> &H0 Then
- MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
- Return False
- End If
+ If result <> &H0 Then
+ MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ Return False
+ End If
- ' UpdateTransaction: processData bleibt leer
+ ' UpdateTransaction: processData bleibt leer
- result = m_ksv.UpdateTransaction(transactionNumber, "", "KassenBeleg-V1")
+ result = m_ksv.UpdateTransaction(transactionNumber, "", "KassenBeleg-V1")
- If result <> &H0 Then
- MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
- End If
+ If result <> &H0 Then
+ MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ End If
@@ -1694,29 +1697,29 @@ Public Class cRKSV_DE
result = m_ksv.FinishTransaction(transactionNumber, getBelegSting_BAR(summeBRUTTO, steuerSchluessel), "KassenBeleg-V1")
If result <> &H0 Then
- MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
- End If
+ MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ End If
- ' QR-Code und weitere Werte, die auf der Rechnung angedruckt werden müssen
+ ' QR-Code und weitere Werte, die auf der Rechnung angedruckt werden müssen
- ' QR-Code wird als base64 kodiertes bitmap geliefert
+ ' QR-Code wird als base64 kodiertes bitmap geliefert
- Dim qrCode As String = String.Empty
+ Dim qrCode As String = String.Empty
- ' QR-Code Inhalt für die Ablage in der Datenbank, falls eine Rechnung nochmals gedruckt werden muss
+ ' QR-Code Inhalt für die Ablage in der Datenbank, falls eine Rechnung nochmals gedruckt werden muss
- Dim qrCodeContent As String = String.Empty
- m_ksv.GetLastReceiptQrCode(qrCode)
- m_ksv.GetLastReceiptQrCodeContent(qrCodeContent)
- Dim sTransactionNumber As String = String.Empty
- Dim serialNumber As String = String.Empty
- Dim signature As String = String.Empty
- Dim sigCounter As String = String.Empty
- Dim dtStartTransaction As Date = Date.MinValue
- Dim dtFinishTransaction As Date = Date.MinValue
- m_ksv.GetLastReceiptValues(sTransactionNumber, serialNumber, signature, dtStartTransaction, dtFinishTransaction, sigCounter)
+ Dim qrCodeContent As String = String.Empty
+ m_ksv.GetLastReceiptQrCode(qrCode)
+ m_ksv.GetLastReceiptQrCodeContent(qrCodeContent)
+ Dim sTransactionNumber As String = String.Empty
+ Dim serialNumber As String = String.Empty
+ Dim signature As String = String.Empty
+ Dim sigCounter As String = String.Empty
+ Dim dtStartTransaction As Date = Date.MinValue
+ Dim dtFinishTransaction As Date = Date.MinValue
+ m_ksv.GetLastReceiptValues(sTransactionNumber, serialNumber, signature, dtStartTransaction, dtFinishTransaction, sigCounter)
QR_CodeString = qrCode
LastJWS = signature
@@ -1762,4 +1765,422 @@ Public Class cRKSV_DE
Return False
End Function
+End Class
+
+
+Public Class cRKSV_DE
+ Shared SQL As New SQL
+
+
+
+ 'Shared Function getBelegSting_BAR(summeBRUTTO As Double, steuerSchluessel As Integer) As String
+
+
+ ' Dim steuersatz As Double = SQL.getValueTxtBySql("SELECT isnull(tblSteuersätze.Steuersatz,0) FROM tblSteuersätze WHERE tblSteuersätze.Nr='" & steuerSchluessel & "' ", "FMZOLL")
+
+
+ ' Dim BetragSatzNormal = IIf(steuersatz = 0.19, summeBRUTTO, 0.0)
+ ' Dim BetragSatzErm1 = IIf(steuersatz = 0.1, summeBRUTTO, 0.0)
+ ' Dim BetragSatzNull = IIf(steuersatz = 0, summeBRUTTO, 0.0)
+
+
+ ' BetragSatzNormal += IIf(steuersatz = 0.16, summeBRUTTO, 0.0)
+ ' BetragSatzErm1 += IIf(steuersatz = 0.05, summeBRUTTO, 0.0)
+ ' BetragSatzNormal += IIf(steuersatz = 0.2, summeBRUTTO, 0.0) ' Eig Nur AT
+ ' 'Dim BetragSatzNormal = IIf(steuersatz = 0.2, summeBRUTTO, 0.0) 'summe
+ ' 'Dim BetragSatzErm2 = IIf(steuersatz = 0.13, summeBRUTTO, 0.0)
+ ' 'Dim BetragSatzNull = IIf(steuersatz = 0.0, summeBRUTTO, 0.0)
+
+ ' Dim sum = BetragSatzNormal
+ ' sum += BetragSatzErm1
+ ' sum += BetragSatzNull
+ ' MsgBox("Beleg^" & BetragSatzNormal.ToString("0.00") & "_" & BetragSatzErm1.ToString("0.00") & "_0.00_0.00_" & BetragSatzNull.ToString("0.00") & "^" & sum.ToString("0.00") & ":Bar")
+ ' Return "Beleg^" & BetragSatzNormal.ToString("0.00") & "_" & BetragSatzErm1.ToString("0.00") & "_0.00_0.00_" & BetragSatzNull.ToString("0.00") & "^" & sum.ToString("0.00") & ":Bar"
+
+ 'End Function
+ Shared Function stornoRKSV_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
+
+ Return insertRKSV_DE(PERSONAL, BELEG, kasse, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, TEST, answer, 1)
+
+ 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 [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
+ MessageBox.Show([error].ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ Return False
+ End If
+
+
+ Dim BON_ID As Integer = 0
+ [error] = m_com.GetNextBON_ID(cashbox, BON_ID)
+
+ If [error] <> VERAG_PROG_ALLGEMEIN.RKSV_DE.ErrorCode.OK Then
+ MessageBox.Show([error].ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ Return False
+ End If
+
+ Dim BON_NR As Integer = 0
+ [error] = m_com.GetNextBON_ID(cashbox, BON_NR)
+
+ If [error] <> VERAG_PROG_ALLGEMEIN.RKSV_DE.ErrorCode.OK Then
+ MessageBox.Show([error].ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ Return False
+ End If
+
+
+
+ 'Rechnung beginnen
+
+ Dim bonkopfBegin As VERAG_PROG_ALLGEMEIN.RKSV_DE.BonKopfBegin = New VERAG_PROG_ALLGEMEIN.RKSV_DE.BonKopfBegin()
+
+ bonkopfBegin.Z_KASSE_ID = cashbox
+
+ bonkopfBegin.BEDIENER_ID = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID 'tbBEDIENER_ID.Text
+
+ bonkopfBegin.BEDIENER_NAME = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME 'tbBEDIENER_NAME.Text
+
+ bonkopfBegin.BON_ID = BON_ID.ToString()
+
+ bonkopfBegin.BON_NAME = "" 'tbBON_NAME.Text
+
+ bonkopfBegin.BON_NOTIZ = "" 'tbBON_NOTIZ.Text
+
+ bonkopfBegin.BON_NR = BON_ID
+
+ bonkopfBegin.BON_STORNO = storno 'If(cbBON_STORNO.Checked, "1", "0")
+
+ bonkopfBegin.BON_TYP = "Beleg" 'cmbBON_TYP.SelectedItem.ToString()
+
+ bonkopfBegin.KUNDE_ID = "" 'tbKUNDE_ID.Text
+
+ bonkopfBegin.KUNDE_LAND = "" 'tbKUNDE_LAND.Text
+
+ bonkopfBegin.KUNDE_NAME = "" 'tbKUNDE_NAME.Text
+
+ bonkopfBegin.KUNDE_ORT = "" 'tbKUNDE_ORT.Text
+
+ bonkopfBegin.KUNDE_PLZ = "" 'tbKUNDE_PLZ.Text
+
+ bonkopfBegin.KUNDE_STRASSE = "" ' tbKUNDE_STRASSE.Text
+
+ bonkopfBegin.KUNDE_TYP = "" ' tbKUNDE_TYP.Text
+
+ bonkopfBegin.KUNDE_USTID = "" ' tbKUNDE_USTID.Text
+
+ bonkopfBegin.TERMINAL_ID = "" 'tbTERMINAL_ID.Text
+
+ Dim transactionNumber As Integer = 0
+
+ [error] = m_com.BeginReceipt(cashbox, bonkopfBegin, transactionNumber)
+
+ Dim cntZeile = 1
+ Dim GES_BRUTTO As Double = 0
+ 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()
+
+ position.AGENTUR_ID = "" 'Convert.ToInt32(dgvBonPos.Rows[m_dgvCurrentRow].Cells["AGENTUR_ID"].Value)
+
+ position.ARTIKELTEXT = POS.LeistungsBez 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["ARTIKELTEXT"].Value)
+
+ position.ART_NR = POS.LeistungsNr ' Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["ART_NR"].Value)
+
+ position.BON_ID = Convert.ToString(BON_ID)
+
+ position.EINHEIT = "Stk." ' Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["EINHEIT"].Value)
+
+ position.FAKTOR = 1 ' Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["FAKTOR"].Value)
+
+ position.GTIN = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["GTIN"].Value)
+
+ position.GUTSCHEIN_NR = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["GUTSCHEIN_NR"].Value)
+
+ position.GV_NAME = "" ' Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["GV_NAME"].Value)
+
+ position.GV_TYP = "Umsatz" ' Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["GV_TYP"].Value)
+
+ position.INHAUS = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["INHAUS"].Value)
+
+ position.MENGE = POS.Anzahl 'Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["MENGE"].Value)
+
+ position.POS_TERMINAL_ID = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["POS_TERMINAL_ID"].Value)
+
+ position.POS_ZEILE = cntZeile 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["POS_ZEILE"].Value)
+
+ position.P_STORNO = storno ' Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["P_STORNO"].Value)
+
+ position.STK_BR = POS.Preis 'Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["STK_BR"].Value)
+
+ position.WARENGR = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["WARENGR"].Value)
+
+ position.WARENGR_ID = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["WARENGR_ID"].Value)
+
+ position.Z_KASSE_ID = cashbox 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["Z_KASSE_ID"].Value)
+
+ ' Beträge der Position
+
+ Dim position_vat = New VERAG_PROG_ALLGEMEIN.RKSV_DE.BonPosition_Ust()
+
+ position_vat.BON_ID = position.BON_ID
+
+ position_vat.POS_ZEILE = position.POS_ZEILE
+
+ Dim steuersatzID = 1
+ Dim steuersatz As Double = SQL.getValueTxtBySql("SELECT [Steuersatz] FROM [tblSteuersätze] where nr='" & BELEG.Steuerschlüssel & "'", "FMZOLL")
+ Select Case steuersatz
+ Case 0.19 : steuersatzID = 1
+ Case 0.07 : steuersatzID = 2
+ Case 0.00 : steuersatzID = 6
+ End Select
+
+ position_vat.UST_SCHLUESSEL = steuersatzID 'm_com.GetTaxIds(cashbox,) 'Convert.ToInt32(dgvBonPos.Rows[m_dgvCurrentRow].Cells["UST_SCHLUESSEL"].Value)
+ Dim steuerBetrag = POS.Betrag * position_vat.UST_SCHLUESSEL
+ position_vat.POS_BRUTTO = POS.Betrag + steuerBetrag 'Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["POS_BRUTTO"].Value)
+
+ position_vat.POS_NETTO = POS.Betrag 'Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["POS_NETTO"].Value)
+
+ position_vat.POS_UST = steuerBetrag 'Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["POS_UST"].Value)
+
+ [error] = m_com.AddPositionToReceipt(cashbox, position, position_vat, transactionNumber)
+ cntZeile += 1
+ GES_BRUTTO += position_vat.POS_BRUTTO
+
+ Next
+
+ 'Rechnung abschließen
+
+ Dim bonkopfFinish As VERAG_PROG_ALLGEMEIN.RKSV_DE.BonKopfFinish = New VERAG_PROG_ALLGEMEIN.RKSV_DE.BonKopfFinish()
+
+ bonkopfFinish.Z_KASSE_ID = cashbox
+
+ bonkopfFinish.BON_ID = BON_ID
+
+
+
+ If Not Decimal.TryParse(GES_BRUTTO, bonkopfFinish.UMS_BRUTTO) Then
+ bonkopfFinish.UMS_BRUTTO = 0.00
+ End If
+
+
+ bonkopfFinish.PROCESS_TYPE = "Kassenbeleg-V1"
+
+ bonkopfFinish.payment_currencies = {"EUR"}
+
+ bonkopfFinish.payment_types = {"Bar"}
+
+ bonkopfFinish.payment_per_currency = {119.0}
+
+ [error] = m_com.FinishReceipt(cashbox, bonkopfFinish, transactionNumber)
+
+ ' Kassenabschluss anlegen über alle noch nicht abgeschlossenen Rechnungen zu dieser Kasse
+
+ ' Error = m_com.CreateCashpointClosing(cashbox)
+
+ ' ' DSFinV-K-Export
+
+ ' Int from = 0
+
+ 'Int to = 10
+
+ 'Dim ret = m_com.ExportCSVFiles(from, to, tbSelectedFolder.Text, tbZipName.Text, True, True,
+
+ 'true, true, true, true, true, true,
+
+ 'true, true, true, true,
+
+ 'true, true, true, true, true,
+
+ 'true, true, true);
+
+ 'If (ret == ErrorCode.OK) Then
+
+ '{
+
+ 'MessageBox.Show("Die CSV Dateien wurden im Ordner " + tbSelectedFolder.Text + " angelegt und in die Zip-Datei " + tbZipName.Text + " gepackt.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information);
+
+ '}
+
+ 'Else
+
+ '{
+
+ 'MessageBox.Show("Beim exportieren der CSV-Dateien ging etwas schief:\r\n" + ret.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
+
+ '}
+
+ Dim transactionNumberRet As String
+ Dim serialNumber As String
+ Dim signature As String
+ Dim transactionStart As Date
+ Dim transactionFinish As Date
+ Dim sigCounter As String
+ m_com.GetLastReceiptValues(transactionNumberRet, serialNumber, signature, transactionStart, transactionFinish, sigCounter)
+
+
+ Dim qrCode As String = String.Empty
+ Dim mimeType As String = String.Empty
+ m_com.GetLastReceiptQrCode(qrCode, mimeType)
+
+
+ QR_CodeString = qrCode
+ LastJWS = signature
+
+
+
+ Catch ex As Exception
+ MsgBox("Es ist ein Fehler bei der Signatur aufgetreten (insertRKSV): " & vbNewLine & ex.Message & ex.StackTrace)
+ End Try
+ Return False
+ End Function
+
+ 'Shared Function insertRKSV_DE(ByVal kasse As cRKSV_Kasse, CompanyGUID As String, ByVal umsatzZaehler As Double, ByVal belegDat As DateTime, ByVal steuerSchluessel As Integer, 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) As Boolean
+
+ ' Try
+ ' Dim xCom As New VERAG_PROG_ALLGEMEIN.RKSV_DE.DSFinVKServerClient
+ ' Dim ret As Long
+ ' Dim bonkopfBegin As New VERAG_PROG_ALLGEMEIN.RKSV_DE.BonKopfBegin
+ ' Dim bonkopfFinish As New VERAG_PROG_ALLGEMEIN.RKSV_DE.BonKopfFinish
+ ' Dim bonpos As New VERAG_PROG_ALLGEMEIN.RKSV_DE.BonPosition
+ ' Dim bonpos_ust As New VERAG_PROG_ALLGEMEIN.RKSV_DE.BonPosition_Ust
+
+ ' Dim transactionNumber As Long
+ ' Dim bonId As Long
+ ' Dim bonNr As Long
+ ' Dim poszeile As Integer
+
+ ' ' zwingend erforderliche Felder:
+
+
+ ' Dim tbCashbox = kasse.rksv_KassaGuid ' VERAG_GMBH_KASSE_01
+ ' bonkopfBegin.Z_KASSE_ID = tbCashbox
+ ' bonkopfBegin.BON_ID = bonId
+ ' bonkopfBegin.BON_NR = bonId
+ ' bonkopfBegin.BON_TYP = "Beleg" 'tbBonTyp
+ ' bonkopfBegin.BON_NAME = "" 'tbBonName
+
+ ' bonkopfBegin.BON_STORNO = "0"
+ ' bonkopfBegin.BEDIENER_ID = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID 'tbBedienerId
+ ' bonkopfBegin.BEDIENER_NAME = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME ' tbBedienerName
+
+
+
+ ' Dim tbBonStart = Format(Now(), "yyyy-mm-ddThh:MM:ss")
+
+
+
+ ' poszeile = 1
+
+
+
+ ' bonkopfBegin.BON_START = tbBonStart
+
+ ' ' optionale Felder:
+
+
+
+ ' ' bonkopfBegin.KUNDE_NAME = tbKundeName
+
+ ' ' bonkopfBegin.KUNDE_ID = tbKundeId
+
+ ' ' bonkopfBegin.KUNDE_TYP = tbKundeTyp
+
+ ' ' bonkopfBegin.KUNDE_USTID = tbKundeUstId
+
+ ' ' bonkopfBegin.KUNDE_STRASSE = tbKundeStrasse
+
+ ' ' bonkopfBegin.KUNDE_PLZ = tbKundePlz
+
+ ' ' bonkopfBegin.KUNDE_ORT = tbKundeOrt
+
+ ' ' bonkopfBegin.KUNDE_LAND = tbKundeLand
+
+
+
+ ' ret = xCom.BeginReceipt(tbCashbox, bonkopfBegin, transactionNumber)
+
+ ' If ret <> 0 Then
+
+ ' MsgBox("Es ist ein Fehler aufgetreten! ErrorCode = " + Str$(ret))
+
+ ' Else
+
+ ' tbTransNr = transactionNumber
+
+ ' End If
+
+
+
+
+
+
+ ' Dim qrCode As String = String.Empty
+
+ ' ' QR-Code Inhalt für die Ablage in der Datenbank, falls eine Rechnung nochmals gedruckt werden muss
+
+ ' Dim qrCodeContent As String = String.Empty
+ ' m_ksv.GetLastReceiptQrCode(qrCode)
+ ' m_ksv.GetLastReceiptQrCodeContent(qrCodeContent)
+ ' Dim sTransactionNumber As String = String.Empty
+ ' Dim serialNumber As String = String.Empty
+ ' Dim signature As String = String.Empty
+ ' Dim sigCounter As String = String.Empty
+ ' Dim dtStartTransaction As Date = Date.MinValue
+ ' Dim dtFinishTransaction As Date = Date.MinValue
+ ' m_ksv.GetLastReceiptValues(sTransactionNumber, serialNumber, signature, dtStartTransaction, dtFinishTransaction, sigCounter)
+
+ ' QR_CodeString = qrCode
+ ' LastJWS = signature
+ ' '' Anzeige der gestarteten/noch möglichen Transaktionen
+
+ ' 'Dim maxTransactions As Integer = 0
+ ' 'Dim openTransactions As Integer = 0
+ ' 'm_ksv.GetMaxStartedTransactions(maxTransactions)
+ ' 'm_ksv.GetStartedTransactions(openTransactions)
+ ' 'Dim startedTransactions As Integer() = Nothing
+ ' 'result = m_ksv.GetStartedTransactionNumbers(startedTransactions)
+
+ ' 'If result <> &H0 Then
+ ' ' MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ ' 'End If
+
+
+
+ ' '' Export der TSE-Daten im TAR-Format
+
+ ' 'result = m_ksv.ExportAsTarFile("d:\export.tar")
+
+ ' 'If result <> 0 Then
+ ' ' MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ ' 'End If
+
+
+
+ ' '' Bibliothek aufräumen, andernfalls wird ein power-cycle der TSE erforderlich um sie wieder einsetzen zu können
+
+ ' ''result = CSharpImpl.__Assign(,, m_ksv.CleanupLibrary())
+ ' 'result = m_ksv.CleanupLibrary()
+
+ ' 'If result <> 0 Then
+ ' ' MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ ' 'End If
+
+
+
+ ' Catch ex As Exception
+ ' MsgBox("Es ist ein Fehler bei der Signatur aufgetreten (insertRKSV): " & vbNewLine & ex.Message & ex.StackTrace)
+ ' End Try
+ ' Return False
+ 'End Function
+
End Class
\ No newline at end of file
diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb
index b531145d..6684d3a7 100644
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -397,6 +397,16 @@ Public Class cFakturierung
ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, ,,, False) Then
End If
+ 'Fixtexte die immer angefügt werden (ImmerAnfuegen=1):
+ getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, RECHNUNG.RechnungsLandKz, RECHNUNG.OffertenNr, True, True)
+ getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, RECHNUNG.RechnungsLandKz, , True, True)
+ getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, ,, True, True)
+ getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, , RECHNUNG.RechnungsLandKz, , True, True)
+ getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, ,,, True, True)
+ getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, ,,, False, True)
+ getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, ,,, False, True)
+
+
'' Informations- und Werbetexte drucken
'Dim sqlStr = "SELECT * FROM Rechnungstexte WHERE 1=1"
@@ -472,7 +482,7 @@ Public Class cFakturierung
- Shared Function getRTXT_SQL(ByRef strText, RECHNUNG, RECHNUNG_AD, Optional FIRMA_ID = Nothing, Optional LandKz = Nothing, Optional OffertenNr = Nothing, Optional EMailRechnung = Nothing) As Boolean
+ Shared Function getRTXT_SQL(ByRef strText, RECHNUNG, RECHNUNG_AD, Optional FIRMA_ID = Nothing, Optional LandKz = Nothing, Optional OffertenNr = Nothing, Optional EMailRechnung = Nothing, Optional ImmerAnfuegen = False) As Boolean
' Informations- und Werbetexte drucken
Dim sqlStr = "SELECT * FROM Rechnungstexte WHERE 1=1"
If FIRMA_ID IsNot Nothing Then
@@ -490,6 +500,11 @@ Public Class cFakturierung
Else
sqlStr &= " AND OffertenNr is null"
End If
+ If ImmerAnfuegen Then
+ sqlStr &= " AND ImmerAnfuegen=1 "
+ Else
+ sqlStr &= " AND ImmerAnfuegen=0 "
+ End If
If EMailRechnung IsNot Nothing Then
'Wennn Rechnung als Email geschickt werden sollte Rechnungsdruck=2
If If(RECHNUNG_AD.Rechnungsdruck, -1) = 2 And If(RECHNUNG_AD.E_Mail, "") <> "" Then sqlStr &= " AND EMailRechnung=1 "
@@ -504,6 +519,7 @@ Public Class cFakturierung
' MsgBox(sqlStr & " order by Firma_ID desc,LandKz desc,Offertennr desc")
Dim dt_RechnungsTexte As DataTable = SQL.loadDgvBySql(sqlStr & " order by Firma_ID desc,LandKz desc,Offertennr desc", "FMZOLL")
+
If dt_RechnungsTexte.Rows.Count > 0 Then
strText &= dt_RechnungsTexte.Rows(0)("Text") & vbCrLf
Return True
@@ -892,7 +908,7 @@ Public Class cFakturierung
End Select
Select Case RECHNUNG.Firma_ID
- Case 21, 22, 23 : rpt.Label1.Visible = False : rpt.Label2.Visible = False
+ Case 21, 22, 23, 26 : rpt.Label1.Visible = False : rpt.Label2.Visible = False
End Select
rpt.lblKundenNr.Text = If(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, "")
@@ -943,7 +959,7 @@ Public Class cFakturierung
End If
rpt.lblRechnung_Strasse.Text = If(RECHNUNG.RechnungsStraße, "")
rpt.lblRechnung_Ort.Text = If(RECHNUNG.RechnungsOrt, "")
- rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "").ToString.ToUpper
+ 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
@@ -1100,15 +1116,24 @@ Public Class cFakturierung
steuerBez = dt.Rows(0)(1)
End If
+ Dim tmpSteuerbetrag = CDbl((sumSteuerpflichtig * steuerProz) * vorzeichen)
rpt.lblSteuersatz.Text = steuerBez
- rpt.lblSteuerbetrag.Text = If((sumSteuerpflichtig * steuerProz) <> 0, CDbl((sumSteuerpflichtig * steuerProz) * vorzeichen).ToString("N2", CultureInfo.CurrentCulture), "")
+ rpt.lblSteuerbetrag.Text = If((sumSteuerpflichtig * steuerProz) <> 0, tmpSteuerbetrag.ToString("N2", CultureInfo.CurrentCulture), "")
+ If tmpSteuerbetrag = 0 Then
+ rpt.lblSteuerbetrag.Visible = False
+ End If
+
' rpt.lblZWSumme.Text = (sumSteuerpflichtig + sumSteuerfrei).ToString("N2", CultureInfo.CurrentCulture)
' rpt.lblSumme.Text = (sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz)).ToString("N2", CultureInfo.CurrentCulture)
rpt.lblZWSumme.Text = CDbl((sumSteuerpflichtig + sumSteuerfrei) * vorzeichen).ToString("N2", CultureInfo.CurrentCulture)
rpt.lblSumme.Text = CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz)) * vorzeichen).ToString("N2", CultureInfo.CurrentCulture)
+ rpt.Label46.Text = If(RECHNUNG.Währungscode, "EUR")
+
+
If sumSteuerfrei = 0 Or sumSteuerpflichtig = 0 Then
+
rpt.lblZwText.Visible = False
rpt.lblZWSumme.Visible = False
End If
@@ -1356,7 +1381,7 @@ Public Class cFakturierung
Return getSignature(RECHNUNG.RechnungsLandKz, RECHNUNG.Firma_ID)
End Function
- Shared Function getSignature(Optional landKz = "", Optional firma = -1, Optional individuell = False, Optional displayFirmenmane = False, Optional special = "") As String
+ Shared Function getSignature(Optional landKz = "", Optional firma = -1, Optional individuell = False, Optional displayFirmenmane = False, Optional special = "", Optional additionalLine = "") As String
getSignature = ""
firma = getFirmaNr(firma)
@@ -1365,6 +1390,8 @@ Public Class cFakturierung
Dim emailindividuell = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email
+ If additionalLine <> "" Then additionalLine = "" & additionalLine & "
"
+
Select Case special
Case "BREXIT_VERAG"
getSignature &= "![]()
"
@@ -1377,38 +1404,47 @@ Public Class cFakturierung
getSignature &= "![]()
"
If displayFirmenmane Then getSignature &= "
VERAG Spedition AG
"
getSignature &= "A 4975 Suben, Nr. 100
T +43 7711 2777-0 | F +43 7711 31 073 | @ " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 216714y
"
+ If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 7 'ATILLA
getSignature &= "![]()
"
If displayFirmenmane Then getSignature &= "
ATILLA Spedition GmbH
"
getSignature &= "A 4975 Suben, Nr. 15
T +43 7711 2845-0 | @ " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 288916b
"
+ If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 11 'VERAG CS
getSignature &= "![]()
"
If displayFirmenmane Then getSignature &= "
VERAG Customs Service
"
getSignature &= "A 4975 Suben, Nr. 14
T +43 7711 2777-0 | F +43 7711 31 073 | @ " & If(individuell, emailindividuell, "versand@verag.com") & " | www.verag.ag | FN 406316z
"
+ If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 20 'Imex
getSignature &= "![]()
"
If displayFirmenmane Then getSignature &= "
Imex Customs Service GmbH
"
getSignature &= "A 4975 Suben, Autobahngrenze 15
T +43 7711 31630 | F +43 7711 31630-1 | @ " & If(individuell, emailindividuell, "info@imex-group.at") & " | www.imex-group.at | FN 410356s
"
+ If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 24 'AMBAR
getSignature &= "![]()
"
If displayFirmenmane Then getSignature &= "
AMBAR Logistic Services GmbH
"
getSignature &= "D 83435 Bad Reichenhall, Reichenhallerstrasse 62
T +49 8651 99624911 | F +49 8651 9962493 | @ " & If(individuell, emailindividuell, "info@ambarlog.de") & " | www.ambarlog.com | DE309105428
"
+ If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 21 'UNISPED
getSignature &= "![]()
"
If displayFirmenmane Then getSignature &= "
Unisped Speditions GmbH
"
getSignature &= "A 4975 Suben, Nr. 15
T +43 7711 2677-0 | F +43 7711 2677-27 | @ " & If(individuell, emailindividuell, "office@unisped.at") & " | www.unisped.at | FN 375838d
"
- Case 26 'UNISPED
+ If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
+ Case 26 'VERAG-UNISPED
getSignature &= "![]()
"
If displayFirmenmane Then getSignature &= "
VERAG-UNISPED LTD
"
- getSignature &= "Kent CT16 1BY Dover, 1 Cannon Street, 3:1
T +44 1304 272475 | @ brexit@verag-unisped.uk | www.verag-unisped.uk | Company-No. 13107151
"
+ getSignature &= "Kent CT16 1BY Dover, 1 Cannon Street
T +44 1304 272475 | @ brexit@verag-unisped.uk | www.verag-unisped.uk | Company-No. 13107151 | VAT GB389356931
"
+ If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 99 'GmbH
getSignature &= "![]()
"
If displayFirmenmane Then getSignature &= "
VERAG Spedition GmbH
"
getSignature &= "D 94152 Neuhaus/Inn, Hartham 6
T +43 7711 2777-0 | F +43 7711 31 073 | @ " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag
"
+ If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 17 'Front-Office
getSignature &= "![]()
"
If displayFirmenmane Then getSignature &= "
Front Office Suben eG
"
getSignature &= "A 4975 Suben, Nr. 14
T +43 7711 31636 -0 | @ " & If(individuell, emailindividuell, "suben@front-office.eu") & " | www.front-office.eu
"
+ If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
End Select
End Select
getSignature &= "
"
@@ -1592,11 +1628,11 @@ Public Class cFakturierung
' 3-_> Sammel-Rg gedruckt
' 4-_> ? irgendwas mit SR 6 Maut/Diesel??
- Public Shared Function GET_SR_SQLDT(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Optional whereKdNr As String = "", Optional SB As String = "", Optional AvisoIds As List(Of Integer) = Nothing) As DataTable
+ Public Shared Function GET_SR_SQLDT(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Optional whereKdNr As String = "", Optional SB As String = "", Optional AvisoIds As List(Of Integer) = Nothing, Optional FakturierungsGruppe As String = "") As DataTable
If whereKdNr <> "" Then whereKdNr = " AND RechnungsKundenNr IN(" & whereKdNr & ") "
Dim sqlStr = " SELECT Rechnungsausgang.RK_ID, Rechnungsausgang.Firma_ID, Rechnungsausgang.FilialenNr, Rechnungsausgang.RechnungsKundenNr, Rechnungsausgang.BelegartenNr, Rechnungsausgang.[Steuersatz %], Rechnungsausgang.Lastschrift, Rechnungsausgang.Währungscode, Rechnungsausgang.AvisoID, Rechnungsausgang.RechnungsNr, Rechnungsausgang.RechnungsDatum, Rechnungsausgang.DruckDatumZeit, Rechnungsausgang.Status, Rechnungsausgang.Sammelrechnung, Rechnungsausgang.Abfertigungsdatum, Rechnungsausgang.Buchungsjahr,Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.SpeditionsbuchUnterNr,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag]
From Rechnungsausgang
- WHERE Rechnungsausgang.Status IN(0, 2) And Rechnungsausgang.Firma_ID = " & Firma_ID & " And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) <= '" & DatumBis.ToShortDateString & "' " & whereKdNr & "
+ WHERE Rechnungsausgang.Status IN(0, 2) And Rechnungsausgang.Firma_ID = " & Firma_ID & " And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And Rechnungsausgang.FakturierungsGruppe = '" & FakturierungsGruppe & "' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) <= '" & DatumBis.ToShortDateString & "' " & whereKdNr & "
" & If(SammelrechungArt = 7 And SB <> "", " AND Sachbearbeiter='" & SB & "' ", "") & "" & getWhereAvisoId(AvisoIds)
'Rechnungsausgang.Status IN(0, 2) --> vorher nur 2, da Anlagen vor der SR gedruckt wurden...
If SammelrechungArt = 7 Then
@@ -1631,7 +1667,7 @@ Public Class cFakturierung
End Function
- Public Shared Function doSAMMELRechnungsDruck(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional whereKdNr As String = "", Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, ByRef Optional DruckdatumUhrzeit As DateTime = Nothing, Optional AvisoIds As List(Of Integer) = Nothing, Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional vorschau As Boolean = False, Optional AnlageExcelTransferry360 As Boolean = False) As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean
+ Public Shared Function doSAMMELRechnungsDruck(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional whereKdNr As String = "", Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, ByRef Optional DruckdatumUhrzeit As DateTime = Nothing, Optional AvisoIds As List(Of Integer) = Nothing, Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional vorschau As Boolean = False, Optional AnlageExcelTransferry360 As Boolean = False, Optional FakturierungsGruppe As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean
'If RECHNUNG Is Nothing Then MsgBox("Fehler beim Laden der Rechnungsdaten!") : Return False
Try
'If whereKdNr <> "" Then whereKdNr = " AND RechnungsKundenNr IN(" & whereKdNr & ") "
@@ -1652,7 +1688,7 @@ Public Class cFakturierung
If SammelrechungArt = 7 And (AvisoIds IsNot Nothing AndAlso AvisoIds.Count = 0) Then Return False 'Prüfung, ob Daten vorhanden; Abbruch ZB wenn keine AvisoId
- Dim dt = GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, whereKdNr, SB, AvisoIds) 'SQL.loadDgvBySql(sqlStr, "FMZOLL")
+ Dim dt = GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, whereKdNr, SB, AvisoIds, FakturierungsGruppe) 'SQL.loadDgvBySql(sqlStr, "FMZOLL")
If dt Is Nothing Then MsgBox("ERR01: Keine Daten") : Return True
If dt.Rows.Count = 0 Then MsgBox("ERR02: Keine Daten") : Return True
If Not CHECK_SR_SQLDT(dt) Then MsgBox("ERR03: Es wurden Rechnungen mit einem 0-Betrag gefunden. Bitte prüfen Sie die Eingaben und starten Sie die Sammelabrechnung erneut.") : Return True
@@ -1684,7 +1720,7 @@ Public Class cFakturierung
If FIRMATmp < 0 Then FIRMATmp = RG.Firma_ID 'erstes Mal
If kdTmp <> RG.RechnungsKundenNr Or AvisoIdTmp <> RG.AvisoID Or FIRMATmp <> RG.Firma_ID Then 'Or FilialeTmp <> RG.FilialenNr
Dim path = ""
- doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360) 'hier wird auch die RG Nr erhöht!
+ doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360, FakturierungsGruppe) 'hier wird auch die RG Nr erhöht!
Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr)
If path <> "" Then listPDFs.Add(path)
End If
@@ -1698,7 +1734,7 @@ Public Class cFakturierung
If FIRMATmp < 0 Then FIRMATmp = RG.Firma_ID 'erstes Mal
If kdTmp <> RG.RechnungsKundenNr Or FIRMATmp <> RG.Firma_ID Then 'Or FilialeTmp <> RG.FilialenNr
Dim path = ""
- doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360)
+ doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360, FakturierungsGruppe)
Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr)
If path <> "" Then listPDFs.Add(path)
End If
@@ -1725,7 +1761,7 @@ Public Class cFakturierung
'Letzter Abschnitt:
If found Then
Dim path = ""
- doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360)
+ doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360, FakturierungsGruppe)
If path <> "" Then listPDFs.Add(path)
End If
lastAktuelle_RgNr = Aktuelle_RgNr
@@ -1744,7 +1780,7 @@ Public Class cFakturierung
RG_NR.CHECK_RGNR()
End Function
- Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "", Optional AnlageExcelTransferry360 As Boolean = False) As Boolean
+ Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "", Optional AnlageExcelTransferry360 As Boolean = False, Optional FakturierungsGruppe As String = "") As Boolean
'SB Nicht mehr benötigt, da RG-Nr und DruckdatumUhrzeit
Dim dt As DataTable
@@ -2166,7 +2202,7 @@ Public Class cFakturierung
rpt.lblRechnung_Strasse.Text = If(ROW("RechnungsStraße") IsNot DBNull.Value, ROW("RechnungsStraße"), "")
rpt.lblRechnung_Ort.Text = If(ROW("RechnungsOrt") IsNot DBNull.Value, ROW("RechnungsOrt"), "")
- rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(ROW("RechnungsLandKz"), "").ToString.ToUpper
+ rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(ROW("RechnungsLandKz"), "", ROW("RechnungSprache")).ToString.ToUpper
If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then
@@ -2288,8 +2324,13 @@ Public Class cFakturierung
steuerBez = dt2.Rows(0)(1)
End If
+ Dim tmpSteuerbetrag = CDbl((sumSteuerpflichtig * steuerProz))
+ If tmpSteuerbetrag = 0 Then
+ rpt.lblSteuerbetrag.Visible = False
+ End If
+
rpt.lblSteuersatz.Text = steuerBez
- rpt.lblSteuerbetrag.Text = If((sumSteuerpflichtig * steuerProz) <> 0, (sumSteuerpflichtig * steuerProz).ToString("N2", CultureInfo.CurrentCulture), "")
+ rpt.lblSteuerbetrag.Text = If((sumSteuerpflichtig * steuerProz) <> 0, tmpSteuerbetrag.ToString("N2", CultureInfo.CurrentCulture), "")
rpt.lblZWSumme.Text = (sumSteuerpflichtig + sumSteuerfrei).ToString("N2", CultureInfo.CurrentCulture)
rpt.lblSumme.Text = (sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz)).ToString("N2", CultureInfo.CurrentCulture)
@@ -2503,7 +2544,7 @@ Public Class cFakturierung
Case Else : rpt.Label2.Text = ZZTage & " Tage"
End Select
Select Case ROW("Firma_ID")
- Case 21, 22, 23 : rpt.Label1.Visible = False : rpt.Label2.Visible = False
+ Case 21, 22, 23, 26 : rpt.Label1.Visible = False : rpt.Label2.Visible = False
End Select
@@ -2535,7 +2576,7 @@ Public Class cFakturierung
rpt.lblRechnung_Strasse.Text = If(ROW("RechnungsStraße") IsNot DBNull.Value, ROW("RechnungsStraße"), "")
rpt.lblRechnung_Ort.Text = If(ROW("RechnungsOrt") IsNot DBNull.Value, ROW("RechnungsOrt"), "")
- rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(ROW("RechnungsLandKz"), "").ToString.ToUpper
+ rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(ROW("RechnungsLandKz"), "", ROW("RechnungSprache")).ToString.ToUpper
If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then
diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb b/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb
index 3adf6839..8dd90556 100644
--- a/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb
+++ b/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb
@@ -80,6 +80,7 @@ Partial Class frmAbrechnungsMaske
Me.btnBisJahr = New System.Windows.Forms.Button()
Me.btnVonJahr = New System.Windows.Forms.Button()
Me.UsrCntlFaktAbrechnung1 = New SDL.usrCntlFaktAbrechnung()
+ Me.cboSort = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnl.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout()
@@ -128,6 +129,7 @@ Partial Class frmAbrechnungsMaske
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbcntr.Location = New System.Drawing.Point(0, 170)
Me.tbcntr.Name = "tbcntr"
+ Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(575, 445)
Me.tbcntr.TabIndex = 3
'
@@ -184,12 +186,13 @@ Partial Class frmAbrechnungsMaske
Me.MyDatagridview1.RowHeadersVisible = False
Me.MyDatagridview1.RowTemplate.Height = 28
Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
- Me.MyDatagridview1.Size = New System.Drawing.Size(561, 330)
+ Me.MyDatagridview1.Size = New System.Drawing.Size(561, 316)
Me.MyDatagridview1.TabIndex = 1
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.White
+ Me.Panel2.Controls.Add(Me.cboSort)
Me.Panel2.Controls.Add(Me.cboPrinter)
Me.Panel2.Controls.Add(Me.Button9)
Me.Panel2.Controls.Add(Me.Button8)
@@ -206,10 +209,10 @@ Partial Class frmAbrechnungsMaske
Me.Panel2.Controls.Add(Me.Label2)
Me.Panel2.Controls.Add(Me.Label10)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
- Me.Panel2.Location = New System.Drawing.Point(3, 333)
+ Me.Panel2.Location = New System.Drawing.Point(3, 319)
Me.Panel2.Margin = New System.Windows.Forms.Padding(2)
Me.Panel2.Name = "Panel2"
- Me.Panel2.Size = New System.Drawing.Size(561, 83)
+ Me.Panel2.Size = New System.Drawing.Size(561, 97)
Me.Panel2.TabIndex = 0
'
'cboPrinter
@@ -850,6 +853,18 @@ Partial Class frmAbrechnungsMaske
Me.UsrCntlFaktAbrechnung1.Size = New System.Drawing.Size(863, 615)
Me.UsrCntlFaktAbrechnung1.TabIndex = 0
'
+ 'cboSort
+ '
+ Me.cboSort._allowedValuesFreiText = Nothing
+ Me.cboSort._allowFreiText = False
+ Me.cboSort._value = ""
+ Me.cboSort.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cboSort.FormattingEnabled = True
+ Me.cboSort.Location = New System.Drawing.Point(8, 73)
+ Me.cboSort.Name = "cboSort"
+ Me.cboSort.Size = New System.Drawing.Size(53, 21)
+ Me.cboSort.TabIndex = 26
+ '
'frmAbrechnungsMaske
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -933,4 +948,5 @@ Partial Class frmAbrechnungsMaske
Friend WithEvents Label12 As Label
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label14 As Label
+ Public WithEvents cboSort As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class
diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb
index 5091f468..95d4314d 100644
--- a/SDL/Fakturierung/frmAbrechnungsMaske.vb
+++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb
@@ -9,6 +9,7 @@ Public Class frmAbrechnungsMaske
Private Sub frmAbrechnungsMaske_Load(sender As Object, e As EventArgs) Handles Me.Load
'Größe anpassen:
+
Me.Height = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Height
Me.Top = 0
initFilterPanel()
@@ -34,6 +35,11 @@ Public Class frmAbrechnungsMaske
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E-MAIL", "2"))
MyComboBox1.changeItem("")
+ cboSort.Items.Clear()
+ cboSort.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Eingabezeitpunkt", "EZ"))
+ cboSort.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Pos.Nr", "POS"))
+ cboSort.changeItem("EZ")
+
'BERECHTIGUNG 90 = FAKTURIERUNG!!!
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -85,6 +91,7 @@ Public Class frmAbrechnungsMaske
End Sub
Private Sub frmAbrechnungsMaske_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+
newRechnung()
loaded = True
@@ -111,6 +118,7 @@ Public Class frmAbrechnungsMaske
End Function
Sub initDGV()
+
If Not loaded Then Exit Sub
Dim dgv As VERAG_PROG_ALLGEMEIN.MyDatagridview = getDGV()
@@ -248,9 +256,14 @@ Public Class frmAbrechnungsMaske
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If checkSrchValues() Then
+ Dim orderBy = ""
+ Select Case cboSort._value
+ Case "EZ" : orderBy = " ORDER BY [ReErfZeitstempel] ASC"
+ Case Else : orderBy = " ORDER BY /*[BelegartenKz] DESC,*/ FilialenNr, AbfertigungsNr, [RK_ID]"
+ End Select
Dim PARAM_printZollbeleg = VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg")
- Dim dt = SQL.loadDgvBySql("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER") & " ORDER BY /*[BelegartenKz] DESC,*/ FilialenNr, AbfertigungsNr, [RK_ID]", "FMZOLL")
+ Dim dt = SQL.loadDgvBySql("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER") & orderBy, "FMZOLL")
If dt IsNot Nothing Then
If vbYes = MsgBox("Es werden " & dt.Rows.Count & " Rechnungen gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then
Dim RechnungsDatum As Date = Now
@@ -266,7 +279,7 @@ Public Class frmAbrechnungsMaske
End If
End If
End If
- End If
+ End If
End Sub
diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb
index e33c7f91..0e140ba6 100644
--- a/SDL/Fakturierung/frmFaktEmail.vb
+++ b/SDL/Fakturierung/frmFaktEmail.vb
@@ -24,6 +24,7 @@ Public Class frmFaktEmail
Dim xlsEvolog As Boolean
Dim xlsTransFerry As Boolean
Dim RechnungsNr As Integer
+ Dim FakturierungsGruppe As String
Dim DruckDatumZeit As DateTime
Dim AvisoIds As List(Of Integer)
@@ -43,7 +44,7 @@ Public Class frmFaktEmail
End Sub
- Sub New(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional EinzelAnlagen As Boolean = True, Optional Sammelbericht As Boolean = True, Optional KdNr As Integer = -1, Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, Optional AvisoIds As List(Of Integer) = Nothing, Optional xlsEvolog As Boolean = False, Optional xlsTransFerry As Boolean = False)
+ Sub New(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional EinzelAnlagen As Boolean = True, Optional Sammelbericht As Boolean = True, Optional KdNr As Integer = -1, Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, Optional AvisoIds As List(Of Integer) = Nothing, Optional xlsEvolog As Boolean = False, Optional xlsTransFerry As Boolean = False, Optional FakturierungsGruppe As String = "")
'(Firma_ID As Integer, SammelrechungArt As Integer, KdNr As Integer, DatumBis As Date, SB As String, EinzelAnlagen As Boolean, Sammelbericht As Boolean) 'Sammelrechnung
' Dieser Aufruf ist für den Designer erforderlich.
@@ -61,6 +62,7 @@ Public Class frmFaktEmail
Me.KdNr = KdNr
Me.Rechnungsdatum = Rechnungsdatum
Me.RechnungsNr = lastAktuelle_RgNr
+ Me.FakturierungsGruppe = FakturierungsGruppe
Me.AvisoIds = AvisoIds
SR = True
End Sub
@@ -222,6 +224,11 @@ Public Class frmFaktEmail
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
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
@@ -234,7 +241,7 @@ Public Class frmFaktEmail
'-----------------------------------------------------------------
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
If RechnungsNr <= 0 Then
- cFakturierung.doSAMMELRechnungsDruck(Firma_ID, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit, AvisoIds, cbxExcelEvolog.Checked, SonstAnlagen,, cbxTransFerry.Checked)
+ cFakturierung.doSAMMELRechnungsDruck(Firma_ID, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit, AvisoIds, cbxExcelEvolog.Checked, SonstAnlagen,, cbxTransFerry.Checked, FakturierungsGruppe)
RechnungsNr = lastAktuelle_RgNr
Else
Dim path = ""
@@ -267,7 +274,8 @@ Public Class frmFaktEmail
RichTextBox.Text = RichTextBox.Text.Replace("%RgNr%", lastAktuelle_RgNr)
txtSubject.Text = txtSubject.Text.Replace("%RgNr%", lastAktuelle_RgNr)
- Dim TextHTML = "" & RichTextBox.Text.Replace(ControlChars.Lf, "
") & cFakturierung.getSignature(AD.LandKz, Firma_ID) & "
"
+
+ Dim TextHTML = "" & RichTextBox.Text.Replace(ControlChars.Lf, "
") & cFakturierung.getSignature(AD.LandKz, Firma_ID,,,, additionalLine) & "
"
Mail.HTMLBody = TextHTML
Mail.Subject = txtSubject.Text
@@ -294,6 +302,21 @@ Public Class frmFaktEmail
' ' Mail.Attachments.Add(l, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
' ATTACHMENTS.Add(New cFakt_MailATTach(l, ""))
'Next
+
+
+ 'Rechnungsanhänge anfügen
+ '-----------------------------------------------------------------
+ If 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
+ Next
+ End If
+ '-----------------------------------------------------------------
+
+
addAttachments(Mail, lastAktuelle_RgNr, cbxMergePDF.Checked)
@@ -347,7 +370,9 @@ Public Class frmFaktEmail
RichTextBox.Text = RichTextBox.Text.Replace("%RgNr%", RechnungsNr)
txtSubject.Text = txtSubject.Text.Replace("%RgNr%", RechnungsNr) & abfNr
- Dim TextHTML = "" & RichTextBox.Text.Replace(ControlChars.Lf, "
") & cFakturierung.getSignature(RECHNUNG) & "
"
+
+
+ Dim TextHTML = "" & RichTextBox.Text.Replace(ControlChars.Lf, "
") & cFakturierung.getSignature(RECHNUNG.RechnungsLandKz, RECHNUNG.Firma_ID,,,, additionalLine) & "
"
Mail.HTMLBody = TextHTML
@@ -363,6 +388,14 @@ Public Class frmFaktEmail
getAnhaengeSingle()
'-----------------------------------------------------------------
+ 'Rechnungsanhänge anfügen
+ '-----------------------------------------------------------------
+ RECHNUNG.LOAD_ANHAENGE()
+ For Each ANH In RECHNUNG.ANHAENGE
+ ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung))
+ Next
+ '-----------------------------------------------------------------
+
'Anhang an Mail anfügen
'-----------------------------------------------------------------
addAttachments(Mail, RECHNUNG.RechnungsNr, cbxMergePDF.Checked)
@@ -394,6 +427,11 @@ Public Class frmFaktEmail
Sub send_StbFAMail(KundenNr, RgAbfNr, RechnungsNr)
Try
+ Dim additionalLine = ""
+ If RECHNUNG.FakturierungsGruppe <> "" Then
+ additionalLine = "Abrechnungsstelle: " & RECHNUNG.FakturierungsGruppe.Replace("WAI", "Waidhaus")
+ End If
+
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KundenNr)
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr)
@@ -451,7 +489,7 @@ Public Class frmFaktEmail
End Select
- TextHTML &= cFakturierung.getSignature(AD.LandKz, Firma_ID)
+ TextHTML &= cFakturierung.getSignature(AD.LandKz, Firma_ID,,,, additionalLine)
TextHTML &= ""
Mail_StbFA.HTMLBody = TextHTML
diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb
index 871e8fa3..b0561592 100644
--- a/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb
+++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb
@@ -53,6 +53,8 @@ Partial Class frmFaktSammelRgDrucken
Me.Label4 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.cbxTransFerry = New System.Windows.Forms.CheckBox()
+ Me.Label5 = New System.Windows.Forms.Label()
+ Me.cboFaktGrp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnl.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -420,12 +422,35 @@ Partial Class frmFaktSammelRgDrucken
Me.cbxTransFerry.Text = "Excel TransFerry"
Me.cbxTransFerry.UseVisualStyleBackColor = True
'
+ 'Label5
+ '
+ Me.Label5.Location = New System.Drawing.Point(444, 67)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(82, 17)
+ Me.Label5.TabIndex = 23
+ Me.Label5.Text = "Fakt.Gruppe:"
+ '
+ 'cboFaktGrp
+ '
+ Me.cboFaktGrp._allowedValuesFreiText = Nothing
+ Me.cboFaktGrp._allowFreiText = False
+ Me.cboFaktGrp._value = ""
+ Me.cboFaktGrp.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.cboFaktGrp.FormattingEnabled = True
+ Me.cboFaktGrp.Location = New System.Drawing.Point(532, 63)
+ Me.cboFaktGrp.Name = "cboFaktGrp"
+ Me.cboFaktGrp.Size = New System.Drawing.Size(166, 21)
+ Me.cboFaktGrp.TabIndex = 24
+ '
'frmFaktSammelRgDrucken
'
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(811, 297)
+ Me.Controls.Add(Me.Label5)
+ Me.Controls.Add(Me.cboFaktGrp)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.cbxEVOLOG)
@@ -490,4 +515,6 @@ Partial Class frmFaktSammelRgDrucken
Friend WithEvents Label4 As Label
Friend WithEvents Button1 As Button
Friend WithEvents cbxTransFerry As CheckBox
+ Friend WithEvents Label5 As Label
+ Friend WithEvents cboFaktGrp As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class
diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb
index a428ae3b..4cf01dc7 100644
--- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb
+++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb
@@ -60,6 +60,7 @@ Public Class frmFaktSammelRgDrucken
FROM Rechnungsausgang
WHERE Rechnungsausgang.Status IN (0,2) And Rechnungsausgang.Firma_ID = '" & cboFirma._value & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechung & "' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) <= '" & txtZeitraumBis._value & "'
" & If(Sammelrechung = 7 And cboSB._value <> "", " AND Rechnungsausgang.Sachbearbeiter='" & cboSB._value & "' ", "") & "
+ AND Rechnungsausgang.FakturierungsGruppe='" & cboFaktGrp._value & "'
GROUP BY RechnungsKundenNr " & If(Sammelrechung = 7, ",AvisoId", "") & "
ORDER BY Rechnungsausgang.RechnungsKundenNr "
'Rechnungsausgang.Status IN (0,2) --> vormals nur 2
@@ -118,6 +119,11 @@ Public Class frmFaktSammelRgDrucken
cboFirma.changeItem(Firma)
cboSB.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
+
+ cboFaktGrp.Items.Clear()
+ cboFaktGrp.fillWithSQL("SELECT [Code],[Bezeichnung] FROM tblFakturierungsgruppe", False, "ADMIN", False)
+ cboFaktGrp.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_fakturierungsgruppe)
+
cProgramFunctions.initDrucker(cboPrinter)
RadioButton.Checked = True
@@ -204,7 +210,7 @@ Public Class frmFaktSammelRgDrucken
If Not IsNumeric(getSelectionKdNr_Simple) Then MsgBox("Es muss eine eindeutige KundenNr ausgewählt werden!") : Exit Sub
- Dim f As New frmFaktEmail(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr_Simple, -1, Nothing, cboSB._value,, getAvisoIds, cbxEVOLOG.Checked, cbxTransFerry.Checked)
+ Dim f As New frmFaktEmail(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr_Simple, -1, Nothing, cboSB._value,, getAvisoIds, cbxEVOLOG.Checked, cbxTransFerry.Checked, cboFaktGrp._value)
f.ShowDialog(Me)
initDGV()
'Else
@@ -236,7 +242,7 @@ Public Class frmFaktSammelRgDrucken
Me.Cursor = Cursors.WaitCursor
Dim listPDFs As New List(Of String)
Dim SonstAnlagen As New List(Of String)
- cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds, cbxEVOLOG.Checked, SonstAnlagen, vorschau, cbxTransFerry.Checked)
+ cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds, cbxEVOLOG.Checked, SonstAnlagen, vorschau, cbxTransFerry.Checked, cboFaktGrp._value)
'-------------- für PDF-Sammel-Rechnung --------------
@@ -350,4 +356,8 @@ Public Class frmFaktSammelRgDrucken
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
doSammelrechnung(3, True)
End Sub
+
+ Private Sub cboFaktGrp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFaktGrp.SelectedIndexChanged
+ initDGV()
+ End Sub
End Class
\ No newline at end of file
diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb
index e03d7218..08cc3af0 100644
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb
@@ -23,14 +23,16 @@ Partial Class usrCntlFaktAbrechnung
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
- Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlFaktAbrechnung))
- 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 DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.pnlTop = New System.Windows.Forms.Panel()
@@ -39,6 +41,7 @@ Partial Class usrCntlFaktAbrechnung
Me.Button10 = New System.Windows.Forms.Button()
Me.Button11 = New System.Windows.Forms.Button()
Me.lblDruckaufheben = New System.Windows.Forms.LinkLabel()
+ Me.cboRgGS = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.lblSendungen = New System.Windows.Forms.Label()
Me.Label44 = New System.Windows.Forms.Label()
@@ -48,14 +51,18 @@ Partial Class usrCntlFaktAbrechnung
Me.Label45 = New System.Windows.Forms.Label()
Me.Label42 = New System.Windows.Forms.Label()
Me.btnDatenLaden = New System.Windows.Forms.Button()
+ Me.cboSpedBuchUnterNr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblErrFiliale = New System.Windows.Forms.Label()
Me.lblErrUnterNr = New System.Windows.Forms.Label()
Me.lblAbfNrExists = New System.Windows.Forms.Label()
Me.lblAbfNr_Err = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label41 = New System.Windows.Forms.Label()
+ Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
+ Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label39 = New System.Windows.Forms.Label()
Me.Label38 = New System.Windows.Forms.Label()
Me.lblSB = New System.Windows.Forms.Label()
@@ -63,34 +70,73 @@ Partial Class usrCntlFaktAbrechnung
Me.lblRechnungsDatum = New System.Windows.Forms.Label()
Me.lblRechnungsNummer = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+ Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn()
+ Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.clmnBezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.clmnDsId = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.clmnAnhId = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.Label36 = New System.Windows.Forms.Label()
Me.Label54 = New System.Windows.Forms.Label()
+ Me.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.rtbHandling = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.Label52 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.txtPositionAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label49 = New System.Windows.Forms.Label()
+ Me.txtAbfertigungsanzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label48 = New System.Windows.Forms.Label()
+ Me.txtAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label47 = New System.Windows.Forms.Label()
Me.pnlAvisierer = New System.Windows.Forms.Panel()
+ Me.txtkdNrAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label27 = New System.Windows.Forms.Label()
Me.btnAvisiererEuro = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label21 = New System.Windows.Forms.Label()
+ Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.kdFirmaAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+ Me.FlatButton5 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+ Me.cboAnlage5 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.cboAnlage1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.txtWarenwertUmrechnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label13 = New System.Windows.Forms.Label()
+ Me.cboAnlage2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label34 = New System.Windows.Forms.Label()
+ Me.cboAnlage3 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.cboAnlage6 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label25 = New System.Windows.Forms.Label()
+ Me.cboAnlage4 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.txtErfassungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label24 = New System.Windows.Forms.Label()
Me.Label22 = New System.Windows.Forms.Label()
+ Me.cboRechnungNotiz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pic = New System.Windows.Forms.PictureBox()
+ Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblFirma3 = New System.Windows.Forms.Label()
Me.lblFirma2 = New System.Windows.Forms.Label()
Me.lblFirma1 = New System.Windows.Forms.Label()
Me.Label32 = New System.Windows.Forms.Label()
Me.pnlAuftraggeber = New System.Windows.Forms.Panel()
+ Me.txtkdNrAuftraggeber = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnAuftraggeberEuro = New System.Windows.Forms.Button()
+ Me.kdFirmaAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+ Me.txtAuftraggeberName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label15 = New System.Windows.Forms.Label()
+ Me.txtAuftragggeberOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtAuftragggeberStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+ Me.txtText = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+ Me.txtBefoerderungsmittel = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtGrenze = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.Label19 = New System.Windows.Forms.Label()
+ Me.txtSendungsdaten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label17 = New System.Windows.Forms.Label()
+ Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label16 = New System.Windows.Forms.Label()
+ Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.pnlRechnungAn = New System.Windows.Forms.Panel()
Me.picKdAuftrInfo = New System.Windows.Forms.PictureBox()
@@ -99,35 +145,80 @@ Partial Class usrCntlFaktAbrechnung
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()
+ Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label43 = New System.Windows.Forms.Label()
+ Me.txtRechnungAnUIDKz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblVorauskasse = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
+ Me.cboRechnungAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.txtRechnungAnUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
+ Me.txtRechnungAnBuKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
+ Me.txtkdNrRechnungAn = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtRechnungAnOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtRechnungAnStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.pnlAbsender = New System.Windows.Forms.Panel()
+ Me.txtkdNrAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnAbsenderEuro = New System.Windows.Forms.Button()
+ Me.kdFirmaAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+ Me.txtAbsenderName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtAbsenderOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtAbsenderStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Panel7 = New System.Windows.Forms.Panel()
Me.picVK = New System.Windows.Forms.PictureBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button12 = New System.Windows.Forms.Button()
Me.Label14 = New System.Windows.Forms.Label()
+ Me.sbLeistung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Button7 = New System.Windows.Forms.Button()
Me.btnVorauskasseAnzeigen = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.btn = New System.Windows.Forms.Button()
+ Me.txtUnterNrRef = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.cboFilialeRef = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.txtAbfertigungsnummerRef = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label26 = New System.Windows.Forms.Label()
Me.Label31 = New System.Windows.Forms.Label()
Me.Label29 = New System.Windows.Forms.Label()
Me.Label30 = New System.Windows.Forms.Label()
+ Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+ Me.Leistung = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.SteuerpflichtigerBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.SteuerfreierBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.Aufschubkonto = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.dgvOffertenSperrliste = New System.Windows.Forms.DataGridView()
+ Me.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+ Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label18 = New System.Windows.Forms.Label()
Me.lblVK_ZahlungseingangBemerkung = New System.Windows.Forms.Label()
Me.lblVK_Zahlungseingang = New System.Windows.Forms.Label()
+ Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.cboWaehrungUmrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnlEmpfaenger = New System.Windows.Forms.Panel()
+ Me.txtkdNrEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnEmpfaengerEuro = New System.Windows.Forms.Button()
+ Me.txtEmpfeangerName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label5 = New System.Windows.Forms.Label()
+ Me.txtEmpfaengerOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtEmpfaengerStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.kdFirmaEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+ Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.pnl = New System.Windows.Forms.Panel()
+ Me.lblEUR_1 = New System.Windows.Forms.Label()
+ Me.lblEUR_2 = New System.Windows.Forms.Label()
+ Me.lblEUR_4 = New System.Windows.Forms.Label()
+ Me.Label55 = New System.Windows.Forms.Label()
+ Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten()
Me.cbxOriginalPrint = New System.Windows.Forms.CheckBox()
Me.Label46 = New System.Windows.Forms.Label()
Me.Button9 = New System.Windows.Forms.Button()
@@ -138,11 +229,17 @@ Partial Class usrCntlFaktAbrechnung
Me.Button2 = New System.Windows.Forms.Button()
Me.btnOK = New System.Windows.Forms.Button()
Me.Label23 = New System.Windows.Forms.Label()
+ Me.txtSteuersatz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtSteuerFreierBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label37 = New System.Windows.Forms.Label()
Me.lblEUR_3 = New System.Windows.Forms.Label()
+ Me.txtGesamtsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtSteuerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtSteuerpflichtigerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label33 = New System.Windows.Forms.Label()
Me.Label35 = New System.Windows.Forms.Label()
Me.Label28 = New System.Windows.Forms.Label()
+ Me.txtBesonderheiten = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.pnlDocs = New System.Windows.Forms.Panel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label51 = New System.Windows.Forms.Label()
@@ -151,97 +248,13 @@ 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.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.rtbHandling = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
- Me.txtPositionAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtAbfertigungsanzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtkdNrAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.kdFirmaAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
- Me.FlatButton5 = New VERAG_PROG_ALLGEMEIN.FlatButton()
- Me.cboAnlage5 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.cboAnlage1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.txtWarenwertUmrechnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.cboAnlage2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.cboAnlage3 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.cboAnlage6 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.cboAnlage4 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.txtErfassungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.cboRechnungNotiz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.txtkdNrAuftraggeber = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.kdFirmaAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
- Me.txtAuftraggeberName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtAuftragggeberOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtAuftragggeberStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton()
- Me.txtText = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
- Me.txtBefoerderungsmittel = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtGrenze = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtSendungsdaten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- 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()
- Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtRechnungAnUIDKz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.cboRechnungAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.txtRechnungAnUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtRechnungAnBuKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtkdNrRechnungAn = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtRechnungAnOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtRechnungAnStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtkdNrAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.kdFirmaAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
- Me.txtAbsenderName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtAbsenderOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtAbsenderStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
- Me.sbLeistung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
- Me.txtUnterNrRef = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.cboFilialeRef = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.txtAbfertigungsnummerRef = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
- Me.Leistung = New System.Windows.Forms.DataGridViewTextBoxColumn()
- Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn()
- Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn()
- Me.SteuerpflichtigerBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn()
- Me.SteuerfreierBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn()
- Me.Aufschubkonto = New System.Windows.Forms.DataGridViewTextBoxColumn()
- Me.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
- Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.cboWaehrungUmrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.txtkdNrEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtEmpfeangerName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtEmpfaengerOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtEmpfaengerStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.kdFirmaEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
- Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
- Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.txtSteuersatz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtSteuerFreierBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtGesamtsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtSteuerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtSteuerpflichtigerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtBesonderheiten = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
- Me.cboRgGS = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.cboSpedBuchUnterNr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.Label55 = New System.Windows.Forms.Label()
- Me.lblEUR_4 = New System.Windows.Forms.Label()
- Me.lblEUR_2 = New System.Windows.Forms.Label()
- Me.lblEUR_1 = New System.Windows.Forms.Label()
- Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten()
+ Me.Button14 = New System.Windows.Forms.Button()
+ Me.CntxtAbfArt = New System.Windows.Forms.ContextMenuStrip(Me.components)
+ Me.SdfToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnlTop.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.Panel1.SuspendLayout()
+ CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
Me.pnlAvisierer.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -252,14 +265,15 @@ Partial Class usrCntlFaktAbrechnung
Me.pnlAbsender.SuspendLayout()
Me.Panel7.SuspendLayout()
CType(Me.picVK, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvOffertenSperrliste, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlEmpfaenger.SuspendLayout()
Me.pnl.SuspendLayout()
Me.pnlDocs.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
- CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
- CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.CntxtAbfArt.SuspendLayout()
Me.SuspendLayout()
'
'Label9
@@ -275,10 +289,10 @@ Partial Class usrCntlFaktAbrechnung
'Label4
'
Me.Label4.AutoSize = True
- Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label4.Location = New System.Drawing.Point(6, 5)
+ Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
+ Me.Label4.Location = New System.Drawing.Point(3, 6)
Me.Label4.Name = "Label4"
- Me.Label4.Size = New System.Drawing.Size(87, 15)
+ Me.Label4.Size = New System.Drawing.Size(79, 13)
Me.Label4.TabIndex = 0
Me.Label4.Text = "1. Absender:"
'
@@ -386,6 +400,23 @@ Partial Class usrCntlFaktAbrechnung
Me.lblDruckaufheben.Text = "Druck aufheben"
Me.lblDruckaufheben.Visible = False
'
+ 'cboRgGS
+ '
+ Me.cboRgGS._allowedValuesFreiText = Nothing
+ Me.cboRgGS._allowFreiText = False
+ Me.cboRgGS._value = ""
+ Me.cboRgGS.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+ Me.cboRgGS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.cboRgGS.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold)
+ Me.cboRgGS.ForeColor = System.Drawing.Color.White
+ Me.cboRgGS.FormattingEnabled = True
+ Me.cboRgGS.Items.AddRange(New Object() {"Rechnung", "Gutschrift"})
+ Me.cboRgGS.Location = New System.Drawing.Point(3, -1)
+ Me.cboRgGS.Name = "cboRgGS"
+ Me.cboRgGS.Size = New System.Drawing.Size(211, 33)
+ Me.cboRgGS.TabIndex = 26
+ Me.cboRgGS.Text = "Rechnung"
+ '
'Panel3
'
Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -501,6 +532,19 @@ Partial Class usrCntlFaktAbrechnung
Me.btnDatenLaden.Text = "Daten laden"
Me.btnDatenLaden.UseVisualStyleBackColor = False
'
+ 'cboSpedBuchUnterNr
+ '
+ Me.cboSpedBuchUnterNr._allowedValuesFreiText = Nothing
+ Me.cboSpedBuchUnterNr._allowFreiText = False
+ Me.cboSpedBuchUnterNr._value = ""
+ Me.cboSpedBuchUnterNr.DropDownWidth = 350
+ Me.cboSpedBuchUnterNr.FormattingEnabled = True
+ Me.cboSpedBuchUnterNr.Location = New System.Drawing.Point(255, 48)
+ Me.cboSpedBuchUnterNr.Margin = New System.Windows.Forms.Padding(2)
+ Me.cboSpedBuchUnterNr.Name = "cboSpedBuchUnterNr"
+ Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(71, 21)
+ Me.cboSpedBuchUnterNr.TabIndex = 5
+ '
'lblErrFiliale
'
Me.lblErrFiliale.AutoSize = True
@@ -570,6 +614,28 @@ Partial Class usrCntlFaktAbrechnung
Me.Label41.Text = "Druck-Datum:"
Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopRight
'
+ 'txtUnterNr
+ '
+ Me.txtUnterNr._DateTimeOnly = False
+ Me.txtUnterNr._numbersOnly = False
+ Me.txtUnterNr._numbersOnlyKommastellen = ""
+ Me.txtUnterNr._Prozent = False
+ Me.txtUnterNr._ShortDateNew = False
+ Me.txtUnterNr._ShortDateOnly = False
+ Me.txtUnterNr._TimeOnly = False
+ Me.txtUnterNr._value = Nothing
+ Me.txtUnterNr._Waehrung = False
+ Me.txtUnterNr._WaehrungZeichen = True
+ Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!)
+ Me.txtUnterNr.Location = New System.Drawing.Point(417, 48)
+ Me.txtUnterNr.MaxLineLength = -1
+ Me.txtUnterNr.MaxLines_Warning = ""
+ Me.txtUnterNr.MaxLines_Warning_Label = Nothing
+ Me.txtUnterNr.Name = "txtUnterNr"
+ Me.txtUnterNr.ReadOnly = True
+ Me.txtUnterNr.Size = New System.Drawing.Size(55, 21)
+ Me.txtUnterNr.TabIndex = 7
+ '
'Label11
'
Me.Label11.AutoSize = True
@@ -592,6 +658,41 @@ Partial Class usrCntlFaktAbrechnung
Me.Label12.TabIndex = 2
Me.Label12.Text = "UnterNr"
'
+ 'cboFiliale
+ '
+ Me.cboFiliale._allowedValuesFreiText = Nothing
+ Me.cboFiliale._allowFreiText = False
+ Me.cboFiliale._value = ""
+ Me.cboFiliale.DropDownWidth = 280
+ Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cboFiliale.FormattingEnabled = True
+ Me.cboFiliale.Location = New System.Drawing.Point(8, 48)
+ Me.cboFiliale.Name = "cboFiliale"
+ Me.cboFiliale.Size = New System.Drawing.Size(80, 21)
+ Me.cboFiliale.TabIndex = 3
+ '
+ 'txtAbfertigungsnummer
+ '
+ Me.txtAbfertigungsnummer._DateTimeOnly = False
+ Me.txtAbfertigungsnummer._numbersOnly = True
+ Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
+ Me.txtAbfertigungsnummer._Prozent = False
+ Me.txtAbfertigungsnummer._ShortDateNew = False
+ Me.txtAbfertigungsnummer._ShortDateOnly = False
+ Me.txtAbfertigungsnummer._TimeOnly = False
+ Me.txtAbfertigungsnummer._value = ""
+ Me.txtAbfertigungsnummer._Waehrung = False
+ Me.txtAbfertigungsnummer._WaehrungZeichen = True
+ Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!)
+ Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(87, 48)
+ Me.txtAbfertigungsnummer.MaxLength = 8
+ Me.txtAbfertigungsnummer.MaxLineLength = -1
+ Me.txtAbfertigungsnummer.MaxLines_Warning = ""
+ Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
+ Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
+ Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(169, 21)
+ Me.txtAbfertigungsnummer.TabIndex = 4
+ '
'Label39
'
Me.Label39.ForeColor = System.Drawing.Color.White
@@ -659,6 +760,8 @@ Partial Class usrCntlFaktAbrechnung
'Panel1
'
Me.Panel1.AutoScroll = True
+ Me.Panel1.Controls.Add(Me.dgvAnhaenge)
+ Me.Panel1.Controls.Add(Me.Label36)
Me.Panel1.Controls.Add(Me.Label54)
Me.Panel1.Controls.Add(Me.cboRechnungSprache)
Me.Panel1.Controls.Add(Me.rtbHandling)
@@ -707,9 +810,87 @@ Partial Class usrCntlFaktAbrechnung
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 83)
Me.Panel1.Name = "Panel1"
- Me.Panel1.Size = New System.Drawing.Size(830, 1142)
+ Me.Panel1.Size = New System.Drawing.Size(830, 1136)
Me.Panel1.TabIndex = 1
'
+ 'dgvAnhaenge
+ '
+ Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
+ Me.dgvAnhaenge.AllowUserToAddRows = False
+ Me.dgvAnhaenge.AllowUserToDeleteRows = False
+ Me.dgvAnhaenge.AllowUserToResizeColumns = False
+ Me.dgvAnhaenge.AllowUserToResizeRows = False
+ Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
+ Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+ Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.optAnhSel, Me.DataGridViewTextBoxColumn2, Me.clmnBezeichnung, Me.clmnDsId, Me.clmnAnhId})
+ Me.dgvAnhaenge.Location = New System.Drawing.Point(493, 911)
+ Me.dgvAnhaenge.MultiSelect = False
+ Me.dgvAnhaenge.Name = "dgvAnhaenge"
+ Me.dgvAnhaenge.ReadOnly = True
+ Me.dgvAnhaenge.RowHeadersVisible = False
+ Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+ Me.dgvAnhaenge.Size = New System.Drawing.Size(329, 219)
+ Me.dgvAnhaenge.TabIndex = 90
+ Me.dgvAnhaenge.TabStop = False
+ '
+ 'optAnhSel
+ '
+ Me.optAnhSel.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.optAnhSel.FillWeight = 78.74017!
+ Me.optAnhSel.HeaderText = ""
+ Me.optAnhSel.Name = "optAnhSel"
+ Me.optAnhSel.ReadOnly = True
+ Me.optAnhSel.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.optAnhSel.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
+ Me.optAnhSel.Width = 35
+ '
+ 'DataGridViewTextBoxColumn2
+ '
+ DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+ DataGridViewCellStyle10.Format = "N0"
+ DataGridViewCellStyle10.NullValue = Nothing
+ Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle10
+ Me.DataGridViewTextBoxColumn2.HeaderText = "Art"
+ Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
+ Me.DataGridViewTextBoxColumn2.ReadOnly = True
+ Me.DataGridViewTextBoxColumn2.Width = 70
+ '
+ 'clmnBezeichnung
+ '
+ Me.clmnBezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+ DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+ DataGridViewCellStyle11.Format = "c2"
+ Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle11
+ Me.clmnBezeichnung.FillWeight = 121.2598!
+ Me.clmnBezeichnung.HeaderText = "Bezeichnung"
+ Me.clmnBezeichnung.Name = "clmnBezeichnung"
+ Me.clmnBezeichnung.ReadOnly = True
+ '
+ 'clmnDsId
+ '
+ Me.clmnDsId.HeaderText = "clmnDsId"
+ Me.clmnDsId.Name = "clmnDsId"
+ Me.clmnDsId.ReadOnly = True
+ Me.clmnDsId.Visible = False
+ '
+ 'clmnAnhId
+ '
+ Me.clmnAnhId.HeaderText = "clmnAnhId"
+ Me.clmnAnhId.Name = "clmnAnhId"
+ Me.clmnAnhId.ReadOnly = True
+ Me.clmnAnhId.Visible = False
+ '
+ 'Label36
+ '
+ Me.Label36.AutoSize = True
+ Me.Label36.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.Label36.Location = New System.Drawing.Point(490, 896)
+ Me.Label36.Name = "Label36"
+ Me.Label36.Size = New System.Drawing.Size(57, 13)
+ Me.Label36.TabIndex = 89
+ Me.Label36.Text = "Anlagen:"
+ Me.Label36.TextAlign = System.Drawing.ContentAlignment.TopRight
+ '
'Label54
'
Me.Label54.AutoSize = True
@@ -720,11 +901,35 @@ Partial Class usrCntlFaktAbrechnung
Me.Label54.Text = "Sprache Rechnung:"
Me.Label54.TextAlign = System.Drawing.ContentAlignment.TopRight
'
+ 'cboRechnungSprache
+ '
+ Me.cboRechnungSprache._allowedValuesFreiText = Nothing
+ Me.cboRechnungSprache._allowFreiText = False
+ Me.cboRechnungSprache._value = ""
+ Me.cboRechnungSprache.FormattingEnabled = True
+ Me.cboRechnungSprache.Location = New System.Drawing.Point(697, 116)
+ Me.cboRechnungSprache.Margin = New System.Windows.Forms.Padding(2)
+ Me.cboRechnungSprache.Name = "cboRechnungSprache"
+ Me.cboRechnungSprache.Size = New System.Drawing.Size(123, 21)
+ Me.cboRechnungSprache.TabIndex = 45
+ Me.cboRechnungSprache.TabStop = False
+ '
+ 'rtbHandling
+ '
+ Me.rtbHandling.Location = New System.Drawing.Point(280, 911)
+ Me.rtbHandling.MaxLineLength = -1
+ Me.rtbHandling.MaxLines_Warning = ""
+ Me.rtbHandling.MaxLines_Warning_Label = Nothing
+ Me.rtbHandling.Name = "rtbHandling"
+ Me.rtbHandling.Size = New System.Drawing.Size(207, 121)
+ Me.rtbHandling.TabIndex = 44
+ Me.rtbHandling.Text = ""
+ '
'Label52
'
Me.Label52.AutoSize = True
Me.Label52.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.Label52.Location = New System.Drawing.Point(549, 938)
+ Me.Label52.Location = New System.Drawing.Point(277, 895)
Me.Label52.Name = "Label52"
Me.Label52.Size = New System.Drawing.Size(56, 13)
Me.Label52.TabIndex = 43
@@ -741,11 +946,34 @@ Partial Class usrCntlFaktAbrechnung
Me.Panel2.Controls.Add(Me.txtAbfertigungsart)
Me.Panel2.Controls.Add(Me.Label47)
Me.Panel2.ForeColor = System.Drawing.Color.Black
- Me.Panel2.Location = New System.Drawing.Point(418, 438)
+ Me.Panel2.Location = New System.Drawing.Point(419, 395)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(411, 45)
Me.Panel2.TabIndex = 41
'
+ 'txtPositionAnzahl
+ '
+ Me.txtPositionAnzahl._DateTimeOnly = False
+ Me.txtPositionAnzahl._numbersOnly = False
+ Me.txtPositionAnzahl._numbersOnlyKommastellen = ""
+ Me.txtPositionAnzahl._Prozent = False
+ Me.txtPositionAnzahl._ShortDateNew = False
+ Me.txtPositionAnzahl._ShortDateOnly = False
+ Me.txtPositionAnzahl._TimeOnly = False
+ Me.txtPositionAnzahl._value = Nothing
+ Me.txtPositionAnzahl._Waehrung = False
+ Me.txtPositionAnzahl._WaehrungZeichen = True
+ Me.txtPositionAnzahl.ForeColor = System.Drawing.Color.Black
+ Me.txtPositionAnzahl.Location = New System.Drawing.Point(358, 21)
+ Me.txtPositionAnzahl.MaxLength = 35
+ Me.txtPositionAnzahl.MaxLineLength = -1
+ Me.txtPositionAnzahl.MaxLines_Warning = ""
+ Me.txtPositionAnzahl.MaxLines_Warning_Label = Nothing
+ Me.txtPositionAnzahl.Name = "txtPositionAnzahl"
+ Me.txtPositionAnzahl.ReadOnly = True
+ Me.txtPositionAnzahl.Size = New System.Drawing.Size(43, 20)
+ Me.txtPositionAnzahl.TabIndex = 46
+ '
'Label49
'
Me.Label49.AutoSize = True
@@ -756,6 +984,29 @@ Partial Class usrCntlFaktAbrechnung
Me.Label49.Text = "Pos.Anz.:"
Me.Label49.TextAlign = System.Drawing.ContentAlignment.TopRight
'
+ 'txtAbfertigungsanzahl
+ '
+ Me.txtAbfertigungsanzahl._DateTimeOnly = False
+ Me.txtAbfertigungsanzahl._numbersOnly = False
+ Me.txtAbfertigungsanzahl._numbersOnlyKommastellen = ""
+ Me.txtAbfertigungsanzahl._Prozent = False
+ Me.txtAbfertigungsanzahl._ShortDateNew = False
+ Me.txtAbfertigungsanzahl._ShortDateOnly = False
+ Me.txtAbfertigungsanzahl._TimeOnly = False
+ Me.txtAbfertigungsanzahl._value = Nothing
+ Me.txtAbfertigungsanzahl._Waehrung = False
+ Me.txtAbfertigungsanzahl._WaehrungZeichen = True
+ Me.txtAbfertigungsanzahl.ForeColor = System.Drawing.Color.Black
+ Me.txtAbfertigungsanzahl.Location = New System.Drawing.Point(358, 3)
+ Me.txtAbfertigungsanzahl.MaxLength = 35
+ Me.txtAbfertigungsanzahl.MaxLineLength = -1
+ Me.txtAbfertigungsanzahl.MaxLines_Warning = ""
+ Me.txtAbfertigungsanzahl.MaxLines_Warning_Label = Nothing
+ Me.txtAbfertigungsanzahl.Name = "txtAbfertigungsanzahl"
+ Me.txtAbfertigungsanzahl.ReadOnly = True
+ Me.txtAbfertigungsanzahl.Size = New System.Drawing.Size(43, 20)
+ Me.txtAbfertigungsanzahl.TabIndex = 44
+ '
'Label48
'
Me.Label48.AutoSize = True
@@ -766,6 +1017,29 @@ Partial Class usrCntlFaktAbrechnung
Me.Label48.Text = "Anzahl:"
Me.Label48.TextAlign = System.Drawing.ContentAlignment.TopRight
'
+ 'txtAbfertigungsart
+ '
+ Me.txtAbfertigungsart._DateTimeOnly = False
+ Me.txtAbfertigungsart._numbersOnly = False
+ Me.txtAbfertigungsart._numbersOnlyKommastellen = ""
+ Me.txtAbfertigungsart._Prozent = False
+ Me.txtAbfertigungsart._ShortDateNew = False
+ Me.txtAbfertigungsart._ShortDateOnly = False
+ Me.txtAbfertigungsart._TimeOnly = False
+ Me.txtAbfertigungsart._value = Nothing
+ Me.txtAbfertigungsart._Waehrung = False
+ Me.txtAbfertigungsart._WaehrungZeichen = True
+ Me.txtAbfertigungsart.ForeColor = System.Drawing.Color.Black
+ Me.txtAbfertigungsart.Location = New System.Drawing.Point(97, 3)
+ Me.txtAbfertigungsart.MaxLength = 35
+ Me.txtAbfertigungsart.MaxLineLength = -1
+ Me.txtAbfertigungsart.MaxLines_Warning = ""
+ Me.txtAbfertigungsart.MaxLines_Warning_Label = Nothing
+ Me.txtAbfertigungsart.Name = "txtAbfertigungsart"
+ Me.txtAbfertigungsart.ReadOnly = True
+ Me.txtAbfertigungsart.Size = New System.Drawing.Size(199, 20)
+ Me.txtAbfertigungsart.TabIndex = 42
+ '
'Label47
'
Me.Label47.AutoSize = True
@@ -778,29 +1052,53 @@ Partial Class usrCntlFaktAbrechnung
'
'pnlAvisierer
'
- Me.pnlAvisierer.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
- Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlAvisierer.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnlAvisierer.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlAvisierer.Controls.Add(Me.txtkdNrAvisierer)
Me.pnlAvisierer.Controls.Add(Me.Label27)
Me.pnlAvisierer.Controls.Add(Me.btnAvisiererEuro)
Me.pnlAvisierer.Controls.Add(Me.Label2)
- Me.pnlAvisierer.Controls.Add(Me.txtkdNrAvisierer)
Me.pnlAvisierer.Controls.Add(Me.Label21)
Me.pnlAvisierer.Controls.Add(Me.txtAvisoId)
Me.pnlAvisierer.Controls.Add(Me.kdFirmaAvisierer)
Me.pnlAvisierer.Controls.Add(Me.FlatButton5)
- Me.pnlAvisierer.Location = New System.Drawing.Point(414, 252)
+ Me.pnlAvisierer.Location = New System.Drawing.Point(0, 367)
Me.pnlAvisierer.Name = "pnlAvisierer"
- Me.pnlAvisierer.Size = New System.Drawing.Size(414, 110)
+ Me.pnlAvisierer.Size = New System.Drawing.Size(415, 73)
Me.pnlAvisierer.TabIndex = 8
'
+ 'txtkdNrAvisierer
+ '
+ Me.txtkdNrAvisierer._DateTimeOnly = False
+ Me.txtkdNrAvisierer._numbersOnly = False
+ Me.txtkdNrAvisierer._numbersOnlyKommastellen = ""
+ Me.txtkdNrAvisierer._Prozent = False
+ Me.txtkdNrAvisierer._ShortDateNew = False
+ Me.txtkdNrAvisierer._ShortDateOnly = False
+ Me.txtkdNrAvisierer._TimeOnly = False
+ Me.txtkdNrAvisierer._value = Nothing
+ Me.txtkdNrAvisierer._Waehrung = False
+ Me.txtkdNrAvisierer._WaehrungZeichen = True
+ Me.txtkdNrAvisierer.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtkdNrAvisierer.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtkdNrAvisierer.ForeColor = System.Drawing.Color.Black
+ Me.txtkdNrAvisierer.Location = New System.Drawing.Point(7, 22)
+ Me.txtkdNrAvisierer.MaxLength = 35
+ Me.txtkdNrAvisierer.MaxLineLength = -1
+ Me.txtkdNrAvisierer.MaxLines_Warning = ""
+ Me.txtkdNrAvisierer.MaxLines_Warning_Label = Nothing
+ Me.txtkdNrAvisierer.Name = "txtkdNrAvisierer"
+ Me.txtkdNrAvisierer.ReadOnly = True
+ Me.txtkdNrAvisierer.Size = New System.Drawing.Size(94, 13)
+ Me.txtkdNrAvisierer.TabIndex = 1
+ Me.txtkdNrAvisierer.TabStop = False
+ '
'Label27
'
Me.Label27.AutoSize = True
Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.Label27.ForeColor = System.Drawing.Color.Red
- Me.Label27.Location = New System.Drawing.Point(98, 87)
+ Me.Label27.Location = New System.Drawing.Point(285, 38)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(108, 13)
Me.Label27.TabIndex = 7
@@ -813,10 +1111,10 @@ Partial Class usrCntlFaktAbrechnung
Me.btnAvisiererEuro.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAvisiererEuro.Font = New System.Drawing.Font("Arial Black", 18.0!, System.Drawing.FontStyle.Bold)
Me.btnAvisiererEuro.ForeColor = System.Drawing.Color.Silver
- Me.btnAvisiererEuro.Location = New System.Drawing.Point(8, 59)
+ Me.btnAvisiererEuro.Location = New System.Drawing.Point(8, 27)
Me.btnAvisiererEuro.Margin = New System.Windows.Forms.Padding(2)
Me.btnAvisiererEuro.Name = "btnAvisiererEuro"
- Me.btnAvisiererEuro.Size = New System.Drawing.Size(50, 38)
+ Me.btnAvisiererEuro.Size = New System.Drawing.Size(93, 37)
Me.btnAvisiererEuro.TabIndex = 4
Me.btnAvisiererEuro.TabStop = False
Me.btnAvisiererEuro.Text = "€"
@@ -826,7 +1124,7 @@ Partial Class usrCntlFaktAbrechnung
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label2.Location = New System.Drawing.Point(99, 63)
+ Me.Label2.Location = New System.Drawing.Point(99, 37)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(48, 13)
Me.Label2.TabIndex = 5
@@ -835,48 +1133,269 @@ Partial Class usrCntlFaktAbrechnung
'Label21
'
Me.Label21.AutoSize = True
- Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label21.Location = New System.Drawing.Point(6, 4)
+ Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
+ Me.Label21.Location = New System.Drawing.Point(3, 6)
Me.Label21.Name = "Label21"
- Me.Label21.Size = New System.Drawing.Size(82, 15)
+ Me.Label21.Size = New System.Drawing.Size(75, 13)
Me.Label21.TabIndex = 0
Me.Label21.Text = "4. Avisierer:"
'
+ 'txtAvisoId
+ '
+ Me.txtAvisoId._DateTimeOnly = False
+ Me.txtAvisoId._numbersOnly = False
+ Me.txtAvisoId._numbersOnlyKommastellen = ""
+ Me.txtAvisoId._Prozent = False
+ Me.txtAvisoId._ShortDateNew = False
+ Me.txtAvisoId._ShortDateOnly = False
+ Me.txtAvisoId._TimeOnly = False
+ Me.txtAvisoId._value = Nothing
+ Me.txtAvisoId._Waehrung = False
+ Me.txtAvisoId._WaehrungZeichen = True
+ Me.txtAvisoId.ForeColor = System.Drawing.Color.Black
+ Me.txtAvisoId.Location = New System.Drawing.Point(157, 35)
+ Me.txtAvisoId.MaxLength = 35
+ Me.txtAvisoId.MaxLineLength = -1
+ Me.txtAvisoId.MaxLines_Warning = ""
+ Me.txtAvisoId.MaxLines_Warning_Label = Nothing
+ Me.txtAvisoId.Name = "txtAvisoId"
+ Me.txtAvisoId.ReadOnly = True
+ Me.txtAvisoId.Size = New System.Drawing.Size(126, 20)
+ Me.txtAvisoId.TabIndex = 6
+ Me.txtAvisoId.TabStop = False
+ Me.txtAvisoId.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'kdFirmaAvisierer
+ '
+ Me.kdFirmaAvisierer._AlleFirmenCLUSTER = False
+ Me.kdFirmaAvisierer._AllowSetValue = True
+ Me.kdFirmaAvisierer._autoSizeGross = False
+ Me.kdFirmaAvisierer._display_Name1 = True
+ Me.kdFirmaAvisierer._displayAVISO_Email = False
+ Me.kdFirmaAvisierer._displayFullName = False
+ Me.kdFirmaAvisierer._displayWoelflKd = False
+ Me.kdFirmaAvisierer._hideIfListEmpty = True
+ Me.kdFirmaAvisierer._loadKdData = True
+ Me.kdFirmaAvisierer._UseFIRMA = ""
+ Me.kdFirmaAvisierer._ValueKdAndName = False
+ Me.kdFirmaAvisierer.BackColor = System.Drawing.Color.White
+ Me.kdFirmaAvisierer.dgvpos = "LEFT"
+ Me.kdFirmaAvisierer.KdName = Nothing
+ Me.kdFirmaAvisierer.KdNr = "-1"
+ Me.kdFirmaAvisierer.kdNrField = Nothing
+ Me.kdFirmaAvisierer.KdNrNullInt = Nothing
+ Me.kdFirmaAvisierer.Location = New System.Drawing.Point(101, 2)
+ Me.kdFirmaAvisierer.MaxLength = 35
+ Me.kdFirmaAvisierer.Name = "kdFirmaAvisierer"
+ Me.kdFirmaAvisierer.nurAktive = True
+ Me.kdFirmaAvisierer.searchActive = True
+ Me.kdFirmaAvisierer.Size = New System.Drawing.Size(283, 20)
+ Me.kdFirmaAvisierer.TabIndex = 3
+ Me.kdFirmaAvisierer.TabStop = False
+ Me.kdFirmaAvisierer.TIMER_SEARCH = True
+ Me.kdFirmaAvisierer.usrcntl = Nothing
+ '
+ 'FlatButton5
+ '
+ Me.FlatButton5.allowBorder = False
+ Me.FlatButton5.FlatAppearance.BorderSize = 0
+ Me.FlatButton5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.FlatButton5.ForeColor = System.Drawing.Color.Black
+ Me.FlatButton5.Image = Global.SDL.My.Resources.Resources.personInaktiv
+ Me.FlatButton5.Location = New System.Drawing.Point(382, -1)
+ Me.FlatButton5.Name = "FlatButton5"
+ Me.FlatButton5.Size = New System.Drawing.Size(24, 25)
+ Me.FlatButton5.TabIndex = 2
+ Me.FlatButton5.TabStop = False
+ Me.FlatButton5.UseVisualStyleBackColor = True
+ '
+ 'cboAnlage5
+ '
+ Me.cboAnlage5._allowedValuesFreiText = Nothing
+ Me.cboAnlage5._allowFreiText = True
+ Me.cboAnlage5._value = ""
+ Me.cboAnlage5.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+ Me.cboAnlage5.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+ Me.cboAnlage5.FormattingEnabled = True
+ Me.cboAnlage5.Location = New System.Drawing.Point(10, 991)
+ Me.cboAnlage5.MaxLength = 35
+ Me.cboAnlage5.Name = "cboAnlage5"
+ Me.cboAnlage5.Size = New System.Drawing.Size(266, 21)
+ Me.cboAnlage5.TabIndex = 32
+ '
+ 'cboAnlage1
+ '
+ Me.cboAnlage1._allowedValuesFreiText = Nothing
+ Me.cboAnlage1._allowFreiText = True
+ Me.cboAnlage1._value = ""
+ Me.cboAnlage1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+ Me.cboAnlage1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+ Me.cboAnlage1.FormattingEnabled = True
+ Me.cboAnlage1.Location = New System.Drawing.Point(10, 911)
+ Me.cboAnlage1.MaxLength = 35
+ Me.cboAnlage1.Name = "cboAnlage1"
+ Me.cboAnlage1.Size = New System.Drawing.Size(266, 21)
+ Me.cboAnlage1.TabIndex = 28
+ '
+ 'txtWarenwertUmrechnung
+ '
+ Me.txtWarenwertUmrechnung._DateTimeOnly = False
+ Me.txtWarenwertUmrechnung._numbersOnly = False
+ Me.txtWarenwertUmrechnung._numbersOnlyKommastellen = ""
+ Me.txtWarenwertUmrechnung._Prozent = False
+ Me.txtWarenwertUmrechnung._ShortDateNew = False
+ Me.txtWarenwertUmrechnung._ShortDateOnly = False
+ Me.txtWarenwertUmrechnung._TimeOnly = False
+ Me.txtWarenwertUmrechnung._value = ""
+ Me.txtWarenwertUmrechnung._Waehrung = True
+ Me.txtWarenwertUmrechnung._WaehrungZeichen = False
+ Me.txtWarenwertUmrechnung.Enabled = False
+ Me.txtWarenwertUmrechnung.ForeColor = System.Drawing.Color.Black
+ Me.txtWarenwertUmrechnung.Location = New System.Drawing.Point(562, 191)
+ Me.txtWarenwertUmrechnung.MaxLength = 35
+ Me.txtWarenwertUmrechnung.MaxLineLength = -1
+ Me.txtWarenwertUmrechnung.MaxLines_Warning = ""
+ Me.txtWarenwertUmrechnung.MaxLines_Warning_Label = Nothing
+ Me.txtWarenwertUmrechnung.Name = "txtWarenwertUmrechnung"
+ Me.txtWarenwertUmrechnung.Size = New System.Drawing.Size(129, 20)
+ Me.txtWarenwertUmrechnung.TabIndex = 18
+ Me.txtWarenwertUmrechnung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.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.Label13.Location = New System.Drawing.Point(7, 938)
+ Me.Label13.Location = New System.Drawing.Point(7, 895)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(57, 13)
Me.Label13.TabIndex = 26
Me.Label13.Text = "Anlagen:"
Me.Label13.TextAlign = System.Drawing.ContentAlignment.TopRight
'
+ 'cboAnlage2
+ '
+ Me.cboAnlage2._allowedValuesFreiText = Nothing
+ Me.cboAnlage2._allowFreiText = True
+ Me.cboAnlage2._value = ""
+ Me.cboAnlage2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+ Me.cboAnlage2.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+ Me.cboAnlage2.FormattingEnabled = True
+ Me.cboAnlage2.Location = New System.Drawing.Point(10, 931)
+ Me.cboAnlage2.MaxLength = 35
+ Me.cboAnlage2.Name = "cboAnlage2"
+ Me.cboAnlage2.Size = New System.Drawing.Size(266, 21)
+ Me.cboAnlage2.TabIndex = 29
+ '
'Label34
'
Me.Label34.AutoSize = True
- Me.Label34.Location = New System.Drawing.Point(7, 417)
+ Me.Label34.Location = New System.Drawing.Point(422, 194)
Me.Label34.Name = "Label34"
Me.Label34.Size = New System.Drawing.Size(71, 13)
Me.Label34.TabIndex = 40
Me.Label34.Text = "Umrechnung:"
Me.Label34.TextAlign = System.Drawing.ContentAlignment.TopRight
'
+ 'cboAnlage3
+ '
+ Me.cboAnlage3._allowedValuesFreiText = Nothing
+ Me.cboAnlage3._allowFreiText = True
+ Me.cboAnlage3._value = ""
+ Me.cboAnlage3.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+ Me.cboAnlage3.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+ Me.cboAnlage3.FormattingEnabled = True
+ Me.cboAnlage3.Location = New System.Drawing.Point(10, 951)
+ Me.cboAnlage3.MaxLength = 35
+ Me.cboAnlage3.Name = "cboAnlage3"
+ Me.cboAnlage3.Size = New System.Drawing.Size(266, 21)
+ Me.cboAnlage3.TabIndex = 30
+ '
+ 'txtVermerk
+ '
+ Me.txtVermerk._DateTimeOnly = False
+ Me.txtVermerk._numbersOnly = False
+ Me.txtVermerk._numbersOnlyKommastellen = ""
+ Me.txtVermerk._Prozent = False
+ Me.txtVermerk._ShortDateNew = False
+ Me.txtVermerk._ShortDateOnly = False
+ Me.txtVermerk._TimeOnly = False
+ Me.txtVermerk._value = Nothing
+ Me.txtVermerk._Waehrung = False
+ Me.txtVermerk._WaehrungZeichen = True
+ Me.txtVermerk.ForeColor = System.Drawing.Color.Black
+ Me.txtVermerk.Location = New System.Drawing.Point(517, 335)
+ Me.txtVermerk.MaxLength = 35
+ Me.txtVermerk.MaxLineLength = -1
+ Me.txtVermerk.MaxLines_Warning = ""
+ Me.txtVermerk.MaxLines_Warning_Label = Nothing
+ Me.txtVermerk.Name = "txtVermerk"
+ Me.txtVermerk.Size = New System.Drawing.Size(305, 20)
+ Me.txtVermerk.TabIndex = 25
+ '
+ 'cboAnlage6
+ '
+ Me.cboAnlage6._allowedValuesFreiText = Nothing
+ Me.cboAnlage6._allowFreiText = True
+ Me.cboAnlage6._value = ""
+ Me.cboAnlage6.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+ Me.cboAnlage6.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+ Me.cboAnlage6.FormattingEnabled = True
+ Me.cboAnlage6.Location = New System.Drawing.Point(10, 1011)
+ Me.cboAnlage6.MaxLength = 35
+ Me.cboAnlage6.Name = "cboAnlage6"
+ Me.cboAnlage6.Size = New System.Drawing.Size(266, 21)
+ Me.cboAnlage6.TabIndex = 33
+ '
'Label25
'
Me.Label25.AutoSize = True
- Me.Label25.Location = New System.Drawing.Point(7, 459)
+ Me.Label25.Location = New System.Drawing.Point(422, 338)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(49, 13)
Me.Label25.TabIndex = 39
Me.Label25.Text = "Vermerk:"
Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight
'
+ 'cboAnlage4
+ '
+ Me.cboAnlage4._allowedValuesFreiText = Nothing
+ Me.cboAnlage4._allowFreiText = True
+ Me.cboAnlage4._value = ""
+ Me.cboAnlage4.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+ Me.cboAnlage4.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+ Me.cboAnlage4.FormattingEnabled = True
+ Me.cboAnlage4.Location = New System.Drawing.Point(10, 971)
+ Me.cboAnlage4.MaxLength = 35
+ Me.cboAnlage4.Name = "cboAnlage4"
+ Me.cboAnlage4.Size = New System.Drawing.Size(266, 21)
+ Me.cboAnlage4.TabIndex = 31
+ '
+ 'txtErfassungsnummer
+ '
+ Me.txtErfassungsnummer._DateTimeOnly = False
+ Me.txtErfassungsnummer._numbersOnly = False
+ Me.txtErfassungsnummer._numbersOnlyKommastellen = ""
+ Me.txtErfassungsnummer._Prozent = False
+ Me.txtErfassungsnummer._ShortDateNew = False
+ Me.txtErfassungsnummer._ShortDateOnly = False
+ Me.txtErfassungsnummer._TimeOnly = False
+ Me.txtErfassungsnummer._value = Nothing
+ Me.txtErfassungsnummer._Waehrung = False
+ Me.txtErfassungsnummer._WaehrungZeichen = True
+ Me.txtErfassungsnummer.ForeColor = System.Drawing.Color.Black
+ Me.txtErfassungsnummer.Location = New System.Drawing.Point(517, 236)
+ Me.txtErfassungsnummer.MaxLength = 35
+ Me.txtErfassungsnummer.MaxLineLength = -1
+ Me.txtErfassungsnummer.MaxLines_Warning = ""
+ Me.txtErfassungsnummer.MaxLines_Warning_Label = Nothing
+ Me.txtErfassungsnummer.Name = "txtErfassungsnummer"
+ Me.txtErfassungsnummer.Size = New System.Drawing.Size(305, 20)
+ Me.txtErfassungsnummer.TabIndex = 11
+ '
'Label24
'
Me.Label24.AutoSize = True
- Me.Label24.Location = New System.Drawing.Point(421, 379)
+ Me.Label24.Location = New System.Drawing.Point(422, 239)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(79, 13)
Me.Label24.TabIndex = 38
@@ -886,13 +1405,24 @@ Partial Class usrCntlFaktAbrechnung
'Label22
'
Me.Label22.AutoSize = True
- Me.Label22.Location = New System.Drawing.Point(8, 1032)
+ Me.Label22.Location = New System.Drawing.Point(8, 1042)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(51, 13)
Me.Label22.TabIndex = 37
Me.Label22.Text = "Rg-Notiz:"
Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopRight
'
+ 'cboRechnungNotiz
+ '
+ Me.cboRechnungNotiz._allowedValuesFreiText = Nothing
+ Me.cboRechnungNotiz._allowFreiText = True
+ Me.cboRechnungNotiz._value = ""
+ Me.cboRechnungNotiz.FormattingEnabled = True
+ Me.cboRechnungNotiz.Location = New System.Drawing.Point(64, 1039)
+ Me.cboRechnungNotiz.Name = "cboRechnungNotiz"
+ Me.cboRechnungNotiz.Size = New System.Drawing.Size(423, 21)
+ Me.cboRechnungNotiz.TabIndex = 36
+ '
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.Verag_AG_Logo_med
@@ -904,6 +1434,19 @@ Partial Class usrCntlFaktAbrechnung
Me.pic.TabIndex = 36
Me.pic.TabStop = False
'
+ 'cboFirma
+ '
+ Me.cboFirma._allowedValuesFreiText = Nothing
+ Me.cboFirma._allowFreiText = False
+ Me.cboFirma._value = ""
+ Me.cboFirma.FormattingEnabled = True
+ Me.cboFirma.Location = New System.Drawing.Point(592, 51)
+ Me.cboFirma.Margin = New System.Windows.Forms.Padding(2)
+ Me.cboFirma.Name = "cboFirma"
+ Me.cboFirma.Size = New System.Drawing.Size(229, 21)
+ Me.cboFirma.TabIndex = 1
+ Me.cboFirma.TabStop = False
+ '
'lblFirma3
'
Me.lblFirma3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -937,7 +1480,7 @@ Partial Class usrCntlFaktAbrechnung
'Label32
'
Me.Label32.AutoSize = True
- Me.Label32.Location = New System.Drawing.Point(10, 1071)
+ Me.Label32.Location = New System.Drawing.Point(8, 1061)
Me.Label32.Name = "Label32"
Me.Label32.Size = New System.Drawing.Size(31, 13)
Me.Label32.TabIndex = 34
@@ -948,48 +1491,249 @@ Partial Class usrCntlFaktAbrechnung
'
Me.pnlAuftraggeber.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnlAuftraggeber.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.pnlAuftraggeber.Controls.Add(Me.btnAuftraggeberEuro)
Me.pnlAuftraggeber.Controls.Add(Me.txtkdNrAuftraggeber)
+ Me.pnlAuftraggeber.Controls.Add(Me.btnAuftraggeberEuro)
Me.pnlAuftraggeber.Controls.Add(Me.kdFirmaAuftraggeber)
Me.pnlAuftraggeber.Controls.Add(Me.txtAuftraggeberName2)
Me.pnlAuftraggeber.Controls.Add(Me.Label15)
Me.pnlAuftraggeber.Controls.Add(Me.txtAuftragggeberOrt)
Me.pnlAuftraggeber.Controls.Add(Me.txtAuftragggeberStrasse)
Me.pnlAuftraggeber.Controls.Add(Me.FlatButton4)
- Me.pnlAuftraggeber.Location = New System.Drawing.Point(414, 145)
+ Me.pnlAuftraggeber.Location = New System.Drawing.Point(0, 295)
Me.pnlAuftraggeber.Name = "pnlAuftraggeber"
- Me.pnlAuftraggeber.Size = New System.Drawing.Size(415, 110)
+ Me.pnlAuftraggeber.Size = New System.Drawing.Size(415, 73)
Me.pnlAuftraggeber.TabIndex = 7
'
+ 'txtkdNrAuftraggeber
+ '
+ Me.txtkdNrAuftraggeber._DateTimeOnly = False
+ Me.txtkdNrAuftraggeber._numbersOnly = False
+ Me.txtkdNrAuftraggeber._numbersOnlyKommastellen = ""
+ Me.txtkdNrAuftraggeber._Prozent = False
+ Me.txtkdNrAuftraggeber._ShortDateNew = False
+ Me.txtkdNrAuftraggeber._ShortDateOnly = False
+ Me.txtkdNrAuftraggeber._TimeOnly = False
+ Me.txtkdNrAuftraggeber._value = Nothing
+ Me.txtkdNrAuftraggeber._Waehrung = False
+ Me.txtkdNrAuftraggeber._WaehrungZeichen = True
+ Me.txtkdNrAuftraggeber.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtkdNrAuftraggeber.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtkdNrAuftraggeber.ForeColor = System.Drawing.Color.Black
+ Me.txtkdNrAuftraggeber.Location = New System.Drawing.Point(7, 25)
+ Me.txtkdNrAuftraggeber.MaxLength = 35
+ Me.txtkdNrAuftraggeber.MaxLineLength = -1
+ Me.txtkdNrAuftraggeber.MaxLines_Warning = ""
+ Me.txtkdNrAuftraggeber.MaxLines_Warning_Label = Nothing
+ Me.txtkdNrAuftraggeber.Name = "txtkdNrAuftraggeber"
+ Me.txtkdNrAuftraggeber.ReadOnly = True
+ Me.txtkdNrAuftraggeber.Size = New System.Drawing.Size(94, 13)
+ Me.txtkdNrAuftraggeber.TabIndex = 1
+ Me.txtkdNrAuftraggeber.TabStop = False
+ '
'btnAuftraggeberEuro
'
Me.btnAuftraggeberEuro.FlatAppearance.BorderSize = 0
Me.btnAuftraggeberEuro.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAuftraggeberEuro.Font = New System.Drawing.Font("Arial Black", 18.0!, System.Drawing.FontStyle.Bold)
Me.btnAuftraggeberEuro.ForeColor = System.Drawing.Color.Silver
- Me.btnAuftraggeberEuro.Location = New System.Drawing.Point(7, 59)
+ Me.btnAuftraggeberEuro.Location = New System.Drawing.Point(7, 32)
Me.btnAuftraggeberEuro.Margin = New System.Windows.Forms.Padding(2)
Me.btnAuftraggeberEuro.Name = "btnAuftraggeberEuro"
- Me.btnAuftraggeberEuro.Size = New System.Drawing.Size(50, 38)
+ Me.btnAuftraggeberEuro.Size = New System.Drawing.Size(93, 37)
Me.btnAuftraggeberEuro.TabIndex = 5
Me.btnAuftraggeberEuro.TabStop = False
Me.btnAuftraggeberEuro.Text = "€"
Me.btnAuftraggeberEuro.UseVisualStyleBackColor = True
'
+ 'kdFirmaAuftraggeber
+ '
+ Me.kdFirmaAuftraggeber._AlleFirmenCLUSTER = False
+ Me.kdFirmaAuftraggeber._AllowSetValue = True
+ Me.kdFirmaAuftraggeber._autoSizeGross = False
+ Me.kdFirmaAuftraggeber._display_Name1 = True
+ Me.kdFirmaAuftraggeber._displayAVISO_Email = False
+ Me.kdFirmaAuftraggeber._displayFullName = False
+ Me.kdFirmaAuftraggeber._displayWoelflKd = False
+ Me.kdFirmaAuftraggeber._hideIfListEmpty = True
+ Me.kdFirmaAuftraggeber._loadKdData = True
+ Me.kdFirmaAuftraggeber._UseFIRMA = ""
+ Me.kdFirmaAuftraggeber._ValueKdAndName = False
+ Me.kdFirmaAuftraggeber.BackColor = System.Drawing.Color.White
+ Me.kdFirmaAuftraggeber.dgvpos = "LEFT"
+ Me.kdFirmaAuftraggeber.KdName = Nothing
+ Me.kdFirmaAuftraggeber.KdNr = "-1"
+ Me.kdFirmaAuftraggeber.kdNrField = Nothing
+ Me.kdFirmaAuftraggeber.KdNrNullInt = Nothing
+ Me.kdFirmaAuftraggeber.Location = New System.Drawing.Point(101, 3)
+ Me.kdFirmaAuftraggeber.MaxLength = 35
+ Me.kdFirmaAuftraggeber.Name = "kdFirmaAuftraggeber"
+ Me.kdFirmaAuftraggeber.nurAktive = True
+ Me.kdFirmaAuftraggeber.searchActive = True
+ Me.kdFirmaAuftraggeber.Size = New System.Drawing.Size(283, 20)
+ Me.kdFirmaAuftraggeber.TabIndex = 3
+ Me.kdFirmaAuftraggeber.TabStop = False
+ Me.kdFirmaAuftraggeber.TIMER_SEARCH = True
+ Me.kdFirmaAuftraggeber.usrcntl = Nothing
+ '
+ 'txtAuftraggeberName2
+ '
+ Me.txtAuftraggeberName2._DateTimeOnly = False
+ Me.txtAuftraggeberName2._numbersOnly = False
+ Me.txtAuftraggeberName2._numbersOnlyKommastellen = ""
+ Me.txtAuftraggeberName2._Prozent = False
+ Me.txtAuftraggeberName2._ShortDateNew = False
+ Me.txtAuftraggeberName2._ShortDateOnly = False
+ Me.txtAuftraggeberName2._TimeOnly = False
+ Me.txtAuftraggeberName2._value = Nothing
+ Me.txtAuftraggeberName2._Waehrung = False
+ Me.txtAuftraggeberName2._WaehrungZeichen = True
+ Me.txtAuftraggeberName2.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtAuftraggeberName2.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtAuftraggeberName2.ForeColor = System.Drawing.Color.Black
+ Me.txtAuftraggeberName2.Location = New System.Drawing.Point(101, 25)
+ Me.txtAuftraggeberName2.MaxLength = 35
+ Me.txtAuftraggeberName2.MaxLineLength = -1
+ Me.txtAuftraggeberName2.MaxLines_Warning = ""
+ Me.txtAuftraggeberName2.MaxLines_Warning_Label = Nothing
+ Me.txtAuftraggeberName2.Name = "txtAuftraggeberName2"
+ Me.txtAuftraggeberName2.Size = New System.Drawing.Size(305, 13)
+ Me.txtAuftraggeberName2.TabIndex = 4
+ Me.txtAuftraggeberName2.TabStop = False
+ '
'Label15
'
Me.Label15.AutoSize = True
- Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label15.Location = New System.Drawing.Point(6, 5)
+ Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
+ Me.Label15.Location = New System.Drawing.Point(3, 6)
Me.Label15.Name = "Label15"
- Me.Label15.Size = New System.Drawing.Size(109, 15)
+ Me.Label15.Size = New System.Drawing.Size(99, 13)
Me.Label15.TabIndex = 0
Me.Label15.Text = "3. Auftraggeber:"
'
+ 'txtAuftragggeberOrt
+ '
+ Me.txtAuftragggeberOrt._DateTimeOnly = False
+ Me.txtAuftragggeberOrt._numbersOnly = False
+ Me.txtAuftragggeberOrt._numbersOnlyKommastellen = ""
+ Me.txtAuftragggeberOrt._Prozent = False
+ Me.txtAuftragggeberOrt._ShortDateNew = False
+ Me.txtAuftragggeberOrt._ShortDateOnly = False
+ Me.txtAuftragggeberOrt._TimeOnly = False
+ Me.txtAuftragggeberOrt._value = Nothing
+ Me.txtAuftragggeberOrt._Waehrung = False
+ Me.txtAuftragggeberOrt._WaehrungZeichen = True
+ Me.txtAuftragggeberOrt.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtAuftragggeberOrt.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtAuftragggeberOrt.ForeColor = System.Drawing.Color.Black
+ Me.txtAuftragggeberOrt.Location = New System.Drawing.Point(101, 53)
+ Me.txtAuftragggeberOrt.MaxLength = 35
+ Me.txtAuftragggeberOrt.MaxLineLength = -1
+ Me.txtAuftragggeberOrt.MaxLines_Warning = ""
+ Me.txtAuftragggeberOrt.MaxLines_Warning_Label = Nothing
+ Me.txtAuftragggeberOrt.Name = "txtAuftragggeberOrt"
+ Me.txtAuftragggeberOrt.Size = New System.Drawing.Size(305, 13)
+ Me.txtAuftragggeberOrt.TabIndex = 7
+ Me.txtAuftragggeberOrt.TabStop = False
+ '
+ 'txtAuftragggeberStrasse
+ '
+ Me.txtAuftragggeberStrasse._DateTimeOnly = False
+ Me.txtAuftragggeberStrasse._numbersOnly = False
+ Me.txtAuftragggeberStrasse._numbersOnlyKommastellen = ""
+ Me.txtAuftragggeberStrasse._Prozent = False
+ Me.txtAuftragggeberStrasse._ShortDateNew = False
+ Me.txtAuftragggeberStrasse._ShortDateOnly = False
+ Me.txtAuftragggeberStrasse._TimeOnly = False
+ Me.txtAuftragggeberStrasse._value = Nothing
+ Me.txtAuftragggeberStrasse._Waehrung = False
+ Me.txtAuftragggeberStrasse._WaehrungZeichen = True
+ Me.txtAuftragggeberStrasse.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtAuftragggeberStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtAuftragggeberStrasse.ForeColor = System.Drawing.Color.Black
+ Me.txtAuftragggeberStrasse.Location = New System.Drawing.Point(101, 39)
+ Me.txtAuftragggeberStrasse.MaxLength = 35
+ Me.txtAuftragggeberStrasse.MaxLineLength = -1
+ Me.txtAuftragggeberStrasse.MaxLines_Warning = ""
+ Me.txtAuftragggeberStrasse.MaxLines_Warning_Label = Nothing
+ Me.txtAuftragggeberStrasse.Name = "txtAuftragggeberStrasse"
+ Me.txtAuftragggeberStrasse.Size = New System.Drawing.Size(305, 13)
+ Me.txtAuftragggeberStrasse.TabIndex = 6
+ Me.txtAuftragggeberStrasse.TabStop = False
+ '
+ 'FlatButton4
+ '
+ Me.FlatButton4.allowBorder = False
+ Me.FlatButton4.FlatAppearance.BorderSize = 0
+ Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.FlatButton4.ForeColor = System.Drawing.Color.Black
+ Me.FlatButton4.Image = Global.SDL.My.Resources.Resources.personInaktiv
+ Me.FlatButton4.Location = New System.Drawing.Point(382, 0)
+ Me.FlatButton4.Name = "FlatButton4"
+ Me.FlatButton4.Size = New System.Drawing.Size(24, 25)
+ Me.FlatButton4.TabIndex = 2
+ Me.FlatButton4.TabStop = False
+ Me.FlatButton4.UseVisualStyleBackColor = True
+ '
+ 'txtText
+ '
+ Me.txtText.Location = New System.Drawing.Point(64, 1061)
+ 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.TabIndex = 35
+ Me.txtText.Text = ""
+ '
+ 'txtBefoerderungsmittel
+ '
+ Me.txtBefoerderungsmittel._DateTimeOnly = False
+ Me.txtBefoerderungsmittel._numbersOnly = False
+ Me.txtBefoerderungsmittel._numbersOnlyKommastellen = ""
+ Me.txtBefoerderungsmittel._Prozent = False
+ Me.txtBefoerderungsmittel._ShortDateNew = False
+ Me.txtBefoerderungsmittel._ShortDateOnly = False
+ Me.txtBefoerderungsmittel._TimeOnly = False
+ Me.txtBefoerderungsmittel._value = Nothing
+ Me.txtBefoerderungsmittel._Waehrung = False
+ Me.txtBefoerderungsmittel._WaehrungZeichen = True
+ Me.txtBefoerderungsmittel.ForeColor = System.Drawing.Color.Black
+ Me.txtBefoerderungsmittel.Location = New System.Drawing.Point(517, 273)
+ Me.txtBefoerderungsmittel.MaxLength = 35
+ Me.txtBefoerderungsmittel.MaxLineLength = -1
+ Me.txtBefoerderungsmittel.MaxLines_Warning = ""
+ Me.txtBefoerderungsmittel.MaxLines_Warning_Label = Nothing
+ Me.txtBefoerderungsmittel.Name = "txtBefoerderungsmittel"
+ Me.txtBefoerderungsmittel.Size = New System.Drawing.Size(305, 20)
+ Me.txtBefoerderungsmittel.TabIndex = 19
+ '
+ 'txtGrenze
+ '
+ Me.txtGrenze._DateTimeOnly = False
+ Me.txtGrenze._numbersOnly = False
+ Me.txtGrenze._numbersOnlyKommastellen = ""
+ Me.txtGrenze._Prozent = False
+ Me.txtGrenze._ShortDateNew = False
+ Me.txtGrenze._ShortDateOnly = False
+ Me.txtGrenze._TimeOnly = False
+ Me.txtGrenze._value = Nothing
+ Me.txtGrenze._Waehrung = False
+ Me.txtGrenze._WaehrungZeichen = True
+ Me.txtGrenze.ForeColor = System.Drawing.Color.Black
+ Me.txtGrenze.Location = New System.Drawing.Point(517, 254)
+ Me.txtGrenze.MaxLength = 35
+ Me.txtGrenze.MaxLineLength = -1
+ Me.txtGrenze.MaxLines_Warning = ""
+ Me.txtGrenze.MaxLines_Warning_Label = Nothing
+ Me.txtGrenze.Name = "txtGrenze"
+ Me.txtGrenze.Size = New System.Drawing.Size(305, 20)
+ Me.txtGrenze.TabIndex = 16
+ '
'Label20
'
Me.Label20.AutoSize = True
- Me.Label20.Location = New System.Drawing.Point(421, 416)
+ Me.Label20.Location = New System.Drawing.Point(422, 276)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(97, 13)
Me.Label20.TabIndex = 20
@@ -999,37 +1743,104 @@ Partial Class usrCntlFaktAbrechnung
'Label19
'
Me.Label19.AutoSize = True
- Me.Label19.Location = New System.Drawing.Point(421, 397)
+ Me.Label19.Location = New System.Drawing.Point(422, 257)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(44, 13)
Me.Label19.TabIndex = 12
Me.Label19.Text = "Grenze:"
Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight
'
+ 'txtSendungsdaten
+ '
+ Me.txtSendungsdaten._DateTimeOnly = False
+ Me.txtSendungsdaten._numbersOnly = False
+ Me.txtSendungsdaten._numbersOnlyKommastellen = ""
+ Me.txtSendungsdaten._Prozent = False
+ Me.txtSendungsdaten._ShortDateNew = False
+ Me.txtSendungsdaten._ShortDateOnly = False
+ Me.txtSendungsdaten._TimeOnly = False
+ Me.txtSendungsdaten._value = Nothing
+ Me.txtSendungsdaten._Waehrung = False
+ Me.txtSendungsdaten._WaehrungZeichen = True
+ Me.txtSendungsdaten.ForeColor = System.Drawing.Color.Black
+ Me.txtSendungsdaten.Location = New System.Drawing.Point(517, 317)
+ Me.txtSendungsdaten.MaxLength = 300
+ Me.txtSendungsdaten.MaxLineLength = -1
+ Me.txtSendungsdaten.MaxLines_Warning = ""
+ Me.txtSendungsdaten.MaxLines_Warning_Label = Nothing
+ Me.txtSendungsdaten.Name = "txtSendungsdaten"
+ Me.txtSendungsdaten.Size = New System.Drawing.Size(305, 20)
+ Me.txtSendungsdaten.TabIndex = 22
+ '
'Label17
'
Me.Label17.AutoSize = True
- Me.Label17.Location = New System.Drawing.Point(7, 441)
+ Me.Label17.Location = New System.Drawing.Point(422, 320)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(85, 13)
Me.Label17.TabIndex = 21
Me.Label17.Text = "Sendungsdaten:"
Me.Label17.TextAlign = System.Drawing.ContentAlignment.TopRight
'
+ 'txtWarenwert
+ '
+ Me.txtWarenwert._DateTimeOnly = False
+ Me.txtWarenwert._numbersOnly = False
+ Me.txtWarenwert._numbersOnlyKommastellen = ""
+ Me.txtWarenwert._Prozent = False
+ Me.txtWarenwert._ShortDateNew = False
+ Me.txtWarenwert._ShortDateOnly = False
+ Me.txtWarenwert._TimeOnly = False
+ Me.txtWarenwert._value = ""
+ Me.txtWarenwert._Waehrung = True
+ Me.txtWarenwert._WaehrungZeichen = False
+ Me.txtWarenwert.ForeColor = System.Drawing.Color.Black
+ Me.txtWarenwert.Location = New System.Drawing.Point(562, 172)
+ Me.txtWarenwert.MaxLength = 35
+ Me.txtWarenwert.MaxLineLength = -1
+ Me.txtWarenwert.MaxLines_Warning = ""
+ Me.txtWarenwert.MaxLines_Warning_Label = Nothing
+ Me.txtWarenwert.Name = "txtWarenwert"
+ Me.txtWarenwert.Size = New System.Drawing.Size(129, 20)
+ Me.txtWarenwert.TabIndex = 15
+ Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
'Label16
'
Me.Label16.AutoSize = True
- Me.Label16.Location = New System.Drawing.Point(7, 398)
+ Me.Label16.Location = New System.Drawing.Point(422, 175)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(62, 13)
Me.Label16.TabIndex = 13
Me.Label16.Text = "Warenwert:"
Me.Label16.TextAlign = System.Drawing.ContentAlignment.TopRight
'
+ 'txtZollbelegNr
+ '
+ Me.txtZollbelegNr._DateTimeOnly = False
+ Me.txtZollbelegNr._numbersOnly = False
+ Me.txtZollbelegNr._numbersOnlyKommastellen = ""
+ Me.txtZollbelegNr._Prozent = False
+ Me.txtZollbelegNr._ShortDateNew = False
+ Me.txtZollbelegNr._ShortDateOnly = False
+ Me.txtZollbelegNr._TimeOnly = False
+ Me.txtZollbelegNr._value = Nothing
+ Me.txtZollbelegNr._Waehrung = False
+ Me.txtZollbelegNr._WaehrungZeichen = True
+ Me.txtZollbelegNr.ForeColor = System.Drawing.Color.Black
+ Me.txtZollbelegNr.Location = New System.Drawing.Point(517, 153)
+ Me.txtZollbelegNr.MaxLength = 35
+ Me.txtZollbelegNr.MaxLineLength = -1
+ Me.txtZollbelegNr.MaxLines_Warning = ""
+ Me.txtZollbelegNr.MaxLines_Warning_Label = Nothing
+ Me.txtZollbelegNr.Name = "txtZollbelegNr"
+ Me.txtZollbelegNr.Size = New System.Drawing.Size(305, 20)
+ Me.txtZollbelegNr.TabIndex = 10
+ '
'Label10
'
Me.Label10.AutoSize = True
- Me.Label10.Location = New System.Drawing.Point(7, 379)
+ Me.Label10.Location = New System.Drawing.Point(422, 156)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(70, 13)
Me.Label10.TabIndex = 9
@@ -1040,13 +1851,14 @@ Partial Class usrCntlFaktAbrechnung
'
Me.pnlRechnungAn.BackColor = System.Drawing.Color.PapayaWhip
Me.pnlRechnungAn.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnlRechnungAn.Controls.Add(Me.cboSammelrechnung)
+ Me.pnlRechnungAn.Controls.Add(Me.Button14)
Me.pnlRechnungAn.Controls.Add(Me.picKdAuftrInfo)
Me.pnlRechnungAn.Controls.Add(Me.lblKdInaktiv)
Me.pnlRechnungAn.Controls.Add(Me.picWarnRgAn)
Me.pnlRechnungAn.Controls.Add(Me.lblUIDOK)
Me.pnlRechnungAn.Controls.Add(Me.lblUIDErr)
Me.pnlRechnungAn.Controls.Add(Me.Button6)
- Me.pnlRechnungAn.Controls.Add(Me.cboSammelrechnung)
Me.pnlRechnungAn.Controls.Add(Me.txtRechnungAnName2)
Me.pnlRechnungAn.Controls.Add(Me.kdFirmaRechnungAn)
Me.pnlRechnungAn.Controls.Add(Me.FlatButton3)
@@ -1139,6 +1951,105 @@ Partial Class usrCntlFaktAbrechnung
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
+ Me.txtRechnungAnName2._numbersOnly = False
+ Me.txtRechnungAnName2._numbersOnlyKommastellen = ""
+ Me.txtRechnungAnName2._Prozent = False
+ Me.txtRechnungAnName2._ShortDateNew = False
+ Me.txtRechnungAnName2._ShortDateOnly = False
+ Me.txtRechnungAnName2._TimeOnly = False
+ Me.txtRechnungAnName2._value = Nothing
+ Me.txtRechnungAnName2._Waehrung = False
+ Me.txtRechnungAnName2._WaehrungZeichen = True
+ Me.txtRechnungAnName2.ForeColor = System.Drawing.Color.Black
+ Me.txtRechnungAnName2.Location = New System.Drawing.Point(101, 56)
+ Me.txtRechnungAnName2.MaxLength = 40
+ Me.txtRechnungAnName2.MaxLineLength = -1
+ Me.txtRechnungAnName2.MaxLines_Warning = ""
+ Me.txtRechnungAnName2.MaxLines_Warning_Label = Nothing
+ Me.txtRechnungAnName2.Name = "txtRechnungAnName2"
+ Me.txtRechnungAnName2.Size = New System.Drawing.Size(306, 20)
+ Me.txtRechnungAnName2.TabIndex = 11
+ Me.txtRechnungAnName2.TabStop = False
+ '
+ 'kdFirmaRechnungAn
+ '
+ Me.kdFirmaRechnungAn._AlleFirmenCLUSTER = False
+ Me.kdFirmaRechnungAn._AllowSetValue = True
+ Me.kdFirmaRechnungAn._autoSizeGross = False
+ Me.kdFirmaRechnungAn._display_Name1 = True
+ Me.kdFirmaRechnungAn._displayAVISO_Email = False
+ Me.kdFirmaRechnungAn._displayFullName = False
+ Me.kdFirmaRechnungAn._displayWoelflKd = False
+ Me.kdFirmaRechnungAn._hideIfListEmpty = True
+ Me.kdFirmaRechnungAn._loadKdData = True
+ Me.kdFirmaRechnungAn._UseFIRMA = ""
+ Me.kdFirmaRechnungAn._ValueKdAndName = False
+ Me.kdFirmaRechnungAn.dgvpos = "LEFT"
+ Me.kdFirmaRechnungAn.KdName = Nothing
+ Me.kdFirmaRechnungAn.KdNr = "-1"
+ Me.kdFirmaRechnungAn.kdNrField = Nothing
+ Me.kdFirmaRechnungAn.KdNrNullInt = Nothing
+ Me.kdFirmaRechnungAn.Location = New System.Drawing.Point(101, 37)
+ Me.kdFirmaRechnungAn.MaxLength = 35
+ Me.kdFirmaRechnungAn.Name = "kdFirmaRechnungAn"
+ Me.kdFirmaRechnungAn.nurAktive = True
+ Me.kdFirmaRechnungAn.searchActive = True
+ Me.kdFirmaRechnungAn.Size = New System.Drawing.Size(283, 20)
+ Me.kdFirmaRechnungAn.TabIndex = 5
+ Me.kdFirmaRechnungAn.TabStop = False
+ Me.kdFirmaRechnungAn.TIMER_SEARCH = True
+ Me.kdFirmaRechnungAn.usrcntl = Nothing
+ '
+ 'FlatButton3
+ '
+ Me.FlatButton3.allowBorder = False
+ Me.FlatButton3.FlatAppearance.BorderSize = 0
+ Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.FlatButton3.ForeColor = System.Drawing.Color.Black
+ Me.FlatButton3.Image = Global.SDL.My.Resources.Resources.personInaktiv
+ Me.FlatButton3.Location = New System.Drawing.Point(383, 32)
+ Me.FlatButton3.Name = "FlatButton3"
+ Me.FlatButton3.Size = New System.Drawing.Size(24, 25)
+ Me.FlatButton3.TabIndex = 7
+ Me.FlatButton3.TabStop = False
+ Me.FlatButton3.UseVisualStyleBackColor = True
+ '
+ 'txtKdAuftragsNr
+ '
+ Me.txtKdAuftragsNr._DateTimeOnly = False
+ Me.txtKdAuftragsNr._numbersOnly = False
+ Me.txtKdAuftragsNr._numbersOnlyKommastellen = ""
+ Me.txtKdAuftragsNr._Prozent = False
+ Me.txtKdAuftragsNr._ShortDateNew = False
+ Me.txtKdAuftragsNr._ShortDateOnly = False
+ Me.txtKdAuftragsNr._TimeOnly = False
+ Me.txtKdAuftragsNr._value = Nothing
+ Me.txtKdAuftragsNr._Waehrung = False
+ Me.txtKdAuftragsNr._WaehrungZeichen = True
+ Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black
+ Me.txtKdAuftragsNr.Location = New System.Drawing.Point(101, 116)
+ Me.txtKdAuftragsNr.MaxLength = 35
+ Me.txtKdAuftragsNr.MaxLineLength = -1
+ Me.txtKdAuftragsNr.MaxLines_Warning = ""
+ Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing
+ Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr"
+ Me.txtKdAuftragsNr.Size = New System.Drawing.Size(306, 20)
+ Me.txtKdAuftragsNr.TabIndex = 20
+ '
'Label43
'
Me.Label43.AutoSize = True
@@ -1149,6 +2060,29 @@ Partial Class usrCntlFaktAbrechnung
Me.Label43.TabIndex = 19
Me.Label43.Text = "Kd-Auftr.Nr.:"
'
+ 'txtRechnungAnUIDKz
+ '
+ Me.txtRechnungAnUIDKz._DateTimeOnly = False
+ Me.txtRechnungAnUIDKz._numbersOnly = False
+ Me.txtRechnungAnUIDKz._numbersOnlyKommastellen = ""
+ Me.txtRechnungAnUIDKz._Prozent = False
+ Me.txtRechnungAnUIDKz._ShortDateNew = False
+ Me.txtRechnungAnUIDKz._ShortDateOnly = False
+ Me.txtRechnungAnUIDKz._TimeOnly = False
+ Me.txtRechnungAnUIDKz._value = Nothing
+ Me.txtRechnungAnUIDKz._Waehrung = False
+ Me.txtRechnungAnUIDKz._WaehrungZeichen = True
+ Me.txtRechnungAnUIDKz.ForeColor = System.Drawing.Color.Black
+ Me.txtRechnungAnUIDKz.Location = New System.Drawing.Point(481, 56)
+ Me.txtRechnungAnUIDKz.MaxLength = 35
+ Me.txtRechnungAnUIDKz.MaxLineLength = -1
+ Me.txtRechnungAnUIDKz.MaxLines_Warning = ""
+ Me.txtRechnungAnUIDKz.MaxLines_Warning_Label = Nothing
+ Me.txtRechnungAnUIDKz.Name = "txtRechnungAnUIDKz"
+ Me.txtRechnungAnUIDKz.Size = New System.Drawing.Size(27, 20)
+ Me.txtRechnungAnUIDKz.TabIndex = 18
+ Me.txtRechnungAnUIDKz.TabStop = False
+ '
'lblVorauskasse
'
Me.lblVorauskasse.AutoSize = True
@@ -1170,6 +2104,40 @@ Partial Class usrCntlFaktAbrechnung
Me.Label1.Text = "Vorauskasse:"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
'
+ 'cboRechnungAn
+ '
+ Me.cboRechnungAn._allowedValuesFreiText = Nothing
+ Me.cboRechnungAn._allowFreiText = False
+ Me.cboRechnungAn._value = ""
+ Me.cboRechnungAn.FormattingEnabled = True
+ Me.cboRechnungAn.Location = New System.Drawing.Point(101, 17)
+ Me.cboRechnungAn.Name = "cboRechnungAn"
+ Me.cboRechnungAn.Size = New System.Drawing.Size(183, 21)
+ Me.cboRechnungAn.TabIndex = 1
+ '
+ 'txtRechnungAnUIDNr
+ '
+ Me.txtRechnungAnUIDNr._DateTimeOnly = False
+ Me.txtRechnungAnUIDNr._numbersOnly = False
+ Me.txtRechnungAnUIDNr._numbersOnlyKommastellen = ""
+ Me.txtRechnungAnUIDNr._Prozent = False
+ Me.txtRechnungAnUIDNr._ShortDateNew = False
+ Me.txtRechnungAnUIDNr._ShortDateOnly = False
+ Me.txtRechnungAnUIDNr._TimeOnly = False
+ Me.txtRechnungAnUIDNr._value = Nothing
+ Me.txtRechnungAnUIDNr._Waehrung = False
+ Me.txtRechnungAnUIDNr._WaehrungZeichen = True
+ Me.txtRechnungAnUIDNr.ForeColor = System.Drawing.Color.Black
+ Me.txtRechnungAnUIDNr.Location = New System.Drawing.Point(506, 56)
+ Me.txtRechnungAnUIDNr.MaxLength = 35
+ Me.txtRechnungAnUIDNr.MaxLineLength = -1
+ Me.txtRechnungAnUIDNr.MaxLines_Warning = ""
+ Me.txtRechnungAnUIDNr.MaxLines_Warning_Label = Nothing
+ Me.txtRechnungAnUIDNr.Name = "txtRechnungAnUIDNr"
+ Me.txtRechnungAnUIDNr.Size = New System.Drawing.Size(69, 20)
+ Me.txtRechnungAnUIDNr.TabIndex = 13
+ Me.txtRechnungAnUIDNr.TabStop = False
+ '
'Label6
'
Me.Label6.AutoSize = True
@@ -1180,6 +2148,29 @@ Partial Class usrCntlFaktAbrechnung
Me.Label6.TabIndex = 12
Me.Label6.Text = "UID-Nr.:"
'
+ 'txtRechnungAnBuKdNr
+ '
+ Me.txtRechnungAnBuKdNr._DateTimeOnly = False
+ Me.txtRechnungAnBuKdNr._numbersOnly = False
+ Me.txtRechnungAnBuKdNr._numbersOnlyKommastellen = ""
+ Me.txtRechnungAnBuKdNr._Prozent = False
+ Me.txtRechnungAnBuKdNr._ShortDateNew = False
+ Me.txtRechnungAnBuKdNr._ShortDateOnly = False
+ Me.txtRechnungAnBuKdNr._TimeOnly = False
+ Me.txtRechnungAnBuKdNr._value = Nothing
+ Me.txtRechnungAnBuKdNr._Waehrung = False
+ Me.txtRechnungAnBuKdNr._WaehrungZeichen = True
+ Me.txtRechnungAnBuKdNr.ForeColor = System.Drawing.Color.Black
+ Me.txtRechnungAnBuKdNr.Location = New System.Drawing.Point(481, 37)
+ Me.txtRechnungAnBuKdNr.MaxLength = 35
+ Me.txtRechnungAnBuKdNr.MaxLineLength = -1
+ Me.txtRechnungAnBuKdNr.MaxLines_Warning = ""
+ Me.txtRechnungAnBuKdNr.MaxLines_Warning_Label = Nothing
+ Me.txtRechnungAnBuKdNr.Name = "txtRechnungAnBuKdNr"
+ Me.txtRechnungAnBuKdNr.Size = New System.Drawing.Size(94, 20)
+ Me.txtRechnungAnBuKdNr.TabIndex = 10
+ Me.txtRechnungAnBuKdNr.TabStop = False
+ '
'Label3
'
Me.Label3.AutoSize = True
@@ -1190,6 +2181,75 @@ Partial Class usrCntlFaktAbrechnung
Me.Label3.TabIndex = 9
Me.Label3.Text = "BuKdNr:"
'
+ 'txtkdNrRechnungAn
+ '
+ Me.txtkdNrRechnungAn._DateTimeOnly = False
+ Me.txtkdNrRechnungAn._numbersOnly = False
+ Me.txtkdNrRechnungAn._numbersOnlyKommastellen = ""
+ Me.txtkdNrRechnungAn._Prozent = False
+ Me.txtkdNrRechnungAn._ShortDateNew = False
+ Me.txtkdNrRechnungAn._ShortDateOnly = False
+ Me.txtkdNrRechnungAn._TimeOnly = False
+ Me.txtkdNrRechnungAn._value = Nothing
+ Me.txtkdNrRechnungAn._Waehrung = False
+ Me.txtkdNrRechnungAn._WaehrungZeichen = True
+ Me.txtkdNrRechnungAn.ForeColor = System.Drawing.Color.Black
+ Me.txtkdNrRechnungAn.Location = New System.Drawing.Point(8, 37)
+ Me.txtkdNrRechnungAn.MaxLength = 35
+ Me.txtkdNrRechnungAn.MaxLineLength = -1
+ Me.txtkdNrRechnungAn.MaxLines_Warning = ""
+ Me.txtkdNrRechnungAn.MaxLines_Warning_Label = Nothing
+ Me.txtkdNrRechnungAn.Name = "txtkdNrRechnungAn"
+ Me.txtkdNrRechnungAn.Size = New System.Drawing.Size(94, 20)
+ Me.txtkdNrRechnungAn.TabIndex = 3
+ Me.txtkdNrRechnungAn.TabStop = False
+ '
+ 'txtRechnungAnOrt
+ '
+ Me.txtRechnungAnOrt._DateTimeOnly = False
+ Me.txtRechnungAnOrt._numbersOnly = False
+ Me.txtRechnungAnOrt._numbersOnlyKommastellen = ""
+ Me.txtRechnungAnOrt._Prozent = False
+ Me.txtRechnungAnOrt._ShortDateNew = False
+ Me.txtRechnungAnOrt._ShortDateOnly = False
+ Me.txtRechnungAnOrt._TimeOnly = False
+ Me.txtRechnungAnOrt._value = Nothing
+ Me.txtRechnungAnOrt._Waehrung = False
+ Me.txtRechnungAnOrt._WaehrungZeichen = True
+ Me.txtRechnungAnOrt.ForeColor = System.Drawing.Color.Black
+ Me.txtRechnungAnOrt.Location = New System.Drawing.Point(101, 94)
+ Me.txtRechnungAnOrt.MaxLength = 52
+ Me.txtRechnungAnOrt.MaxLineLength = -1
+ Me.txtRechnungAnOrt.MaxLines_Warning = ""
+ Me.txtRechnungAnOrt.MaxLines_Warning_Label = Nothing
+ Me.txtRechnungAnOrt.Name = "txtRechnungAnOrt"
+ Me.txtRechnungAnOrt.Size = New System.Drawing.Size(306, 20)
+ Me.txtRechnungAnOrt.TabIndex = 17
+ Me.txtRechnungAnOrt.TabStop = False
+ '
+ 'txtRechnungAnStrasse
+ '
+ Me.txtRechnungAnStrasse._DateTimeOnly = False
+ Me.txtRechnungAnStrasse._numbersOnly = False
+ Me.txtRechnungAnStrasse._numbersOnlyKommastellen = ""
+ Me.txtRechnungAnStrasse._Prozent = False
+ Me.txtRechnungAnStrasse._ShortDateNew = False
+ Me.txtRechnungAnStrasse._ShortDateOnly = False
+ Me.txtRechnungAnStrasse._TimeOnly = False
+ Me.txtRechnungAnStrasse._value = Nothing
+ Me.txtRechnungAnStrasse._Waehrung = False
+ Me.txtRechnungAnStrasse._WaehrungZeichen = True
+ Me.txtRechnungAnStrasse.ForeColor = System.Drawing.Color.Black
+ Me.txtRechnungAnStrasse.Location = New System.Drawing.Point(101, 75)
+ Me.txtRechnungAnStrasse.MaxLength = 40
+ Me.txtRechnungAnStrasse.MaxLineLength = -1
+ Me.txtRechnungAnStrasse.MaxLines_Warning = ""
+ Me.txtRechnungAnStrasse.MaxLines_Warning_Label = Nothing
+ Me.txtRechnungAnStrasse.Name = "txtRechnungAnStrasse"
+ Me.txtRechnungAnStrasse.Size = New System.Drawing.Size(306, 20)
+ Me.txtRechnungAnStrasse.TabIndex = 14
+ Me.txtRechnungAnStrasse.TabStop = False
+ '
'Label7
'
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1204,34 +2264,179 @@ Partial Class usrCntlFaktAbrechnung
'
Me.pnlAbsender.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnlAbsender.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.pnlAbsender.Controls.Add(Me.btnAbsenderEuro)
Me.pnlAbsender.Controls.Add(Me.txtkdNrAbsender)
+ Me.pnlAbsender.Controls.Add(Me.btnAbsenderEuro)
Me.pnlAbsender.Controls.Add(Me.kdFirmaAbsender)
Me.pnlAbsender.Controls.Add(Me.txtAbsenderName2)
Me.pnlAbsender.Controls.Add(Me.Label4)
Me.pnlAbsender.Controls.Add(Me.txtAbsenderOrt)
Me.pnlAbsender.Controls.Add(Me.txtAbsenderStrasse)
Me.pnlAbsender.Controls.Add(Me.FlatButton1)
- Me.pnlAbsender.Location = New System.Drawing.Point(0, 143)
+ Me.pnlAbsender.Location = New System.Drawing.Point(0, 145)
Me.pnlAbsender.Name = "pnlAbsender"
- Me.pnlAbsender.Size = New System.Drawing.Size(415, 110)
+ Me.pnlAbsender.Size = New System.Drawing.Size(415, 77)
Me.pnlAbsender.TabIndex = 5
'
+ 'txtkdNrAbsender
+ '
+ Me.txtkdNrAbsender._DateTimeOnly = False
+ Me.txtkdNrAbsender._numbersOnly = False
+ Me.txtkdNrAbsender._numbersOnlyKommastellen = ""
+ Me.txtkdNrAbsender._Prozent = False
+ Me.txtkdNrAbsender._ShortDateNew = False
+ Me.txtkdNrAbsender._ShortDateOnly = False
+ Me.txtkdNrAbsender._TimeOnly = False
+ Me.txtkdNrAbsender._value = Nothing
+ Me.txtkdNrAbsender._Waehrung = False
+ Me.txtkdNrAbsender._WaehrungZeichen = True
+ Me.txtkdNrAbsender.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtkdNrAbsender.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtkdNrAbsender.ForeColor = System.Drawing.Color.Black
+ Me.txtkdNrAbsender.Location = New System.Drawing.Point(8, 26)
+ Me.txtkdNrAbsender.MaxLength = 35
+ Me.txtkdNrAbsender.MaxLineLength = -1
+ Me.txtkdNrAbsender.MaxLines_Warning = ""
+ Me.txtkdNrAbsender.MaxLines_Warning_Label = Nothing
+ Me.txtkdNrAbsender.Name = "txtkdNrAbsender"
+ Me.txtkdNrAbsender.ReadOnly = True
+ Me.txtkdNrAbsender.Size = New System.Drawing.Size(94, 13)
+ Me.txtkdNrAbsender.TabIndex = 1
+ Me.txtkdNrAbsender.TabStop = False
+ '
'btnAbsenderEuro
'
Me.btnAbsenderEuro.FlatAppearance.BorderSize = 0
Me.btnAbsenderEuro.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAbsenderEuro.Font = New System.Drawing.Font("Arial Black", 18.0!, System.Drawing.FontStyle.Bold)
Me.btnAbsenderEuro.ForeColor = System.Drawing.Color.Silver
- Me.btnAbsenderEuro.Location = New System.Drawing.Point(7, 59)
- Me.btnAbsenderEuro.Margin = New System.Windows.Forms.Padding(2)
+ Me.btnAbsenderEuro.Location = New System.Drawing.Point(7, 30)
+ Me.btnAbsenderEuro.Margin = New System.Windows.Forms.Padding(0)
Me.btnAbsenderEuro.Name = "btnAbsenderEuro"
- Me.btnAbsenderEuro.Size = New System.Drawing.Size(50, 38)
+ Me.btnAbsenderEuro.Size = New System.Drawing.Size(93, 37)
Me.btnAbsenderEuro.TabIndex = 5
Me.btnAbsenderEuro.TabStop = False
Me.btnAbsenderEuro.Text = "€"
Me.btnAbsenderEuro.UseVisualStyleBackColor = True
'
+ 'kdFirmaAbsender
+ '
+ Me.kdFirmaAbsender._AlleFirmenCLUSTER = False
+ Me.kdFirmaAbsender._AllowSetValue = True
+ Me.kdFirmaAbsender._autoSizeGross = False
+ Me.kdFirmaAbsender._display_Name1 = True
+ Me.kdFirmaAbsender._displayAVISO_Email = False
+ Me.kdFirmaAbsender._displayFullName = False
+ Me.kdFirmaAbsender._displayWoelflKd = False
+ Me.kdFirmaAbsender._hideIfListEmpty = True
+ Me.kdFirmaAbsender._loadKdData = True
+ Me.kdFirmaAbsender._UseFIRMA = ""
+ Me.kdFirmaAbsender._ValueKdAndName = False
+ Me.kdFirmaAbsender.BackColor = System.Drawing.Color.White
+ Me.kdFirmaAbsender.dgvpos = "LEFT"
+ Me.kdFirmaAbsender.KdName = Nothing
+ Me.kdFirmaAbsender.KdNr = "-1"
+ Me.kdFirmaAbsender.kdNrField = Nothing
+ Me.kdFirmaAbsender.KdNrNullInt = Nothing
+ Me.kdFirmaAbsender.Location = New System.Drawing.Point(101, 3)
+ Me.kdFirmaAbsender.MaxLength = 35
+ Me.kdFirmaAbsender.Name = "kdFirmaAbsender"
+ Me.kdFirmaAbsender.nurAktive = True
+ Me.kdFirmaAbsender.searchActive = True
+ Me.kdFirmaAbsender.Size = New System.Drawing.Size(283, 20)
+ Me.kdFirmaAbsender.TabIndex = 3
+ Me.kdFirmaAbsender.TabStop = False
+ Me.kdFirmaAbsender.TIMER_SEARCH = True
+ Me.kdFirmaAbsender.usrcntl = Nothing
+ '
+ 'txtAbsenderName2
+ '
+ Me.txtAbsenderName2._DateTimeOnly = False
+ Me.txtAbsenderName2._numbersOnly = False
+ Me.txtAbsenderName2._numbersOnlyKommastellen = ""
+ Me.txtAbsenderName2._Prozent = False
+ Me.txtAbsenderName2._ShortDateNew = False
+ Me.txtAbsenderName2._ShortDateOnly = False
+ Me.txtAbsenderName2._TimeOnly = False
+ Me.txtAbsenderName2._value = Nothing
+ Me.txtAbsenderName2._Waehrung = False
+ Me.txtAbsenderName2._WaehrungZeichen = True
+ Me.txtAbsenderName2.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtAbsenderName2.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtAbsenderName2.ForeColor = System.Drawing.Color.Black
+ Me.txtAbsenderName2.Location = New System.Drawing.Point(101, 26)
+ Me.txtAbsenderName2.MaxLength = 35
+ Me.txtAbsenderName2.MaxLineLength = -1
+ Me.txtAbsenderName2.MaxLines_Warning = ""
+ Me.txtAbsenderName2.MaxLines_Warning_Label = Nothing
+ Me.txtAbsenderName2.Name = "txtAbsenderName2"
+ Me.txtAbsenderName2.Size = New System.Drawing.Size(305, 13)
+ Me.txtAbsenderName2.TabIndex = 4
+ Me.txtAbsenderName2.TabStop = False
+ '
+ 'txtAbsenderOrt
+ '
+ Me.txtAbsenderOrt._DateTimeOnly = False
+ Me.txtAbsenderOrt._numbersOnly = False
+ Me.txtAbsenderOrt._numbersOnlyKommastellen = ""
+ Me.txtAbsenderOrt._Prozent = False
+ Me.txtAbsenderOrt._ShortDateNew = False
+ Me.txtAbsenderOrt._ShortDateOnly = False
+ Me.txtAbsenderOrt._TimeOnly = False
+ Me.txtAbsenderOrt._value = Nothing
+ Me.txtAbsenderOrt._Waehrung = False
+ Me.txtAbsenderOrt._WaehrungZeichen = True
+ Me.txtAbsenderOrt.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtAbsenderOrt.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtAbsenderOrt.ForeColor = System.Drawing.Color.Black
+ Me.txtAbsenderOrt.Location = New System.Drawing.Point(101, 54)
+ Me.txtAbsenderOrt.MaxLength = 35
+ Me.txtAbsenderOrt.MaxLineLength = -1
+ Me.txtAbsenderOrt.MaxLines_Warning = ""
+ Me.txtAbsenderOrt.MaxLines_Warning_Label = Nothing
+ Me.txtAbsenderOrt.Name = "txtAbsenderOrt"
+ Me.txtAbsenderOrt.Size = New System.Drawing.Size(305, 13)
+ Me.txtAbsenderOrt.TabIndex = 7
+ Me.txtAbsenderOrt.TabStop = False
+ '
+ 'txtAbsenderStrasse
+ '
+ Me.txtAbsenderStrasse._DateTimeOnly = False
+ Me.txtAbsenderStrasse._numbersOnly = False
+ Me.txtAbsenderStrasse._numbersOnlyKommastellen = ""
+ Me.txtAbsenderStrasse._Prozent = False
+ Me.txtAbsenderStrasse._ShortDateNew = False
+ Me.txtAbsenderStrasse._ShortDateOnly = False
+ Me.txtAbsenderStrasse._TimeOnly = False
+ Me.txtAbsenderStrasse._value = Nothing
+ Me.txtAbsenderStrasse._Waehrung = False
+ Me.txtAbsenderStrasse._WaehrungZeichen = True
+ Me.txtAbsenderStrasse.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtAbsenderStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtAbsenderStrasse.ForeColor = System.Drawing.Color.Black
+ Me.txtAbsenderStrasse.Location = New System.Drawing.Point(101, 40)
+ Me.txtAbsenderStrasse.MaxLength = 35
+ Me.txtAbsenderStrasse.MaxLineLength = -1
+ Me.txtAbsenderStrasse.MaxLines_Warning = ""
+ Me.txtAbsenderStrasse.MaxLines_Warning_Label = Nothing
+ Me.txtAbsenderStrasse.Name = "txtAbsenderStrasse"
+ Me.txtAbsenderStrasse.Size = New System.Drawing.Size(305, 13)
+ Me.txtAbsenderStrasse.TabIndex = 6
+ Me.txtAbsenderStrasse.TabStop = False
+ '
+ 'FlatButton1
+ '
+ Me.FlatButton1.allowBorder = False
+ Me.FlatButton1.FlatAppearance.BorderSize = 0
+ Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.FlatButton1.ForeColor = System.Drawing.Color.Black
+ Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.personInaktiv
+ Me.FlatButton1.Location = New System.Drawing.Point(382, 0)
+ Me.FlatButton1.Name = "FlatButton1"
+ Me.FlatButton1.Size = New System.Drawing.Size(24, 25)
+ Me.FlatButton1.TabIndex = 2
+ Me.FlatButton1.TabStop = False
+ Me.FlatButton1.UseVisualStyleBackColor = True
+ '
'Panel7
'
Me.Panel7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
@@ -1260,7 +2465,7 @@ Partial Class usrCntlFaktAbrechnung
Me.Panel7.Controls.Add(Me.Label18)
Me.Panel7.Controls.Add(Me.lblVK_ZahlungseingangBemerkung)
Me.Panel7.Controls.Add(Me.lblVK_Zahlungseingang)
- Me.Panel7.Location = New System.Drawing.Point(0, 482)
+ Me.Panel7.Location = New System.Drawing.Point(0, 440)
Me.Panel7.Name = "Panel7"
Me.Panel7.Size = New System.Drawing.Size(828, 453)
Me.Panel7.TabIndex = 27
@@ -1312,6 +2517,31 @@ Partial Class usrCntlFaktAbrechnung
Me.Label14.Text = "+ Leistung:"
Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight
'
+ 'sbLeistung
+ '
+ Me.sbLeistung._allowFreitext = False
+ Me.sbLeistung._AllowSetValue = False
+ Me.sbLeistung._allowSpaceAsSplitter = False
+ Me.sbLeistung._autoSizeGross = False
+ Me.sbLeistung._hideIfListEmpty = True
+ Me.sbLeistung._value = Nothing
+ Me.sbLeistung.conn_art = "FMZOLL"
+ Me.sbLeistung.dgvpos = "LEFT"
+ Me.sbLeistung.DISPLAY_PARAM = Nothing
+ Me.sbLeistung.INVISIBLE_COLUMNS = Nothing
+ Me.sbLeistung.key_visible = False
+ Me.sbLeistung.KEYPARAM = Nothing
+ Me.sbLeistung.Location = New System.Drawing.Point(623, 232)
+ Me.sbLeistung.Name = "sbLeistung"
+ Me.sbLeistung.searchActive = True
+ Me.sbLeistung.Size = New System.Drawing.Size(161, 20)
+ Me.sbLeistung.SQL_ORDER_BY = Nothing
+ Me.sbLeistung.SQL_SELECT = Nothing
+ Me.sbLeistung.SQL_WHERE = Nothing
+ Me.sbLeistung.SQL_WhereParamList = Nothing
+ Me.sbLeistung.TabIndex = 14
+ Me.sbLeistung.usrcntl = Nothing
+ '
'Button7
'
Me.Button7.Enabled = False
@@ -1354,6 +2584,64 @@ Partial Class usrCntlFaktAbrechnung
Me.btn.Text = "ZOLL / EUST Daten (F3)"
Me.btn.UseVisualStyleBackColor = True
'
+ 'txtUnterNrRef
+ '
+ Me.txtUnterNrRef._DateTimeOnly = False
+ Me.txtUnterNrRef._numbersOnly = False
+ Me.txtUnterNrRef._numbersOnlyKommastellen = ""
+ Me.txtUnterNrRef._Prozent = False
+ Me.txtUnterNrRef._ShortDateNew = False
+ Me.txtUnterNrRef._ShortDateOnly = False
+ Me.txtUnterNrRef._TimeOnly = False
+ Me.txtUnterNrRef._value = Nothing
+ Me.txtUnterNrRef._Waehrung = False
+ Me.txtUnterNrRef._WaehrungZeichen = True
+ Me.txtUnterNrRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!)
+ Me.txtUnterNrRef.Location = New System.Drawing.Point(536, 69)
+ Me.txtUnterNrRef.MaxLineLength = -1
+ Me.txtUnterNrRef.MaxLines_Warning = ""
+ Me.txtUnterNrRef.MaxLines_Warning_Label = Nothing
+ Me.txtUnterNrRef.Name = "txtUnterNrRef"
+ Me.txtUnterNrRef.Size = New System.Drawing.Size(39, 21)
+ Me.txtUnterNrRef.TabIndex = 8
+ Me.txtUnterNrRef.Visible = False
+ '
+ 'cboFilialeRef
+ '
+ Me.cboFilialeRef._allowedValuesFreiText = Nothing
+ Me.cboFilialeRef._allowFreiText = False
+ Me.cboFilialeRef._value = ""
+ Me.cboFilialeRef.DropDownWidth = 280
+ Me.cboFilialeRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!)
+ Me.cboFilialeRef.FormattingEnabled = True
+ Me.cboFilialeRef.Location = New System.Drawing.Point(289, 68)
+ Me.cboFilialeRef.Name = "cboFilialeRef"
+ Me.cboFilialeRef.Size = New System.Drawing.Size(80, 22)
+ Me.cboFilialeRef.TabIndex = 6
+ Me.cboFilialeRef.Visible = False
+ '
+ 'txtAbfertigungsnummerRef
+ '
+ Me.txtAbfertigungsnummerRef._DateTimeOnly = False
+ Me.txtAbfertigungsnummerRef._numbersOnly = False
+ Me.txtAbfertigungsnummerRef._numbersOnlyKommastellen = ""
+ Me.txtAbfertigungsnummerRef._Prozent = False
+ Me.txtAbfertigungsnummerRef._ShortDateNew = False
+ Me.txtAbfertigungsnummerRef._ShortDateOnly = False
+ Me.txtAbfertigungsnummerRef._TimeOnly = False
+ Me.txtAbfertigungsnummerRef._value = Nothing
+ Me.txtAbfertigungsnummerRef._Waehrung = False
+ Me.txtAbfertigungsnummerRef._WaehrungZeichen = True
+ Me.txtAbfertigungsnummerRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!)
+ Me.txtAbfertigungsnummerRef.Location = New System.Drawing.Point(368, 69)
+ Me.txtAbfertigungsnummerRef.MaxLineLength = -1
+ Me.txtAbfertigungsnummerRef.MaxLines_Warning = ""
+ Me.txtAbfertigungsnummerRef.MaxLines_Warning_Label = Nothing
+ Me.txtAbfertigungsnummerRef.Name = "txtAbfertigungsnummerRef"
+ Me.txtAbfertigungsnummerRef.Size = New System.Drawing.Size(169, 21)
+ Me.txtAbfertigungsnummerRef.TabIndex = 7
+ Me.txtAbfertigungsnummerRef.Visible = False
+ '
'Label26
'
Me.Label26.AutoSize = True
@@ -1396,6 +2684,81 @@ Partial Class usrCntlFaktAbrechnung
Me.Label30.Text = "Positionen:"
Me.Label30.TextAlign = System.Drawing.ContentAlignment.TopRight
'
+ 'dgvRechnungenPositionen
+ '
+ Me.dgvRechnungenPositionen.AKTUALISIERUNGS_INTERVALL = -1
+ Me.dgvRechnungenPositionen.AllowUserToAddRows = False
+ Me.dgvRechnungenPositionen.AllowUserToDeleteRows = False
+ Me.dgvRechnungenPositionen.AllowUserToResizeColumns = False
+ Me.dgvRechnungenPositionen.AllowUserToResizeRows = False
+ Me.dgvRechnungenPositionen.BackgroundColor = System.Drawing.Color.White
+ Me.dgvRechnungenPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+ Me.dgvRechnungenPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Leistung, Me.Anzahl, Me.Preis, Me.SteuerpflichtigerBetrag, Me.SteuerfreierBetrag, Me.Aufschubkonto})
+ Me.dgvRechnungenPositionen.Location = New System.Drawing.Point(10, 258)
+ Me.dgvRechnungenPositionen.Name = "dgvRechnungenPositionen"
+ Me.dgvRechnungenPositionen.ReadOnly = True
+ Me.dgvRechnungenPositionen.RowHeadersVisible = False
+ Me.dgvRechnungenPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+ Me.dgvRechnungenPositionen.Size = New System.Drawing.Size(811, 189)
+ Me.dgvRechnungenPositionen.TabIndex = 5
+ Me.dgvRechnungenPositionen.TabStop = False
+ '
+ 'Leistung
+ '
+ Me.Leistung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+ Me.Leistung.HeaderText = "Leistung"
+ Me.Leistung.Name = "Leistung"
+ Me.Leistung.ReadOnly = True
+ '
+ 'Anzahl
+ '
+ DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+ DataGridViewCellStyle12.Format = "N0"
+ DataGridViewCellStyle12.NullValue = Nothing
+ Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle12
+ Me.Anzahl.HeaderText = "Anzahl"
+ Me.Anzahl.Name = "Anzahl"
+ Me.Anzahl.ReadOnly = True
+ Me.Anzahl.Width = 50
+ '
+ 'Preis
+ '
+ DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+ DataGridViewCellStyle13.Format = "c2"
+ Me.Preis.DefaultCellStyle = DataGridViewCellStyle13
+ Me.Preis.HeaderText = "Preis"
+ Me.Preis.Name = "Preis"
+ Me.Preis.ReadOnly = True
+ Me.Preis.Width = 80
+ '
+ 'SteuerpflichtigerBetrag
+ '
+ DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+ DataGridViewCellStyle14.Format = "c2"
+ Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle14
+ Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl."
+ Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag"
+ Me.SteuerpflichtigerBetrag.ReadOnly = True
+ Me.SteuerpflichtigerBetrag.Width = 120
+ '
+ 'SteuerfreierBetrag
+ '
+ DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+ DataGridViewCellStyle15.Format = "C2"
+ DataGridViewCellStyle15.NullValue = Nothing
+ Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle15
+ Me.SteuerfreierBetrag.HeaderText = "Steuerfrei"
+ Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag"
+ Me.SteuerfreierBetrag.ReadOnly = True
+ Me.SteuerfreierBetrag.Width = 120
+ '
+ 'Aufschubkonto
+ '
+ Me.Aufschubkonto.HeaderText = "Aufschubkonto"
+ Me.Aufschubkonto.Name = "Aufschubkonto"
+ Me.Aufschubkonto.ReadOnly = True
+ Me.Aufschubkonto.Width = 120
+ '
'dgvOffertenSperrliste
'
Me.dgvOffertenSperrliste.AllowUserToAddRows = False
@@ -1410,15 +2773,62 @@ Partial Class usrCntlFaktAbrechnung
Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste"
Me.dgvOffertenSperrliste.ReadOnly = True
Me.dgvOffertenSperrliste.RowHeadersVisible = False
- DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- DataGridViewCellStyle5.SelectionBackColor = System.Drawing.Color.PapayaWhip
- DataGridViewCellStyle5.SelectionForeColor = System.Drawing.Color.Black
- Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle5
+ 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
Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(204, 201)
Me.dgvOffertenSperrliste.TabIndex = 2
Me.dgvOffertenSperrliste.TabStop = False
'
+ 'dgvOfferteDetailsUebersicht
+ '
+ Me.dgvOfferteDetailsUebersicht.AKTUALISIERUNGS_INTERVALL = -1
+ Me.dgvOfferteDetailsUebersicht.AllowUserToAddRows = False
+ 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
+ Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White
+ Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+ Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+ Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(220, 29)
+ 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
+ Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+ Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(601, 201)
+ Me.dgvOfferteDetailsUebersicht.TabIndex = 3
+ '
+ 'txtRohmasse
+ '
+ Me.txtRohmasse._DateTimeOnly = False
+ Me.txtRohmasse._numbersOnly = False
+ Me.txtRohmasse._numbersOnlyKommastellen = ""
+ Me.txtRohmasse._Prozent = False
+ Me.txtRohmasse._ShortDateNew = False
+ Me.txtRohmasse._ShortDateOnly = False
+ Me.txtRohmasse._TimeOnly = False
+ Me.txtRohmasse._value = Nothing
+ Me.txtRohmasse._Waehrung = False
+ Me.txtRohmasse._WaehrungZeichen = True
+ Me.txtRohmasse.ForeColor = System.Drawing.Color.Black
+ Me.txtRohmasse.Location = New System.Drawing.Point(370, 115)
+ Me.txtRohmasse.MaxLength = 35
+ Me.txtRohmasse.MaxLineLength = -1
+ Me.txtRohmasse.MaxLines_Warning = ""
+ Me.txtRohmasse.MaxLines_Warning_Label = Nothing
+ Me.txtRohmasse.Name = "txtRohmasse"
+ Me.txtRohmasse.Size = New System.Drawing.Size(305, 20)
+ Me.txtRohmasse.TabIndex = 24
+ Me.txtRohmasse.Visible = False
+ '
'Label18
'
Me.Label18.AutoSize = True
@@ -1449,50 +2859,216 @@ Partial Class usrCntlFaktAbrechnung
Me.lblVK_Zahlungseingang.TabIndex = 26
Me.lblVK_Zahlungseingang.Text = "TEST"
'
+ 'cboWaehrung
+ '
+ Me.cboWaehrung._allowedValuesFreiText = Nothing
+ Me.cboWaehrung._allowFreiText = False
+ Me.cboWaehrung._value = ""
+ Me.cboWaehrung.FormattingEnabled = True
+ Me.cboWaehrung.Location = New System.Drawing.Point(517, 171)
+ Me.cboWaehrung.Name = "cboWaehrung"
+ Me.cboWaehrung.Size = New System.Drawing.Size(47, 21)
+ Me.cboWaehrung.TabIndex = 14
+ '
+ 'cboWaehrungUmrechnung
+ '
+ Me.cboWaehrungUmrechnung._allowedValuesFreiText = Nothing
+ Me.cboWaehrungUmrechnung._allowFreiText = False
+ Me.cboWaehrungUmrechnung._value = ""
+ Me.cboWaehrungUmrechnung.Enabled = False
+ Me.cboWaehrungUmrechnung.FormattingEnabled = True
+ Me.cboWaehrungUmrechnung.Location = New System.Drawing.Point(517, 190)
+ Me.cboWaehrungUmrechnung.Name = "cboWaehrungUmrechnung"
+ Me.cboWaehrungUmrechnung.Size = New System.Drawing.Size(47, 21)
+ Me.cboWaehrungUmrechnung.TabIndex = 17
+ '
'pnlEmpfaenger
'
- Me.pnlEmpfaenger.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
- Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlEmpfaenger.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnlEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.pnlEmpfaenger.Controls.Add(Me.btnEmpfaengerEuro)
Me.pnlEmpfaenger.Controls.Add(Me.txtkdNrEmpfaenger)
+ Me.pnlEmpfaenger.Controls.Add(Me.btnEmpfaengerEuro)
Me.pnlEmpfaenger.Controls.Add(Me.txtEmpfeangerName2)
Me.pnlEmpfaenger.Controls.Add(Me.Label5)
Me.pnlEmpfaenger.Controls.Add(Me.txtEmpfaengerOrt)
Me.pnlEmpfaenger.Controls.Add(Me.txtEmpfaengerStrasse)
Me.pnlEmpfaenger.Controls.Add(Me.kdFirmaEmpfaenger)
Me.pnlEmpfaenger.Controls.Add(Me.FlatButton2)
- Me.pnlEmpfaenger.Location = New System.Drawing.Point(0, 252)
+ Me.pnlEmpfaenger.Location = New System.Drawing.Point(0, 221)
Me.pnlEmpfaenger.Name = "pnlEmpfaenger"
- Me.pnlEmpfaenger.Size = New System.Drawing.Size(424, 110)
+ Me.pnlEmpfaenger.Size = New System.Drawing.Size(415, 75)
Me.pnlEmpfaenger.TabIndex = 6
'
+ 'txtkdNrEmpfaenger
+ '
+ Me.txtkdNrEmpfaenger._DateTimeOnly = False
+ Me.txtkdNrEmpfaenger._numbersOnly = False
+ Me.txtkdNrEmpfaenger._numbersOnlyKommastellen = ""
+ Me.txtkdNrEmpfaenger._Prozent = False
+ Me.txtkdNrEmpfaenger._ShortDateNew = False
+ Me.txtkdNrEmpfaenger._ShortDateOnly = False
+ Me.txtkdNrEmpfaenger._TimeOnly = False
+ Me.txtkdNrEmpfaenger._value = Nothing
+ Me.txtkdNrEmpfaenger._Waehrung = False
+ Me.txtkdNrEmpfaenger._WaehrungZeichen = True
+ Me.txtkdNrEmpfaenger.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtkdNrEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtkdNrEmpfaenger.ForeColor = System.Drawing.Color.Black
+ Me.txtkdNrEmpfaenger.Location = New System.Drawing.Point(8, 26)
+ Me.txtkdNrEmpfaenger.MaxLength = 35
+ Me.txtkdNrEmpfaenger.MaxLineLength = -1
+ Me.txtkdNrEmpfaenger.MaxLines_Warning = ""
+ Me.txtkdNrEmpfaenger.MaxLines_Warning_Label = Nothing
+ Me.txtkdNrEmpfaenger.Name = "txtkdNrEmpfaenger"
+ Me.txtkdNrEmpfaenger.ReadOnly = True
+ Me.txtkdNrEmpfaenger.Size = New System.Drawing.Size(94, 13)
+ Me.txtkdNrEmpfaenger.TabIndex = 1
+ Me.txtkdNrEmpfaenger.TabStop = False
+ '
'btnEmpfaengerEuro
'
Me.btnEmpfaengerEuro.FlatAppearance.BorderSize = 0
Me.btnEmpfaengerEuro.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnEmpfaengerEuro.Font = New System.Drawing.Font("Arial Black", 18.0!, System.Drawing.FontStyle.Bold)
Me.btnEmpfaengerEuro.ForeColor = System.Drawing.Color.Silver
- Me.btnEmpfaengerEuro.Location = New System.Drawing.Point(8, 59)
- Me.btnEmpfaengerEuro.Margin = New System.Windows.Forms.Padding(2)
+ Me.btnEmpfaengerEuro.Location = New System.Drawing.Point(8, 26)
+ Me.btnEmpfaengerEuro.Margin = New System.Windows.Forms.Padding(0)
Me.btnEmpfaengerEuro.Name = "btnEmpfaengerEuro"
- Me.btnEmpfaengerEuro.Size = New System.Drawing.Size(50, 38)
+ Me.btnEmpfaengerEuro.Size = New System.Drawing.Size(93, 41)
Me.btnEmpfaengerEuro.TabIndex = 5
Me.btnEmpfaengerEuro.TabStop = False
Me.btnEmpfaengerEuro.Text = "€"
Me.btnEmpfaengerEuro.UseVisualStyleBackColor = True
'
+ 'txtEmpfeangerName2
+ '
+ Me.txtEmpfeangerName2._DateTimeOnly = False
+ Me.txtEmpfeangerName2._numbersOnly = False
+ Me.txtEmpfeangerName2._numbersOnlyKommastellen = ""
+ Me.txtEmpfeangerName2._Prozent = False
+ Me.txtEmpfeangerName2._ShortDateNew = False
+ Me.txtEmpfeangerName2._ShortDateOnly = False
+ Me.txtEmpfeangerName2._TimeOnly = False
+ Me.txtEmpfeangerName2._value = Nothing
+ Me.txtEmpfeangerName2._Waehrung = False
+ Me.txtEmpfeangerName2._WaehrungZeichen = True
+ Me.txtEmpfeangerName2.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtEmpfeangerName2.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtEmpfeangerName2.ForeColor = System.Drawing.Color.Black
+ Me.txtEmpfeangerName2.Location = New System.Drawing.Point(101, 26)
+ Me.txtEmpfeangerName2.MaxLength = 35
+ Me.txtEmpfeangerName2.MaxLineLength = -1
+ Me.txtEmpfeangerName2.MaxLines_Warning = ""
+ Me.txtEmpfeangerName2.MaxLines_Warning_Label = Nothing
+ Me.txtEmpfeangerName2.Name = "txtEmpfeangerName2"
+ Me.txtEmpfeangerName2.Size = New System.Drawing.Size(305, 13)
+ Me.txtEmpfeangerName2.TabIndex = 4
+ Me.txtEmpfeangerName2.TabStop = False
+ '
'Label5
'
Me.Label5.AutoSize = True
- Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label5.Location = New System.Drawing.Point(6, 3)
+ Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
+ Me.Label5.Location = New System.Drawing.Point(3, 6)
Me.Label5.Name = "Label5"
- Me.Label5.Size = New System.Drawing.Size(97, 15)
+ Me.Label5.Size = New System.Drawing.Size(86, 13)
Me.Label5.TabIndex = 0
Me.Label5.Text = "2. Empfänger:"
'
+ 'txtEmpfaengerOrt
+ '
+ Me.txtEmpfaengerOrt._DateTimeOnly = False
+ Me.txtEmpfaengerOrt._numbersOnly = False
+ Me.txtEmpfaengerOrt._numbersOnlyKommastellen = ""
+ Me.txtEmpfaengerOrt._Prozent = False
+ Me.txtEmpfaengerOrt._ShortDateNew = False
+ Me.txtEmpfaengerOrt._ShortDateOnly = False
+ Me.txtEmpfaengerOrt._TimeOnly = False
+ Me.txtEmpfaengerOrt._value = Nothing
+ Me.txtEmpfaengerOrt._Waehrung = False
+ Me.txtEmpfaengerOrt._WaehrungZeichen = True
+ Me.txtEmpfaengerOrt.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtEmpfaengerOrt.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtEmpfaengerOrt.ForeColor = System.Drawing.Color.Black
+ Me.txtEmpfaengerOrt.Location = New System.Drawing.Point(101, 54)
+ Me.txtEmpfaengerOrt.MaxLength = 35
+ Me.txtEmpfaengerOrt.MaxLineLength = -1
+ Me.txtEmpfaengerOrt.MaxLines_Warning = ""
+ Me.txtEmpfaengerOrt.MaxLines_Warning_Label = Nothing
+ Me.txtEmpfaengerOrt.Name = "txtEmpfaengerOrt"
+ Me.txtEmpfaengerOrt.Size = New System.Drawing.Size(305, 13)
+ Me.txtEmpfaengerOrt.TabIndex = 7
+ Me.txtEmpfaengerOrt.TabStop = False
+ '
+ 'txtEmpfaengerStrasse
+ '
+ Me.txtEmpfaengerStrasse._DateTimeOnly = False
+ Me.txtEmpfaengerStrasse._numbersOnly = False
+ Me.txtEmpfaengerStrasse._numbersOnlyKommastellen = ""
+ Me.txtEmpfaengerStrasse._Prozent = False
+ Me.txtEmpfaengerStrasse._ShortDateNew = False
+ Me.txtEmpfaengerStrasse._ShortDateOnly = False
+ Me.txtEmpfaengerStrasse._TimeOnly = False
+ Me.txtEmpfaengerStrasse._value = Nothing
+ Me.txtEmpfaengerStrasse._Waehrung = False
+ Me.txtEmpfaengerStrasse._WaehrungZeichen = True
+ Me.txtEmpfaengerStrasse.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtEmpfaengerStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtEmpfaengerStrasse.ForeColor = System.Drawing.Color.Black
+ Me.txtEmpfaengerStrasse.Location = New System.Drawing.Point(101, 40)
+ Me.txtEmpfaengerStrasse.MaxLength = 35
+ Me.txtEmpfaengerStrasse.MaxLineLength = -1
+ Me.txtEmpfaengerStrasse.MaxLines_Warning = ""
+ Me.txtEmpfaengerStrasse.MaxLines_Warning_Label = Nothing
+ Me.txtEmpfaengerStrasse.Name = "txtEmpfaengerStrasse"
+ Me.txtEmpfaengerStrasse.Size = New System.Drawing.Size(305, 13)
+ Me.txtEmpfaengerStrasse.TabIndex = 6
+ Me.txtEmpfaengerStrasse.TabStop = False
+ '
+ 'kdFirmaEmpfaenger
+ '
+ Me.kdFirmaEmpfaenger._AlleFirmenCLUSTER = False
+ Me.kdFirmaEmpfaenger._AllowSetValue = True
+ Me.kdFirmaEmpfaenger._autoSizeGross = False
+ Me.kdFirmaEmpfaenger._display_Name1 = True
+ Me.kdFirmaEmpfaenger._displayAVISO_Email = False
+ Me.kdFirmaEmpfaenger._displayFullName = False
+ Me.kdFirmaEmpfaenger._displayWoelflKd = False
+ Me.kdFirmaEmpfaenger._hideIfListEmpty = True
+ Me.kdFirmaEmpfaenger._loadKdData = True
+ Me.kdFirmaEmpfaenger._UseFIRMA = ""
+ Me.kdFirmaEmpfaenger._ValueKdAndName = False
+ Me.kdFirmaEmpfaenger.BackColor = System.Drawing.Color.White
+ Me.kdFirmaEmpfaenger.dgvpos = "LEFT"
+ Me.kdFirmaEmpfaenger.KdName = Nothing
+ Me.kdFirmaEmpfaenger.KdNr = "-1"
+ Me.kdFirmaEmpfaenger.kdNrField = Nothing
+ Me.kdFirmaEmpfaenger.KdNrNullInt = Nothing
+ Me.kdFirmaEmpfaenger.Location = New System.Drawing.Point(101, 3)
+ Me.kdFirmaEmpfaenger.MaxLength = 35
+ Me.kdFirmaEmpfaenger.Name = "kdFirmaEmpfaenger"
+ Me.kdFirmaEmpfaenger.nurAktive = True
+ Me.kdFirmaEmpfaenger.searchActive = True
+ Me.kdFirmaEmpfaenger.Size = New System.Drawing.Size(283, 20)
+ Me.kdFirmaEmpfaenger.TabIndex = 3
+ Me.kdFirmaEmpfaenger.TabStop = False
+ Me.kdFirmaEmpfaenger.TIMER_SEARCH = True
+ Me.kdFirmaEmpfaenger.usrcntl = Nothing
+ '
+ 'FlatButton2
+ '
+ Me.FlatButton2.allowBorder = False
+ Me.FlatButton2.FlatAppearance.BorderSize = 0
+ Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.FlatButton2.ForeColor = System.Drawing.Color.Black
+ Me.FlatButton2.Image = Global.SDL.My.Resources.Resources.personInaktiv
+ Me.FlatButton2.Location = New System.Drawing.Point(382, 0)
+ Me.FlatButton2.Name = "FlatButton2"
+ Me.FlatButton2.Size = New System.Drawing.Size(24, 25)
+ Me.FlatButton2.TabIndex = 2
+ Me.FlatButton2.TabStop = False
+ Me.FlatButton2.UseVisualStyleBackColor = True
+ '
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.Gainsboro
@@ -1527,11 +3103,74 @@ Partial Class usrCntlFaktAbrechnung
Me.pnl.Controls.Add(Me.pnlDocs)
Me.pnl.Controls.Add(Me.cbxAdmin)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Bottom
- Me.pnl.Location = New System.Drawing.Point(0, 1225)
+ Me.pnl.Location = New System.Drawing.Point(0, 1219)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(830, 153)
Me.pnl.TabIndex = 2
'
+ 'lblEUR_1
+ '
+ Me.lblEUR_1.AutoSize = True
+ Me.lblEUR_1.Location = New System.Drawing.Point(639, 59)
+ Me.lblEUR_1.Name = "lblEUR_1"
+ Me.lblEUR_1.Size = New System.Drawing.Size(30, 13)
+ Me.lblEUR_1.TabIndex = 239
+ Me.lblEUR_1.Text = "EUR"
+ Me.lblEUR_1.TextAlign = System.Drawing.ContentAlignment.TopRight
+ '
+ 'lblEUR_2
+ '
+ Me.lblEUR_2.AutoSize = True
+ Me.lblEUR_2.Location = New System.Drawing.Point(639, 77)
+ Me.lblEUR_2.Name = "lblEUR_2"
+ Me.lblEUR_2.Size = New System.Drawing.Size(30, 13)
+ Me.lblEUR_2.TabIndex = 238
+ Me.lblEUR_2.Text = "EUR"
+ Me.lblEUR_2.TextAlign = System.Drawing.ContentAlignment.TopRight
+ '
+ 'lblEUR_4
+ '
+ Me.lblEUR_4.AutoSize = True
+ Me.lblEUR_4.Location = New System.Drawing.Point(639, 117)
+ Me.lblEUR_4.Name = "lblEUR_4"
+ Me.lblEUR_4.Size = New System.Drawing.Size(30, 13)
+ Me.lblEUR_4.TabIndex = 237
+ Me.lblEUR_4.Text = "EUR"
+ Me.lblEUR_4.TextAlign = System.Drawing.ContentAlignment.TopRight
+ '
+ 'Label55
+ '
+ Me.Label55.AutoSize = True
+ Me.Label55.Location = New System.Drawing.Point(421, 77)
+ Me.Label55.Name = "Label55"
+ Me.Label55.Size = New System.Drawing.Size(98, 13)
+ Me.Label55.TabIndex = 236
+ Me.Label55.Text = "Steuerfreier Betrag:"
+ Me.Label55.TextAlign = System.Drawing.ContentAlignment.TopRight
+ '
+ 'cboSteuerschlüssel
+ '
+ Me.cboSteuerschlüssel._allowedValuesFreiText = Nothing
+ Me.cboSteuerschlüssel._allowFreiText = False
+ Me.cboSteuerschlüssel._value = ""
+ Me.cboSteuerschlüssel.CausesValidation = False
+ Me.cboSteuerschlüssel.DropDownWidth = 350
+ Me.cboSteuerschlüssel.FormattingEnabled = True
+ Me.cboSteuerschlüssel.Location = New System.Drawing.Point(463, 30)
+ Me.cboSteuerschlüssel.Name = "cboSteuerschlüssel"
+ Me.cboSteuerschlüssel.Size = New System.Drawing.Size(145, 21)
+ Me.cboSteuerschlüssel.TabIndex = 3
+ '
+ 'rtbAbf_Besonderheiten
+ '
+ Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
+ Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19)
+ Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
+ Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133)
+ Me.rtbAbf_Besonderheiten.TabIndex = 235
+ Me.rtbAbf_Besonderheiten.Visible = False
+ '
'cbxOriginalPrint
'
Me.cbxOriginalPrint.AutoSize = True
@@ -1662,1525 +3301,6 @@ Partial Class usrCntlFaktAbrechnung
Me.Label23.TabIndex = 2
Me.Label23.Text = "Steuer:"
'
- 'Label37
- '
- Me.Label37.AutoSize = True
- Me.Label37.Location = New System.Drawing.Point(419, 94)
- Me.Label37.Name = "Label37"
- Me.Label37.Size = New System.Drawing.Size(98, 13)
- Me.Label37.TabIndex = 9
- Me.Label37.Text = "Steuerfreier Betrag:"
- Me.Label37.TextAlign = System.Drawing.ContentAlignment.TopRight
- '
- 'lblEUR_3
- '
- Me.lblEUR_3.AutoSize = True
- Me.lblEUR_3.Location = New System.Drawing.Point(639, 94)
- Me.lblEUR_3.Name = "lblEUR_3"
- Me.lblEUR_3.Size = New System.Drawing.Size(30, 13)
- Me.lblEUR_3.TabIndex = 7
- Me.lblEUR_3.Text = "EUR"
- Me.lblEUR_3.TextAlign = System.Drawing.ContentAlignment.TopRight
- '
- 'Label33
- '
- Me.Label33.AutoSize = True
- Me.Label33.Location = New System.Drawing.Point(419, 59)
- Me.Label33.Name = "Label33"
- Me.Label33.Size = New System.Drawing.Size(120, 13)
- Me.Label33.TabIndex = 5
- Me.Label33.Text = "Steuerpflichtiger Betrag:"
- Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopRight
- '
- 'Label35
- '
- Me.Label35.AutoSize = True
- Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label35.Location = New System.Drawing.Point(419, 117)
- Me.Label35.Name = "Label35"
- Me.Label35.Size = New System.Drawing.Size(91, 13)
- Me.Label35.TabIndex = 11
- Me.Label35.Text = "Gesamtsumme:"
- Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopRight
- '
- 'Label28
- '
- Me.Label28.AutoSize = True
- Me.Label28.Location = New System.Drawing.Point(6, 2)
- Me.Label28.Name = "Label28"
- Me.Label28.Size = New System.Drawing.Size(157, 13)
- Me.Label28.TabIndex = 0
- Me.Label28.Text = "Besonderheiten für Verrechung:"
- Me.Label28.TextAlign = System.Drawing.ContentAlignment.TopRight
- '
- 'pnlDocs
- '
- Me.pnlDocs.Controls.Add(Me.PictureBox1)
- Me.pnlDocs.Controls.Add(Me.Label51)
- Me.pnlDocs.Controls.Add(Me.PictureBox2)
- Me.pnlDocs.Controls.Add(Me.Label50)
- Me.pnlDocs.Location = New System.Drawing.Point(255, -1)
- Me.pnlDocs.Name = "pnlDocs"
- Me.pnlDocs.Size = New System.Drawing.Size(129, 17)
- Me.pnlDocs.TabIndex = 27
- Me.pnlDocs.Visible = False
- '
- 'PictureBox1
- '
- Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.ok
- Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
- Me.PictureBox1.Location = New System.Drawing.Point(19, 1)
- Me.PictureBox1.Name = "PictureBox1"
- Me.PictureBox1.Size = New System.Drawing.Size(16, 16)
- Me.PictureBox1.TabIndex = 23
- Me.PictureBox1.TabStop = False
- '
- 'Label51
- '
- Me.Label51.AutoSize = True
- Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
- Me.Label51.Location = New System.Drawing.Point(90, 2)
- Me.Label51.Name = "Label51"
- Me.Label51.Size = New System.Drawing.Size(29, 13)
- Me.Label51.TabIndex = 26
- Me.Label51.Text = "VBD"
- Me.Label51.TextAlign = System.Drawing.ContentAlignment.TopRight
- '
- 'PictureBox2
- '
- Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.Resources.ok
- Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
- Me.PictureBox2.Location = New System.Drawing.Point(74, 1)
- Me.PictureBox2.Name = "PictureBox2"
- Me.PictureBox2.Size = New System.Drawing.Size(16, 16)
- Me.PictureBox2.TabIndex = 25
- Me.PictureBox2.TabStop = False
- '
- 'Label50
- '
- Me.Label50.AutoSize = True
- Me.Label50.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
- Me.Label50.Location = New System.Drawing.Point(35, 2)
- Me.Label50.Name = "Label50"
- Me.Label50.Size = New System.Drawing.Size(26, 13)
- Me.Label50.TabIndex = 24
- Me.Label50.Text = "STB"
- Me.Label50.TextAlign = System.Drawing.ContentAlignment.TopRight
- '
- 'cbxAdmin
- '
- Me.cbxAdmin.AutoSize = True
- Me.cbxAdmin.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
- Me.cbxAdmin.Location = New System.Drawing.Point(424, 0)
- Me.cbxAdmin.Name = "cbxAdmin"
- Me.cbxAdmin.Size = New System.Drawing.Size(110, 30)
- Me.cbxAdmin.TabIndex = 22
- Me.cbxAdmin.Text = "Admin: Änderung " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "nach Druck erl."
- Me.cbxAdmin.UseVisualStyleBackColor = True
- Me.cbxAdmin.Visible = False
- '
- 'Timer
- '
- Me.Timer.Interval = 6000
- '
- 'cboRechnungSprache
- '
- Me.cboRechnungSprache._allowedValuesFreiText = Nothing
- Me.cboRechnungSprache._allowFreiText = False
- Me.cboRechnungSprache._value = ""
- Me.cboRechnungSprache.FormattingEnabled = True
- Me.cboRechnungSprache.Location = New System.Drawing.Point(697, 116)
- Me.cboRechnungSprache.Margin = New System.Windows.Forms.Padding(2)
- Me.cboRechnungSprache.Name = "cboRechnungSprache"
- Me.cboRechnungSprache.Size = New System.Drawing.Size(123, 21)
- Me.cboRechnungSprache.TabIndex = 45
- Me.cboRechnungSprache.TabStop = False
- '
- 'rtbHandling
- '
- Me.rtbHandling.Location = New System.Drawing.Point(552, 954)
- Me.rtbHandling.MaxLineLength = -1
- Me.rtbHandling.MaxLines_Warning = ""
- Me.rtbHandling.MaxLines_Warning_Label = Nothing
- Me.rtbHandling.Name = "rtbHandling"
- Me.rtbHandling.Size = New System.Drawing.Size(268, 61)
- Me.rtbHandling.TabIndex = 44
- Me.rtbHandling.Text = ""
- '
- 'txtPositionAnzahl
- '
- Me.txtPositionAnzahl._DateTimeOnly = False
- Me.txtPositionAnzahl._numbersOnly = False
- Me.txtPositionAnzahl._numbersOnlyKommastellen = ""
- Me.txtPositionAnzahl._Prozent = False
- Me.txtPositionAnzahl._ShortDateNew = False
- Me.txtPositionAnzahl._ShortDateOnly = False
- Me.txtPositionAnzahl._TimeOnly = False
- Me.txtPositionAnzahl._value = Nothing
- Me.txtPositionAnzahl._Waehrung = False
- Me.txtPositionAnzahl._WaehrungZeichen = True
- Me.txtPositionAnzahl.ForeColor = System.Drawing.Color.Black
- Me.txtPositionAnzahl.Location = New System.Drawing.Point(358, 21)
- Me.txtPositionAnzahl.MaxLength = 35
- Me.txtPositionAnzahl.MaxLineLength = -1
- Me.txtPositionAnzahl.MaxLines_Warning = ""
- Me.txtPositionAnzahl.MaxLines_Warning_Label = Nothing
- Me.txtPositionAnzahl.Name = "txtPositionAnzahl"
- Me.txtPositionAnzahl.ReadOnly = True
- Me.txtPositionAnzahl.Size = New System.Drawing.Size(43, 20)
- Me.txtPositionAnzahl.TabIndex = 46
- '
- 'txtAbfertigungsanzahl
- '
- Me.txtAbfertigungsanzahl._DateTimeOnly = False
- Me.txtAbfertigungsanzahl._numbersOnly = False
- Me.txtAbfertigungsanzahl._numbersOnlyKommastellen = ""
- Me.txtAbfertigungsanzahl._Prozent = False
- Me.txtAbfertigungsanzahl._ShortDateNew = False
- Me.txtAbfertigungsanzahl._ShortDateOnly = False
- Me.txtAbfertigungsanzahl._TimeOnly = False
- Me.txtAbfertigungsanzahl._value = Nothing
- Me.txtAbfertigungsanzahl._Waehrung = False
- Me.txtAbfertigungsanzahl._WaehrungZeichen = True
- Me.txtAbfertigungsanzahl.ForeColor = System.Drawing.Color.Black
- Me.txtAbfertigungsanzahl.Location = New System.Drawing.Point(358, 3)
- Me.txtAbfertigungsanzahl.MaxLength = 35
- Me.txtAbfertigungsanzahl.MaxLineLength = -1
- Me.txtAbfertigungsanzahl.MaxLines_Warning = ""
- Me.txtAbfertigungsanzahl.MaxLines_Warning_Label = Nothing
- Me.txtAbfertigungsanzahl.Name = "txtAbfertigungsanzahl"
- Me.txtAbfertigungsanzahl.ReadOnly = True
- Me.txtAbfertigungsanzahl.Size = New System.Drawing.Size(43, 20)
- Me.txtAbfertigungsanzahl.TabIndex = 44
- '
- 'txtAbfertigungsart
- '
- Me.txtAbfertigungsart._DateTimeOnly = False
- Me.txtAbfertigungsart._numbersOnly = False
- Me.txtAbfertigungsart._numbersOnlyKommastellen = ""
- Me.txtAbfertigungsart._Prozent = False
- Me.txtAbfertigungsart._ShortDateNew = False
- Me.txtAbfertigungsart._ShortDateOnly = False
- Me.txtAbfertigungsart._TimeOnly = False
- Me.txtAbfertigungsart._value = Nothing
- Me.txtAbfertigungsart._Waehrung = False
- Me.txtAbfertigungsart._WaehrungZeichen = True
- Me.txtAbfertigungsart.ForeColor = System.Drawing.Color.Black
- Me.txtAbfertigungsart.Location = New System.Drawing.Point(97, 3)
- Me.txtAbfertigungsart.MaxLength = 35
- Me.txtAbfertigungsart.MaxLineLength = -1
- Me.txtAbfertigungsart.MaxLines_Warning = ""
- Me.txtAbfertigungsart.MaxLines_Warning_Label = Nothing
- Me.txtAbfertigungsart.Name = "txtAbfertigungsart"
- Me.txtAbfertigungsart.ReadOnly = True
- Me.txtAbfertigungsart.Size = New System.Drawing.Size(199, 20)
- Me.txtAbfertigungsart.TabIndex = 42
- '
- 'txtkdNrAvisierer
- '
- Me.txtkdNrAvisierer._DateTimeOnly = False
- Me.txtkdNrAvisierer._numbersOnly = False
- Me.txtkdNrAvisierer._numbersOnlyKommastellen = ""
- Me.txtkdNrAvisierer._Prozent = False
- Me.txtkdNrAvisierer._ShortDateNew = False
- Me.txtkdNrAvisierer._ShortDateOnly = False
- Me.txtkdNrAvisierer._TimeOnly = False
- Me.txtkdNrAvisierer._value = Nothing
- Me.txtkdNrAvisierer._Waehrung = False
- Me.txtkdNrAvisierer._WaehrungZeichen = True
- Me.txtkdNrAvisierer.BackColor = System.Drawing.Color.White
- Me.txtkdNrAvisierer.ForeColor = System.Drawing.Color.Black
- Me.txtkdNrAvisierer.Location = New System.Drawing.Point(8, 22)
- Me.txtkdNrAvisierer.MaxLength = 35
- Me.txtkdNrAvisierer.MaxLineLength = -1
- Me.txtkdNrAvisierer.MaxLines_Warning = ""
- Me.txtkdNrAvisierer.MaxLines_Warning_Label = Nothing
- Me.txtkdNrAvisierer.Name = "txtkdNrAvisierer"
- Me.txtkdNrAvisierer.ReadOnly = True
- Me.txtkdNrAvisierer.Size = New System.Drawing.Size(94, 20)
- Me.txtkdNrAvisierer.TabIndex = 1
- Me.txtkdNrAvisierer.TabStop = False
- '
- 'txtAvisoId
- '
- Me.txtAvisoId._DateTimeOnly = False
- Me.txtAvisoId._numbersOnly = False
- Me.txtAvisoId._numbersOnlyKommastellen = ""
- Me.txtAvisoId._Prozent = False
- Me.txtAvisoId._ShortDateNew = False
- Me.txtAvisoId._ShortDateOnly = False
- Me.txtAvisoId._TimeOnly = False
- Me.txtAvisoId._value = Nothing
- Me.txtAvisoId._Waehrung = False
- Me.txtAvisoId._WaehrungZeichen = True
- Me.txtAvisoId.ForeColor = System.Drawing.Color.Black
- Me.txtAvisoId.Location = New System.Drawing.Point(157, 61)
- Me.txtAvisoId.MaxLength = 35
- Me.txtAvisoId.MaxLineLength = -1
- Me.txtAvisoId.MaxLines_Warning = ""
- Me.txtAvisoId.MaxLines_Warning_Label = Nothing
- Me.txtAvisoId.Name = "txtAvisoId"
- Me.txtAvisoId.ReadOnly = True
- Me.txtAvisoId.Size = New System.Drawing.Size(126, 20)
- Me.txtAvisoId.TabIndex = 6
- Me.txtAvisoId.TabStop = False
- Me.txtAvisoId.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
- '
- 'kdFirmaAvisierer
- '
- Me.kdFirmaAvisierer._AlleFirmenCLUSTER = False
- Me.kdFirmaAvisierer._AllowSetValue = True
- Me.kdFirmaAvisierer._autoSizeGross = False
- Me.kdFirmaAvisierer._display_Name1 = True
- Me.kdFirmaAvisierer._displayAVISO_Email = False
- Me.kdFirmaAvisierer._displayFullName = False
- Me.kdFirmaAvisierer._displayWoelflKd = False
- Me.kdFirmaAvisierer._hideIfListEmpty = True
- Me.kdFirmaAvisierer._loadKdData = True
- Me.kdFirmaAvisierer._UseFIRMA = ""
- Me.kdFirmaAvisierer._ValueKdAndName = False
- Me.kdFirmaAvisierer.BackColor = System.Drawing.Color.White
- Me.kdFirmaAvisierer.dgvpos = "LEFT"
- Me.kdFirmaAvisierer.KdName = Nothing
- Me.kdFirmaAvisierer.KdNr = "-1"
- Me.kdFirmaAvisierer.kdNrField = Nothing
- Me.kdFirmaAvisierer.KdNrNullInt = Nothing
- Me.kdFirmaAvisierer.Location = New System.Drawing.Point(101, 22)
- Me.kdFirmaAvisierer.MaxLength = 35
- Me.kdFirmaAvisierer.Name = "kdFirmaAvisierer"
- Me.kdFirmaAvisierer.nurAktive = True
- Me.kdFirmaAvisierer.searchActive = True
- Me.kdFirmaAvisierer.Size = New System.Drawing.Size(283, 20)
- Me.kdFirmaAvisierer.TabIndex = 3
- Me.kdFirmaAvisierer.TabStop = False
- Me.kdFirmaAvisierer.TIMER_SEARCH = True
- Me.kdFirmaAvisierer.usrcntl = Nothing
- '
- 'FlatButton5
- '
- Me.FlatButton5.allowBorder = False
- Me.FlatButton5.FlatAppearance.BorderSize = 0
- Me.FlatButton5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.FlatButton5.ForeColor = System.Drawing.Color.Black
- Me.FlatButton5.Image = Global.SDL.My.Resources.Resources.personInaktiv
- Me.FlatButton5.Location = New System.Drawing.Point(382, 17)
- Me.FlatButton5.Name = "FlatButton5"
- Me.FlatButton5.Size = New System.Drawing.Size(24, 25)
- Me.FlatButton5.TabIndex = 2
- Me.FlatButton5.TabStop = False
- Me.FlatButton5.UseVisualStyleBackColor = True
- '
- 'cboAnlage5
- '
- Me.cboAnlage5._allowedValuesFreiText = Nothing
- Me.cboAnlage5._allowFreiText = True
- Me.cboAnlage5._value = ""
- Me.cboAnlage5.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
- Me.cboAnlage5.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
- Me.cboAnlage5.FormattingEnabled = True
- Me.cboAnlage5.Location = New System.Drawing.Point(280, 974)
- Me.cboAnlage5.MaxLength = 35
- Me.cboAnlage5.Name = "cboAnlage5"
- Me.cboAnlage5.Size = New System.Drawing.Size(266, 21)
- Me.cboAnlage5.TabIndex = 32
- '
- 'cboAnlage1
- '
- Me.cboAnlage1._allowedValuesFreiText = Nothing
- Me.cboAnlage1._allowFreiText = True
- Me.cboAnlage1._value = ""
- Me.cboAnlage1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
- Me.cboAnlage1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
- Me.cboAnlage1.FormattingEnabled = True
- Me.cboAnlage1.Location = New System.Drawing.Point(10, 954)
- Me.cboAnlage1.MaxLength = 35
- Me.cboAnlage1.Name = "cboAnlage1"
- Me.cboAnlage1.Size = New System.Drawing.Size(266, 21)
- Me.cboAnlage1.TabIndex = 28
- '
- 'txtWarenwertUmrechnung
- '
- Me.txtWarenwertUmrechnung._DateTimeOnly = False
- Me.txtWarenwertUmrechnung._numbersOnly = False
- Me.txtWarenwertUmrechnung._numbersOnlyKommastellen = ""
- Me.txtWarenwertUmrechnung._Prozent = False
- Me.txtWarenwertUmrechnung._ShortDateNew = False
- Me.txtWarenwertUmrechnung._ShortDateOnly = False
- Me.txtWarenwertUmrechnung._TimeOnly = False
- Me.txtWarenwertUmrechnung._value = ""
- Me.txtWarenwertUmrechnung._Waehrung = True
- Me.txtWarenwertUmrechnung._WaehrungZeichen = False
- Me.txtWarenwertUmrechnung.Enabled = False
- Me.txtWarenwertUmrechnung.ForeColor = System.Drawing.Color.Black
- Me.txtWarenwertUmrechnung.Location = New System.Drawing.Point(147, 414)
- Me.txtWarenwertUmrechnung.MaxLength = 35
- Me.txtWarenwertUmrechnung.MaxLineLength = -1
- Me.txtWarenwertUmrechnung.MaxLines_Warning = ""
- Me.txtWarenwertUmrechnung.MaxLines_Warning_Label = Nothing
- Me.txtWarenwertUmrechnung.Name = "txtWarenwertUmrechnung"
- Me.txtWarenwertUmrechnung.Size = New System.Drawing.Size(129, 20)
- Me.txtWarenwertUmrechnung.TabIndex = 18
- Me.txtWarenwertUmrechnung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
- '
- 'cboAnlage2
- '
- Me.cboAnlage2._allowedValuesFreiText = Nothing
- Me.cboAnlage2._allowFreiText = True
- Me.cboAnlage2._value = ""
- Me.cboAnlage2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
- Me.cboAnlage2.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
- Me.cboAnlage2.FormattingEnabled = True
- Me.cboAnlage2.Location = New System.Drawing.Point(10, 974)
- Me.cboAnlage2.MaxLength = 35
- Me.cboAnlage2.Name = "cboAnlage2"
- Me.cboAnlage2.Size = New System.Drawing.Size(266, 21)
- Me.cboAnlage2.TabIndex = 29
- '
- 'cboAnlage3
- '
- Me.cboAnlage3._allowedValuesFreiText = Nothing
- Me.cboAnlage3._allowFreiText = True
- Me.cboAnlage3._value = ""
- Me.cboAnlage3.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
- Me.cboAnlage3.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
- Me.cboAnlage3.FormattingEnabled = True
- Me.cboAnlage3.Location = New System.Drawing.Point(10, 994)
- Me.cboAnlage3.MaxLength = 35
- Me.cboAnlage3.Name = "cboAnlage3"
- Me.cboAnlage3.Size = New System.Drawing.Size(266, 21)
- Me.cboAnlage3.TabIndex = 30
- '
- 'txtVermerk
- '
- Me.txtVermerk._DateTimeOnly = False
- Me.txtVermerk._numbersOnly = False
- Me.txtVermerk._numbersOnlyKommastellen = ""
- Me.txtVermerk._Prozent = False
- Me.txtVermerk._ShortDateNew = False
- Me.txtVermerk._ShortDateOnly = False
- Me.txtVermerk._TimeOnly = False
- Me.txtVermerk._value = Nothing
- Me.txtVermerk._Waehrung = False
- Me.txtVermerk._WaehrungZeichen = True
- Me.txtVermerk.ForeColor = System.Drawing.Color.Black
- Me.txtVermerk.Location = New System.Drawing.Point(102, 456)
- Me.txtVermerk.MaxLength = 35
- Me.txtVermerk.MaxLineLength = -1
- Me.txtVermerk.MaxLines_Warning = ""
- Me.txtVermerk.MaxLines_Warning_Label = Nothing
- Me.txtVermerk.Name = "txtVermerk"
- Me.txtVermerk.Size = New System.Drawing.Size(305, 20)
- Me.txtVermerk.TabIndex = 25
- '
- 'cboAnlage6
- '
- Me.cboAnlage6._allowedValuesFreiText = Nothing
- Me.cboAnlage6._allowFreiText = True
- Me.cboAnlage6._value = ""
- Me.cboAnlage6.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
- Me.cboAnlage6.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
- Me.cboAnlage6.FormattingEnabled = True
- Me.cboAnlage6.Location = New System.Drawing.Point(280, 994)
- Me.cboAnlage6.MaxLength = 35
- Me.cboAnlage6.Name = "cboAnlage6"
- Me.cboAnlage6.Size = New System.Drawing.Size(266, 21)
- Me.cboAnlage6.TabIndex = 33
- '
- 'cboAnlage4
- '
- Me.cboAnlage4._allowedValuesFreiText = Nothing
- Me.cboAnlage4._allowFreiText = True
- Me.cboAnlage4._value = ""
- Me.cboAnlage4.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
- Me.cboAnlage4.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
- Me.cboAnlage4.FormattingEnabled = True
- Me.cboAnlage4.Location = New System.Drawing.Point(280, 954)
- Me.cboAnlage4.MaxLength = 35
- Me.cboAnlage4.Name = "cboAnlage4"
- Me.cboAnlage4.Size = New System.Drawing.Size(266, 21)
- Me.cboAnlage4.TabIndex = 31
- '
- 'txtErfassungsnummer
- '
- Me.txtErfassungsnummer._DateTimeOnly = False
- Me.txtErfassungsnummer._numbersOnly = False
- Me.txtErfassungsnummer._numbersOnlyKommastellen = ""
- Me.txtErfassungsnummer._Prozent = False
- Me.txtErfassungsnummer._ShortDateNew = False
- Me.txtErfassungsnummer._ShortDateOnly = False
- Me.txtErfassungsnummer._TimeOnly = False
- Me.txtErfassungsnummer._value = Nothing
- Me.txtErfassungsnummer._Waehrung = False
- Me.txtErfassungsnummer._WaehrungZeichen = True
- Me.txtErfassungsnummer.ForeColor = System.Drawing.Color.Black
- Me.txtErfassungsnummer.Location = New System.Drawing.Point(516, 376)
- Me.txtErfassungsnummer.MaxLength = 35
- Me.txtErfassungsnummer.MaxLineLength = -1
- Me.txtErfassungsnummer.MaxLines_Warning = ""
- Me.txtErfassungsnummer.MaxLines_Warning_Label = Nothing
- Me.txtErfassungsnummer.Name = "txtErfassungsnummer"
- Me.txtErfassungsnummer.Size = New System.Drawing.Size(305, 20)
- Me.txtErfassungsnummer.TabIndex = 11
- '
- 'cboRechnungNotiz
- '
- Me.cboRechnungNotiz._allowedValuesFreiText = Nothing
- Me.cboRechnungNotiz._allowFreiText = True
- Me.cboRechnungNotiz._value = ""
- Me.cboRechnungNotiz.FormattingEnabled = True
- Me.cboRechnungNotiz.Location = New System.Drawing.Point(102, 1029)
- Me.cboRechnungNotiz.Name = "cboRechnungNotiz"
- Me.cboRechnungNotiz.Size = New System.Drawing.Size(718, 21)
- Me.cboRechnungNotiz.TabIndex = 36
- '
- 'cboFirma
- '
- Me.cboFirma._allowedValuesFreiText = Nothing
- Me.cboFirma._allowFreiText = False
- Me.cboFirma._value = ""
- Me.cboFirma.FormattingEnabled = True
- Me.cboFirma.Location = New System.Drawing.Point(592, 51)
- Me.cboFirma.Margin = New System.Windows.Forms.Padding(2)
- Me.cboFirma.Name = "cboFirma"
- Me.cboFirma.Size = New System.Drawing.Size(229, 21)
- Me.cboFirma.TabIndex = 1
- Me.cboFirma.TabStop = False
- '
- 'txtkdNrAuftraggeber
- '
- Me.txtkdNrAuftraggeber._DateTimeOnly = False
- Me.txtkdNrAuftraggeber._numbersOnly = False
- Me.txtkdNrAuftraggeber._numbersOnlyKommastellen = ""
- Me.txtkdNrAuftraggeber._Prozent = False
- Me.txtkdNrAuftraggeber._ShortDateNew = False
- Me.txtkdNrAuftraggeber._ShortDateOnly = False
- Me.txtkdNrAuftraggeber._TimeOnly = False
- Me.txtkdNrAuftraggeber._value = Nothing
- Me.txtkdNrAuftraggeber._Waehrung = False
- Me.txtkdNrAuftraggeber._WaehrungZeichen = True
- Me.txtkdNrAuftraggeber.BackColor = System.Drawing.Color.White
- Me.txtkdNrAuftraggeber.ForeColor = System.Drawing.Color.Black
- Me.txtkdNrAuftraggeber.Location = New System.Drawing.Point(8, 23)
- Me.txtkdNrAuftraggeber.MaxLength = 35
- Me.txtkdNrAuftraggeber.MaxLineLength = -1
- Me.txtkdNrAuftraggeber.MaxLines_Warning = ""
- Me.txtkdNrAuftraggeber.MaxLines_Warning_Label = Nothing
- Me.txtkdNrAuftraggeber.Name = "txtkdNrAuftraggeber"
- Me.txtkdNrAuftraggeber.ReadOnly = True
- Me.txtkdNrAuftraggeber.Size = New System.Drawing.Size(94, 20)
- Me.txtkdNrAuftraggeber.TabIndex = 1
- Me.txtkdNrAuftraggeber.TabStop = False
- '
- 'kdFirmaAuftraggeber
- '
- Me.kdFirmaAuftraggeber._AlleFirmenCLUSTER = False
- Me.kdFirmaAuftraggeber._AllowSetValue = True
- Me.kdFirmaAuftraggeber._autoSizeGross = False
- Me.kdFirmaAuftraggeber._display_Name1 = True
- Me.kdFirmaAuftraggeber._displayAVISO_Email = False
- Me.kdFirmaAuftraggeber._displayFullName = False
- Me.kdFirmaAuftraggeber._displayWoelflKd = False
- Me.kdFirmaAuftraggeber._hideIfListEmpty = True
- Me.kdFirmaAuftraggeber._loadKdData = True
- Me.kdFirmaAuftraggeber._UseFIRMA = ""
- Me.kdFirmaAuftraggeber._ValueKdAndName = False
- Me.kdFirmaAuftraggeber.BackColor = System.Drawing.Color.White
- Me.kdFirmaAuftraggeber.dgvpos = "LEFT"
- Me.kdFirmaAuftraggeber.KdName = Nothing
- Me.kdFirmaAuftraggeber.KdNr = "-1"
- Me.kdFirmaAuftraggeber.kdNrField = Nothing
- Me.kdFirmaAuftraggeber.KdNrNullInt = Nothing
- Me.kdFirmaAuftraggeber.Location = New System.Drawing.Point(101, 23)
- Me.kdFirmaAuftraggeber.MaxLength = 35
- Me.kdFirmaAuftraggeber.Name = "kdFirmaAuftraggeber"
- Me.kdFirmaAuftraggeber.nurAktive = True
- Me.kdFirmaAuftraggeber.searchActive = True
- Me.kdFirmaAuftraggeber.Size = New System.Drawing.Size(283, 20)
- Me.kdFirmaAuftraggeber.TabIndex = 3
- Me.kdFirmaAuftraggeber.TabStop = False
- Me.kdFirmaAuftraggeber.TIMER_SEARCH = True
- Me.kdFirmaAuftraggeber.usrcntl = Nothing
- '
- 'txtAuftraggeberName2
- '
- Me.txtAuftraggeberName2._DateTimeOnly = False
- Me.txtAuftraggeberName2._numbersOnly = False
- Me.txtAuftraggeberName2._numbersOnlyKommastellen = ""
- Me.txtAuftraggeberName2._Prozent = False
- Me.txtAuftraggeberName2._ShortDateNew = False
- Me.txtAuftraggeberName2._ShortDateOnly = False
- Me.txtAuftraggeberName2._TimeOnly = False
- Me.txtAuftraggeberName2._value = Nothing
- Me.txtAuftraggeberName2._Waehrung = False
- Me.txtAuftraggeberName2._WaehrungZeichen = True
- Me.txtAuftraggeberName2.BackColor = System.Drawing.Color.White
- Me.txtAuftraggeberName2.ForeColor = System.Drawing.Color.Black
- Me.txtAuftraggeberName2.Location = New System.Drawing.Point(101, 42)
- Me.txtAuftraggeberName2.MaxLength = 35
- Me.txtAuftraggeberName2.MaxLineLength = -1
- Me.txtAuftraggeberName2.MaxLines_Warning = ""
- Me.txtAuftraggeberName2.MaxLines_Warning_Label = Nothing
- Me.txtAuftraggeberName2.Name = "txtAuftraggeberName2"
- Me.txtAuftraggeberName2.Size = New System.Drawing.Size(305, 20)
- Me.txtAuftraggeberName2.TabIndex = 4
- Me.txtAuftraggeberName2.TabStop = False
- '
- 'txtAuftragggeberOrt
- '
- Me.txtAuftragggeberOrt._DateTimeOnly = False
- Me.txtAuftragggeberOrt._numbersOnly = False
- Me.txtAuftragggeberOrt._numbersOnlyKommastellen = ""
- Me.txtAuftragggeberOrt._Prozent = False
- Me.txtAuftragggeberOrt._ShortDateNew = False
- Me.txtAuftragggeberOrt._ShortDateOnly = False
- Me.txtAuftragggeberOrt._TimeOnly = False
- Me.txtAuftragggeberOrt._value = Nothing
- Me.txtAuftragggeberOrt._Waehrung = False
- Me.txtAuftragggeberOrt._WaehrungZeichen = True
- Me.txtAuftragggeberOrt.BackColor = System.Drawing.Color.White
- Me.txtAuftragggeberOrt.ForeColor = System.Drawing.Color.Black
- Me.txtAuftragggeberOrt.Location = New System.Drawing.Point(101, 80)
- Me.txtAuftragggeberOrt.MaxLength = 35
- Me.txtAuftragggeberOrt.MaxLineLength = -1
- Me.txtAuftragggeberOrt.MaxLines_Warning = ""
- Me.txtAuftragggeberOrt.MaxLines_Warning_Label = Nothing
- Me.txtAuftragggeberOrt.Name = "txtAuftragggeberOrt"
- Me.txtAuftragggeberOrt.Size = New System.Drawing.Size(305, 20)
- Me.txtAuftragggeberOrt.TabIndex = 7
- Me.txtAuftragggeberOrt.TabStop = False
- '
- 'txtAuftragggeberStrasse
- '
- Me.txtAuftragggeberStrasse._DateTimeOnly = False
- Me.txtAuftragggeberStrasse._numbersOnly = False
- Me.txtAuftragggeberStrasse._numbersOnlyKommastellen = ""
- Me.txtAuftragggeberStrasse._Prozent = False
- Me.txtAuftragggeberStrasse._ShortDateNew = False
- Me.txtAuftragggeberStrasse._ShortDateOnly = False
- Me.txtAuftragggeberStrasse._TimeOnly = False
- Me.txtAuftragggeberStrasse._value = Nothing
- Me.txtAuftragggeberStrasse._Waehrung = False
- Me.txtAuftragggeberStrasse._WaehrungZeichen = True
- Me.txtAuftragggeberStrasse.BackColor = System.Drawing.Color.White
- Me.txtAuftragggeberStrasse.ForeColor = System.Drawing.Color.Black
- Me.txtAuftragggeberStrasse.Location = New System.Drawing.Point(101, 61)
- Me.txtAuftragggeberStrasse.MaxLength = 35
- Me.txtAuftragggeberStrasse.MaxLineLength = -1
- Me.txtAuftragggeberStrasse.MaxLines_Warning = ""
- Me.txtAuftragggeberStrasse.MaxLines_Warning_Label = Nothing
- Me.txtAuftragggeberStrasse.Name = "txtAuftragggeberStrasse"
- Me.txtAuftragggeberStrasse.Size = New System.Drawing.Size(305, 20)
- Me.txtAuftragggeberStrasse.TabIndex = 6
- Me.txtAuftragggeberStrasse.TabStop = False
- '
- 'FlatButton4
- '
- Me.FlatButton4.allowBorder = False
- Me.FlatButton4.FlatAppearance.BorderSize = 0
- Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.FlatButton4.ForeColor = System.Drawing.Color.Black
- Me.FlatButton4.Image = Global.SDL.My.Resources.Resources.personInaktiv
- Me.FlatButton4.Location = New System.Drawing.Point(382, 18)
- Me.FlatButton4.Name = "FlatButton4"
- Me.FlatButton4.Size = New System.Drawing.Size(24, 25)
- Me.FlatButton4.TabIndex = 2
- Me.FlatButton4.TabStop = False
- Me.FlatButton4.UseVisualStyleBackColor = True
- '
- 'txtText
- '
- Me.txtText.Location = New System.Drawing.Point(102, 1071)
- 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(720, 53)
- Me.txtText.TabIndex = 35
- Me.txtText.Text = ""
- '
- 'txtBefoerderungsmittel
- '
- Me.txtBefoerderungsmittel._DateTimeOnly = False
- Me.txtBefoerderungsmittel._numbersOnly = False
- Me.txtBefoerderungsmittel._numbersOnlyKommastellen = ""
- Me.txtBefoerderungsmittel._Prozent = False
- Me.txtBefoerderungsmittel._ShortDateNew = False
- Me.txtBefoerderungsmittel._ShortDateOnly = False
- Me.txtBefoerderungsmittel._TimeOnly = False
- Me.txtBefoerderungsmittel._value = Nothing
- Me.txtBefoerderungsmittel._Waehrung = False
- Me.txtBefoerderungsmittel._WaehrungZeichen = True
- Me.txtBefoerderungsmittel.ForeColor = System.Drawing.Color.Black
- Me.txtBefoerderungsmittel.Location = New System.Drawing.Point(516, 413)
- Me.txtBefoerderungsmittel.MaxLength = 35
- Me.txtBefoerderungsmittel.MaxLineLength = -1
- Me.txtBefoerderungsmittel.MaxLines_Warning = ""
- Me.txtBefoerderungsmittel.MaxLines_Warning_Label = Nothing
- Me.txtBefoerderungsmittel.Name = "txtBefoerderungsmittel"
- Me.txtBefoerderungsmittel.Size = New System.Drawing.Size(305, 20)
- Me.txtBefoerderungsmittel.TabIndex = 19
- '
- 'txtGrenze
- '
- Me.txtGrenze._DateTimeOnly = False
- Me.txtGrenze._numbersOnly = False
- Me.txtGrenze._numbersOnlyKommastellen = ""
- Me.txtGrenze._Prozent = False
- Me.txtGrenze._ShortDateNew = False
- Me.txtGrenze._ShortDateOnly = False
- Me.txtGrenze._TimeOnly = False
- Me.txtGrenze._value = Nothing
- Me.txtGrenze._Waehrung = False
- Me.txtGrenze._WaehrungZeichen = True
- Me.txtGrenze.ForeColor = System.Drawing.Color.Black
- Me.txtGrenze.Location = New System.Drawing.Point(516, 394)
- Me.txtGrenze.MaxLength = 35
- Me.txtGrenze.MaxLineLength = -1
- Me.txtGrenze.MaxLines_Warning = ""
- Me.txtGrenze.MaxLines_Warning_Label = Nothing
- Me.txtGrenze.Name = "txtGrenze"
- Me.txtGrenze.Size = New System.Drawing.Size(305, 20)
- Me.txtGrenze.TabIndex = 16
- '
- 'txtSendungsdaten
- '
- Me.txtSendungsdaten._DateTimeOnly = False
- Me.txtSendungsdaten._numbersOnly = False
- Me.txtSendungsdaten._numbersOnlyKommastellen = ""
- Me.txtSendungsdaten._Prozent = False
- Me.txtSendungsdaten._ShortDateNew = False
- Me.txtSendungsdaten._ShortDateOnly = False
- Me.txtSendungsdaten._TimeOnly = False
- Me.txtSendungsdaten._value = Nothing
- Me.txtSendungsdaten._Waehrung = False
- Me.txtSendungsdaten._WaehrungZeichen = True
- Me.txtSendungsdaten.ForeColor = System.Drawing.Color.Black
- Me.txtSendungsdaten.Location = New System.Drawing.Point(102, 438)
- Me.txtSendungsdaten.MaxLength = 300
- Me.txtSendungsdaten.MaxLineLength = -1
- Me.txtSendungsdaten.MaxLines_Warning = ""
- Me.txtSendungsdaten.MaxLines_Warning_Label = Nothing
- Me.txtSendungsdaten.Name = "txtSendungsdaten"
- Me.txtSendungsdaten.Size = New System.Drawing.Size(305, 20)
- Me.txtSendungsdaten.TabIndex = 22
- '
- 'txtWarenwert
- '
- Me.txtWarenwert._DateTimeOnly = False
- Me.txtWarenwert._numbersOnly = False
- Me.txtWarenwert._numbersOnlyKommastellen = ""
- Me.txtWarenwert._Prozent = False
- Me.txtWarenwert._ShortDateNew = False
- Me.txtWarenwert._ShortDateOnly = False
- Me.txtWarenwert._TimeOnly = False
- Me.txtWarenwert._value = ""
- Me.txtWarenwert._Waehrung = True
- Me.txtWarenwert._WaehrungZeichen = False
- Me.txtWarenwert.ForeColor = System.Drawing.Color.Black
- Me.txtWarenwert.Location = New System.Drawing.Point(147, 395)
- Me.txtWarenwert.MaxLength = 35
- Me.txtWarenwert.MaxLineLength = -1
- Me.txtWarenwert.MaxLines_Warning = ""
- Me.txtWarenwert.MaxLines_Warning_Label = Nothing
- Me.txtWarenwert.Name = "txtWarenwert"
- Me.txtWarenwert.Size = New System.Drawing.Size(129, 20)
- Me.txtWarenwert.TabIndex = 15
- Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
- '
- 'txtZollbelegNr
- '
- Me.txtZollbelegNr._DateTimeOnly = False
- Me.txtZollbelegNr._numbersOnly = False
- Me.txtZollbelegNr._numbersOnlyKommastellen = ""
- Me.txtZollbelegNr._Prozent = False
- Me.txtZollbelegNr._ShortDateNew = False
- Me.txtZollbelegNr._ShortDateOnly = False
- Me.txtZollbelegNr._TimeOnly = False
- Me.txtZollbelegNr._value = Nothing
- Me.txtZollbelegNr._Waehrung = False
- Me.txtZollbelegNr._WaehrungZeichen = True
- Me.txtZollbelegNr.ForeColor = System.Drawing.Color.Black
- Me.txtZollbelegNr.Location = New System.Drawing.Point(102, 376)
- Me.txtZollbelegNr.MaxLength = 35
- Me.txtZollbelegNr.MaxLineLength = -1
- Me.txtZollbelegNr.MaxLines_Warning = ""
- Me.txtZollbelegNr.MaxLines_Warning_Label = Nothing
- Me.txtZollbelegNr.Name = "txtZollbelegNr"
- Me.txtZollbelegNr.Size = New System.Drawing.Size(305, 20)
- Me.txtZollbelegNr.TabIndex = 10
- '
- '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
- Me.txtRechnungAnName2._numbersOnly = False
- Me.txtRechnungAnName2._numbersOnlyKommastellen = ""
- Me.txtRechnungAnName2._Prozent = False
- Me.txtRechnungAnName2._ShortDateNew = False
- Me.txtRechnungAnName2._ShortDateOnly = False
- Me.txtRechnungAnName2._TimeOnly = False
- Me.txtRechnungAnName2._value = Nothing
- Me.txtRechnungAnName2._Waehrung = False
- Me.txtRechnungAnName2._WaehrungZeichen = True
- Me.txtRechnungAnName2.ForeColor = System.Drawing.Color.Black
- Me.txtRechnungAnName2.Location = New System.Drawing.Point(101, 56)
- Me.txtRechnungAnName2.MaxLength = 40
- Me.txtRechnungAnName2.MaxLineLength = -1
- Me.txtRechnungAnName2.MaxLines_Warning = ""
- Me.txtRechnungAnName2.MaxLines_Warning_Label = Nothing
- Me.txtRechnungAnName2.Name = "txtRechnungAnName2"
- Me.txtRechnungAnName2.Size = New System.Drawing.Size(306, 20)
- Me.txtRechnungAnName2.TabIndex = 11
- Me.txtRechnungAnName2.TabStop = False
- '
- 'kdFirmaRechnungAn
- '
- Me.kdFirmaRechnungAn._AlleFirmenCLUSTER = False
- Me.kdFirmaRechnungAn._AllowSetValue = True
- Me.kdFirmaRechnungAn._autoSizeGross = False
- Me.kdFirmaRechnungAn._display_Name1 = True
- Me.kdFirmaRechnungAn._displayAVISO_Email = False
- Me.kdFirmaRechnungAn._displayFullName = False
- Me.kdFirmaRechnungAn._displayWoelflKd = False
- Me.kdFirmaRechnungAn._hideIfListEmpty = True
- Me.kdFirmaRechnungAn._loadKdData = True
- Me.kdFirmaRechnungAn._UseFIRMA = ""
- Me.kdFirmaRechnungAn._ValueKdAndName = False
- Me.kdFirmaRechnungAn.dgvpos = "LEFT"
- Me.kdFirmaRechnungAn.KdName = Nothing
- Me.kdFirmaRechnungAn.KdNr = "-1"
- Me.kdFirmaRechnungAn.kdNrField = Nothing
- Me.kdFirmaRechnungAn.KdNrNullInt = Nothing
- Me.kdFirmaRechnungAn.Location = New System.Drawing.Point(101, 37)
- Me.kdFirmaRechnungAn.MaxLength = 35
- Me.kdFirmaRechnungAn.Name = "kdFirmaRechnungAn"
- Me.kdFirmaRechnungAn.nurAktive = True
- Me.kdFirmaRechnungAn.searchActive = True
- Me.kdFirmaRechnungAn.Size = New System.Drawing.Size(283, 20)
- Me.kdFirmaRechnungAn.TabIndex = 5
- Me.kdFirmaRechnungAn.TabStop = False
- Me.kdFirmaRechnungAn.TIMER_SEARCH = True
- Me.kdFirmaRechnungAn.usrcntl = Nothing
- '
- 'FlatButton3
- '
- Me.FlatButton3.allowBorder = False
- Me.FlatButton3.FlatAppearance.BorderSize = 0
- Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.FlatButton3.ForeColor = System.Drawing.Color.Black
- Me.FlatButton3.Image = Global.SDL.My.Resources.Resources.personInaktiv
- Me.FlatButton3.Location = New System.Drawing.Point(383, 32)
- Me.FlatButton3.Name = "FlatButton3"
- Me.FlatButton3.Size = New System.Drawing.Size(24, 25)
- Me.FlatButton3.TabIndex = 7
- Me.FlatButton3.TabStop = False
- Me.FlatButton3.UseVisualStyleBackColor = True
- '
- 'txtKdAuftragsNr
- '
- Me.txtKdAuftragsNr._DateTimeOnly = False
- Me.txtKdAuftragsNr._numbersOnly = False
- Me.txtKdAuftragsNr._numbersOnlyKommastellen = ""
- Me.txtKdAuftragsNr._Prozent = False
- Me.txtKdAuftragsNr._ShortDateNew = False
- Me.txtKdAuftragsNr._ShortDateOnly = False
- Me.txtKdAuftragsNr._TimeOnly = False
- Me.txtKdAuftragsNr._value = Nothing
- Me.txtKdAuftragsNr._Waehrung = False
- Me.txtKdAuftragsNr._WaehrungZeichen = True
- Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black
- Me.txtKdAuftragsNr.Location = New System.Drawing.Point(101, 116)
- Me.txtKdAuftragsNr.MaxLength = 35
- Me.txtKdAuftragsNr.MaxLineLength = -1
- Me.txtKdAuftragsNr.MaxLines_Warning = ""
- Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing
- Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr"
- Me.txtKdAuftragsNr.Size = New System.Drawing.Size(306, 20)
- Me.txtKdAuftragsNr.TabIndex = 20
- '
- 'txtRechnungAnUIDKz
- '
- Me.txtRechnungAnUIDKz._DateTimeOnly = False
- Me.txtRechnungAnUIDKz._numbersOnly = False
- Me.txtRechnungAnUIDKz._numbersOnlyKommastellen = ""
- Me.txtRechnungAnUIDKz._Prozent = False
- Me.txtRechnungAnUIDKz._ShortDateNew = False
- Me.txtRechnungAnUIDKz._ShortDateOnly = False
- Me.txtRechnungAnUIDKz._TimeOnly = False
- Me.txtRechnungAnUIDKz._value = Nothing
- Me.txtRechnungAnUIDKz._Waehrung = False
- Me.txtRechnungAnUIDKz._WaehrungZeichen = True
- Me.txtRechnungAnUIDKz.ForeColor = System.Drawing.Color.Black
- Me.txtRechnungAnUIDKz.Location = New System.Drawing.Point(481, 56)
- Me.txtRechnungAnUIDKz.MaxLength = 35
- Me.txtRechnungAnUIDKz.MaxLineLength = -1
- Me.txtRechnungAnUIDKz.MaxLines_Warning = ""
- Me.txtRechnungAnUIDKz.MaxLines_Warning_Label = Nothing
- Me.txtRechnungAnUIDKz.Name = "txtRechnungAnUIDKz"
- Me.txtRechnungAnUIDKz.Size = New System.Drawing.Size(27, 20)
- Me.txtRechnungAnUIDKz.TabIndex = 18
- Me.txtRechnungAnUIDKz.TabStop = False
- '
- 'cboRechnungAn
- '
- Me.cboRechnungAn._allowedValuesFreiText = Nothing
- Me.cboRechnungAn._allowFreiText = False
- Me.cboRechnungAn._value = ""
- Me.cboRechnungAn.FormattingEnabled = True
- Me.cboRechnungAn.Location = New System.Drawing.Point(101, 17)
- Me.cboRechnungAn.Name = "cboRechnungAn"
- Me.cboRechnungAn.Size = New System.Drawing.Size(183, 21)
- Me.cboRechnungAn.TabIndex = 1
- '
- 'txtRechnungAnUIDNr
- '
- Me.txtRechnungAnUIDNr._DateTimeOnly = False
- Me.txtRechnungAnUIDNr._numbersOnly = False
- Me.txtRechnungAnUIDNr._numbersOnlyKommastellen = ""
- Me.txtRechnungAnUIDNr._Prozent = False
- Me.txtRechnungAnUIDNr._ShortDateNew = False
- Me.txtRechnungAnUIDNr._ShortDateOnly = False
- Me.txtRechnungAnUIDNr._TimeOnly = False
- Me.txtRechnungAnUIDNr._value = Nothing
- Me.txtRechnungAnUIDNr._Waehrung = False
- Me.txtRechnungAnUIDNr._WaehrungZeichen = True
- Me.txtRechnungAnUIDNr.ForeColor = System.Drawing.Color.Black
- Me.txtRechnungAnUIDNr.Location = New System.Drawing.Point(506, 56)
- Me.txtRechnungAnUIDNr.MaxLength = 35
- Me.txtRechnungAnUIDNr.MaxLineLength = -1
- Me.txtRechnungAnUIDNr.MaxLines_Warning = ""
- Me.txtRechnungAnUIDNr.MaxLines_Warning_Label = Nothing
- Me.txtRechnungAnUIDNr.Name = "txtRechnungAnUIDNr"
- Me.txtRechnungAnUIDNr.Size = New System.Drawing.Size(69, 20)
- Me.txtRechnungAnUIDNr.TabIndex = 13
- Me.txtRechnungAnUIDNr.TabStop = False
- '
- 'txtRechnungAnBuKdNr
- '
- Me.txtRechnungAnBuKdNr._DateTimeOnly = False
- Me.txtRechnungAnBuKdNr._numbersOnly = False
- Me.txtRechnungAnBuKdNr._numbersOnlyKommastellen = ""
- Me.txtRechnungAnBuKdNr._Prozent = False
- Me.txtRechnungAnBuKdNr._ShortDateNew = False
- Me.txtRechnungAnBuKdNr._ShortDateOnly = False
- Me.txtRechnungAnBuKdNr._TimeOnly = False
- Me.txtRechnungAnBuKdNr._value = Nothing
- Me.txtRechnungAnBuKdNr._Waehrung = False
- Me.txtRechnungAnBuKdNr._WaehrungZeichen = True
- Me.txtRechnungAnBuKdNr.ForeColor = System.Drawing.Color.Black
- Me.txtRechnungAnBuKdNr.Location = New System.Drawing.Point(481, 37)
- Me.txtRechnungAnBuKdNr.MaxLength = 35
- Me.txtRechnungAnBuKdNr.MaxLineLength = -1
- Me.txtRechnungAnBuKdNr.MaxLines_Warning = ""
- Me.txtRechnungAnBuKdNr.MaxLines_Warning_Label = Nothing
- Me.txtRechnungAnBuKdNr.Name = "txtRechnungAnBuKdNr"
- Me.txtRechnungAnBuKdNr.Size = New System.Drawing.Size(94, 20)
- Me.txtRechnungAnBuKdNr.TabIndex = 10
- Me.txtRechnungAnBuKdNr.TabStop = False
- '
- 'txtkdNrRechnungAn
- '
- Me.txtkdNrRechnungAn._DateTimeOnly = False
- Me.txtkdNrRechnungAn._numbersOnly = False
- Me.txtkdNrRechnungAn._numbersOnlyKommastellen = ""
- Me.txtkdNrRechnungAn._Prozent = False
- Me.txtkdNrRechnungAn._ShortDateNew = False
- Me.txtkdNrRechnungAn._ShortDateOnly = False
- Me.txtkdNrRechnungAn._TimeOnly = False
- Me.txtkdNrRechnungAn._value = Nothing
- Me.txtkdNrRechnungAn._Waehrung = False
- Me.txtkdNrRechnungAn._WaehrungZeichen = True
- Me.txtkdNrRechnungAn.ForeColor = System.Drawing.Color.Black
- Me.txtkdNrRechnungAn.Location = New System.Drawing.Point(8, 37)
- Me.txtkdNrRechnungAn.MaxLength = 35
- Me.txtkdNrRechnungAn.MaxLineLength = -1
- Me.txtkdNrRechnungAn.MaxLines_Warning = ""
- Me.txtkdNrRechnungAn.MaxLines_Warning_Label = Nothing
- Me.txtkdNrRechnungAn.Name = "txtkdNrRechnungAn"
- Me.txtkdNrRechnungAn.Size = New System.Drawing.Size(94, 20)
- Me.txtkdNrRechnungAn.TabIndex = 3
- Me.txtkdNrRechnungAn.TabStop = False
- '
- 'txtRechnungAnOrt
- '
- Me.txtRechnungAnOrt._DateTimeOnly = False
- Me.txtRechnungAnOrt._numbersOnly = False
- Me.txtRechnungAnOrt._numbersOnlyKommastellen = ""
- Me.txtRechnungAnOrt._Prozent = False
- Me.txtRechnungAnOrt._ShortDateNew = False
- Me.txtRechnungAnOrt._ShortDateOnly = False
- Me.txtRechnungAnOrt._TimeOnly = False
- Me.txtRechnungAnOrt._value = Nothing
- Me.txtRechnungAnOrt._Waehrung = False
- Me.txtRechnungAnOrt._WaehrungZeichen = True
- Me.txtRechnungAnOrt.ForeColor = System.Drawing.Color.Black
- Me.txtRechnungAnOrt.Location = New System.Drawing.Point(101, 94)
- Me.txtRechnungAnOrt.MaxLength = 52
- Me.txtRechnungAnOrt.MaxLineLength = -1
- Me.txtRechnungAnOrt.MaxLines_Warning = ""
- Me.txtRechnungAnOrt.MaxLines_Warning_Label = Nothing
- Me.txtRechnungAnOrt.Name = "txtRechnungAnOrt"
- Me.txtRechnungAnOrt.Size = New System.Drawing.Size(306, 20)
- Me.txtRechnungAnOrt.TabIndex = 17
- Me.txtRechnungAnOrt.TabStop = False
- '
- 'txtRechnungAnStrasse
- '
- Me.txtRechnungAnStrasse._DateTimeOnly = False
- Me.txtRechnungAnStrasse._numbersOnly = False
- Me.txtRechnungAnStrasse._numbersOnlyKommastellen = ""
- Me.txtRechnungAnStrasse._Prozent = False
- Me.txtRechnungAnStrasse._ShortDateNew = False
- Me.txtRechnungAnStrasse._ShortDateOnly = False
- Me.txtRechnungAnStrasse._TimeOnly = False
- Me.txtRechnungAnStrasse._value = Nothing
- Me.txtRechnungAnStrasse._Waehrung = False
- Me.txtRechnungAnStrasse._WaehrungZeichen = True
- Me.txtRechnungAnStrasse.ForeColor = System.Drawing.Color.Black
- Me.txtRechnungAnStrasse.Location = New System.Drawing.Point(101, 75)
- Me.txtRechnungAnStrasse.MaxLength = 40
- Me.txtRechnungAnStrasse.MaxLineLength = -1
- Me.txtRechnungAnStrasse.MaxLines_Warning = ""
- Me.txtRechnungAnStrasse.MaxLines_Warning_Label = Nothing
- Me.txtRechnungAnStrasse.Name = "txtRechnungAnStrasse"
- Me.txtRechnungAnStrasse.Size = New System.Drawing.Size(306, 20)
- Me.txtRechnungAnStrasse.TabIndex = 14
- Me.txtRechnungAnStrasse.TabStop = False
- '
- 'txtkdNrAbsender
- '
- Me.txtkdNrAbsender._DateTimeOnly = False
- Me.txtkdNrAbsender._numbersOnly = False
- Me.txtkdNrAbsender._numbersOnlyKommastellen = ""
- Me.txtkdNrAbsender._Prozent = False
- Me.txtkdNrAbsender._ShortDateNew = False
- Me.txtkdNrAbsender._ShortDateOnly = False
- Me.txtkdNrAbsender._TimeOnly = False
- Me.txtkdNrAbsender._value = Nothing
- Me.txtkdNrAbsender._Waehrung = False
- Me.txtkdNrAbsender._WaehrungZeichen = True
- Me.txtkdNrAbsender.BackColor = System.Drawing.Color.White
- Me.txtkdNrAbsender.ForeColor = System.Drawing.Color.Black
- Me.txtkdNrAbsender.Location = New System.Drawing.Point(8, 23)
- Me.txtkdNrAbsender.MaxLength = 35
- Me.txtkdNrAbsender.MaxLineLength = -1
- Me.txtkdNrAbsender.MaxLines_Warning = ""
- Me.txtkdNrAbsender.MaxLines_Warning_Label = Nothing
- Me.txtkdNrAbsender.Name = "txtkdNrAbsender"
- Me.txtkdNrAbsender.ReadOnly = True
- Me.txtkdNrAbsender.Size = New System.Drawing.Size(94, 20)
- Me.txtkdNrAbsender.TabIndex = 1
- Me.txtkdNrAbsender.TabStop = False
- '
- 'kdFirmaAbsender
- '
- Me.kdFirmaAbsender._AlleFirmenCLUSTER = False
- Me.kdFirmaAbsender._AllowSetValue = True
- Me.kdFirmaAbsender._autoSizeGross = False
- Me.kdFirmaAbsender._display_Name1 = True
- Me.kdFirmaAbsender._displayAVISO_Email = False
- Me.kdFirmaAbsender._displayFullName = False
- Me.kdFirmaAbsender._displayWoelflKd = False
- Me.kdFirmaAbsender._hideIfListEmpty = True
- Me.kdFirmaAbsender._loadKdData = True
- Me.kdFirmaAbsender._UseFIRMA = ""
- Me.kdFirmaAbsender._ValueKdAndName = False
- Me.kdFirmaAbsender.BackColor = System.Drawing.Color.White
- Me.kdFirmaAbsender.dgvpos = "LEFT"
- Me.kdFirmaAbsender.KdName = Nothing
- Me.kdFirmaAbsender.KdNr = "-1"
- Me.kdFirmaAbsender.kdNrField = Nothing
- Me.kdFirmaAbsender.KdNrNullInt = Nothing
- Me.kdFirmaAbsender.Location = New System.Drawing.Point(101, 23)
- Me.kdFirmaAbsender.MaxLength = 35
- Me.kdFirmaAbsender.Name = "kdFirmaAbsender"
- Me.kdFirmaAbsender.nurAktive = True
- Me.kdFirmaAbsender.searchActive = True
- Me.kdFirmaAbsender.Size = New System.Drawing.Size(283, 20)
- Me.kdFirmaAbsender.TabIndex = 3
- Me.kdFirmaAbsender.TabStop = False
- Me.kdFirmaAbsender.TIMER_SEARCH = True
- Me.kdFirmaAbsender.usrcntl = Nothing
- '
- 'txtAbsenderName2
- '
- Me.txtAbsenderName2._DateTimeOnly = False
- Me.txtAbsenderName2._numbersOnly = False
- Me.txtAbsenderName2._numbersOnlyKommastellen = ""
- Me.txtAbsenderName2._Prozent = False
- Me.txtAbsenderName2._ShortDateNew = False
- Me.txtAbsenderName2._ShortDateOnly = False
- Me.txtAbsenderName2._TimeOnly = False
- Me.txtAbsenderName2._value = Nothing
- Me.txtAbsenderName2._Waehrung = False
- Me.txtAbsenderName2._WaehrungZeichen = True
- Me.txtAbsenderName2.BackColor = System.Drawing.Color.White
- Me.txtAbsenderName2.ForeColor = System.Drawing.Color.Black
- Me.txtAbsenderName2.Location = New System.Drawing.Point(101, 42)
- Me.txtAbsenderName2.MaxLength = 35
- Me.txtAbsenderName2.MaxLineLength = -1
- Me.txtAbsenderName2.MaxLines_Warning = ""
- Me.txtAbsenderName2.MaxLines_Warning_Label = Nothing
- Me.txtAbsenderName2.Name = "txtAbsenderName2"
- Me.txtAbsenderName2.Size = New System.Drawing.Size(305, 20)
- Me.txtAbsenderName2.TabIndex = 4
- Me.txtAbsenderName2.TabStop = False
- '
- 'txtAbsenderOrt
- '
- Me.txtAbsenderOrt._DateTimeOnly = False
- Me.txtAbsenderOrt._numbersOnly = False
- Me.txtAbsenderOrt._numbersOnlyKommastellen = ""
- Me.txtAbsenderOrt._Prozent = False
- Me.txtAbsenderOrt._ShortDateNew = False
- Me.txtAbsenderOrt._ShortDateOnly = False
- Me.txtAbsenderOrt._TimeOnly = False
- Me.txtAbsenderOrt._value = Nothing
- Me.txtAbsenderOrt._Waehrung = False
- Me.txtAbsenderOrt._WaehrungZeichen = True
- Me.txtAbsenderOrt.BackColor = System.Drawing.Color.White
- Me.txtAbsenderOrt.ForeColor = System.Drawing.Color.Black
- Me.txtAbsenderOrt.Location = New System.Drawing.Point(101, 80)
- Me.txtAbsenderOrt.MaxLength = 35
- Me.txtAbsenderOrt.MaxLineLength = -1
- Me.txtAbsenderOrt.MaxLines_Warning = ""
- Me.txtAbsenderOrt.MaxLines_Warning_Label = Nothing
- Me.txtAbsenderOrt.Name = "txtAbsenderOrt"
- Me.txtAbsenderOrt.Size = New System.Drawing.Size(305, 20)
- Me.txtAbsenderOrt.TabIndex = 7
- Me.txtAbsenderOrt.TabStop = False
- '
- 'txtAbsenderStrasse
- '
- Me.txtAbsenderStrasse._DateTimeOnly = False
- Me.txtAbsenderStrasse._numbersOnly = False
- Me.txtAbsenderStrasse._numbersOnlyKommastellen = ""
- Me.txtAbsenderStrasse._Prozent = False
- Me.txtAbsenderStrasse._ShortDateNew = False
- Me.txtAbsenderStrasse._ShortDateOnly = False
- Me.txtAbsenderStrasse._TimeOnly = False
- Me.txtAbsenderStrasse._value = Nothing
- Me.txtAbsenderStrasse._Waehrung = False
- Me.txtAbsenderStrasse._WaehrungZeichen = True
- Me.txtAbsenderStrasse.BackColor = System.Drawing.Color.White
- Me.txtAbsenderStrasse.ForeColor = System.Drawing.Color.Black
- Me.txtAbsenderStrasse.Location = New System.Drawing.Point(101, 61)
- Me.txtAbsenderStrasse.MaxLength = 35
- Me.txtAbsenderStrasse.MaxLineLength = -1
- Me.txtAbsenderStrasse.MaxLines_Warning = ""
- Me.txtAbsenderStrasse.MaxLines_Warning_Label = Nothing
- Me.txtAbsenderStrasse.Name = "txtAbsenderStrasse"
- Me.txtAbsenderStrasse.Size = New System.Drawing.Size(305, 20)
- Me.txtAbsenderStrasse.TabIndex = 6
- Me.txtAbsenderStrasse.TabStop = False
- '
- 'FlatButton1
- '
- Me.FlatButton1.allowBorder = False
- Me.FlatButton1.FlatAppearance.BorderSize = 0
- Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.FlatButton1.ForeColor = System.Drawing.Color.Black
- Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.personInaktiv
- Me.FlatButton1.Location = New System.Drawing.Point(382, 18)
- Me.FlatButton1.Name = "FlatButton1"
- Me.FlatButton1.Size = New System.Drawing.Size(24, 25)
- Me.FlatButton1.TabIndex = 2
- Me.FlatButton1.TabStop = False
- Me.FlatButton1.UseVisualStyleBackColor = True
- '
- 'sbLeistung
- '
- Me.sbLeistung._allowFreitext = False
- Me.sbLeistung._AllowSetValue = False
- Me.sbLeistung._allowSpaceAsSplitter = False
- Me.sbLeistung._autoSizeGross = False
- Me.sbLeistung._hideIfListEmpty = True
- Me.sbLeistung._value = Nothing
- Me.sbLeistung.conn_art = "FMZOLL"
- Me.sbLeistung.dgvpos = "LEFT"
- Me.sbLeistung.DISPLAY_PARAM = Nothing
- Me.sbLeistung.INVISIBLE_COLUMNS = Nothing
- Me.sbLeistung.key_visible = False
- Me.sbLeistung.KEYPARAM = Nothing
- Me.sbLeistung.Location = New System.Drawing.Point(623, 232)
- Me.sbLeistung.Name = "sbLeistung"
- Me.sbLeistung.searchActive = True
- Me.sbLeistung.Size = New System.Drawing.Size(161, 20)
- Me.sbLeistung.SQL_ORDER_BY = Nothing
- Me.sbLeistung.SQL_SELECT = Nothing
- Me.sbLeistung.SQL_WHERE = Nothing
- Me.sbLeistung.SQL_WhereParamList = Nothing
- Me.sbLeistung.TabIndex = 14
- Me.sbLeistung.usrcntl = Nothing
- '
- 'txtUnterNrRef
- '
- Me.txtUnterNrRef._DateTimeOnly = False
- Me.txtUnterNrRef._numbersOnly = False
- Me.txtUnterNrRef._numbersOnlyKommastellen = ""
- Me.txtUnterNrRef._Prozent = False
- Me.txtUnterNrRef._ShortDateNew = False
- Me.txtUnterNrRef._ShortDateOnly = False
- Me.txtUnterNrRef._TimeOnly = False
- Me.txtUnterNrRef._value = Nothing
- Me.txtUnterNrRef._Waehrung = False
- Me.txtUnterNrRef._WaehrungZeichen = True
- Me.txtUnterNrRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!)
- Me.txtUnterNrRef.Location = New System.Drawing.Point(536, 69)
- Me.txtUnterNrRef.MaxLineLength = -1
- Me.txtUnterNrRef.MaxLines_Warning = ""
- Me.txtUnterNrRef.MaxLines_Warning_Label = Nothing
- Me.txtUnterNrRef.Name = "txtUnterNrRef"
- Me.txtUnterNrRef.Size = New System.Drawing.Size(39, 21)
- Me.txtUnterNrRef.TabIndex = 8
- Me.txtUnterNrRef.Visible = False
- '
- 'cboFilialeRef
- '
- Me.cboFilialeRef._allowedValuesFreiText = Nothing
- Me.cboFilialeRef._allowFreiText = False
- Me.cboFilialeRef._value = ""
- Me.cboFilialeRef.DropDownWidth = 280
- Me.cboFilialeRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!)
- Me.cboFilialeRef.FormattingEnabled = True
- Me.cboFilialeRef.Location = New System.Drawing.Point(289, 68)
- Me.cboFilialeRef.Name = "cboFilialeRef"
- Me.cboFilialeRef.Size = New System.Drawing.Size(80, 22)
- Me.cboFilialeRef.TabIndex = 6
- Me.cboFilialeRef.Visible = False
- '
- 'txtAbfertigungsnummerRef
- '
- Me.txtAbfertigungsnummerRef._DateTimeOnly = False
- Me.txtAbfertigungsnummerRef._numbersOnly = False
- Me.txtAbfertigungsnummerRef._numbersOnlyKommastellen = ""
- Me.txtAbfertigungsnummerRef._Prozent = False
- Me.txtAbfertigungsnummerRef._ShortDateNew = False
- Me.txtAbfertigungsnummerRef._ShortDateOnly = False
- Me.txtAbfertigungsnummerRef._TimeOnly = False
- Me.txtAbfertigungsnummerRef._value = Nothing
- Me.txtAbfertigungsnummerRef._Waehrung = False
- Me.txtAbfertigungsnummerRef._WaehrungZeichen = True
- Me.txtAbfertigungsnummerRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!)
- Me.txtAbfertigungsnummerRef.Location = New System.Drawing.Point(368, 69)
- Me.txtAbfertigungsnummerRef.MaxLineLength = -1
- Me.txtAbfertigungsnummerRef.MaxLines_Warning = ""
- Me.txtAbfertigungsnummerRef.MaxLines_Warning_Label = Nothing
- Me.txtAbfertigungsnummerRef.Name = "txtAbfertigungsnummerRef"
- Me.txtAbfertigungsnummerRef.Size = New System.Drawing.Size(169, 21)
- Me.txtAbfertigungsnummerRef.TabIndex = 7
- Me.txtAbfertigungsnummerRef.Visible = False
- '
- 'dgvRechnungenPositionen
- '
- Me.dgvRechnungenPositionen.AKTUALISIERUNGS_INTERVALL = -1
- Me.dgvRechnungenPositionen.AllowUserToAddRows = False
- Me.dgvRechnungenPositionen.AllowUserToDeleteRows = False
- Me.dgvRechnungenPositionen.AllowUserToResizeColumns = False
- Me.dgvRechnungenPositionen.AllowUserToResizeRows = False
- Me.dgvRechnungenPositionen.BackgroundColor = System.Drawing.Color.White
- Me.dgvRechnungenPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
- Me.dgvRechnungenPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Leistung, Me.Anzahl, Me.Preis, Me.SteuerpflichtigerBetrag, Me.SteuerfreierBetrag, Me.Aufschubkonto})
- Me.dgvRechnungenPositionen.Location = New System.Drawing.Point(10, 258)
- Me.dgvRechnungenPositionen.Name = "dgvRechnungenPositionen"
- Me.dgvRechnungenPositionen.ReadOnly = True
- Me.dgvRechnungenPositionen.RowHeadersVisible = False
- Me.dgvRechnungenPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
- Me.dgvRechnungenPositionen.Size = New System.Drawing.Size(811, 189)
- Me.dgvRechnungenPositionen.TabIndex = 5
- Me.dgvRechnungenPositionen.TabStop = False
- '
- 'Leistung
- '
- Me.Leistung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
- Me.Leistung.HeaderText = "Leistung"
- Me.Leistung.Name = "Leistung"
- Me.Leistung.ReadOnly = True
- '
- 'Anzahl
- '
- DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
- DataGridViewCellStyle1.Format = "N0"
- DataGridViewCellStyle1.NullValue = Nothing
- Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle1
- Me.Anzahl.HeaderText = "Anzahl"
- Me.Anzahl.Name = "Anzahl"
- Me.Anzahl.ReadOnly = True
- Me.Anzahl.Width = 50
- '
- 'Preis
- '
- DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
- DataGridViewCellStyle2.Format = "c2"
- Me.Preis.DefaultCellStyle = DataGridViewCellStyle2
- Me.Preis.HeaderText = "Preis"
- Me.Preis.Name = "Preis"
- Me.Preis.ReadOnly = True
- Me.Preis.Width = 80
- '
- 'SteuerpflichtigerBetrag
- '
- DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
- DataGridViewCellStyle3.Format = "c2"
- Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle3
- Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl."
- Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag"
- Me.SteuerpflichtigerBetrag.ReadOnly = True
- Me.SteuerpflichtigerBetrag.Width = 120
- '
- 'SteuerfreierBetrag
- '
- DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
- DataGridViewCellStyle4.Format = "C2"
- DataGridViewCellStyle4.NullValue = Nothing
- Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle4
- Me.SteuerfreierBetrag.HeaderText = "Steuerfrei"
- Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag"
- Me.SteuerfreierBetrag.ReadOnly = True
- Me.SteuerfreierBetrag.Width = 120
- '
- 'Aufschubkonto
- '
- Me.Aufschubkonto.HeaderText = "Aufschubkonto"
- Me.Aufschubkonto.Name = "Aufschubkonto"
- Me.Aufschubkonto.ReadOnly = True
- Me.Aufschubkonto.Width = 120
- '
- 'dgvOfferteDetailsUebersicht
- '
- Me.dgvOfferteDetailsUebersicht.AKTUALISIERUNGS_INTERVALL = -1
- Me.dgvOfferteDetailsUebersicht.AllowUserToAddRows = False
- Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False
- Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True
- Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False
- DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
- Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
- Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White
- Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
- Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
- Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(220, 29)
- Me.dgvOfferteDetailsUebersicht.MultiSelect = False
- Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht"
- Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False
- 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.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
- DataGridViewCellStyle7.SelectionForeColor = System.Drawing.Color.Black
- Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle7
- Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
- Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(601, 201)
- Me.dgvOfferteDetailsUebersicht.TabIndex = 3
- '
- 'txtRohmasse
- '
- Me.txtRohmasse._DateTimeOnly = False
- Me.txtRohmasse._numbersOnly = False
- Me.txtRohmasse._numbersOnlyKommastellen = ""
- Me.txtRohmasse._Prozent = False
- Me.txtRohmasse._ShortDateNew = False
- Me.txtRohmasse._ShortDateOnly = False
- Me.txtRohmasse._TimeOnly = False
- Me.txtRohmasse._value = Nothing
- Me.txtRohmasse._Waehrung = False
- Me.txtRohmasse._WaehrungZeichen = True
- Me.txtRohmasse.ForeColor = System.Drawing.Color.Black
- Me.txtRohmasse.Location = New System.Drawing.Point(370, 115)
- Me.txtRohmasse.MaxLength = 35
- Me.txtRohmasse.MaxLineLength = -1
- Me.txtRohmasse.MaxLines_Warning = ""
- Me.txtRohmasse.MaxLines_Warning_Label = Nothing
- Me.txtRohmasse.Name = "txtRohmasse"
- Me.txtRohmasse.Size = New System.Drawing.Size(305, 20)
- Me.txtRohmasse.TabIndex = 24
- Me.txtRohmasse.Visible = False
- '
- 'cboWaehrung
- '
- Me.cboWaehrung._allowedValuesFreiText = Nothing
- Me.cboWaehrung._allowFreiText = False
- Me.cboWaehrung._value = ""
- Me.cboWaehrung.FormattingEnabled = True
- Me.cboWaehrung.Location = New System.Drawing.Point(102, 394)
- Me.cboWaehrung.Name = "cboWaehrung"
- Me.cboWaehrung.Size = New System.Drawing.Size(47, 21)
- Me.cboWaehrung.TabIndex = 14
- '
- 'cboWaehrungUmrechnung
- '
- Me.cboWaehrungUmrechnung._allowedValuesFreiText = Nothing
- Me.cboWaehrungUmrechnung._allowFreiText = False
- Me.cboWaehrungUmrechnung._value = ""
- Me.cboWaehrungUmrechnung.Enabled = False
- Me.cboWaehrungUmrechnung.FormattingEnabled = True
- Me.cboWaehrungUmrechnung.Location = New System.Drawing.Point(102, 413)
- Me.cboWaehrungUmrechnung.Name = "cboWaehrungUmrechnung"
- Me.cboWaehrungUmrechnung.Size = New System.Drawing.Size(47, 21)
- Me.cboWaehrungUmrechnung.TabIndex = 17
- '
- 'txtkdNrEmpfaenger
- '
- Me.txtkdNrEmpfaenger._DateTimeOnly = False
- Me.txtkdNrEmpfaenger._numbersOnly = False
- Me.txtkdNrEmpfaenger._numbersOnlyKommastellen = ""
- Me.txtkdNrEmpfaenger._Prozent = False
- Me.txtkdNrEmpfaenger._ShortDateNew = False
- Me.txtkdNrEmpfaenger._ShortDateOnly = False
- Me.txtkdNrEmpfaenger._TimeOnly = False
- Me.txtkdNrEmpfaenger._value = Nothing
- Me.txtkdNrEmpfaenger._Waehrung = False
- Me.txtkdNrEmpfaenger._WaehrungZeichen = True
- Me.txtkdNrEmpfaenger.BackColor = System.Drawing.Color.White
- Me.txtkdNrEmpfaenger.ForeColor = System.Drawing.Color.Black
- Me.txtkdNrEmpfaenger.Location = New System.Drawing.Point(8, 21)
- Me.txtkdNrEmpfaenger.MaxLength = 35
- Me.txtkdNrEmpfaenger.MaxLineLength = -1
- Me.txtkdNrEmpfaenger.MaxLines_Warning = ""
- Me.txtkdNrEmpfaenger.MaxLines_Warning_Label = Nothing
- Me.txtkdNrEmpfaenger.Name = "txtkdNrEmpfaenger"
- Me.txtkdNrEmpfaenger.ReadOnly = True
- Me.txtkdNrEmpfaenger.Size = New System.Drawing.Size(94, 20)
- Me.txtkdNrEmpfaenger.TabIndex = 1
- Me.txtkdNrEmpfaenger.TabStop = False
- '
- 'txtEmpfeangerName2
- '
- Me.txtEmpfeangerName2._DateTimeOnly = False
- Me.txtEmpfeangerName2._numbersOnly = False
- Me.txtEmpfeangerName2._numbersOnlyKommastellen = ""
- Me.txtEmpfeangerName2._Prozent = False
- Me.txtEmpfeangerName2._ShortDateNew = False
- Me.txtEmpfeangerName2._ShortDateOnly = False
- Me.txtEmpfeangerName2._TimeOnly = False
- Me.txtEmpfeangerName2._value = Nothing
- Me.txtEmpfeangerName2._Waehrung = False
- Me.txtEmpfeangerName2._WaehrungZeichen = True
- Me.txtEmpfeangerName2.BackColor = System.Drawing.Color.White
- Me.txtEmpfeangerName2.ForeColor = System.Drawing.Color.Black
- Me.txtEmpfeangerName2.Location = New System.Drawing.Point(101, 40)
- Me.txtEmpfeangerName2.MaxLength = 35
- Me.txtEmpfeangerName2.MaxLineLength = -1
- Me.txtEmpfeangerName2.MaxLines_Warning = ""
- Me.txtEmpfeangerName2.MaxLines_Warning_Label = Nothing
- Me.txtEmpfeangerName2.Name = "txtEmpfeangerName2"
- Me.txtEmpfeangerName2.Size = New System.Drawing.Size(305, 20)
- Me.txtEmpfeangerName2.TabIndex = 4
- Me.txtEmpfeangerName2.TabStop = False
- '
- 'txtEmpfaengerOrt
- '
- Me.txtEmpfaengerOrt._DateTimeOnly = False
- Me.txtEmpfaengerOrt._numbersOnly = False
- Me.txtEmpfaengerOrt._numbersOnlyKommastellen = ""
- Me.txtEmpfaengerOrt._Prozent = False
- Me.txtEmpfaengerOrt._ShortDateNew = False
- Me.txtEmpfaengerOrt._ShortDateOnly = False
- Me.txtEmpfaengerOrt._TimeOnly = False
- Me.txtEmpfaengerOrt._value = Nothing
- Me.txtEmpfaengerOrt._Waehrung = False
- Me.txtEmpfaengerOrt._WaehrungZeichen = True
- Me.txtEmpfaengerOrt.BackColor = System.Drawing.Color.White
- Me.txtEmpfaengerOrt.ForeColor = System.Drawing.Color.Black
- Me.txtEmpfaengerOrt.Location = New System.Drawing.Point(101, 78)
- Me.txtEmpfaengerOrt.MaxLength = 35
- Me.txtEmpfaengerOrt.MaxLineLength = -1
- Me.txtEmpfaengerOrt.MaxLines_Warning = ""
- Me.txtEmpfaengerOrt.MaxLines_Warning_Label = Nothing
- Me.txtEmpfaengerOrt.Name = "txtEmpfaengerOrt"
- Me.txtEmpfaengerOrt.Size = New System.Drawing.Size(305, 20)
- Me.txtEmpfaengerOrt.TabIndex = 7
- Me.txtEmpfaengerOrt.TabStop = False
- '
- 'txtEmpfaengerStrasse
- '
- Me.txtEmpfaengerStrasse._DateTimeOnly = False
- Me.txtEmpfaengerStrasse._numbersOnly = False
- Me.txtEmpfaengerStrasse._numbersOnlyKommastellen = ""
- Me.txtEmpfaengerStrasse._Prozent = False
- Me.txtEmpfaengerStrasse._ShortDateNew = False
- Me.txtEmpfaengerStrasse._ShortDateOnly = False
- Me.txtEmpfaengerStrasse._TimeOnly = False
- Me.txtEmpfaengerStrasse._value = Nothing
- Me.txtEmpfaengerStrasse._Waehrung = False
- Me.txtEmpfaengerStrasse._WaehrungZeichen = True
- Me.txtEmpfaengerStrasse.BackColor = System.Drawing.Color.White
- Me.txtEmpfaengerStrasse.ForeColor = System.Drawing.Color.Black
- Me.txtEmpfaengerStrasse.Location = New System.Drawing.Point(101, 59)
- Me.txtEmpfaengerStrasse.MaxLength = 35
- Me.txtEmpfaengerStrasse.MaxLineLength = -1
- Me.txtEmpfaengerStrasse.MaxLines_Warning = ""
- Me.txtEmpfaengerStrasse.MaxLines_Warning_Label = Nothing
- Me.txtEmpfaengerStrasse.Name = "txtEmpfaengerStrasse"
- Me.txtEmpfaengerStrasse.Size = New System.Drawing.Size(305, 20)
- Me.txtEmpfaengerStrasse.TabIndex = 6
- Me.txtEmpfaengerStrasse.TabStop = False
- '
- 'kdFirmaEmpfaenger
- '
- Me.kdFirmaEmpfaenger._AlleFirmenCLUSTER = False
- Me.kdFirmaEmpfaenger._AllowSetValue = True
- Me.kdFirmaEmpfaenger._autoSizeGross = False
- Me.kdFirmaEmpfaenger._display_Name1 = True
- Me.kdFirmaEmpfaenger._displayAVISO_Email = False
- Me.kdFirmaEmpfaenger._displayFullName = False
- Me.kdFirmaEmpfaenger._displayWoelflKd = False
- Me.kdFirmaEmpfaenger._hideIfListEmpty = True
- Me.kdFirmaEmpfaenger._loadKdData = True
- Me.kdFirmaEmpfaenger._UseFIRMA = ""
- Me.kdFirmaEmpfaenger._ValueKdAndName = False
- Me.kdFirmaEmpfaenger.BackColor = System.Drawing.Color.White
- Me.kdFirmaEmpfaenger.dgvpos = "LEFT"
- Me.kdFirmaEmpfaenger.KdName = Nothing
- Me.kdFirmaEmpfaenger.KdNr = "-1"
- Me.kdFirmaEmpfaenger.kdNrField = Nothing
- Me.kdFirmaEmpfaenger.KdNrNullInt = Nothing
- Me.kdFirmaEmpfaenger.Location = New System.Drawing.Point(101, 21)
- Me.kdFirmaEmpfaenger.MaxLength = 35
- Me.kdFirmaEmpfaenger.Name = "kdFirmaEmpfaenger"
- Me.kdFirmaEmpfaenger.nurAktive = True
- Me.kdFirmaEmpfaenger.searchActive = True
- Me.kdFirmaEmpfaenger.Size = New System.Drawing.Size(283, 20)
- Me.kdFirmaEmpfaenger.TabIndex = 3
- Me.kdFirmaEmpfaenger.TabStop = False
- Me.kdFirmaEmpfaenger.TIMER_SEARCH = True
- Me.kdFirmaEmpfaenger.usrcntl = Nothing
- '
- 'FlatButton2
- '
- Me.FlatButton2.allowBorder = False
- Me.FlatButton2.FlatAppearance.BorderSize = 0
- Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.FlatButton2.ForeColor = System.Drawing.Color.Black
- Me.FlatButton2.Image = Global.SDL.My.Resources.Resources.personInaktiv
- Me.FlatButton2.Location = New System.Drawing.Point(382, 16)
- Me.FlatButton2.Name = "FlatButton2"
- Me.FlatButton2.Size = New System.Drawing.Size(24, 25)
- Me.FlatButton2.TabIndex = 2
- Me.FlatButton2.TabStop = False
- Me.FlatButton2.UseVisualStyleBackColor = True
- '
- 'cboSteuerschlüssel
- '
- Me.cboSteuerschlüssel._allowedValuesFreiText = Nothing
- Me.cboSteuerschlüssel._allowFreiText = False
- Me.cboSteuerschlüssel._value = ""
- Me.cboSteuerschlüssel.CausesValidation = False
- Me.cboSteuerschlüssel.DropDownWidth = 350
- Me.cboSteuerschlüssel.FormattingEnabled = True
- Me.cboSteuerschlüssel.Location = New System.Drawing.Point(463, 30)
- Me.cboSteuerschlüssel.Name = "cboSteuerschlüssel"
- Me.cboSteuerschlüssel.Size = New System.Drawing.Size(145, 21)
- Me.cboSteuerschlüssel.TabIndex = 3
- '
'txtSteuersatz
'
Me.txtSteuersatz._DateTimeOnly = False
@@ -3230,6 +3350,26 @@ Partial Class usrCntlFaktAbrechnung
Me.txtSteuerFreierBetrag.TabIndex = 10
Me.txtSteuerFreierBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
+ 'Label37
+ '
+ Me.Label37.AutoSize = True
+ Me.Label37.Location = New System.Drawing.Point(419, 94)
+ Me.Label37.Name = "Label37"
+ Me.Label37.Size = New System.Drawing.Size(98, 13)
+ Me.Label37.TabIndex = 9
+ Me.Label37.Text = "Steuerfreier Betrag:"
+ Me.Label37.TextAlign = System.Drawing.ContentAlignment.TopRight
+ '
+ 'lblEUR_3
+ '
+ Me.lblEUR_3.AutoSize = True
+ Me.lblEUR_3.Location = New System.Drawing.Point(639, 94)
+ Me.lblEUR_3.Name = "lblEUR_3"
+ Me.lblEUR_3.Size = New System.Drawing.Size(30, 13)
+ Me.lblEUR_3.TabIndex = 7
+ Me.lblEUR_3.Text = "EUR"
+ Me.lblEUR_3.TextAlign = System.Drawing.ContentAlignment.TopRight
+ '
'txtGesamtsumme
'
Me.txtGesamtsumme._DateTimeOnly = False
@@ -3302,6 +3442,37 @@ Partial Class usrCntlFaktAbrechnung
Me.txtSteuerpflichtigerBetrag.TabIndex = 6
Me.txtSteuerpflichtigerBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
+ 'Label33
+ '
+ Me.Label33.AutoSize = True
+ Me.Label33.Location = New System.Drawing.Point(419, 59)
+ Me.Label33.Name = "Label33"
+ Me.Label33.Size = New System.Drawing.Size(120, 13)
+ Me.Label33.TabIndex = 5
+ Me.Label33.Text = "Steuerpflichtiger Betrag:"
+ Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopRight
+ '
+ 'Label35
+ '
+ Me.Label35.AutoSize = True
+ Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label35.Location = New System.Drawing.Point(419, 117)
+ Me.Label35.Name = "Label35"
+ Me.Label35.Size = New System.Drawing.Size(91, 13)
+ Me.Label35.TabIndex = 11
+ Me.Label35.Text = "Gesamtsumme:"
+ Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopRight
+ '
+ 'Label28
+ '
+ Me.Label28.AutoSize = True
+ Me.Label28.Location = New System.Drawing.Point(6, 2)
+ Me.Label28.Name = "Label28"
+ Me.Label28.Size = New System.Drawing.Size(157, 13)
+ Me.Label28.TabIndex = 0
+ Me.Label28.Text = "Besonderheiten für Verrechung:"
+ Me.Label28.TextAlign = System.Drawing.ContentAlignment.TopRight
+ '
'txtBesonderheiten
'
Me.txtBesonderheiten.Location = New System.Drawing.Point(9, 17)
@@ -3313,142 +3484,103 @@ Partial Class usrCntlFaktAbrechnung
Me.txtBesonderheiten.TabIndex = 1
Me.txtBesonderheiten.Text = ""
'
- 'cboRgGS
+ 'pnlDocs
'
- Me.cboRgGS._allowedValuesFreiText = Nothing
- Me.cboRgGS._allowFreiText = False
- Me.cboRgGS._value = ""
- Me.cboRgGS.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.cboRgGS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.cboRgGS.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold)
- Me.cboRgGS.ForeColor = System.Drawing.Color.White
- Me.cboRgGS.FormattingEnabled = True
- Me.cboRgGS.Items.AddRange(New Object() {"Rechnung", "Gutschrift"})
- Me.cboRgGS.Location = New System.Drawing.Point(3, -1)
- Me.cboRgGS.Name = "cboRgGS"
- Me.cboRgGS.Size = New System.Drawing.Size(211, 33)
- Me.cboRgGS.TabIndex = 26
- Me.cboRgGS.Text = "Rechnung"
+ Me.pnlDocs.Controls.Add(Me.PictureBox1)
+ Me.pnlDocs.Controls.Add(Me.Label51)
+ Me.pnlDocs.Controls.Add(Me.PictureBox2)
+ Me.pnlDocs.Controls.Add(Me.Label50)
+ Me.pnlDocs.Location = New System.Drawing.Point(255, -1)
+ Me.pnlDocs.Name = "pnlDocs"
+ Me.pnlDocs.Size = New System.Drawing.Size(129, 17)
+ Me.pnlDocs.TabIndex = 27
+ Me.pnlDocs.Visible = False
'
- 'cboSpedBuchUnterNr
+ 'PictureBox1
'
- Me.cboSpedBuchUnterNr._allowedValuesFreiText = Nothing
- Me.cboSpedBuchUnterNr._allowFreiText = False
- Me.cboSpedBuchUnterNr._value = ""
- Me.cboSpedBuchUnterNr.DropDownWidth = 350
- Me.cboSpedBuchUnterNr.FormattingEnabled = True
- Me.cboSpedBuchUnterNr.Location = New System.Drawing.Point(255, 48)
- Me.cboSpedBuchUnterNr.Margin = New System.Windows.Forms.Padding(2)
- Me.cboSpedBuchUnterNr.Name = "cboSpedBuchUnterNr"
- Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(71, 21)
- Me.cboSpedBuchUnterNr.TabIndex = 5
+ Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.ok
+ Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.PictureBox1.Location = New System.Drawing.Point(19, 1)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(16, 16)
+ Me.PictureBox1.TabIndex = 23
+ Me.PictureBox1.TabStop = False
'
- 'txtUnterNr
+ 'Label51
'
- Me.txtUnterNr._DateTimeOnly = False
- Me.txtUnterNr._numbersOnly = False
- Me.txtUnterNr._numbersOnlyKommastellen = ""
- Me.txtUnterNr._Prozent = False
- Me.txtUnterNr._ShortDateNew = False
- Me.txtUnterNr._ShortDateOnly = False
- Me.txtUnterNr._TimeOnly = False
- Me.txtUnterNr._value = Nothing
- Me.txtUnterNr._Waehrung = False
- Me.txtUnterNr._WaehrungZeichen = True
- Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!)
- Me.txtUnterNr.Location = New System.Drawing.Point(417, 48)
- Me.txtUnterNr.MaxLineLength = -1
- Me.txtUnterNr.MaxLines_Warning = ""
- Me.txtUnterNr.MaxLines_Warning_Label = Nothing
- Me.txtUnterNr.Name = "txtUnterNr"
- Me.txtUnterNr.ReadOnly = True
- Me.txtUnterNr.Size = New System.Drawing.Size(55, 21)
- Me.txtUnterNr.TabIndex = 7
+ Me.Label51.AutoSize = True
+ Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
+ Me.Label51.Location = New System.Drawing.Point(90, 2)
+ Me.Label51.Name = "Label51"
+ Me.Label51.Size = New System.Drawing.Size(29, 13)
+ Me.Label51.TabIndex = 26
+ Me.Label51.Text = "VBD"
+ Me.Label51.TextAlign = System.Drawing.ContentAlignment.TopRight
'
- 'cboFiliale
+ 'PictureBox2
'
- Me.cboFiliale._allowedValuesFreiText = Nothing
- Me.cboFiliale._allowFreiText = False
- Me.cboFiliale._value = ""
- Me.cboFiliale.DropDownWidth = 280
- Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.cboFiliale.FormattingEnabled = True
- Me.cboFiliale.Location = New System.Drawing.Point(8, 48)
- Me.cboFiliale.Name = "cboFiliale"
- Me.cboFiliale.Size = New System.Drawing.Size(80, 21)
- Me.cboFiliale.TabIndex = 3
+ Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.Resources.ok
+ Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.PictureBox2.Location = New System.Drawing.Point(74, 1)
+ Me.PictureBox2.Name = "PictureBox2"
+ Me.PictureBox2.Size = New System.Drawing.Size(16, 16)
+ Me.PictureBox2.TabIndex = 25
+ Me.PictureBox2.TabStop = False
'
- 'txtAbfertigungsnummer
+ 'Label50
'
- Me.txtAbfertigungsnummer._DateTimeOnly = False
- Me.txtAbfertigungsnummer._numbersOnly = True
- Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
- Me.txtAbfertigungsnummer._Prozent = False
- Me.txtAbfertigungsnummer._ShortDateNew = False
- Me.txtAbfertigungsnummer._ShortDateOnly = False
- Me.txtAbfertigungsnummer._TimeOnly = False
- Me.txtAbfertigungsnummer._value = ""
- Me.txtAbfertigungsnummer._Waehrung = False
- Me.txtAbfertigungsnummer._WaehrungZeichen = True
- Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!)
- Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(87, 48)
- Me.txtAbfertigungsnummer.MaxLength = 8
- Me.txtAbfertigungsnummer.MaxLineLength = -1
- Me.txtAbfertigungsnummer.MaxLines_Warning = ""
- Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
- Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
- Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(169, 21)
- Me.txtAbfertigungsnummer.TabIndex = 4
+ Me.Label50.AutoSize = True
+ Me.Label50.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
+ Me.Label50.Location = New System.Drawing.Point(35, 2)
+ Me.Label50.Name = "Label50"
+ Me.Label50.Size = New System.Drawing.Size(26, 13)
+ Me.Label50.TabIndex = 24
+ Me.Label50.Text = "STB"
+ Me.Label50.TextAlign = System.Drawing.ContentAlignment.TopRight
'
- 'Label55
+ 'cbxAdmin
'
- Me.Label55.AutoSize = True
- Me.Label55.Location = New System.Drawing.Point(421, 77)
- Me.Label55.Name = "Label55"
- Me.Label55.Size = New System.Drawing.Size(98, 13)
- Me.Label55.TabIndex = 236
- Me.Label55.Text = "Steuerfreier Betrag:"
- Me.Label55.TextAlign = System.Drawing.ContentAlignment.TopRight
+ Me.cbxAdmin.AutoSize = True
+ Me.cbxAdmin.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+ Me.cbxAdmin.Location = New System.Drawing.Point(424, 0)
+ Me.cbxAdmin.Name = "cbxAdmin"
+ Me.cbxAdmin.Size = New System.Drawing.Size(110, 30)
+ Me.cbxAdmin.TabIndex = 22
+ Me.cbxAdmin.Text = "Admin: Änderung " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "nach Druck erl."
+ Me.cbxAdmin.UseVisualStyleBackColor = True
+ Me.cbxAdmin.Visible = False
'
- 'lblEUR_4
+ 'Timer
'
- Me.lblEUR_4.AutoSize = True
- Me.lblEUR_4.Location = New System.Drawing.Point(639, 117)
- Me.lblEUR_4.Name = "lblEUR_4"
- Me.lblEUR_4.Size = New System.Drawing.Size(30, 13)
- Me.lblEUR_4.TabIndex = 237
- Me.lblEUR_4.Text = "EUR"
- Me.lblEUR_4.TextAlign = System.Drawing.ContentAlignment.TopRight
+ Me.Timer.Interval = 6000
'
- 'lblEUR_2
+ 'Button14
'
- Me.lblEUR_2.AutoSize = True
- Me.lblEUR_2.Location = New System.Drawing.Point(639, 77)
- Me.lblEUR_2.Name = "lblEUR_2"
- Me.lblEUR_2.Size = New System.Drawing.Size(30, 13)
- Me.lblEUR_2.TabIndex = 238
- Me.lblEUR_2.Text = "EUR"
- Me.lblEUR_2.TextAlign = System.Drawing.ContentAlignment.TopRight
+ 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
'
- 'lblEUR_1
+ 'CntxtAbfArt
'
- Me.lblEUR_1.AutoSize = True
- Me.lblEUR_1.Location = New System.Drawing.Point(639, 59)
- Me.lblEUR_1.Name = "lblEUR_1"
- Me.lblEUR_1.Size = New System.Drawing.Size(30, 13)
- Me.lblEUR_1.TabIndex = 239
- Me.lblEUR_1.Text = "EUR"
- Me.lblEUR_1.TextAlign = System.Drawing.ContentAlignment.TopRight
+ Me.CntxtAbfArt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SdfToolStripMenuItem})
+ Me.CntxtAbfArt.Name = "CntxtAbfArt"
+ Me.CntxtAbfArt.Size = New System.Drawing.Size(181, 48)
'
- 'rtbAbf_Besonderheiten
+ 'SdfToolStripMenuItem
'
- Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
- Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19)
- Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
- Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133)
- Me.rtbAbf_Besonderheiten.TabIndex = 235
- Me.rtbAbf_Besonderheiten.Visible = False
+ Me.SdfToolStripMenuItem.Name = "SdfToolStripMenuItem"
+ Me.SdfToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+ Me.SdfToolStripMenuItem.Text = "sdf"
'
'usrCntlFaktAbrechnung
'
@@ -3460,12 +3592,13 @@ Partial Class usrCntlFaktAbrechnung
Me.Controls.Add(Me.pnl)
Me.Controls.Add(Me.pnlTop)
Me.Name = "usrCntlFaktAbrechnung"
- Me.Size = New System.Drawing.Size(830, 1378)
+ Me.Size = New System.Drawing.Size(830, 1372)
Me.pnlTop.ResumeLayout(False)
Me.pnlTop.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
+ CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.pnlAvisierer.ResumeLayout(False)
@@ -3482,7 +3615,9 @@ Partial Class usrCntlFaktAbrechnung
Me.Panel7.ResumeLayout(False)
Me.Panel7.PerformLayout()
CType(Me.picVK, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvOffertenSperrliste, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlEmpfaenger.ResumeLayout(False)
Me.pnlEmpfaenger.PerformLayout()
Me.pnl.ResumeLayout(False)
@@ -3491,8 +3626,7 @@ Partial Class usrCntlFaktAbrechnung
Me.pnlDocs.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
- CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).EndInit()
- CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.CntxtAbfArt.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
@@ -3704,4 +3838,14 @@ Partial Class usrCntlFaktAbrechnung
Friend WithEvents lblEUR_2 As Label
Friend WithEvents lblEUR_4 As Label
Friend WithEvents Label55 As Label
+ Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
+ Friend WithEvents Label36 As Label
+ Friend WithEvents optAnhSel As DataGridViewCheckBoxColumn
+ Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
+ Friend WithEvents clmnBezeichnung As DataGridViewTextBoxColumn
+ Friend WithEvents clmnDsId As DataGridViewTextBoxColumn
+ Friend WithEvents clmnAnhId As DataGridViewTextBoxColumn
+ Friend WithEvents Button14 As Button
+ Friend WithEvents CntxtAbfArt As ContextMenuStrip
+ Friend WithEvents SdfToolStripMenuItem As ToolStripMenuItem
End Class
diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.resx b/SDL/Fakturierung/usrCntlFaktAbrechnung.resx
index 798fb656..a835a613 100644
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.resx
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.resx
@@ -117,6 +117,54 @@
System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
True
@@ -166,7 +214,10 @@
109, 17
+
+ 191, 6
+
- 28
+ 45
\ No newline at end of file
diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
index 7fca666e..674278d1 100644
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -43,6 +43,7 @@ Public Class usrCntlFaktAbrechnung
End Sub
Public Sub newRECHNUNG(Optional Firma = Nothing)
+
RECHNUNG = Nothing
dgvOfferteDetailsUebersicht.Columns.Clear()
initRECHNUNG()
@@ -114,6 +115,7 @@ Public Class usrCntlFaktAbrechnung
End Sub
Public Sub initRECHNUNG(Optional RK_ID_TMP = -1)
+
Try
cbxAdmin.Checked = False
loaded = False
@@ -315,6 +317,7 @@ Public Class usrCntlFaktAbrechnung
loadFormRGPosInOfferte(False)
initDGVRechnungenPositionen()
' dgvOffertenSperrlisteasdasd
+ initDGVAnhaenge()
Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr)
btnVorauskasseAnzeigen.Enabled = (VK IsNot Nothing)
@@ -336,6 +339,7 @@ Public Class usrCntlFaktAbrechnung
setControlsEnabled(pnlAuftraggeber, pnlEnabled)
setControlsEnabled(pnlAvisierer, pnlEnabled)
+
SAVED = True
loaded = True
allowGetValues = True
@@ -476,6 +480,8 @@ Public Class usrCntlFaktAbrechnung
cboRgGS.SelectedIndex = 0
cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
+
+
cboSammelrechnung.Items.Clear()
cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0 Einzel", 0))
cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 täglich", 1))
@@ -809,17 +815,22 @@ Public Class usrCntlFaktAbrechnung
btnAvisiererEuro.ForeColor = Color.Silver
Select Case cboRechnungAn._value
- Case "1" : pnlAbsender.BackColor = Color.PapayaWhip
+ Case "1" : pnlAbsender.BackColor = Color.PapayaWhip ': setBGbColotTxt(pnlAbsender)
btnAbsenderEuro.ForeColor = Color.FromArgb(0, 54, 128)
- Case "2" : pnlEmpfaenger.BackColor = Color.PapayaWhip
+ Case "2" : pnlEmpfaenger.BackColor = Color.PapayaWhip ': setBGbColotTxt(pnlEmpfaenger)
btnEmpfaengerEuro.ForeColor = Color.FromArgb(0, 54, 128)
- Case "3" : pnlAuftraggeber.BackColor = Color.PapayaWhip
+ Case "3" : pnlAuftraggeber.BackColor = Color.PapayaWhip ': setBGbColotTxt(pnlAuftraggeber)
btnAuftraggeberEuro.ForeColor = Color.FromArgb(0, 54, 128)
- Case "4" : pnlAvisierer.BackColor = Color.PapayaWhip
+ Case "4" : pnlAvisierer.BackColor = Color.PapayaWhip ' : setBGbColotTxt(pnlAvisierer)
btnAvisiererEuro.ForeColor = Color.FromArgb(0, 54, 128)
Case Else
End Select
+ setBGbColotTxt(pnlAbsender)
+ setBGbColotTxt(pnlEmpfaenger)
+ setBGbColotTxt(pnlAuftraggeber)
+ setBGbColotTxt(pnlAvisierer)
+
If Not loaded Then Exit Sub
Select Case cboRechnungAn._value
@@ -871,6 +882,16 @@ Public Class usrCntlFaktAbrechnung
initKdAtrNr()
End Sub
+ Sub setBGbColotTxt(p_cntl As Control)
+ For Each c As Control In p_cntl.Controls
+ If c.GetType.ToString = GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString Then
+ If DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).BorderStyle = BorderStyle.None Then
+ c.BackColor = p_cntl.BackColor
+ End If
+ End If
+ Next
+ End Sub
+
Sub initKdAtrNr()
Select Case cboRechnungAn._value
Case "1"
@@ -1486,6 +1507,7 @@ Public Class usrCntlFaktAbrechnung
End If
End If
+ initDGVAnhaenge
cboRechnungAn.Focus()
initRg_Anhaenhe_Default(RECHNUNG, SPEDBUCH)
@@ -1495,6 +1517,32 @@ Public Class usrCntlFaktAbrechnung
initFirma() ' wegen EV-VZ
End Sub
+
+ 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")
+
+ If dt Is Nothing Then Exit Sub
+ For Each r In dt.Rows
+ .Rows.Add(0, r("anh_Art"), r("anh_Name"), r("anh_docId"), r("anh_id"))
+ Next
+ RECHNUNG.LOAD_ANHAENGE()
+
+ If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ANHAENGE IsNot Nothing Then
+ For Each RG_AH In RECHNUNG.ANHAENGE
+ For Each r As DataGridViewRow In .Rows
+ If r.Cells("clmnDsId").Value = RG_AH.dsId Then
+ DirectCast(r.Cells("optAnhSel"), DataGridViewCheckBoxCell).Value = -1
+ End If
+ Next
+ Next
+ End If
+ End If
+ End With
+
+ End Sub
Sub getDataFromSpedbuch_SHOW()
txtAbfertigungsart.Text = ""
txtAbfertigungsanzahl.Text = ""
@@ -1515,24 +1563,38 @@ Public Class usrCntlFaktAbrechnung
End Sub
Sub initRg_Anhaenhe_Default(ByRef RECHNUNG, SPEDBUCH)
- Select Case SPEDBUCH.Abfertigungsart
- Case "26", "27", "38"
- If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = "Zollbelege"
- Case "5", "6"
- If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = ""
- Case "19"
- If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = ""
- Case "9" 'Leihgeld
- If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = "Auszahlungsquittung"
- If If(RECHNUNG.Anlage_2, String.Empty) = String.Empty Then RECHNUNG.Anlage_2 = "Auftrag"
- If If(RECHNUNG.Anlage_3, String.Empty) = String.Empty Then RECHNUNG.Anlage_3 = "Passkopie"
- Case Else
- If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = "Zollbelege"
- If If(RECHNUNG.Anlage_2, String.Empty) = String.Empty Then RECHNUNG.Anlage_2 = "Lief.-Rechn."
- If If(RECHNUNG.Anlage_3, String.Empty) = String.Empty Then RECHNUNG.Anlage_3 = "Präferenzz./Original"
- If If(RECHNUNG.Anlage_4, String.Empty) = String.Empty Then RECHNUNG.Anlage_4 = "" '"CMR"
- If If(RECHNUNG.Anlage_5, String.Empty) = String.Empty Then RECHNUNG.Anlage_5 = ""
- End Select
+ If RECHNUNG IsNot Nothing Then
+ Select Case RECHNUNG.Firma_ID
+ Case 26 ' VERAG-UNISPED LTD
+ RECHNUNG.Anlage_1 = ""
+ RECHNUNG.Anlage_2 = ""
+ RECHNUNG.Anlage_3 = ""
+ RECHNUNG.Anlage_4 = ""
+ RECHNUNG.Anlage_5 = ""
+ Case Else
+ If SPEDBUCH IsNot Nothing Then
+ Select Case SPEDBUCH.Abfertigungsart
+ Case "26", "27", "38"
+ If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = "Zollbelege"
+ Case "5", "6"
+ If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = ""
+ Case "19"
+ If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = ""
+ Case "9" 'Leihgeld
+ If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = "Auszahlungsquittung"
+ If If(RECHNUNG.Anlage_2, String.Empty) = String.Empty Then RECHNUNG.Anlage_2 = "Auftrag"
+ If If(RECHNUNG.Anlage_3, String.Empty) = String.Empty Then RECHNUNG.Anlage_3 = "Passkopie"
+ Case Else
+ If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = "Zollbelege"
+ If If(RECHNUNG.Anlage_2, String.Empty) = String.Empty Then RECHNUNG.Anlage_2 = "Lief.-Rechn."
+ If If(RECHNUNG.Anlage_3, String.Empty) = String.Empty Then RECHNUNG.Anlage_3 = "Präferenzz./Original"
+ If If(RECHNUNG.Anlage_4, String.Empty) = String.Empty Then RECHNUNG.Anlage_4 = "" '"CMR"
+ If If(RECHNUNG.Anlage_5, String.Empty) = String.Empty Then RECHNUNG.Anlage_5 = ""
+ End Select
+ End If
+ End Select
+
+ End If
End Sub
@@ -1623,6 +1685,7 @@ Public Class usrCntlFaktAbrechnung
FIRMA = Nothing
End If
+ initRg_Anhaenhe_Default(RECHNUNG, SPEDBUCH)
End Sub
@@ -1638,6 +1701,7 @@ Public Class usrCntlFaktAbrechnung
Case "5601" : cboFirma.changeItem("") : RECHNUNG.Firma_ID = -1 'UNISPED
Case "7001" : cboFirma.changeItem("") : RECHNUNG.Firma_ID = -1 'UK oder AG
+ Case "7002", "7003" : cboFirma.changeItem("26") : RECHNUNG.Firma_ID = 26 'UK AWOR oder UNISPED
'Case "7002" : cboFirma.changeItem(26) : RECHNUNG.Firma_ID = 26 'UK oder AG
Case "5701" : cboFirma.changeItem(24) : RECHNUNG.Firma_ID = 24'AMBAR
Case "5801" : cboFirma.changeItem(17) : RECHNUNG.Firma_ID = 17 'FRONT-OFFICE
@@ -1791,6 +1855,7 @@ Public Class usrCntlFaktAbrechnung
' RECHNUNG.Währungscode = cProgramFunctions.isLeerNothing(cboWaehrung._value) '????????
If Not cbxAdmin.Checked Then
RECHNUNG.Sachbearbeiter = cProgramFunctions.isLeerNothing(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
+ RECHNUNG.FakturierungsGruppe = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_fakturierungsgruppe
End If
' RECHNUNG.Trdin = cProgramFunctions.isLeerNothing(XXXXXXXXX.text) '????????
@@ -1818,8 +1883,21 @@ Public Class usrCntlFaktAbrechnung
If dgvOffertenSperrliste.SelectedRows.Count > 0 Then RECHNUNG.OffertenNr = dgvOffertenSperrliste.SelectedRows(0).Cells("OffertenNr").Value 'Wenn mehrfachauswahl möcglich-> Ändern
+ getValues_ANHAENGE()
End Sub
+ Sub getValues_ANHAENGE()
+ RECHNUNG.ANHAENGE.Clear()
+ For Each r As DataGridViewRow In dgvAnhaenge.Rows
+ If r.Cells("optAnhSel").Value Then
+ Dim ANH As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangAnhaenge
+ ANH.dsId = r.Cells("clmnDsId").Value
+ ANH.anhId = r.Cells("clmnAnhId").Value
+ ANH.Bezeichnung = r.Cells("clmnBezeichnung").Value
+ RECHNUNG.ANHAENGE.Add(ANH)
+ End If
+ Next
+ End Sub
Function Abfertigungskosten_Berechnen() As Double
Abfertigungskosten_Berechnen = 0
@@ -1888,6 +1966,7 @@ Public Class usrCntlFaktAbrechnung
Call przSVSRVS(RECHNUNG) ' SVS/RVS errechnen
' Call przSKR() ' SKR errechnen
'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang
+ RECHNUNG.RechnungSprache = cboRechnungSprache._value
Call przVL(RECHNUNG) ' Vorlageprovision errechnen
Call przKapitalbereitstellung(RECHNUNG) 'Kapitalbereitstellung errechnen
@@ -1950,7 +2029,7 @@ Public Class usrCntlFaktAbrechnung
FindPOS.LeistungsNr = 700
FindPOS.BerechnungsartNr = 9
FindPOS.Steuerpflichtig = False
- FindPOS.LeistungsBez = "Vorlageprovision"
+ If RECHNUNG.RechnungSprache = "DE" 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
@@ -1993,7 +2072,7 @@ Public Class usrCntlFaktAbrechnung
FindPOS.LeistungsNr = 751
FindPOS.BerechnungsartNr = 9
FindPOS.Steuerpflichtig = False
- FindPOS.LeistungsBez = "Kapitalbereitstellung"
+ If RECHNUNG.RechnungSprache = "DE" 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
@@ -2470,7 +2549,7 @@ Public Class usrCntlFaktAbrechnung
If KreditaufwendungenPOS IsNot Nothing Then
' KreditaufwendungenPOS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen
KreditaufwendungenPOS.LeistungsNr = 750
- KreditaufwendungenPOS.LeistungsBez = "Kreditaufwendungen"
+ If RECHNUNG.RechnungSprache = "DE" Then KreditaufwendungenPOS.LeistungsBez = "Kreditaufwendungen"
KreditaufwendungenPOS.BerechnungsartNr = 9
' RECHNUNG.POSITIONEN.Add(KreditaufwendungenPOS)
@@ -2660,9 +2739,13 @@ Public Class usrCntlFaktAbrechnung
- Sub setError(s, Optional c = Nothing)
+ Sub setError(s, Optional c = Nothing, Optional type = "ERR")
Label40.Text = s
Label40.Visible = (s <> "")
+ Select Case type
+ Case "ERR" : Label40.ForeColor = Color.Red
+ Case "WARN" : Label40.ForeColor = Color.DarkOrange
+ End Select
If c IsNot Nothing Then
Try : DirectCast(c, Control).Focus()
@@ -2716,6 +2799,7 @@ Public Class usrCntlFaktAbrechnung
RaiseEvent EVENT_SAVED()
Return True
End If
+ setError(errMsg,, "WARN")
Else
setError(errMsg)
End If
@@ -2744,6 +2828,7 @@ Public Class usrCntlFaktAbrechnung
Sub WarenwertUmrechnung()
Try
+ If RECHNUNG Is Nothing Then Exit Sub
If cboWaehrung._value = "" Then Exit Sub
If Not IsNumeric(txtWarenwert._value) Then Exit Sub
@@ -3186,6 +3271,13 @@ Nächste_Textzeile_lesen:
If RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Exit Sub
If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie die Rechnung drucken?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then
If RECHNUNG.Status <> 0 OrElse saveMe() Then
+
+ ' Anhänge sichern, falls geändert
+ If RECHNUNG.RK_ID > 0 And RECHNUNG.Status <> 0 Then
+ getValues_ANHAENGE()
+ RECHNUNG.SAVE_ANHAENGE(RECHNUNG.RK_ID)
+ End If
+
Dim PARAM_printZollbeleg = VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg")
If cFakturierung.doRechnungsDruck(RECHNUNG,,, 0,, getPrinterFromParent, cbxOriginalPrint.Checked,, PARAM_printZollbeleg) Then
initRECHNUNG()
@@ -3208,6 +3300,12 @@ Nächste_Textzeile_lesen:
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
If RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Exit Sub
If RECHNUNG.Status <> 0 OrElse saveMe() Then
+ ' Anhänge sichern, falls geändert
+ If RECHNUNG.RK_ID > 0 And RECHNUNG.Status <> 0 Then
+ getValues_ANHAENGE()
+ RECHNUNG.SAVE_ANHAENGE(RECHNUNG.RK_ID)
+ End If
+
Dim f As New frmFaktEmail(RECHNUNG, SPEDBUCH, If(cbxOriginalPrint.Visible, cbxOriginalPrint.Checked, Nothing))
f.ShowDialog(Me)
initRECHNUNG()
@@ -3397,32 +3495,46 @@ Nächste_Textzeile_lesen:
MsgBox("Es muss eine Filiale ausgewählt werden")
Exit Sub
End If
- If vbYes = MsgBox("Möchten Sie einen neuen Speditionsbucheintrag für die Filiale '" & cboFiliale._value & "' erstellen?", vbYesNoCancel) Then
- SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
- Dim Abfertigungsart = 10
+ Dim dtAbf = SQL.loadDgvBySql("SELECT [Abfertigungsarten].[Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] inner join tblAbfertigungsartenFiliale on tblAbfertigungsartenFiliale.Abfertigungsart=[Abfertigungsarten].Abfertigungsart where FilialenNr=" & cboFiliale._value & " order by tblAbfertigungsartenFiliale.Abfertigungsart", "FMZOLL")
+ CntxtAbfArt.Items.Clear()
- SPEDBUCH.FilialenNr = cboFiliale._value
- SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year)
- SPEDBUCH.NewUNTER_NR()
+ For Each r In dtAbf.Rows
+ Dim tool As New ToolStripMenuItem()
+ tool.Text = r("Abfertigungsart") & " - " & r("Abfertigungsbezeichnung")
+ tool.Tag = r("Abfertigungsart")
+ AddHandler tool.Click, Sub()
+ ' If vbYes = MsgBox("Möchten Sie einen neuen Speditionsbucheintrag für die Filiale '" & cboFiliale._value & "' erstellen?", vbYesNoCancel) Then
+ SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
- SPEDBUCH.Abfertigungsdatum = Now.Date
+ Dim Abfertigungsart = r("Abfertigungsart") ' 10
- SPEDBUCH.Abfertigungsart = Abfertigungsart
- SPEDBUCH.Abfertigungsanzahl = 1
- SPEDBUCH.SgutKompl = "K"
- SPEDBUCH.Zollsystem = "D"
+ SPEDBUCH.FilialenNr = cboFiliale._value
+ SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year)
+ SPEDBUCH.NewUNTER_NR()
- 'SPEDBUCH.Vermittler = ""
+ SPEDBUCH.Abfertigungsdatum = Now.Date
- SPEDBUCH.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+ SPEDBUCH.Abfertigungsart = Abfertigungsart
+ SPEDBUCH.Abfertigungsanzahl = 1
+ SPEDBUCH.SgutKompl = "K"
+ SPEDBUCH.Zollsystem = "D"
+
+ 'SPEDBUCH.Vermittler = ""
+
+ SPEDBUCH.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+
+ If SPEDBUCH.SAVE Then
+ txtAbfertigungsnummer.Text = SPEDBUCH.AbfertigungsNr
+ txtUnterNr.Text = SPEDBUCH.UnterNr
+ btnDatenLaden.PerformClick()
+ End If
+ ' End If
+ End Sub
+ CntxtAbfArt.Items.Add(tool)
+ Next
+ CntxtAbfArt.Show(Cursor.Position)
- If SPEDBUCH.SAVE Then
- txtAbfertigungsnummer.Text = SPEDBUCH.AbfertigungsNr
- txtUnterNr.Text = SPEDBUCH.UnterNr
- btnDatenLaden.PerformClick()
- End If
- End If
End Sub
Function bool_SendAbrechung(sendungsId As Integer, kdNr As Integer, art As String)
@@ -3571,4 +3683,52 @@ Nächste_Textzeile_lesen:
Private Sub cboRechnungSprache_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRechnungSprache.SelectedIndexChanged
txtText.Text = cFakturierung.przRechnungstext(RECHNUNG)
End Sub
+
+ Private Sub dbgAnhaenge_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellClick 'dbgAnhaenge.CellContentClick,
+ Try
+ ' DirectCast(r.Cells("optAnhSel"), DataGridViewCheckBoxCell).Value = 1
+ If dgvAnhaenge.Columns(e.ColumnIndex).Name = "optAnhSel" Then
+ ' 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
+
+ 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
+ If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
+ Dim frmKundenblatt As New SDL.frmKundenblatt
+ frmKundenblatt.showEdit = True
+ frmKundenblatt.kdNr = -1
+ frmKundenblatt.FilialeNr = cboFiliale._value
+
+ 'frmKundenblatt.BERECHTIGUNEN = BERECHTIGUNEN
+ If frmKundenblatt.ShowDialog(Me) Then
+ If frmKundenblatt.kdNr > 0 Then
+ kdFirmaRechnungAn.KdNr = frmKundenblatt.kdNr
+ End If
+ End If
+ Else
+ Dim frmKd As New SDL.frmNeuerKunde
+ frmKd.openKd = False
+ frmKd.timerIntervall = 500
+ frmKd.username = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.mit_username
+ If frmKd.username.Length > 15 Then frmKd.username = frmKd.username.Substring(0, 15)
+ frmKd.tmpFiliale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale
+ ' frmKd.tmpKdNrKreis = 9
+ If kdFirmaRechnungAn.KdNr = -1 Then
+ frmKd.tmpKdName = kdFirmaRechnungAn.Text
+ End If
+ frmKd.ShowDialog()
+ If frmKd.kdnr > 0 Then
+ kdFirmaRechnungAn.KdNr = frmKd.kdnr
+ End If
+ End If
+ End Sub
End Class
diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb
index 342c6da1..c98d2ca8 100644
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb
@@ -347,12 +347,12 @@
End Sub
Function Vl(s As VERAG_PROG_ALLGEMEIN.MyTextBox) As Double
- If IsNumeric(s._value) Then : Return CDbl(s._value)
+ If IsNumeric(s._value) Then : Return Math.Round(CDbl(s._value), 2)
Else : s._value = 0 : End If
Return 0
End Function
Function Vl(s As VERAG_PROG_ALLGEMEIN.MyComboBox) As Double
- If IsNumeric(s._value) Then : Return CDbl(s._value)
+ If IsNumeric(s._value) Then : Return Math.Round(CDbl(s._value), 2)
Else : s._value = 0 : End If
Return 0
End Function
diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb
index 9d59d1ae..669d05f7 100644
--- a/SDL/Formulare/KDFormulare/frmFormulare.vb
+++ b/SDL/Formulare/KDFormulare/frmFormulare.vb
@@ -2878,26 +2878,63 @@ Public Class FormularManagerNEU
Return ""
End Function
+ Shared Function UID_PRUEFUNG_PROTOKOLL(uid_id) As String
+ Dim UID As New VERAG_PROG_ALLGEMEIN.cUIDPruefung(uid_id)
+ Dim msgErgebnis = ""
+ Select Case UID.uid_valid
+ Case 1 : msgErgebnis = "UID-Nr. GÜLTIG - OK"
+ Case 0 : msgErgebnis = "UID-Nr. UNGÜLTIG"
+ End Select
- Shared Function UID_PRUEFUNG(ErgebnisTXT, firma, sessionID, uidAntragsteller, uidAbfrage, tid, Optional AvisoId = -1, Optional SendungsId = -1) As String
+ Dim uid_firma = ""
+ uid_firma &= If(UID.uid_firma, "") & vbNewLine
+ uid_firma &= If(UID.uid_adr1, "") & vbNewLine
+ uid_firma &= If(UID.uid_adr2, "") & vbNewLine
+ uid_firma &= If(UID.uid_adr3, "") & vbNewLine
+ uid_firma &= If(UID.uid_adr4, "") & vbNewLine
+ uid_firma &= If(UID.uid_adr5, "") & vbNewLine
+ uid_firma &= If(UID.uid_adr6, "")
+ uid_firma = uid_firma.Trim
+
+ If UID.uid_stufe = "1" Then
+ uid_firma = "*Keine Daten bei Stufe 1 Prüfung*"
+ End If
+
+ Dim Tid = ""
+ Select Case UID.Firma
+ Case "VERAG" : Tid = "13390891m005"
+ Case "IMEX" : Tid = "19435107n654"
+ Case "FRONTOFFICE" : Tid = "67493371k039"
+ Case "ATILLA" : Tid = "16626209i537"
+ 'Case "UNISPED" : Tid = "16626209i537"
+ End Select
+ Dim PdfTmp = SDL.FormularManagerNEU.UID_PRUEFUNG(msgErgebnis, uid_firma, UID.uid_sessionId, UID.uid_abfrageUid, UID.uid_UstIdKz & UID.uid_UstIdNr, Tid, , , UID.uid_Sachbearbeiter, UID.uid_Datum, UID.uid_stufe)
+ Return PdfTmp
+ End Function
+
+ Shared Function UID_PRUEFUNG(ErgebnisTXT, firma, sessionID, uidAntragsteller, uidAbfrage, tid, Optional AvisoId = -1, Optional SendungsId = -1, Optional SB = "", Optional abfrageDatum = Nothing, Optional stufe = "2") As String
Try
+ If abfrageDatum Is Nothing Then abfrageDatum = Now
+
+
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+ listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Stufe " & stufe, 73, 86.5, 150, 10, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
- listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
- listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAbfrage, 73, 126, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
- listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(firma, 73, 133, 150, 30, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+ listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(abfrageDatum.ToShortDateString & " " & abfrageDatum.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+ listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(uidAbfrage, ""), 73, 126, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+ listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(firma, ""), 73, 133, 150, 30, If(If(firma, "").ToString.StartsWith("*"), "normal", "bold"), 10, , iTextSharp.text.Element.ALIGN_LEFT))
- listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(tid, 73, 163, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+ listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(tid, ""), 73, 163, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAntragsteller, 73, 170, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
- listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 73, 179, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
- listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(sessionID, 73, 191, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+ listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(SB <> "", SB, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME), 73, 179, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+ listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(sessionID, ""), 73, 191, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prüfung", listTowrite)
Dim PdfTmp = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2_FO, "", "UID_Prufung", listTowrite)
diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj
index 16cdc24a..4d4d93d2 100644
--- a/SDL/SDL.vbproj
+++ b/SDL/SDL.vbproj
@@ -72,11 +72,10 @@
My Project\app.manifest
- 2508FAE878AAAD6136689CC8171DC8A749727DD4
+ 5A6BD29D23A7643243CD6EFA1FEF21BAF955E653
-
-
+ AL20210908.pfx
true
@@ -86,6 +85,10 @@
+
+ False
+ ..\..\..\..\RKSV DE\BouncyCastle.Crypto.dll
+
..\..\..\dll\ClosedXML.dll
@@ -105,6 +108,9 @@
False
..\..\..\dll\Ghostscript.NET.dll
+
+ ..\..\..\..\RKSV DE\Gma.QrCodeNet.Encoding.dll
+
@@ -474,6 +480,12 @@
Form
+
+ frmKundenUIDEORI_List.vb
+
+
+ Form
+
frmKundeAnsprechpartnerTeams.vb
@@ -2639,6 +2651,9 @@
frmKundenBesonderheiten_Add.vb
+
+ frmKundenUIDEORI_List.vb
+
frmKundeAnsprechpartnerTeams.vb
@@ -3677,6 +3692,7 @@
+
Always
@@ -4087,11 +4103,17 @@
-
+
+ Always
+
-
-
+
+ Always
+
+
+ Always
+
Always
@@ -4266,7 +4288,9 @@
Always
-
+
+ Always
+
Always
diff --git a/SDL/SMS/frmSendSMS.Designer.vb b/SDL/SMS/frmSendSMS.Designer.vb
index 0eb0cfd7..e75bf75b 100644
--- a/SDL/SMS/frmSendSMS.Designer.vb
+++ b/SDL/SMS/frmSendSMS.Designer.vb
@@ -55,6 +55,7 @@ Partial Class frmSendSMS
Me.Button18 = New System.Windows.Forms.Button()
Me.Button19 = New System.Windows.Forms.Button()
Me.Button20 = New System.Windows.Forms.Button()
+ Me.btnSndWhatsApp = New System.Windows.Forms.Button()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -87,7 +88,7 @@ Partial Class frmSendSMS
Me.txtHandyNummer.MaxLines_Warning_Label = Nothing
Me.txtHandyNummer.Multiline = True
Me.txtHandyNummer.Name = "txtHandyNummer"
- Me.txtHandyNummer.Size = New System.Drawing.Size(384, 28)
+ Me.txtHandyNummer.Size = New System.Drawing.Size(395, 28)
Me.txtHandyNummer.TabIndex = 2
'
'Label1
@@ -326,7 +327,7 @@ Partial Class frmSendSMS
Me.cboFirma.FormattingEnabled = True
Me.cboFirma.Location = New System.Drawing.Point(285, 88)
Me.cboFirma.Name = "cboFirma"
- Me.cboFirma.Size = New System.Drawing.Size(114, 24)
+ Me.cboFirma.Size = New System.Drawing.Size(125, 24)
Me.cboFirma.TabIndex = 5
'
'Label3
@@ -427,12 +428,25 @@ Partial Class frmSendSMS
Me.Button20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button20.UseVisualStyleBackColor = True
'
+ 'btnSndWhatsApp
+ '
+ Me.btnSndWhatsApp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnSndWhatsApp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnSndWhatsApp.Location = New System.Drawing.Point(313, 12)
+ Me.btnSndWhatsApp.Name = "btnSndWhatsApp"
+ Me.btnSndWhatsApp.Size = New System.Drawing.Size(97, 42)
+ Me.btnSndWhatsApp.TabIndex = 31
+ Me.btnSndWhatsApp.Text = "Nr an WhatsApp (FO) senden"
+ Me.btnSndWhatsApp.UseVisualStyleBackColor = True
+ Me.btnSndWhatsApp.Visible = False
+ '
'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.Controls.Add(Me.btnSndWhatsApp)
Me.Controls.Add(Me.Button17)
Me.Controls.Add(Me.Button18)
Me.Controls.Add(Me.Button19)
@@ -506,4 +520,5 @@ Partial Class frmSendSMS
Friend WithEvents Button18 As Button
Friend WithEvents Button19 As Button
Friend WithEvents Button20 As Button
+ Friend WithEvents btnSndWhatsApp As Button
End Class
diff --git a/SDL/SMS/frmSendSMS.vb b/SDL/SMS/frmSendSMS.vb
index 5f4709bf..05a761b8 100644
--- a/SDL/SMS/frmSendSMS.vb
+++ b/SDL/SMS/frmSendSMS.vb
@@ -49,6 +49,9 @@ Public Class frmSendSMS
MsgBox("Fehlende Berechtigung: SMS_Senden")
Me.Close()
End If
+ If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SMS_WhatsAppNrSenden", Me) Then
+ btnSndWhatsApp.Visible = True
+ End If
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me) Then
If Now < CDate("01.04.2018") Then
MsgBox("Dieser Dienst ist erst ab dem 01.04.2018 verfügbar!")
@@ -109,34 +112,38 @@ Public Class frmSendSMS
Me.Close()
End Sub
+ Function getNr(ByRef nr) As Boolean
+ If cboLandVorwahl._value <> "" AndAlso IsNumeric(cboLandVorwahl._value) Then
+ nr = cboLandVorwahl._value
+ End If
+
+ If txtHandyNummer.Text = "" Then MsgBox("Bitte Handy-Nr angegeben!") : nr = "" : Return False
+ If txtHandyNummer.Text.Trim.StartsWith("+") Then txtHandyNummer.Text = txtHandyNummer.Text.Replace("+", "00")
+ If Not IsNumeric(txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")) Then MsgBox("Handy-Nr im falschem Format!") : nr = "" : Return False
+
+ nr &= txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")
+
+
+ If nr.Trim = "" Or Not nr.StartsWith("00") Or Not IsNumeric(nr) Or nr.StartsWith("000") Then
+ MsgBox("Bitte prüfen Sie die Nummer!" & vbNewLine & "Jede Nummer muss mit der Ländervorwahl beginnen.")
+ nr = "" : Return False
+ End If
+ If nr.Trim.Length <= 5 Then
+ MsgBox("Bitte prüfen Sie die Nummer!")
+ nr = "" : Return False
+ End If
+ Return True
+ End Function
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
Try
Dim nr = ""
- If cboLandVorwahl._value <> "" AndAlso IsNumeric(cboLandVorwahl._value) Then
- nr = cboLandVorwahl._value
+ If Not getNr(nr) Then
+ Exit Sub
End If
- If txtHandyNummer.Text = "" Then MsgBox("Bitte Handy-Nr angegeben!") : Exit Sub
If txtNachricht.Text = "" Then MsgBox("Bitte Nachricht angegeben!") : Exit Sub
- If txtHandyNummer.Text.Trim.StartsWith("+") Then txtHandyNummer.Text = txtHandyNummer.Text.Replace("+", "00")
- If Not IsNumeric(txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")) Then MsgBox("Handy-Nr im falschem Format!") : Exit Sub
-
- '' If nr <> "" And txtHandyNummer.Text.Trim.StartsWith("0") Then
- 'txtHandyNummer.Text = txtHandyNummer.Text.Substring(1)
- ' End If
- nr &= txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")
-
-
- If nr.Trim = "" Or Not nr.StartsWith("00") Or Not IsNumeric(nr) Or nr.StartsWith("000") Then
- MsgBox("Bitte prüfen Sie die Nummer!" & vbNewLine & "Jede Nummer muss mit der Ländervorwahl beginnen.")
- Exit Sub
- End If
- If nr.Trim.Length <= 5 Then
- MsgBox("Bitte prüfen Sie die Nummer!")
- Exit Sub
- End If
Dim absenderAccount = ""
Dim absenderFirma = ""
@@ -296,6 +303,15 @@ Public Class frmSendSMS
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
fillTXT("Моля, елате във VERAG и вземете пари в борй в размер на: € ", "TRUCK: ")
End Sub
+
+ Private Sub btnSndWhatsApp_Click(sender As Object, e As EventArgs) Handles btnSndWhatsApp.Click
+ Dim nr = ""
+ If Not getNr(nr) Then
+ Exit Sub
+ End If
+ nr = nr.Substring(2) ' nullstellen weg
+ Process.Start("https://wa.me/" & nr)
+ End Sub
End Class
Public Class cSMSOptions
diff --git a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
index 21bc39db..41f6c307 100644
--- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
+++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
@@ -603,15 +603,16 @@ Public Class frmNacherfassungNEU
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T"))
cboZollsystem.changeItem("D")
- Case "IMEX"
- cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
- cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
- cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T"))
- cboZollsystem.changeItem("D")
+ 'Case "IMEX"
+ ' cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+ ' cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
+ ' cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T"))
+ ' cboZollsystem.changeItem("D")
Case Else
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATLAS (KEWILL)", "A"))
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZOLL", "E"))
+ cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T"))
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
cboZollsystem.SelectedIndex = 0
End Select
@@ -800,7 +801,7 @@ Public Class frmNacherfassungNEU
End If
If txtAuftraggeber.Text = "" Then lblErrAuftraggeber.Visible = True : Return False
If Not IsNumeric(cboAbfertigungsart._value) Then lblErrLKWKennzeichen.Visible = True : Return False
- If cboAbfertigungsart._value <> "10" And cboAbfertigungsart._value <> "20" And cboFiliale._value <> 4839 Then 'Sonstiges und Maut Und LEX --> Kein SB
+ If cboAbfertigungsart._value <> "10" And cboAbfertigungsart._value <> "20" And cboFiliale._value <> 4839 And cboFiliale._value <> 7002 And cboFiliale._value <> 7003 Then 'Sonstiges und Maut Und LEX --> Kein SB und Brexit AWOR/UNISPED
If Not IsNumeric(cboSachbearbeiter._value) OrElse cboSachbearbeiter._value <= 0 Then lblErrSachbearbeiter.Visible = True : Return False
End If
Return True
diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
index 7374579d..564b072e 100644
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
@@ -61,6 +61,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.KundenauswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.cboHandlingssatz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button20 = New System.Windows.Forms.Button()
Me.Label46 = New System.Windows.Forms.Label()
@@ -734,14 +735,14 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1})
Me.MenuStrip1.Location = New System.Drawing.Point(601, 128)
Me.MenuStrip1.Name = "MenuStrip1"
- Me.MenuStrip1.Size = New System.Drawing.Size(163, 27)
+ Me.MenuStrip1.Size = New System.Drawing.Size(283, 27)
Me.MenuStrip1.TabIndex = 89
Me.MenuStrip1.Text = "Kundenauswertungen"
'
'KundenauswertungenToolStripMenuItem1
'
Me.KundenauswertungenToolStripMenuItem1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem})
+ Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem, Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem})
Me.KundenauswertungenToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.KundenauswertungenToolStripMenuItem1.ForeColor = System.Drawing.Color.White
Me.KundenauswertungenToolStripMenuItem1.Name = "KundenauswertungenToolStripMenuItem1"
@@ -752,8 +753,14 @@ Partial Class usrCntlSpeditionsBuchSuche
'
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem"
- Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(347, 24)
- Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Friedrichshafen AG (Zeitraum auswählen)"
+ Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(274, 24)
+ Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Passau (Zeitraum auswählen)"
+ 'ZFThyrnauZeitraumAuswählenToolStripMenuItem
+ '
+ Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFThyrnauZeitraumAuswählenToolStripMenuItem .Image"), System.Drawing.Image)
+ Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Name = "ZFThyrnauZeitraumAuswählenToolStripMenuItem "
+ Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(274, 24)
+ Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Text = "ZF Thyrnau (Zeitraum auswählen)"
'
'cboHandlingssatz
'
@@ -2709,6 +2716,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents KundenauswertungenToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
+ Friend WithEvents ZFThyrnauZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents lblKdAusFortschritt As Label
Friend WithEvents cbxEIDR As CheckBox
Friend WithEvents btnSpedBuchEinnahmen As Button
diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx
index 65f420ea..b5ac4c85 100644
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx
@@ -174,7 +174,7 @@
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
- 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAAB3VJREFUSEu9VntQ1NUe
+ 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEQAACxEBf2RfkQAAB3VJREFUSEu9VntQ1NUe
/86Uo8VVROUlsrsoBGlyNeURECuwPCXSBG0GAXktr2WX5S0GCob4GEF8XdIGAcP0innTMMsxrczb4A3r
ZjpxJ3F0uk5aaioomn7u95zdhQWb+u+eme/8zp45nA/f1+f7oSVNxaRtXUWZLasopiGHslqrKf+dWkrZ
UUGR67W0Yn8jVb+3jVJ3rCBNXRpV7GsYW9BaOz1mnTZVXZNclrK93IaN5lTGk0NeECkLNKQwhpHSyN+C
diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
index b9a2661a..d153d11f 100644
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
@@ -1833,11 +1833,20 @@ Public Class usrCntlSpeditionsBuchSuche
End Select
End Sub
- Private Sub ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Click
+ Private Sub ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Click, ZFThyrnauZeitraumAuswählenToolStripMenuItem.Click
lblKdAusFortschritt.Text = "lädt..."
Me.Cursor = Cursors.WaitCursor
Try
+ Dim kdnrsrch = -1
+
+ If sender Is ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem Then
+ kdnrsrch = 714869
+ ElseIf sender Is ZFThyrnauZeitraumAuswählenToolStripMenuItem Then
+ kdnrsrch = 718486
+ End If
+
+
'Dim dt As DataTable = SQL.loadDgvBySql("SELECT CAST(Rechnungsausgang.[FilialenNr] as varchar) + '/' + CAST(Rechnungsausgang.[AbfertigungsNr] as varchar) Abfertigungsnummer
' ,[RechnungsNr],RechnungsKundenNr
' ,cast([RechnungsDatum] as date)RechnungsDatum
@@ -1846,7 +1855,7 @@ Public Class usrCntlSpeditionsBuchSuche
' ,Speditionsbuch.BelegNr
' ,Rechnungsausgang.[FilialenNr],Rechnungsausgang.[AbfertigungsNr] ,Speditionsbuch.Abfertigungsart
' FROM [Rechnungsausgang] inner join Speditionsbuch ON Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr
- ' where RechnungsKundenNr IN (714869) and rechnungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "'", "FMZOLL")
+ ' where RechnungsKundenNr IN (" & kdNrsrch & ") and rechnungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "'", "FMZOLL")
Dim dt As DataTable = SQL.loadDgvBySql("SELECT CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer
,cast([Abfertigungsdatum] as date)Abfertigungsdatum
,Absender
@@ -1854,7 +1863,7 @@ Public Class usrCntlSpeditionsBuchSuche
,BelegNr
,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung
FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart
- where EmpfängerKundenNr IN (714869) and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29)", "FMZOLL")
+ where EmpfängerKundenNr IN (" & kdNrsrch & ") and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29)", "FMZOLL")
Dim Path = ""
If dt IsNot Nothing And dt.Rows.Count > 0 Then
diff --git a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb
index 09e5ac00..73847a52 100644
--- a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb
@@ -76,6 +76,10 @@
FIRMA_DY = "IMEX"
ElseIf FilialenNr = 5701 Then
FIRMA_DY = "AMBAR"
+ ElseIf FilialenNr = 5601 Then
+ FIRMA_DY = "UNISPED"
+ ElseIf FilialenNr = 4801 Then
+ FIRMA_DY = "ATILLA"
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
@@ -214,6 +218,7 @@
Case "SBG", "AMB" : zst = "DE007458" 'Bad Reichenhall-Autobahn
Case "WAI" : zst = "DE008904" 'Weiden-Waidhaus
Case "NEU" : zst = "DE007703" 'Passau
+ Case "WO_GE" : zst = "DE008752" 'Erlangen
' Case "SFD" : zst = Asd ....DAKOS DE -.-
End Select
End If
diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb
index 4a183355..1d6e5d54 100644
--- a/SDL/buchhaltung/usrCntlBH.vb
+++ b/SDL/buchhaltung/usrCntlBH.vb
@@ -591,12 +591,8 @@ Public Class usrCntlBH
Try
- ' kdnr += CInt(currentRow(0).Trim())
-
kdnr += currentRow(0).Substring(1) 'erste Stelle weg --> 2 oder 5
kdnr_tmp = kdnr
- ' MsgBox("KdNr: " & kdnr)
- ' MsgBox(kdnr)
Dim OP As New VERAG_PROG_ALLGEMEIN.cOffene_Posten_DVO()
' VERAG_PROG_ALLGEMEIN.SQL.isleernothing(getTrimedString(currentRow(11), 20))
@@ -610,7 +606,6 @@ Public Class usrCntlBH
OP.Buchungsbetrag_SOLL = CDbl(sql.isleernothing(currentRow(4)))
OP.Buchungsbetrag_HABEN = CDbl(sql.isleernothing(currentRow(5)))
OP.Saldo = CDbl(sql.isleernothing(currentRow(6)))
-
OP.Steuercode = sql.isleernothing(currentRow(7))
OP.Ländercode = sql.isleernothing(currentRow(8))
OP.Steuerbetrag = CDbl(sql.isleernothing(currentRow(9)))
@@ -629,7 +624,6 @@ Public Class usrCntlBH
OP.SAVE()
-
Catch ex As Exception
MsgBox("KdNr: " & kdnr & vbNewLine & ex.Message & ex.StackTrace)
End Try
diff --git a/SDL/cProgramFunctions.vb b/SDL/cProgramFunctions.vb
index fbc83c4c..41664656 100644
--- a/SDL/cProgramFunctions.vb
+++ b/SDL/cProgramFunctions.vb
@@ -141,8 +141,18 @@ Public Class cProgramFunctions
Return CBool(SQL.getValueTxtBySql(sqlstr, "FMZOLL"))
End Function
- Shared Function getLandBez_fromISO1Land(LandKz As String, Optional returnValue As Object = Nothing)
+ Shared Function getLandBez_fromISO1Land(LandKz As String, Optional returnValue As Object = Nothing, Optional RechnungSprache As String = "DE")
If LandKz Is Nothing Then Return returnValue
+ Select Case RechnungSprache
+ Case "EN"
+ Select Case LandKz
+ Case "GB" : Return "UNITED KINGDOM"
+ Case "FR" : Return "FRANCE"
+ Case "ES" : Return "SPAIN"
+ Case "IT" : Return "ITALY"
+ Case "TR" : Return "TURKEY"
+ End Select
+ End Select
Dim sqlstr = "SELECT TOP 1 isnull([Länderverzeichnis für die Außenhandelsstatistik].[LandBez],'') AS [LandBez] FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel WHERE Währungstabelle.LandKz='" & LandKz & "' "
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.getValueTxtBySql(sqlstr, "FMZOLL")
diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb
index 8c81384a..bf6566b5 100644
--- a/SDL/kassenbuch/frmBelegNeu.vb
+++ b/SDL/kassenbuch/frmBelegNeu.vb
@@ -800,7 +800,7 @@ Public Class frmBelegNeu
If KASSE.rksvDE_aktiv Then ' WENN für die Kasse die RKSV DEUTSCHLAND gilt
Dim answer = ""
- If Not cRKSV_DE.insertRKSV_DE(KASSE, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, BELEG.BelegDat, BELEG.Steuerschlüssel, RKSV_Beleg_Id, If(EA = "E", summeBRUTTO, summeBRUTTO * -1), QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
+ If Not cRKSV_DE.insertRKSV_DE(PERSONAL, BELEG, KASSE, RKSV_Beleg_Id, If(EA = "E", summeBRUTTO, summeBRUTTO * -1), QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
If Not TESTBUCHUNG Then
KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, If(EA = "E", summeBRUTTO * -1, summeBRUTTO))
cRKSV.DELETE(BELEG)
diff --git a/SDL/kassenbuch/frmFremdbeleg.vb b/SDL/kassenbuch/frmFremdbeleg.vb
index a91033e6..673cb312 100644
--- a/SDL/kassenbuch/frmFremdbeleg.vb
+++ b/SDL/kassenbuch/frmFremdbeleg.vb
@@ -232,7 +232,7 @@ Public Class frmFremdbeleg
End If
If KASSE.rksvDE_aktiv Then
- If Not cRKSV_DE.insertRKSV_DE(KASSE, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, BELEG.BelegDat, BELEG.Steuerschlüssel, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
+ If Not cRKSV_DE.insertRKSV_DE(PERSONAL, BELEG, KASSE, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
If Not TESTBUCHUNG Then
KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, BELEG.rksv_umsatz * -1)
cRKSV.DELETE(BELEG)
diff --git a/SDL/kassenbuch/frmKassenbuch.vb b/SDL/kassenbuch/frmKassenbuch.vb
index b37dcc49..938ae21a 100644
--- a/SDL/kassenbuch/frmKassenbuch.vb
+++ b/SDL/kassenbuch/frmKassenbuch.vb
@@ -65,7 +65,7 @@ Public Class frmKassenbuch
KennwortTime = Now
initDgv() 'nur set
init()
- cboKassen.fillWithSQL("SELECT [rksv_id], [rksv_bez] FROM [tblRKSV_Kassen] WHERE ([rksv_aktiv]=1 OR [rksvde_aktiv]=1) ", False, "FMZOLL") ' [rksv_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND
+ cboKassen.fillWithSQL("SELECT [rksv_id], [rksv_bez] FROM [tblRKSV_Kassen] WHERE ([rksv_aktiv]=1 OR [rksvde_aktiv]=1 or rksv_id=4) ", False, "FMZOLL") ' [rksv_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE", Me) Then
btnBelegKunde.Enabled = False
diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
index f7d81b32..fdb6c091 100644
--- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
+++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
@@ -352,7 +352,7 @@ Public Class frmNacherfassungLeihgeld
If KASSE.rksvDE_aktiv Then ' WENN für die Kasse die RKSV gilt
Dim answer = ""
- If Not cRKSV_DE.insertRKSV_DE(KASSE, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, BELEG.BelegDat, BELEG.Steuerschlüssel, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
+ If Not cRKSV_DE.insertRKSV_DE(PERSONAL, BELEG, KASSE, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
If Not TESTBUCHUNG Then
KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, summeBRUTTO * -1)
cRKSV.DELETE(BELEG)
diff --git a/SDL/kunden/frmKundenUIDEORI_List.Designer.vb b/SDL/kunden/frmKundenUIDEORI_List.Designer.vb
new file mode 100644
index 00000000..322c6dcf
--- /dev/null
+++ b/SDL/kunden/frmKundenUIDEORI_List.Designer.vb
@@ -0,0 +1,66 @@
+ _
+Partial Class frmKundenUIDEORI_List
+ 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenUIDEORI_List))
+ Me.dgv = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+ CType(Me.dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'dgv
+ '
+ Me.dgv.AKTUALISIERUNGS_INTERVALL = -1
+ Me.dgv.AllowUserToAddRows = False
+ Me.dgv.AllowUserToDeleteRows = False
+ Me.dgv.AllowUserToOrderColumns = True
+ Me.dgv.AllowUserToResizeColumns = False
+ Me.dgv.AllowUserToResizeRows = False
+ Me.dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+ Me.dgv.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.dgv.Location = New System.Drawing.Point(0, 0)
+ Me.dgv.MultiSelect = False
+ Me.dgv.Name = "dgv"
+ Me.dgv.ReadOnly = True
+ Me.dgv.RowHeadersVisible = False
+ Me.dgv.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+ Me.dgv.Size = New System.Drawing.Size(800, 450)
+ Me.dgv.TabIndex = 0
+ '
+ 'frmKundenUIDEORI_List
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.ClientSize = New System.Drawing.Size(800, 450)
+ Me.Controls.Add(Me.dgv)
+ Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+ Me.Name = "frmKundenUIDEORI_List"
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+ Me.Text = "Liste"
+ CType(Me.dgv, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+
+ Friend WithEvents dgv As VERAG_PROG_ALLGEMEIN.MyDatagridview
+End Class
diff --git a/SDL/kunden/frmKundenUIDEORI_List.resx b/SDL/kunden/frmKundenUIDEORI_List.resx
new file mode 100644
index 00000000..d584bd9e
--- /dev/null
+++ b/SDL/kunden/frmKundenUIDEORI_List.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/frmKundenUIDEORI_List.vb b/SDL/kunden/frmKundenUIDEORI_List.vb
new file mode 100644
index 00000000..4d8bc8bc
--- /dev/null
+++ b/SDL/kunden/frmKundenUIDEORI_List.vb
@@ -0,0 +1,3 @@
+Public Class frmKundenUIDEORI_List
+
+End Class
\ No newline at end of file
diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb
index 1c3ed143..75340328 100644
--- a/SDL/kunden/frmKundenblatt.vb
+++ b/SDL/kunden/frmKundenblatt.vb
@@ -7,6 +7,7 @@ Public Class frmKundenblatt
' Public superuser As Boolean = False
Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
Public kdNr As Integer
+ Public FilialeNr As Integer = -1
Dim kundenSQL As New kundenSQL
Private bindingLKW As New BindingSource
Private dataAdapterLKW As New SqlDataAdapter
@@ -89,6 +90,10 @@ Public Class frmKundenblatt
tbcntrMain.Appearance = TabAppearance.FlatButtons
tbcntrMain.ItemSize = New Size(0, 1)
tbcntrMain.SizeMode = TabSizeMode.Fixed
+
+ If FilialeNr > 0 Then
+ UsrcntlKundeBearbeitenFull1.Filiale = FilialeNr
+ End If
'UsrcntlKundeBearbeitenFull1.BERECHTIGUNEN = BERECHTIGUNEN
Me.KeyPreview = True
pnlInfo.Height = 0
@@ -276,6 +281,9 @@ Public Class frmKundenblatt
UsrcntlKundeBearbeitenFull1.init(kdNr)
+ If FilialeNr > 0 Then
+ UsrcntlKundeBearbeitenFull1.cboFiliale.changeItem(FilialeNr)
+ End If
'End If
End Sub
@@ -814,7 +822,7 @@ Public Class frmKundenblatt
End With
- lblErgebnisse.Text = "Ergebnisse: " & dgvLKW.Rows.Count - 1
+ lblErgebnisse.Text = "Ergebnisse: " & dgvLKW.Rows.Count ' - 1
End Sub
diff --git a/SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb b/SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb
index a4cfe1a9..f72d2e2c 100644
--- a/SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb
+++ b/SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb
@@ -199,7 +199,7 @@
cboFreigabeArt.Items.Clear()
cboFreigabeArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Freigabe", "FG"))
cboFreigabeArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Beleg", "BLG"))
- cboFreigabeArt.changeItem(If(KUNDE_ERW.EmailFreigabe_Art, "FG"))
+ If KUNDE_ERW IsNot Nothing Then cboFreigabeArt.changeItem(If(KUNDE_ERW.EmailFreigabe_Art, "FG"))
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_MAIL_Steuerbescheid", "AVISO") Then
cbxFreigabe_Steuerbescheid.Visible = False
diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
index 3c0883aa..bf4bdce4 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
@@ -76,6 +76,7 @@ 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()
@@ -140,6 +141,7 @@ 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()
@@ -181,6 +183,7 @@ 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()
@@ -231,9 +234,8 @@ 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.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
- Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
- Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
+ Me.Button13 = New System.Windows.Forms.Button()
+ Me.Button14 = New System.Windows.Forms.Button()
Me.cntxtAddSdl.SuspendLayout()
Me.tbWeitereKundenDetails.SuspendLayout()
Me.TabPage4.SuspendLayout()
@@ -883,6 +885,16 @@ 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)
@@ -1681,6 +1693,7 @@ Partial Class usrCntlKundenuebersicht
'
'tbKontaktKontakt
'
+ Me.tbKontaktKontakt.Controls.Add(Me.btncheckliste)
Me.tbKontaktKontakt.Controls.Add(Me.FlatButton1)
Me.tbKontaktKontakt.Controls.Add(Me.PictureBox1)
Me.tbKontaktKontakt.Controls.Add(Me.lblAnsprechpartner)
@@ -1709,7 +1722,7 @@ Partial Class usrCntlKundenuebersicht
Me.FlatButton1.ForeColor = System.Drawing.Color.Black
Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.compose
Me.FlatButton1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
- Me.FlatButton1.Location = New System.Drawing.Point(395, 93)
+ Me.FlatButton1.Location = New System.Drawing.Point(392, -3)
Me.FlatButton1.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(84, 68)
Me.FlatButton1.TabIndex = 4
@@ -1717,6 +1730,7 @@ Partial Class usrCntlKundenuebersicht
Me.FlatButton1.Text = "Änderungen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "bekanntgeben"
Me.FlatButton1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.FlatButton1.UseVisualStyleBackColor = True
+ Me.FlatButton1.Visible = False
'
'PictureBox1
'
@@ -1858,6 +1872,14 @@ 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
@@ -1977,6 +1999,8 @@ Partial Class usrCntlKundenuebersicht
'grpSonstiges
'
Me.grpSonstiges.BackColor = System.Drawing.Color.White
+ Me.grpSonstiges.Controls.Add(Me.Button14)
+ Me.grpSonstiges.Controls.Add(Me.Button13)
Me.grpSonstiges.Controls.Add(Me.Button2)
Me.grpSonstiges.Controls.Add(Me.Button10)
Me.grpSonstiges.Controls.Add(Me.Button4)
@@ -1984,7 +2008,6 @@ Partial Class usrCntlKundenuebersicht
Me.grpSonstiges.Controls.Add(Me.Button3)
Me.grpSonstiges.Controls.Add(Me.Button1)
Me.grpSonstiges.Controls.Add(Me.tbcntrAllg)
- Me.grpSonstiges.Controls.Add(Me.btncheckliste)
Me.grpSonstiges.Controls.Add(Me.lblUIDNr)
Me.grpSonstiges.Controls.Add(Me.lblUid)
Me.grpSonstiges.Controls.Add(Me.lblEORI)
@@ -2002,7 +2025,7 @@ Partial Class usrCntlKundenuebersicht
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button2.FlatAppearance.BorderSize = 0
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.Button2.Location = New System.Drawing.Point(395, 39)
+ Me.Button2.Location = New System.Drawing.Point(430, 36)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(25, 20)
Me.Button2.TabIndex = 10
@@ -2014,7 +2037,7 @@ Partial Class usrCntlKundenuebersicht
Me.Button10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button10.FlatAppearance.BorderSize = 0
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.Button10.Location = New System.Drawing.Point(395, 15)
+ Me.Button10.Location = New System.Drawing.Point(430, 13)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(25, 20)
Me.Button10.TabIndex = 3
@@ -2026,7 +2049,7 @@ Partial Class usrCntlKundenuebersicht
Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button4.FlatAppearance.BorderSize = 0
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.Button4.Location = New System.Drawing.Point(364, 35)
+ Me.Button4.Location = New System.Drawing.Point(399, 34)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(25, 20)
Me.Button4.TabIndex = 7
@@ -2039,7 +2062,7 @@ Partial Class usrCntlKundenuebersicht
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button5.FlatAppearance.BorderSize = 0
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.Button5.Location = New System.Drawing.Point(364, 14)
+ Me.Button5.Location = New System.Drawing.Point(399, 13)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(25, 20)
Me.Button5.TabIndex = 2
@@ -2052,7 +2075,7 @@ Partial Class usrCntlKundenuebersicht
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button3.FlatAppearance.BorderSize = 0
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.Button3.Location = New System.Drawing.Point(339, 34)
+ Me.Button3.Location = New System.Drawing.Point(374, 33)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(25, 20)
Me.Button3.TabIndex = 6
@@ -2065,7 +2088,7 @@ Partial Class usrCntlKundenuebersicht
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button1.FlatAppearance.BorderSize = 0
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.Button1.Location = New System.Drawing.Point(339, 13)
+ Me.Button1.Location = New System.Drawing.Point(374, 12)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(25, 20)
Me.Button1.TabIndex = 1
@@ -2430,6 +2453,15 @@ 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)
@@ -2691,7 +2723,7 @@ Partial Class usrCntlKundenuebersicht
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(409, 7)
+ 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
@@ -2947,32 +2979,29 @@ Partial Class usrCntlKundenuebersicht
Me.GültigungültigToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
Me.GültigungültigToolStripMenuItem.Text = "gültig/ungültig"
'
- 'UsrCntlKundenBesonderheiten1
+ 'Button13
'
- 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
+ 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
'
- 'ucKundenKontakte
+ 'Button14
'
- 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
+ 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
'
'usrCntlKundenuebersicht
'
@@ -3254,4 +3283,6 @@ Partial Class usrCntlKundenuebersicht
Friend WithEvents ToolStripMenuItem6 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem7 As ToolStripMenuItem
Friend WithEvents GültigungültigToolStripMenuItem As ToolStripMenuItem
+ Friend WithEvents Button14 As Button
+ Friend WithEvents Button13 As Button
End Class
diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb
index 4e753c0a..1ea1d216 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -2337,4 +2337,34 @@ Public Class usrCntlKundenuebersicht
End If
End If
End Sub
+
+ Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
+ genUIDEORIList(kdNr, "UID")
+
+ End Sub
+
+ Sub genUIDEORIList(kdNr, typeListe)
+ If kdNr <= 0 Then Exit Sub
+ Dim frmList As New frmKundenUIDEORI_List
+ Select Case typeListe
+ Case "UID"
+ Dim dt = SQL.loadDgvBySql("SELECT [uid_id],[uid_KundenNr],[uid_UstIdKz],[uid_UstIdNr],[uid_Datum],[uid_valid],[uid_Sachbearbeiter],[uid_stufe] FROM [tblUIDPruefung]where uid_KundenNr='" & kdNr & "'", "FMZOLL")
+ If dt IsNot Nothing Then
+ frmList.dgv.DataSource = dt
+ frmList.dgv.Columns("uid_id").Visible = False
+ AddHandler frmList.dgv.CellDoubleClick, Sub()
+ Dim PdfTmp = SDL.FormularManagerNEU.UID_PRUEFUNG_PROTOKOLL(frmList.dgv.SelectedRows(0).Cells("uid_id").Value)
+ If PdfTmp <> "" Then
+ Process.Start(PdfTmp)
+
+ End If
+ End Sub
+ frmList.Show(Me)
+ End If
+ Case "EORI"
+ End Select
+
+
+ End Sub
+
End Class
diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
index a09827ef..f5edab9b 100644
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
@@ -22,16 +22,16 @@ Partial Class usrcntlKundeBearbeitenFull
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
Private Sub InitializeComponent()
- 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 DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
- Dim DataGridViewCellStyle20 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 DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.tbcntrDetails = New System.Windows.Forms.TabControl()
Me.tbAbfertigung = New System.Windows.Forms.TabPage()
Me.lblHinweisKdNr = New System.Windows.Forms.Label()
@@ -2444,8 +2444,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
Me.dgvUmsatzbericht.AllowUserToResizeRows = False
- DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
- Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
+ DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+ Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
@@ -2542,8 +2542,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvOffenePosten.AllowUserToDeleteRows = False
Me.dgvOffenePosten.AllowUserToOrderColumns = True
Me.dgvOffenePosten.AllowUserToResizeRows = False
- DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
- Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
+ DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+ Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
@@ -2699,41 +2699,41 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvKreditkarten.AllowUserToDeleteRows = False
Me.dgvKreditkarten.AllowUserToOrderColumns = True
Me.dgvKreditkarten.AllowUserToResizeRows = False
- DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
- Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
+ DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+ Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
- DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
- DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
- DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
- DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
- DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
- DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
+ DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+ DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+ DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+ DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+ DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+ DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
- DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
- DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
- DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
- DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
- DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
- DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
- Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle16
+ DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+ DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
+ DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
+ DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
+ DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+ DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+ Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5
Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
Me.dgvKreditkarten.MultiSelect = False
Me.dgvKreditkarten.Name = "dgvKreditkarten"
Me.dgvKreditkarten.ReadOnly = True
- DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
- DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
- DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
- DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
- DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
- DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
+ DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+ DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
+ DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
+ DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
+ DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+ DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.dgvKreditkarten.RowHeadersVisible = False
- DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle18
+ DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7
Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
@@ -2871,8 +2871,8 @@ Partial Class usrcntlKundeBearbeitenFull
'
'dgvUstv_LaenderUndSteuernummern
'
- DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
- Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
+ DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+ Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
@@ -3106,8 +3106,8 @@ Partial Class usrcntlKundeBearbeitenFull
'dgvSonst_IDSKunden
'
Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
- DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
- Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+ DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+ Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251)
@@ -3310,8 +3310,8 @@ Partial Class usrcntlKundeBearbeitenFull
'DataGridView1
'
Me.DataGridView1.AllowUserToResizeRows = False
- DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
- Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
+ DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+ Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Enabled = False
diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb
index 4e5306fe..e22fe12d 100644
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb
@@ -11,6 +11,7 @@ Public Class usrcntlKundeBearbeitenFull
Dim EMAIL_FREIGABE As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList = Nothing
Dim sql As New SQL
Dim WunschKdNr As Integer = -1
+ Public Filiale As Integer = -1
' Dim kdnr = -1
Public Event KD_SAVED(kdnr)
@@ -84,7 +85,6 @@ Public Class usrcntlKundeBearbeitenFull
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
cboKundenkreis.changeItem("100000-199999")
-
Case Else
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATILLA_VERWALTUNG", "AVISO") Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999"))
@@ -95,11 +95,15 @@ Public Class usrcntlKundeBearbeitenFull
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 800000-899999: XXXXXX", "800000-899999"))
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"))
cboKundenkreis.changeItem("728000-799999")
End Select
End If
+ If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_AWOR", "SDL") Then
+ cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4000000-4099999: AWOR", "4001000-4099999"))
+ End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "AMBAR" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_AMBAR", "SDL") Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
@@ -350,7 +354,7 @@ Public Class usrcntlKundeBearbeitenFull
' -------- EMAIL --------
- UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW)
+ ' UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW) ' es wird beim Speichern KUNDE_ERW gespeichert, wenn zwischendurch UsrCntlKundenAvisoMailBenachrichtigung Änderugnen gemacht hat, sind diese verworfen.
cbxBesonderheitenNEU.Checked = KUNDE_ERW.kde_BesonderheitenNeu
@@ -619,6 +623,7 @@ Public Class usrcntlKundeBearbeitenFull
+
UsrCntlKundeFiskaldaten1.loadinClass(FISKAL, KUNDE_ERW)
Return True
@@ -704,20 +709,24 @@ Public Class usrcntlKundeBearbeitenFull
cboProvisionStaffelArt.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez] FROM [VERAG].[dbo].[tblPreislisten] WHERE Art='E' ORDER BY Preislistenbez", False, "FMZOLL", True)
cboFirma.fillWithSQL("SELECT tblFirma.Firma_ID, tblFirma.Firma_Bez FROM tblFirma ORDER BY tblFirma.Firma_ID", , "FMZOLL", True)
-
cboFiliale.fillWithSQL("SELECT [FilialenNr],[Grenzstelle] FROM [Filialen] ORDER BY FilialenNr", True, "FMZOLL")
+
+
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
- Case "IMEX"
- cboFiliale.changeItem("5501")
- Case "UNISPED"
- cboFiliale.changeItem("5601")
- Case "AMBAR"
- 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()
cboAuswahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AKTIV", "A"))
cboAuswahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("INAKTIV", "I"))
@@ -1025,8 +1034,11 @@ Public Class usrcntlKundeBearbeitenFull
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me.FindForm) Then
btnFirmendatenFormularSpeichern.Enabled = False
End If
+ tbcntrAbf.TabPages.Remove(TabPage4)
-
+ If Filiale > 0 Then
+ cboFiliale.changeItem(Filiale)
+ End If
End Sub
@@ -1290,4 +1302,13 @@ Public Class usrcntlKundeBearbeitenFull
End If
End Sub
+
+ Private Sub cboFiliale_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFiliale.SelectedIndexChanged
+ If cboFiliale._value = 7002 Then
+ cboKundenkreis.changeItem("4001000-4099999")
+ End If
+ If cboFiliale._value = 7003 Then
+ cboKundenkreis.changeItem("2000000-2099999")
+ End If
+ End Sub
End Class
diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
index 80956433..ae922046 100644
--- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
+++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
@@ -943,6 +943,7 @@ Public Class cAviso
Property ZOLLDigitalEingereicht As Boolean = False
Property Transportmittelart As Object = Nothing
+ Property WeiterleitungTextTV As String = ""
Public VORPAPIERE As New List(Of cAvisoVorpapier)
@@ -1182,6 +1183,8 @@ Public Class cAvisoDAL
daten.ZOLLDigitalEingereicht = If(dr.Item("ZOLLDigitalEingereicht") Is DBNull.Value, Nothing, dr.Item("ZOLLDigitalEingereicht"))
daten.Transportmittelart = If(dr.Item("Transportmittelart") Is DBNull.Value, Nothing, dr.Item("Transportmittelart"))
+ daten.WeiterleitungTextTV = VarToStr(dr.Item("WeiterleitungTextTV"))
+
End If
@@ -1454,17 +1457,17 @@ Public Class cAvisoDAL
hAuswahl = "INSERT INTO Aviso " &
"(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " &
"Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA, " &
- " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht,Transportmittelart) VALUES (" &
+ " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht,Transportmittelart,WeiterleitungTextTV) VALUES (" &
"@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " &
"@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA," &
- "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht,@Transportmittelart); SELECT CAST(scope_identity() AS int);"
+ "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht,@Transportmittelart,@WeiterleitungTextTV); SELECT CAST(scope_identity() AS int);"
Else
id = d.AvisoID
'Änderung
hAuswahl = String.Format(
"UPDATE Aviso SET Datum = @Datum, LKW_Nr = @LKW_Nr, Telefonisch=@Telefonisch, Änderungen=@Änderungen, Info=@Info, Status=@Status, Auftraggeber=@Auftraggeber, Frächter=@Frächter, " &
" letzterMitarbeiter = @letzterMitarbeiter, Vorbereitet=@Vorbereitet,Vorgeschrieben=@Vorgeschrieben, Ankunft = @Ankunft, Freigabe = @Freigabe, Dauer = @Dauer, AvisoEingang = @AvisoEingang, Grenzstelle=@Grenzstelle, LKW_fertig=@LKW_fertig, letzterMitarbeiterId=@letzterMitarbeiterId, Handling=@Handling,Sendungen_Gesamtanzahl=@Sendungen_Gesamtanzahl,Sammelakt=@Sammelakt,Frächter_KdNr=@Frächter_KdNr,Auftraggeber_KdNr=@Auftraggeber_KdNr,AvisoTVHinweis=@AvisoTVHinweis,Buero=@Buero,Imex=@Imex,Abgeschlossen=@Abgeschlossen, " &
- " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,Transportmittelart=@Transportmittelart,FIRMA=@FIRMA" &
+ " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,Transportmittelart=@Transportmittelart,WeiterleitungTextTV=@WeiterleitungTextTV,FIRMA=@FIRMA" &
" WHERE AvisoID = @AvisoID")
End If
@@ -1536,6 +1539,7 @@ Public Class cAvisoDAL
cmd.Parameters.AddWithValue("@Warenort", d.Warenort)
cmd.Parameters.AddWithValue("@ZOLLDigitalEingereicht", d.ZOLLDigitalEingereicht)
cmd.Parameters.AddWithValue("@Transportmittelart", If(d.Transportmittelart, ""))
+ cmd.Parameters.AddWithValue("@WeiterleitungTextTV", d.WeiterleitungTextTV)
Try
diff --git a/VERAG_PROG_ALLGEMEIN/App.config b/VERAG_PROG_ALLGEMEIN/App.config
index 8aab713c..a8ba7a3d 100644
--- a/VERAG_PROG_ALLGEMEIN/App.config
+++ b/VERAG_PROG_ALLGEMEIN/App.config
@@ -74,4 +74,16 @@
+
+
+
+
+
+
+
+
+
+
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
index 2111ba8b..6a0f67a8 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
@@ -76,6 +76,7 @@ Public Class cMitarbeiter
Property mit_foto_DocId As Object = Nothing
Property mit_sprache As String = "DE"
+ Property mit_fakturierungsgruppe As String = ""
Dim SQL As New SQL
@@ -181,6 +182,7 @@ Public Class cMitarbeiter
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_foto_DocId", mit_foto_DocId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_sprache", mit_sprache))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_fakturierungsgruppe", mit_fakturierungsgruppe))
Return list
End Function
@@ -367,6 +369,7 @@ Public Class cMitarbeiter
If Not dr.Item("mit_MAVerzeichnis_Spitzname") Is DBNull.Value Then Me.mit_MAVerzeichnis_Spitzname = dr.Item("mit_MAVerzeichnis_Spitzname")
If Not dr.Item("mit_MAVerzeichnis_Motto") Is DBNull.Value Then Me.mit_MAVerzeichnis_Motto = dr.Item("mit_MAVerzeichnis_Motto")
If Not dr.Item("mit_sprache") Is DBNull.Value Then Me.mit_sprache = dr.Item("mit_sprache")
+ If Not dr.Item("mit_fakturierungsgruppe") Is DBNull.Value Then Me.mit_fakturierungsgruppe = dr.Item("mit_fakturierungsgruppe")
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR_Nachrichten.vb b/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR_Nachrichten.vb
new file mode 100644
index 00000000..f686bd16
--- /dev/null
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR_Nachrichten.vb
@@ -0,0 +1,139 @@
+
+
+Imports System.Data.SqlClient
+ Imports System.Reflection
+
+Public Class cNCTS_TR_Nachrichten
+ Property nctsNr_id As Integer
+ Property nctsNr_nctsId As Integer
+ Property nctsNr_typ As String
+ Property nctsNr_GUID As Object = Nothing
+ Property nctsNr_MRN As Object = Nothing
+ Property nctsNr_LRN As Object = Nothing
+ Property nctsNr_path As String
+ Property nctsNr_tstmp As Date = Now
+
+ Public hasEntry = False
+
+ Dim SQL As New SQL
+ Sub New()
+
+ End Sub
+ Sub New(nctsNr_id)
+ Me.nctsNr_id = nctsNr_id
+ LOAD()
+ End Sub
+ 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("nctsNr_id", nctsNr_id,, True))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_nctsId", nctsNr_nctsId))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_typ", nctsNr_typ))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_GUID", nctsNr_GUID))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_MRN", nctsNr_MRN))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_LRN", nctsNr_LRN))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_path", nctsNr_path))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_tstmp", nctsNr_tstmp))
+
+ Return list
+ End Function
+
+
+
+ Public Function SAVE(Optional errHinweis = "") As Boolean
+ Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+ Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblNCTS_TR_Nachrichten WHERE nctsNr_id=@nctsNr_id) " &
+ " BEGIN " & getUpdateCmd() & " END " &
+ " Else " &
+ " BEGIN " & getInsertCmd() & " END " &
+ " commit tran "
+
+ Dim ncts_IdTMP = nctsNr_id
+ ncts_IdTMP = SQL.doSQLVarListID(ncts_IdTMP, sqlstr, "FMZOLL", , list, , errHinweis)
+ If nctsNr_id <= 0 Then nctsNr_id = ncts_IdTMP
+ Return nctsNr_id > 0
+
+ ' Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+ End Function
+
+ Public Sub LOAD()
+ Try
+ hasEntry = False
+ Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+ Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_Nachrichten WHERE nctsNr_id=@nctsNr_id ", conn)
+ cmd.Parameters.AddWithValue("@nctsNr_id", nctsNr_id)
+ Dim dr = cmd.ExecuteReader()
+ If dr.Read Then
+ For Each li In getParameterList()
+ Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+ If dr.Item(li.Text) Is DBNull.Value Then
+ propInfo.SetValue(Me, Nothing)
+ Else
+ propInfo.SetValue(Me, dr.Item(li.Text))
+ End If
+
+ Next
+ hasEntry = True
+ End If
+ dr.Close()
+ End Using
+ End Using
+ Catch ex As Exception
+ MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+ End Try
+ End Sub
+
+ Public Shared Function updatePath(nr_id As Integer, path As String) As String
+ Try
+ Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+ SQL.doSQL(" UPDATE [tblNCTS_TR_Nachrichten] SET nctsNr_path='" & path & "' WHERE nctsNr_id='" & nr_id & "' ", "FMZOLL")
+
+ Catch ex As Exception
+ MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+ End Try
+ Return ""
+ End Function
+
+
+ Public Function getUpdateCmd() As String
+ Try
+ Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+ Dim str As String = ""
+ For Each i In list
+ If Not i.isPrimaryParam Then
+ str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+ End If
+ Next
+ str = str.Substring(0, str.Length - 1) 'wg. ','
+ Return (" UPDATE [tblNCTS_TR_Nachrichten] SET " & str & " WHERE nctsNr_id=@nctsNr_id ")
+
+ Catch ex As Exception
+ MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+ End Try
+ Return ""
+ End Function
+
+
+ Public Function getInsertCmd() As String
+ Try
+ Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+ Dim str As String = ""
+ Dim values As String = ""
+ For Each i In list
+ If Not i.isPrimaryParam Then
+ str &= "[" & i.Text & "],"
+ values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+ End If
+ Next
+ str = str.Substring(0, str.Length - 1) 'wg. ','
+ values = values.Substring(0, values.Length - 1) 'wg. ','
+ Return (" INSERT INTO tblNCTS_TR_Nachrichten (" & str & ") VALUES(" & values & ") ")
+ Catch ex As Exception
+ MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+ End Try
+ Return ""
+ End Function
+
+End Class
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten.vb b/VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten.vb
new file mode 100644
index 00000000..191c0645
--- /dev/null
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten.vb
@@ -0,0 +1,167 @@
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+Public Class cOffene_Posten
+
+
+
+ Property OP_ID As Object = Nothing
+ Property Kontonummer As Object = Nothing
+ Property Kontoname As Object = Nothing
+ Property Belegnummer As Object = Nothing
+ Property Belegdatum As Object = Nothing
+ Property Fälligkeitsdatum As Object = Nothing
+ Property Skontodatum As Object = Nothing
+ Property Skontoprozent As Object = Nothing
+ Property Bruttobetrag As Object = Nothing
+ Property Waehrung As Object = Nothing
+ Property Steuersatz As Object = Nothing
+ Property Gesamtausstand As Object = Nothing
+ Property Steuersatz2 As Object = Nothing
+ Property Ausstand2 As Object = Nothing
+ Property Buchungstext As Object = Nothing
+ Property Bemerkung As Object = Nothing
+ Property Mahnstufe As Object = Nothing
+ Property Mahndatum As Object = Nothing
+ Property Gegenkonto As Object = Nothing
+ Property Status As Object = Nothing
+ Property KumSaldoEUR As Object = Nothing
+
+ Property Firma_ID As Object = Nothing
+
+ Dim SQL As New SQL
+
+ Sub New()
+ End Sub
+
+ Sub New(OP_ID)
+ Me.OP_ID = OP_ID
+ LOAD()
+ End Sub
+
+
+ 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("Kontonummer", Kontonummer))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kontoname", Kontoname))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegnummer", Belegnummer))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegdatum", Belegdatum))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fälligkeitsdatum", Fälligkeitsdatum))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Skontodatum", Skontodatum))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Skontoprozent", Skontoprozent))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bruttobetrag", Bruttobetrag))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Waehrung", Waehrung))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuersatz", (Steuersatz))) '.ToString("N2")))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesamtausstand", Gesamtausstand))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuersatz2", Steuersatz2))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ausstand2", Ausstand2))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungstext", Buchungstext))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemerkung", Bemerkung))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mahnstufe", Mahnstufe))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mahndatum", Mahndatum))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gegenkonto", Gegenkonto))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status", Status))
+
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KumSaldoEUR", KumSaldoEUR))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_ID", Firma_ID))
+ Return list
+ End Function
+
+ Public Shared Function DELETE_ALL() As Boolean
+ Dim SQL As New SQL
+ Return SQL.doSQL("DELETE FROM [Offene Posten]", "FMZOLL")
+ End Function
+
+ Public Function SAVE() As Boolean
+ Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+ Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [Offene Posten] WITH(updlock,serializable) WHERE OP_ID=@OP_ID) " &
+ " BEGIN " & getUpdateCmd() & " END " &
+ " Else " &
+ " BEGIN " & getInsertCmd() & " END " &
+ " commit tran "
+
+ OP_ID = SQL.doSQLVarListID(OP_ID, sqlstr, "FMZOLL", , list)
+ Return OP_ID > 0
+ End Function
+
+
+
+ Public Sub LOAD()
+ Try
+ Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+ Using cmd As New SqlCommand("SELECT * FROM [Offene Posten] WHERE OP_ID=@OP_ID ", conn)
+ cmd.Parameters.AddWithValue("@OP_ID", OP_ID)
+ Dim dr = cmd.ExecuteReader()
+ If dr.Read Then
+ For Each li In getParameterList()
+ Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+ If dr.Item(li.Text) Is DBNull.Value Then
+ propInfo.SetValue(Me, Nothing)
+ Else
+ propInfo.SetValue(Me, dr.Item(li.Text))
+ End If
+
+ Next
+
+ End If
+ dr.Close()
+ End Using
+ End Using
+ Catch ex As Exception
+ MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+ End Try
+ End Sub
+
+
+ Public Function getUpdateCmd() As String
+ Try
+ Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+ Dim str As String = ""
+ For Each i In list
+ If Not i.isPrimaryParam Then
+ str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+ End If
+ Next
+ str = str.Substring(0, str.Length - 1) 'wg. ','
+ Return (" UPDATE [Offene Posten] SET " & str & " WHERE OP_ID=@OP_ID ")
+
+ Catch ex As Exception
+ MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+ End Try
+ Return ""
+ End Function
+
+
+ Public Function getInsertCmd() As String
+ Try
+ Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+ Dim str As String = ""
+ Dim values As String = ""
+ For Each i In list
+ If Not i.isPrimaryParam Then
+ str &= "[" & i.Text & "],"
+ values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+ End If
+ Next
+ str = str.Substring(0, str.Length - 1) 'wg. ','
+ values = values.Substring(0, values.Length - 1) 'wg. ','
+ Return (" INSERT INTO [Offene Posten] (" & str & ") VALUES(" & values & ") ")
+ Catch ex As Exception
+ MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+ End Try
+ Return ""
+ End Function
+
+
+ Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
+ Dim sqlstr = " DELETE FROM [Offene Posten] WITH(updlock,serializable) WHERE OP_ID=" & Me.OP_ID
+ Return SQL.doSQL(sqlstr, "FMZOLL")
+ End Function
+
+
+End Class
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
index e089ee3e..30461482 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
@@ -109,11 +109,14 @@ Public Class cRechnungsausgang
Property VorschauID As Object = Nothing
Property Grenze As Object = Nothing
Property RechnungSprache As Object = Nothing
+ Property FakturierungsGruppe As String = ""
' FROM [VERAG as object=nothing.[dbo as object=nothing.[Rechnungsausgang as object=nothing
Public POSITIONEN As New List(Of cRechnungsausgangPositionen)
+ Public ANHAENGE As New List(Of cRechnungsausgangANHAENGE)
+
Shared SQL As New SQL
Sub New()
@@ -332,6 +335,7 @@ Public Class cRechnungsausgang
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VorschauID", VorschauID))
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))
Return list
End Function
@@ -414,6 +418,7 @@ Public Class cRechnungsausgang
If RK_ID > 0 Then
doVorzeichenPOS()
If saveAll Then SAVE_POSITIONEN(RK_ID) ' positionen speicehrn
+ If saveAll Then SAVE_ANHAENGE(RK_ID) ' positionen speicehrn
doVorzeichenPOS()
End If
doVorzeichen()
@@ -450,7 +455,7 @@ Public Class cRechnungsausgang
If FIRMA.Firma_ID = 26 Then
If RechnungsLandKz <> "GB" And RechnungsLandKz <> "UK" Then
- errMsg = "ERROR: Es darf nur nach GB abgerechnet werden!" : Return False
+ errMsg = "WARN: Abrechnung außerhalb GB." ' Return False
End If
If Währungscode <> "GBP" Then
errMsg = "ERROR: Es darf nur mit Währung 'GBP' abgerechnet werden!" : Return False
@@ -479,6 +484,16 @@ Public Class cRechnungsausgang
End If
Return True
End Function
+ Public Function SAVE_ANHAENGE(RK_ID) As Boolean
+ If DELETE_ANHAENGE() Then ' zuerst Einträge löschen...
+ 'ORDER_ANHAENGE() ' ... dann ordnen ...
+ For Each p In ANHAENGE
+ If Not p.INSERT(RK_ID) Then Return False ' ... dann insert
+ Next
+ Else : Return False
+ End If
+ Return True
+ End Function
Public Sub LOAD()
@@ -572,6 +587,11 @@ Public Class cRechnungsausgang
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
+ Public Function DELETE_ANHAENGE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
+ Dim sqlstr = " DELETE FROM [RechnungsausgangAnhaenge] WHERE RK_ID=" & Me.RK_ID
+ Return SQL.doSQL(sqlstr, "FMZOLL")
+ End Function
+
Public Sub LOAD_POSITIONEN()
Try
POSITIONEN.Clear()
@@ -601,6 +621,63 @@ Public Class cRechnungsausgang
End Try
End Sub
+ Public Sub LOAD_ANHAENGE()
+ Try
+ ANHAENGE.Clear()
+ Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+ Using cmd As New SqlCommand("Select * FROM RechnungsausgangAnhaenge WHERE RK_ID=@RK_ID ", conn)
+ cmd.Parameters.AddWithValue("@RK_ID", Me.RK_ID)
+
+ Dim dr = cmd.ExecuteReader()
+ While dr.Read
+ Dim l As New cRechnungsausgangAnhaenge
+ For Each i In l.getParameterList()
+ Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
+ If dr.Item(i.Text) Is DBNull.Value Then
+ propInfo.SetValue(l, Nothing)
+ Else
+ propInfo.SetValue(l, dr.Item(i.Text))
+ End If
+ Next
+ ANHAENGE.Add(l)
+ End While
+ 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
+ End Sub
+
+ Shared Function LOAD_ANHAENGE_LIST(RK_ID) As List(Of cRechnungsausgangAnhaenge)
+ Dim ANHAENGE As New List(Of cRechnungsausgangAnhaenge)
+ Try
+ Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+ Using cmd As New SqlCommand("Select * FROM RechnungsausgangAnhaenge WHERE RK_ID=@RK_ID ", conn)
+ cmd.Parameters.AddWithValue("@RK_ID", RK_ID)
+
+ Dim dr = cmd.ExecuteReader()
+ While dr.Read
+ Dim l As New cRechnungsausgangAnhaenge
+ For Each i In l.getParameterList()
+ Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
+ If dr.Item(i.Text) Is DBNull.Value Then
+ propInfo.SetValue(l, Nothing)
+ Else
+ propInfo.SetValue(l, dr.Item(i.Text))
+ End If
+ Next
+ ANHAENGE.Add(l)
+ End While
+ dr.Close()
+ End Using
+ End Using
+ Catch ex As Exception
+ MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+ End Try
+ Return ANHAENGE
+ End Function
Public Sub ORDER_POSITIONEN()
Try
' Dim POSITIONEN_Tmp As New List(Of cRechnungsausgangPositionen)
@@ -669,7 +746,7 @@ Public Class cRechnungsausgangPositionen
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetrag", SteuerpflichtigerBetrag))
- list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetrag", SteuerfreierBetrag))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetrag", SteuerfreierBetrag))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AufschubkontoNr", AufschubkontoNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aufschubfälligkeit", Aufschubfälligkeit))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Prüfsumme berechnen", Prüfsumme_berechnen, "Prüfsumme_berechnen")) '!!!!
@@ -682,7 +759,7 @@ Public Class cRechnungsausgangPositionen
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebProzent", BGebProzent))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebBgl", BGebBgl))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebMinBetrag", BGebMinBetrag))
- list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RePosZeitstempel", RePosZeitstempel))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RePosZeitstempel", RePosZeitstempel))
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("upsize_ts", XXXXXXXXXXXXX))
Return list
@@ -725,4 +802,63 @@ Public Class cRechnungsausgangPositionen
+End Class
+
+
+Public Class cRechnungsausgangAnhaenge
+
+ Property RK_ID As Integer
+ Property dsId As Integer
+ Property anhId As Integer
+ Property Bezeichnung As String = ""
+
+
+ Dim SQL As New SQL
+
+ Sub New()
+ End Sub
+
+
+
+ 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("RK_ID", RK_ID))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dsId", dsId))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anhId", anhId))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bezeichnung", Bezeichnung))
+
+ Return list
+ End Function
+
+ Public Function INSERT(RK_ID) As Boolean
+ Me.RK_ID = RK_ID
+ Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+ Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
+ End Function
+
+
+
+ Public Function getInsertCmd() As String
+ Try
+ 'Me.Eingegeben_am = Now
+ Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+ Dim str As String = ""
+ Dim values As String = ""
+ For Each i In list
+ If Not i.isPrimaryParam Then
+ str &= "[" & i.Text & "],"
+ values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+ End If
+ Next
+ str = str.Substring(0, str.Length - 1) 'wg. ','
+ values = values.Substring(0, values.Length - 1) 'wg. ','
+ Return (" INSERT INTO RechnungsausgangAnhaenge (" & str & ") VALUES(" & values & ") ")
+ Catch ex As Exception
+ MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+ End Try
+ Return ""
+ End Function
+
+
+
End Class
\ No newline at end of file
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
index 430d349e..2594954f 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
@@ -50,6 +50,9 @@ Public Class cRechnungsnummern
Case 23 ' UNISPED Zollservice
VonRechnungsNr = Now.ToString("yy") & "5000000"
BisRechnungsNr = Now.ToString("yy") & "5999999"
+ Case 26 ' VERAG-UNISPED
+ VonRechnungsNr = Now.ToString("yy") & "0000001"
+ BisRechnungsNr = Now.ToString("yy") & "9999999"
End Select
LfdRechnungsNr = VonRechnungsNr
'-------------------------------------
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
index abd5e205..43c8287b 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
@@ -102,6 +102,10 @@ Public Class cSendungen
Property tblSnd_Frachtkosten As Object = Nothing
+ Property tblSnd_AbfertigungTR As Object = Nothing
+ Property tblSnd_AbfertigungTR_MA As Object = Nothing
+
+
Public saveSachbearbeiter As Boolean = False
Property ABRECHNUNG As New List(Of cSendungAbrechnung)
@@ -371,6 +375,8 @@ Public Class cSendungen
Me.tblSnd_Vorpapier3 = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier3"), Nothing)
Me.tblSnd_Vorpapier3_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier3_Pos"), Nothing)
Me.tblSnd_Frachtkosten = SQL.checkNullReturnValue(dr.Item("tblSnd_Frachtkosten"), Nothing)
+ Me.tblSnd_AbfertigungTR = SQL.checkNullReturnValue(dr.Item("tblSnd_AbfertigungTR"), Nothing)
+ Me.tblSnd_AbfertigungTR_MA = SQL.checkNullReturnValue(dr.Item("tblSnd_AbfertigungTR_MA"), Nothing)
End If
@@ -586,8 +592,8 @@ Public Class cSendungen
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier3", tblSnd_Vorpapier3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier3_Pos", tblSnd_Vorpapier3_Pos))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Frachtkosten", tblSnd_Frachtkosten))
-
-
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbfertigungTR", tblSnd_AbfertigungTR))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbfertigungTR_MA", tblSnd_AbfertigungTR_MA))
Return list
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
index 778e4e67..3c1d1f54 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")
+ Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdInvoice(Firma), "FMZOLL", 2400)
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/Classes/cRKSV_DE.vb b/VERAG_PROG_ALLGEMEIN/Classes/old_cRKSV_DE.vb
similarity index 100%
rename from VERAG_PROG_ALLGEMEIN/Classes/cRKSV_DE.vb
rename to VERAG_PROG_ALLGEMEIN/Classes/old_cRKSV_DE.vb
diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb b/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb
index bae92de6..a7e6cc86 100644
--- a/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb
@@ -108,129 +108,129 @@ Namespace My
Return CType(Me("FMZOLLConnectionString"),String)
End Get
End Property
-
- _
+
+
Public ReadOnly Property AVISOConnectionString() As String
Get
- Return CType(Me("AVISOConnectionString"),String)
+ Return CType(Me("AVISOConnectionString"), String)
End Get
End Property
-
- _
+
+
Public ReadOnly Property SDLConnectionString() As String
Get
- Return CType(Me("SDLConnectionString"),String)
+ 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
Get
- Return CType(Me("SCANCANON_PRODConnectionString"),String)
+ Return CType(Me("SCANCANON_PRODConnectionString"), String)
End Get
Set
- Me("SCANCANON_PRODConnectionString") = value
+ Me("SCANCANON_PRODConnectionString") = Value
End Set
End Property
-
- _
+
+
Public ReadOnly Property VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService() As String
Get
- Return CType(Me("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"),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)
+ Return CType(Me("DISPOConnectionString"), String)
End Get
Set
- Me("DISPOConnectionString") = value
+ 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)
+ 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)
+ 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)
+ Return CType(Me("asdadasdasdasdasdasd"), String)
End Get
Set
- Me("asdadasdasdasdasdasd") = value
+ 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)
diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
index 25ddf003..a3904597 100644
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
@@ -2,11 +2,12 @@
Public Class cSyska_Interface
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
+ Shared fmt = "#######0.00"
'STAMMDATEN
Shared Function getStammdaten(FiBuSchnittstelleNr) As DataTable
Dim sqlStr = " Select KundenNrZentrale As [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz ,PLZ,LTRIM([Ort]) as Ort,isnull(BLZ,'') as [BLZ],isnull(KTO,'') as [KTO], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2, Zahlungsziel2, Zahlungsziel3,[E-Mail],[Telefon] ,Telefax "
- sqlStr &= " ,Ordnungsbegriff ,Kunden.Währungscode,Ansprechpartner,Lastschrift,Kunden.[Eingegeben am] as EingegebenAm"
+ sqlStr &= " ,Ordnungsbegriff ,Kunden.Währungscode,Anrede,Ansprechpartner,Lastschrift,Kunden.[Eingegeben am] as EingegebenAm"
sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz "
@@ -16,6 +17,38 @@ Public Class cSyska_Interface
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function
+ ' Shared Function getStammdatenTEST(FiBuSchnittstelleNr) As DataTable
+ ' Dim sqlStr = " Select KundenNrZentrale As [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz ,PLZ,LTRIM([Ort]) as Ort,isnull(BLZ,'') as [BLZ],isnull(KTO,'') as [KTO], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2, Zahlungsziel2, Zahlungsziel3,[E-Mail],[Telefon] ,Telefax "
+ ' sqlStr &= " ,Ordnungsbegriff ,Kunden.Währungscode,Anrede,Ansprechpartner,Lastschrift,Kunden.[Eingegeben am] as EingegebenAm"
+ ' sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
+ ' sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
+ ' sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz "
+ ' sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel "
+ ' 'sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FiBuSchnittstelleNr='" & FiBuSchnittstelleNr & "' "
+ ' sqlStr &= " WHERE KundenNrZentrale IN (750750,
+ '765729,
+ '765730,
+ '765731,
+ '765732,
+ '765733,
+ '765734,
+ '765735,
+ '765736,
+ '765737,
+ '765738,
+ '765739,
+ '765740,
+ '765741,
+ '765742,
+ '765743,
+ '765744,
+ '765745,
+ '765746
+ ') "
+ ' sqlStr &= " Order by [Konto-Nr] "
+ ' Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
+ ' End Function
+
Shared Function updateFibu(FiBuSchnittstelleNr) As DataTable
Dim sqlStr = " UPDATE Kunden "
sqlStr &= " SET FiBuSchnittstelle = '0' "
@@ -47,7 +80,9 @@ Public Class cSyska_Interface
Dim cleanStringName As String = Regex.Replace(row("Name"), "[^A-Za-z0-9\-/]", "").Replace(" ", "").ToUpper
Dim Lastschrift = CBool(row("Lastschrift"))
-
+ 'If FormatStringSYS(row("Name2"), 50) <> "" Then
+ ' MsgBox(FormatStringSYS(row("Name2"), 50) & vbTab)
+ 'End If
getPersonenKto = ""
getPersonenKto &= row("Konto-Nr") & vbTab
getPersonenKto &= FormatStringSYS(cleanStringName, 2) & row("Konto-Nr") & vbTab
@@ -58,12 +93,12 @@ Public Class cSyska_Interface
getPersonenKto &= FormatStringSYS(row("Ort"), 50) & vbTab
getPersonenKto &= cProgramFunctions.getISO2Land(FormatStringSYS(LandKz, 5)) & vbTab
getPersonenKto &= CDate(row("EingegebenAm")).ToShortDateString & vbTab 'Eröffnungsdatum
- getPersonenKto &= vbTab
+ getPersonenKto &= Gegenkontonummer & vbTab
getPersonenKto &= vbTab 'Bankname
getPersonenKto &= If(Lastschrift, row("BLZ"), "") & vbTab
getPersonenKto &= If(Lastschrift, row("KTO"), "") & vbTab
getPersonenKto &= "00" & vbTab 'Skontotage
- getPersonenKto &= row("ZZiel").ToString("00") & vbTab
+ getPersonenKto &= If(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
@@ -72,13 +107,13 @@ Public Class cSyska_Interface
getPersonenKto &= vbTab 'Forderungsonto
getPersonenKto &= vbTab
getPersonenKto &= Gegenkontonummer2 & vbTab 'Platzhalter??
- getPersonenKto &= FormatStringSYS(row("Ansprechpartner"), 100) & vbTab
+ getPersonenKto &= FormatStringSYS(row("Anrede") & " " & row("Ansprechpartner"), 100) & vbTab
getPersonenKto &= vbTab
getPersonenKto &= FormatStringSYS(row("Telefon")) & vbTab
getPersonenKto &= FormatStringSYS(row("Telefax")) & vbTab
getPersonenKto &= FormatStringSYS(row("E-Mail")) & vbTab
getPersonenKto &= vbTab
- getPersonenKto &= vbTab
+ ' getPersonenKto &= vbTab
End Function
@@ -144,7 +179,7 @@ Public Class cSyska_Interface
End If
'NOCH NICHT!!!
- ' updateFibu(FiBuSchnittstelleNr) ' UPDATE FiBuSchnittstelle --> 0
+ updateFibu(FiBuSchnittstelleNr) ' UPDATE FiBuSchnittstelle --> 0
End If
End If
@@ -152,14 +187,81 @@ Public Class cSyska_Interface
Catch ex As Exception
- MsgBox(ex.Message & ex.StackTrace)
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
End Try
Return False
End Function
+ 'Public Shared Function genDatensatz_StammdatenTEST(FiBuSchnittstelleNr As Integer, Optional OpenFile As Boolean = False) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean
+ ' Try
- Public Shared Function genDatensatz_ALL(Optional OpenFile As Boolean = False, Optional boolKunden As Boolean = True, Optional boolBuchungen As Boolean = True) As Boolean
+ ' Dim bool_DatenVorhanden As Boolean = False
+ ' Dim Geschaeftsjahr = Now.Year 'If(Now.Month = 1, Now.Year - 1, Now.Year) --> Bei IMEX ist das GJ=Wirtschaftsjahr
+ ' Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(FiBuSchnittstelleNr)
+
+ ' 'DATEIPFAD für Stammdaten
+ ' '-------------------------------------------------------------------------------------------
+ ' Dim pathArchivKD = "\\datenarchiv\Datenarchiv\DATENARCHIV_TESTSYSTEM\SYSKA\" & FIRMA.Firma_ID & "\" & Now.Year & "\" & Now.Date.ToShortDateString & "\Archiv\"
+ ' Dim pathKD = "\\datenarchiv\Datenarchiv\DATENARCHIV_TESTSYSTEM\SYSKA\" & FIRMA.Firma_ID & "\" & Now.Year & "\" & Now.Date.ToShortDateString & "\"
+
+ ' If Not IO.Directory.Exists(pathKD) Then IO.Directory.CreateDirectory(pathKD)
+ ' If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD)
+ ' '-------------------------------------------------------------------------------------------
+
+
+ ' If True Then 'boolKunden Then
+ ' '----------------- STAMMDATEN -----------------
+ ' Dim dt_Stamm As DataTable = getStammdatenTEST(FiBuSchnittstelleNr)
+ ' If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then
+
+ ' Dim fileKD As System.IO.StreamWriter
+ ' Dim DateinameKD = "AVISO_DEBI_" & Now.ToString("ddMMyyyy_HHmm") & ".txt"
+ ' fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
+
+
+ ' 'fileKD.WriteLine(genStammdatenBeginn())
+
+
+
+ ' initKDNr(dt_Stamm)
+ ' For Each r In dt_Stamm.Rows
+ ' fileKD.WriteLine(getPersonenKto(r))
+ ' Next
+ ' bool_DatenVorhanden = True
+
+
+ ' fileKD.Close()
+
+ ' 'In Archiv sichern
+ ' If pathArchivKD <> "" Then
+ ' If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD)
+ ' If pathKD <> pathArchivKD Then IO.File.Copy(pathKD & DateinameKD, pathArchivKD & DateinameKD)
+ ' End If
+
+ ' If bool_DatenVorhanden Then
+ ' If OpenFile Then Process.Start(pathKD & DateinameKD)
+ ' Else
+ ' IO.File.Delete(pathKD & DateinameKD)
+ ' End If
+
+ ' 'NOCH NICHT!!!
+ ' ' updateFibu(FiBuSchnittstelleNr) ' UPDATE FiBuSchnittstelle --> 0
+
+ ' End If
+ ' End If
+
+
+
+ ' Catch ex As Exception
+ ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+ ' End Try
+ ' Return False
+ 'End Function
+
+
+
+ Public Shared Function genDatensatz_ALL(Optional OpenFile As Boolean = False, Optional boolKunden As Boolean = True, Optional boolBuchungen As Boolean = True, Optional WdhDateiname As String = "") As Boolean
genDatensatz_ALL = True
If boolKunden Then
' If Not genDatensatz_Stammdaten(OpenFile) Then genDatensatz_ALL = False
@@ -170,17 +272,17 @@ Public Class cSyska_Interface
If Not genDatensatz_Stammdaten(19, OpenFile) Then genDatensatz_ALL = False
End If
If boolBuchungen Then
- If Not genDatensatz_Buchungen(1, OpenFile) Then genDatensatz_ALL = False
- If Not genDatensatz_Buchungen(7, OpenFile) Then genDatensatz_ALL = False
- If Not genDatensatz_Buchungen(11, OpenFile) Then genDatensatz_ALL = False
- If Not genDatensatz_Buchungen(17, OpenFile) Then genDatensatz_ALL = False
- If Not genDatensatz_Buchungen(19, OpenFile) Then genDatensatz_ALL = False
+ If Not genDatensatz_Buchungen(1, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
+ If Not genDatensatz_Buchungen(7, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
+ If Not genDatensatz_Buchungen(11, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
+ If Not genDatensatz_Buchungen(17, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
+ If Not genDatensatz_Buchungen(19, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
' If Not genDatensatzCSV_Buchungen(XX, OpenFile) Then genDatensatzCSV_ALL = False
' If Not genDatensatzCSV_Buchungen(XX, OpenFile) Then genDatensatzCSV_ALL = False
End If
End Function
- Public Shared Function genDatensatz_Buchungen(ByRef Firma_ID As Integer, Optional OpenFile As Boolean = False) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean
+ Public Shared Function genDatensatz_Buchungen(ByRef Firma_ID As Integer, Optional OpenFile As Boolean = False, Optional WdhDateiname As String = "") As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean
Try
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
@@ -210,9 +312,11 @@ Public Class cSyska_Interface
'----------------- Buchungssätze -----------------
If True Then 'boolBuchungen Then
- ' TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )
- Dim dt_Buchungen As DataTable = getBuchungen(FIRMA.Firma_ID)
+ If WdhDateiname = "" Then TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )
+ Dim dt_Buchungen As DataTable = getBuchungen(FIRMA.Firma_ID, WdhDateiname)
+ ' MsgBox(WdhDateiname & " - " & dt_Buchungen.Rows.Count)
If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then
+
Try
Dim file As System.IO.StreamWriter
Dim Dateiname = "AVISO_BUBE_" & Now.ToString("ddMMyyyy_HHmm") & ".txt"
@@ -234,7 +338,7 @@ Public Class cSyska_Interface
If r("BelegartenNr") = 70 Then 'RECHNUNG ---> Immer am Anfang
file.WriteLine(genBuchungsZeileSum(r, SummeBuchungen, Geschaeftsjahr, FIRMA))
End If
- Dim dt_BuchungenZeilen As DataTable = getBuchungenZeilen(FIRMA.Firma_ID, r("Rechnungsnummer"), r("Rechnungsdatum"))
+ Dim dt_BuchungenZeilen As DataTable = getBuchungenZeilen(FIRMA.Firma_ID, r("Rechnungsnummer"), r("Rechnungsdatum"), WdhDateiname)
If dt_BuchungenZeilen IsNot Nothing AndAlso dt_BuchungenZeilen.Rows.Count > 0 Then
For Each rz In dt_BuchungenZeilen.Rows
file.WriteLine(genBuchungsZeile(rz, SummeBuchungen, Geschaeftsjahr, FIRMA, curDifferenzbetrag)) ' BuchungsZeilen...
@@ -250,8 +354,12 @@ Public Class cSyska_Interface
' file.WriteLine(genBuchungenEnd(SummeBuchungen))
bool_DatenVorhanden = True
- 'Update Filename TrdIn 'NOCH NICHT!!!!
- ' SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL")
+ 'Update Filename TrdIn 'NOCH NICHT!!!! -->JETZT DOCH!!!
+ If WdhDateiname = "" Then
+ SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL")
+ Else
+ SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname ='" & WdhDateiname & "' ", "FMZOLL")
+ End If
file.Close()
@@ -268,7 +376,7 @@ Public Class cSyska_Interface
End If
Catch ex As Exception
- MsgBox(ex.Message & ex.StackTrace)
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
End Try
End If
@@ -278,15 +386,109 @@ Public Class cSyska_Interface
Catch ex As Exception
- MsgBox(ex.Message & ex.StackTrace)
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
End Try
Return False
End Function
+ 'Public Shared Function genDatensatz_BuchungenTEST(ByRef Firma_ID As Integer, Optional OpenFile As Boolean = False) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean
+ ' Try
+ ' Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
+
+ ' Dim bool_DatenVorhanden As Boolean = False
+ ' Dim Geschaeftsjahr = Now.Year 'If(Now.Month = 1, Now.Year - 1, Now.Year) --> Bei IMEX ist das GJ=Wirtschaftsjahr
+
+ ' 'DATEIPFAD für Buchungsdaten
+ ' '-------------------------------------------------------------------------------------------
+ ' Dim pathArchiv = "\\datenarchiv\Datenarchiv\DATENARCHIV_TESTSYSTEM\SYSKA\" & FIRMA.Firma_ID & "\" & Now.Year & "\" & Now.Date.ToShortDateString & "\Archiv\"
+ ' Dim path = "\\datenarchiv\Datenarchiv\DATENARCHIV_TESTSYSTEM\SYSKA\" & FIRMA.Firma_ID & "\" & Now.Year & "\" & Now.Date.ToShortDateString & "\"
+
+
+ ' If Not IO.Directory.Exists(path) Then IO.Directory.CreateDirectory(path)
+ ' If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
+ ' '-------------------------------------------------------------------------------------------
+
+
+
+
+ ' '----------------- Buchungssätze -----------------
+ ' If True Then 'boolBuchungen Then
+ ' ' TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )
+ ' Dim dt_Buchungen As DataTable = getBuchungenTEST(FIRMA.Firma_ID)
+ ' If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then
+ ' Try
+ ' Dim file As System.IO.StreamWriter
+ ' Dim Dateiname = "AVISO_BUBE_" & Now.ToString("ddMMyyyy_HHmm") & ".txt"
+ ' file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
+
+ ' ' initKDNr(dt_Buchungen)
+ ' Dim SummeBuchungen As Double = 0
+ ' 'file.WriteLine(genBuchungenBeginn()) 'not needed
+ ' For Each r In dt_Buchungen.Rows
+
+
+ ' Dim curDifferenzbetrag As Double = 0
+ ' If r("WährungFremd") Is DBNull.Value Then
+ ' curDifferenzbetrag = Math.Round(If(r("RechnungsbetragLokal") < 0, 0 - r("RechnungsbetragLokal"), r("RechnungsbetragLokal")), 2)
+ ' Else
+ ' curDifferenzbetrag = Math.Round(If(r("RechnungsbetragFremd") < 0, 0 - r("RechnungsbetragFremd"), r("RechnungsbetragFremd")), 2)
+ ' End If
+
+ ' If r("BelegartenNr") = 70 Then 'RECHNUNG ---> Immer am Anfang
+ ' file.WriteLine(genBuchungsZeileSum(r, SummeBuchungen, Geschaeftsjahr, FIRMA))
+ ' End If
+ ' Dim dt_BuchungenZeilen As DataTable = getBuchungenZeilenTEST(FIRMA.Firma_ID, r("Rechnungsnummer"), r("Rechnungsdatum"))
+ ' If dt_BuchungenZeilen IsNot Nothing AndAlso dt_BuchungenZeilen.Rows.Count > 0 Then
+ ' For Each rz In dt_BuchungenZeilen.Rows
+ ' file.WriteLine(genBuchungsZeile(rz, SummeBuchungen, Geschaeftsjahr, FIRMA, curDifferenzbetrag)) ' BuchungsZeilen...
+ ' Next
+ ' End If
+ ' If curDifferenzbetrag <> 0 Then 'Differenz --> Ausgelich auf Diff.Konto
+ ' file.WriteLine(genBuchungsZeileDiffBetrag(r, SummeBuchungen, Geschaeftsjahr, FIRMA, curDifferenzbetrag))
+ ' End If
+ ' If r("BelegartenNr") = 71 Then 'GUTSCHRIFT ---> Immer am Schluss
+ ' file.WriteLine(genBuchungsZeileSum(r, SummeBuchungen, Geschaeftsjahr, FIRMA))
+ ' End If
+ ' Next
+ ' ' file.WriteLine(genBuchungenEnd(SummeBuchungen))
+ ' bool_DatenVorhanden = True
+
+ ' 'Update Filename TrdIn 'NOCH NICHT!!!!
+ ' ' SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL")
+
+ ' file.Close()
+
+ ' 'In Archiv sichern
+ ' If pathArchiv <> "" Then
+ ' If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
+ ' If path <> pathArchiv Then IO.File.Copy(path & Dateiname, pathArchiv & Dateiname)
+ ' End If
+
+ ' If bool_DatenVorhanden Then
+ ' If OpenFile Then Process.Start(path & Dateiname)
+ ' Else
+ ' IO.File.Delete(path & Dateiname)
+ ' End If
+
+ ' Catch ex As Exception
+ ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+ ' End Try
+
+ ' End If
+ ' End If
+ ' '----------------------------------
+
+
+
+ ' Catch ex As Exception
+ ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+ ' End Try
+ ' Return False
+ 'End Function
Shared Function FormatStringSYS(s As Object, Optional length As Integer = -1, Optional defaultValue As String = "") As String
If s Is Nothing Then Return defaultValue
If s Is DBNull.Value Then Return defaultValue
- FormatStringSYS = s.ToString.Replace(";", ",")
+ FormatStringSYS = s.ToString.Replace(";", ",").Trim
'FormatStringSYS = s.ToString.Replace(",", "")
'FormatStringSYS = s.ToString.Replace("""", "\22")
If length > 0 Then
@@ -300,40 +502,73 @@ Public Class cSyska_Interface
If IsNumeric(s) Then Return CDbl(s).ToString("N" & Nachkommastellen)
Return s.ToString
End Function
- Shared Function getBuchungen(Firma_ID As Integer) As DataTable
+ Shared Function getBuchungen(Firma_ID As Integer, Optional WdhDateiname As String = "") As DataTable
Dim sqlStr = " SELECT TOP (1000) IVO.Rechnungsdatum,IVO.Rechnungsnummer,min(Speditionsbuch) as Speditionsbuch ,min(FilialenNr) as FilialenNr,min(AbfertigungsNr) as AbfertigungsNr,min(UnterNr) as UnterNr,min(Abfertigungsdatum) as Abfertigungsdatum,min(BelegartenNr) as BelegartenNr
,min(KundenNrZentrale) as [KundenNrZentrale],min(RechnungsKundenNr) as RechnungsKundenNr,min(RechnungsLandKz) as RechnungsLandKz,min(RechnungsUstIdKz) as RechnungsUstIdKz,min(RechnungsUstIdNr) as RechnungsUstIdNr
,min(Lastschrift+0) as Lastschrift,min(Steuerschlüssel) as Steuerschlüssel,min([Steuersatz %]) as Steuersatz,min(WährungLokal) as WährungLokal,min(SteuerbetragLokal) as SteuerbetragLokal,min(RechnungsbetragLokal) as RechnungsbetragLokal
,min(WährungFremd) as WährungFremd,min(SteuerbetragFremd) as SteuerbetragFremd,min(RechnungsbetragFremd) as RechnungsbetragFremd,min(TrdinDateiname) as TrdinDateiname,min(Abgleich_op_debitor+0) as Abgleich_op_debitor
- ,min(Nettozahlungsziel) as Nettozahlungsziel,min(Firma_ID) as Firma_ID,min(UStVAn_ID) as UStVAn_ID /*,Leistungsnummer,Leistungsbezeichnung*/,Steuerpflichtig,sum(PROD.SteuerpflichtigerBetragLokal) as SteuerpflichtigerBetragLokal
+ ,min(Nettozahlungsziel) as Nettozahlungsziel,min(Firma_ID) as Firma_ID,min(UStVAn_ID) as UStVAn_ID /*,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig*/,sum(PROD.SteuerpflichtigerBetragLokal) as SteuerpflichtigerBetragLokal
,sum(PROD.SteuerfreierBetragLokal) as SteuerfreierBetragLokal,sum(PROD.SteuerpflichtigerBetragFremd) as SteuerpflichtigerBetragFremd,sum(PROD.SteuerfreierBetragFremd) as SteuerfreierBetragFremd,min(Belegdaten) as Belegdaten
,min(Sachkonto) as Sachkonto,min(Buchungstext) as Buchungstext,Sum(PROD.[SteuerpflichtigerBetragLokal] + PROD.[SteuerfreierBetragLokal]) As BetragLokal, Sum(PROD.[SteuerpflichtigerBetragFremd]+PROD.[SteuerfreierBetragFremd]) As BetragFremd
FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer
- WHERE Firma_ID ='" & Firma_ID & "' AND TrdinDateiname Is Null
- group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum/*,Leistungsnummer,Leistungsbezeichnung*/,Steuerpflichtig
+ WHERE Firma_ID ='" & Firma_ID & "' AND " & If(WdhDateiname = "", " TrdinDateiname Is Null ", " TrdinDateiname ='" & WdhDateiname & "' ") & "
+ 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", 2400)
End Function
- Shared Function getBuchungenZeilen(Firma_ID As Integer, Rechnungsnummer As Integer, Rechnungsdatum As Date) As DataTable
+ 'Shared Function getBuchungenTEST(Firma_ID As Integer) As DataTable
- Dim sqlStr = " SELECT TOP (1000) IVO.Rechnungsdatum,IVO.Rechnungsnummer, Speditionsbuch ,FilialenNr,AbfertigungsNr,UnterNr, Abfertigungsdatum, BelegartenNr
- , [KundenNrZentrale], RechnungsKundenNr,RechnungsLandKz, RechnungsUstIdKz, RechnungsUstIdNr
- , Lastschrift, Steuerschlüssel,[Steuersatz %] as Steuersatz,WährungLokal, SteuerbetragLokal, RechnungsbetragLokal
- ,WährungFremd,SteuerbetragFremd,RechnungsbetragFremd,TrdinDateiname,Abgleich_op_debitor
- , Nettozahlungsziel, Firma_ID, UStVAn_ID,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig,PROD.SteuerpflichtigerBetragLokal as SteuerpflichtigerBetragLokal
- ,PROD.SteuerfreierBetragLokal as SteuerfreierBetragLokal,PROD.SteuerpflichtigerBetragFremd as SteuerpflichtigerBetragFremd,PROD.SteuerfreierBetragFremd as SteuerfreierBetragFremd,Belegdaten
- ,Sachkonto,Buchungstext, (PROD.[SteuerpflichtigerBetragLokal] + PROD.[SteuerfreierBetragLokal]) As BetragLokal, (PROD.[SteuerpflichtigerBetragFremd]+PROD.[SteuerfreierBetragFremd]) As BetragFremd
-
+ ' Dim sqlStr = " SELECT TOP (1000) IVO.Rechnungsdatum,IVO.Rechnungsnummer,min(Speditionsbuch) as Speditionsbuch ,min(FilialenNr) as FilialenNr,min(AbfertigungsNr) as AbfertigungsNr,min(UnterNr) as UnterNr,min(Abfertigungsdatum) as Abfertigungsdatum,min(BelegartenNr) as BelegartenNr
+ ' ,min(KundenNrZentrale) as [KundenNrZentrale],min(RechnungsKundenNr) as RechnungsKundenNr,min(RechnungsLandKz) as RechnungsLandKz,min(RechnungsUstIdKz) as RechnungsUstIdKz,min(RechnungsUstIdNr) as RechnungsUstIdNr
+ ' ,min(Lastschrift+0) as Lastschrift,min(Steuerschlüssel) as Steuerschlüssel,min([Steuersatz %]) as Steuersatz,min(WährungLokal) as WährungLokal,min(SteuerbetragLokal) as SteuerbetragLokal,min(RechnungsbetragLokal) as RechnungsbetragLokal
+ ' ,min(WährungFremd) as WährungFremd,min(SteuerbetragFremd) as SteuerbetragFremd,min(RechnungsbetragFremd) as RechnungsbetragFremd,min(TrdinDateiname) as TrdinDateiname,min(Abgleich_op_debitor+0) as Abgleich_op_debitor
+ ' ,min(Nettozahlungsziel) as Nettozahlungsziel,min(Firma_ID) as Firma_ID,min(UStVAn_ID) as UStVAn_ID /*,Leistungsnummer,Leistungsbezeichnung*/,Steuerpflichtig,sum(PROD.SteuerpflichtigerBetragLokal) as SteuerpflichtigerBetragLokal
+ ' ,sum(PROD.SteuerfreierBetragLokal) as SteuerfreierBetragLokal,sum(PROD.SteuerpflichtigerBetragFremd) as SteuerpflichtigerBetragFremd,sum(PROD.SteuerfreierBetragFremd) as SteuerfreierBetragFremd,min(Belegdaten) as Belegdaten
+ ' ,min(Sachkonto) as Sachkonto,min(Buchungstext) as Buchungstext,Sum(PROD.[SteuerpflichtigerBetragLokal] + PROD.[SteuerfreierBetragLokal]) As BetragLokal, Sum(PROD.[SteuerpflichtigerBetragFremd]+PROD.[SteuerfreierBetragFremd]) As BetragFremd
+
+ ' FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer
+ ' WHERE Firma_ID ='" & Firma_ID & "' AND TrdinDateiname ='211005010148'
+ ' group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum/*,Leistungsnummer,Leistungsbezeichnung*/,Steuerpflichtig
+ ' ORDER BY Rechnungsdatum, Rechnungsnummer "
+ ' ' --and IVO.Rechnungsnummer=19400002
+ ' Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
+
+ 'End Function
+
+ 'Shared Function getBuchungenZeilen(Firma_ID As Integer, Rechnungsnummer As Integer, Rechnungsdatum As Date) As DataTable
+
+ ' Dim sqlStr = " SELECT TOP (1000) IVO.Rechnungsdatum,IVO.Rechnungsnummer, Speditionsbuch ,FilialenNr,AbfertigungsNr,UnterNr, Abfertigungsdatum, BelegartenNr
+ ' , [KundenNrZentrale], RechnungsKundenNr,RechnungsLandKz, RechnungsUstIdKz, RechnungsUstIdNr
+ ' , Lastschrift, Steuerschlüssel,[Steuersatz %] as Steuersatz,WährungLokal, SteuerbetragLokal, RechnungsbetragLokal
+ ' ,WährungFremd,SteuerbetragFremd,RechnungsbetragFremd,TrdinDateiname,Abgleich_op_debitor
+ ' , Nettozahlungsziel, Firma_ID, UStVAn_ID,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig,PROD.SteuerpflichtigerBetragLokal as SteuerpflichtigerBetragLokal
+ ' ,PROD.SteuerfreierBetragLokal as SteuerfreierBetragLokal,PROD.SteuerpflichtigerBetragFremd as SteuerpflichtigerBetragFremd,PROD.SteuerfreierBetragFremd as SteuerfreierBetragFremd,Belegdaten
+ ' ,Sachkonto,Buchungstext, (PROD.[SteuerpflichtigerBetragLokal] + PROD.[SteuerfreierBetragLokal]) As BetragLokal, (PROD.[SteuerpflichtigerBetragFremd]+PROD.[SteuerfreierBetragFremd]) As BetragFremd
+
+ ' FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer
+ ' WHERE Firma_ID ='" & Firma_ID & "' AND IVO.Rechnungsnummer ='" & Rechnungsnummer & "' AND cast(IVO.Rechnungsdatum as date) ='" & Rechnungsdatum.ToShortDateString & "' AND TrdinDateiname Is Null
+ ' ORDER BY Rechnungsdatum, Rechnungsnummer "
+ ' ' --and IVO.Rechnungsnummer=19400002
+ ' Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
+
+ 'End Function
+
+ Shared Function getBuchungenZeilen(Firma_ID As Integer, Rechnungsnummer As Integer, Rechnungsdatum As Date, Optional WdhDateiname As String = "") As DataTable
+
+ Dim sqlStr = " SELECT Sachkonto,IVO.Rechnungsdatum Rechnungsdatum,IVO.Rechnungsnummer Rechnungsnummer,FilialenNr,AbfertigungsNr,UnterNr,steuerpflichtig,[Steuersatz %] Steuersatz,BelegartenNr,
+ WährungFremd, WährungLokal,sum(PROD.[SteuerpflichtigerBetragLokal] + PROD.[SteuerfreierBetragLokal])BetragLokal,
+ sum(PROD.[SteuerpflichtigerBetragFremd]+PROD.[SteuerfreierBetragFremd])BetragFremd ,sum(RechnungsbetragLokal) RechnungsbetragLokal,sum(RechnungsbetragFremd) RechnungsbetragFremd
FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer
- WHERE Firma_ID ='" & Firma_ID & "' AND IVO.Rechnungsnummer ='" & Rechnungsnummer & "' AND cast(IVO.Rechnungsdatum as date) ='" & Rechnungsdatum.ToShortDateString & "' AND TrdinDateiname Is Null
- ORDER BY Rechnungsdatum, Rechnungsnummer "
+ WHERE Firma_ID ='" & Firma_ID & "' AND IVO.Rechnungsnummer ='" & Rechnungsnummer & "' AND cast(IVO.Rechnungsdatum as date) ='" & Rechnungsdatum.ToShortDateString & "' AND " & If(WdhDateiname = "", " TrdinDateiname Is Null ", " TrdinDateiname ='" & WdhDateiname & "' ") & "
+ 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")
+ Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 2400)
End Function
@@ -368,13 +603,13 @@ Public Class cSyska_Interface
genBuchungsZeileSum &= FiBuSollkontonummer & vbTab
genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab
- genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & row("UnterNr").ToString("00") & vbTab
+ genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
- genBuchungsZeileSum &= CDbl(Bruttobetrag).ToString("N2") & vbTab
+ genBuchungsZeileSum &= Format(CDbl(Bruttobetrag), fmt) & vbTab
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuerbetrag
genBuchungsZeileSum &= FiBuWährung & vbTab
- genBuchungsZeileSum &= CDbl(FiBuEigenbruttobetrag).ToString("N2") & vbTab
+ genBuchungsZeileSum &= Format(CDbl(FiBuEigenbruttobetrag), fmt) & vbTab
ElseIf row("BelegartenNr") = 71 Then 'GUTSCHRIFT
@@ -402,13 +637,13 @@ Public Class cSyska_Interface
genBuchungsZeileSum &= FiBuSollkontonummer & vbTab
genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab
- genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & row("UnterNr").ToString("00") & vbTab
+ genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
- genBuchungsZeileSum &= CDbl(FiBuBruttobetrag).ToString("N2") & vbTab
+ genBuchungsZeileSum &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuerbetrag
genBuchungsZeileSum &= FiBuWährung & vbTab
- genBuchungsZeileSum &= CDbl(FiBuEigenbruttobetrag).ToString("N2") & vbTab
+ genBuchungsZeileSum &= Format(CDbl(FiBuEigenbruttobetrag), fmt) & vbTab
End If
@@ -481,13 +716,13 @@ Public Class cSyska_Interface
genBuchungsZeile &= FiBuSollkontonummer & vbTab
genBuchungsZeile &= FiBuHabenkontonummer & vbTab
- genBuchungsZeile &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & row("UnterNr").ToString("00") & vbTab
+ genBuchungsZeile &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
- genBuchungsZeile &= FiBuBruttobetrag & vbTab
- genBuchungsZeile &= FiBuSteuersatz.ToString("N2") & vbTab 'FiBuSteuersatz
+ genBuchungsZeile &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab
+ genBuchungsZeile &= Format(CDbl(FiBuSteuersatz), fmt) & vbTab 'FiBuSteuersatz
genBuchungsZeile &= FormatStringDbl(FiBuSteuerbetrag) & vbTab 'FiBuSteuerbetrag
genBuchungsZeile &= FiBuWährung & vbTab
- genBuchungsZeile &= FiBuEigenbruttobetrag.ToString("N2") & vbTab
+ genBuchungsZeile &= Format(CDbl(FiBuEigenbruttobetrag), fmt) & vbTab
@@ -500,7 +735,7 @@ Public Class cSyska_Interface
Dim FiBuEigenbruttobetrag As Double
Dim FiBuSollkontonummer As Integer
Dim FiBuHabenkontonummer As Integer
- Dim Buchungstext = row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & row("UnterNr").ToString("00") & "/Steuerdiff." & vbTab
+ Dim Buchungstext = row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & "/Steuerdiff." & vbTab
If row("WährungFremd") Is DBNull.Value Then
FiBuEigenbruttobetrag = curDifferenzbetrag 'Bruttobetrag
FiBuWährung = row("WährungLokal")
@@ -510,7 +745,6 @@ Public Class cSyska_Interface
End If
-
Select Case row("BelegartenNr")
Case 70 'Rechnung
FiBuSollkontonummer = "0"
@@ -529,11 +763,11 @@ Public Class cSyska_Interface
genBuchungsZeileDiffBetrag &= FiBuHabenkontonummer & vbTab
genBuchungsZeileDiffBetrag &= Buchungstext
- genBuchungsZeileDiffBetrag &= curDifferenzbetrag.ToString("N2") & vbTab
+ genBuchungsZeileDiffBetrag &= Format(curDifferenzbetrag, fmt) & vbTab
genBuchungsZeileDiffBetrag &= "00,00" & vbTab 'FiBuSteuersatz
genBuchungsZeileDiffBetrag &= "" & vbTab 'FiBuSteuerbetrag
genBuchungsZeileDiffBetrag &= FiBuWährung & vbTab
- genBuchungsZeileDiffBetrag &= FiBuEigenbruttobetrag.ToString("N2") & vbTab
+ genBuchungsZeileDiffBetrag &= Format(FiBuEigenbruttobetrag, fmt) & vbTab
'curDifferenzbetrag += FiBuEigenbruttobetrag
@@ -587,36 +821,6 @@ Public Class cSyska_Interface
- Shared Function getDbl(o As Object) As Double
- Try
- If o Is Nothing Then Return 0
- If o Is DBNull.Value Then Return 0
- Return CDbl(o)
- Catch ex As Exception
- Return 0
- End Try
- End Function
- Shared Function getDbl2(o As Object) As Double
- Try
- If o Is Nothing Then Return 0
- If o Is DBNull.Value Then Return 0
- Return CDbl(o.ToString.Replace(".", ","))
- Catch ex As Exception
- Return 0
- End Try
- End Function
-
-
- Shared Function getDbltr(o As Object) As String
- Try
- If o Is Nothing Then Return 0
- If o Is DBNull.Value Then Return 0
- Return CDbl(o).ToString("N2").Replace(".", "") '
- Catch ex As Exception
- Return 0
- End Try
- End Function
-
Shared Function fill0Stellen(i As Object, l As Integer) As String
If i Is DBNull.Value Then i = ""
If i Is Nothing Then i = ""
@@ -1076,4 +1280,51 @@ Public Class cSyska_Interface
'2050 Resume PROC_Exit
' End Function
+
+
+ Public Shared Function OP_Einlesen(Firma_ID As Integer, Optional KdNr As Integer = -1)
+
+ 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
+ End If
+ End Function
+
+ 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")
+ End Function
End Class
diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Arrays.xsd b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Arrays.xsd
new file mode 100644
index 00000000..940ce065
--- /dev/null
+++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Arrays.xsd
@@ -0,0 +1,21 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/DSFinVK.xsd b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/DSFinVK.xsd
new file mode 100644
index 00000000..5bc15585
--- /dev/null
+++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/DSFinVK.xsd
@@ -0,0 +1,210 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ 100
+
+
+
+
+
+
+ 101
+
+
+
+
+
+
+ 102
+
+
+
+
+
+
+ 103
+
+
+
+
+
+
+ 200
+
+
+
+
+
+
+ 201
+
+
+
+
+
+
+ 202
+
+
+
+
+
+
+ 10001
+
+
+
+
+
+
+ 10100
+
+
+
+
+
+
+ 10101
+
+
+
+
+
+
+ 10102
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/ItgKsV.xsd b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/ItgKsV.xsd
new file mode 100644
index 00000000..5ddda746
--- /dev/null
+++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/ItgKsV.xsd
@@ -0,0 +1,14 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Reference.svcmap b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Reference.svcmap
new file mode 100644
index 00000000..b6c75ddd
--- /dev/null
+++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Reference.svcmap
@@ -0,0 +1,36 @@
+
+
+
+ false
+ true
+ true
+
+ false
+ false
+ false
+
+
+ true
+ Auto
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Reference.vb b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Reference.vb
new file mode 100644
index 00000000..9515beeb
--- /dev/null
+++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Reference.vb
@@ -0,0 +1,2919 @@
+'------------------------------------------------------------------------------
+'
+' 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 On
+Option Explicit On
+
+Imports System
+Imports System.Runtime.Serialization
+
+Namespace RKSV_DE
+
+ _
+ Public Enum ErrorCode As Integer
+
+ _
+ OK = 0
+
+ _
+ FAILED = 1
+
+ _
+ BAD_USERNAME = 2
+
+ _
+ BAD_PASSWORD = 3
+
+ _
+ TSE_NOT_FOUND = 4
+
+ _
+ TSE_INITIALIZATION_FAILED = 5
+
+ _
+ TSE_BEGIN_TRANSACTION_FAILED = 6
+
+ _
+ TSE_FINISH_TRANSACTION_FAILED = 7
+
+ _
+ ARRAY_LENGTH_NOT_EQUAL = 8
+
+ _
+ PARAMETER_ERROR = 9
+
+ _
+ DSFINVKCOM_LICENSE_NOT_VALID = 10
+
+ _
+ KSVCOM_LICENSE_NOT_VALID = 11
+
+ _
+ DATABASE_NO_CONNECTION = 100
+
+ _
+ DATABASE_CONNECTION_NOT_OPENED = 101
+
+ _
+ DATABASE_NOT_SPECIFIED = 102
+
+ _
+ DATABASE_OPERATION_FAILED = 103
+
+ _
+ CASHBOX_NAME_NOT_UNIQUE = 200
+
+ _
+ CASHBOX_IN_USE = 201
+
+ _
+ CASHBOX_NOT_FOUND = 202
+
+ _
+ ROW_HAS_INVALID_DATA = 10001
+
+ _
+ ROW_BON_ID_NOT_FOUND = 10100
+
+ _
+ ROW_BON_ID_ALREADY_EXISTS = 10101
+
+ _
+ ROW_BON_ID_ALREADY_FINISHED = 10102
+ End Enum
+
+ _
+ Partial Public Class Kassendaten
+ Inherits Object
+ Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
+
+ _
+ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
+
+ _
+ Private IVNRField As Integer
+
+ _
+ 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 licenseField As String
+
+ _
+ Private tse_bezeichnungField As String
+
+ _
+ Private tse_ivnrField As Integer
+
+ _
+ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData
+ Get
+ Return Me.extensionDataField
+ End Get
+ Set
+ Me.extensionDataField = value
+ End Set
+ End Property
+
+ _
+ Public Property IVNR() As Integer
+ Get
+ Return Me.IVNRField
+ End Get
+ Set
+ If (Me.IVNRField.Equals(value) <> true) Then
+ Me.IVNRField = value
+ Me.RaisePropertyChanged("IVNR")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property KASSE_BASISWAEH_CODE() As String
+ Get
+ Return Me.KASSE_BASISWAEH_CODEField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.KASSE_BASISWAEH_CODEField, value) <> true) Then
+ Me.KASSE_BASISWAEH_CODEField = value
+ Me.RaisePropertyChanged("KASSE_BASISWAEH_CODE")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property KASSE_BRAND() As String
+ Get
+ Return Me.KASSE_BRANDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.KASSE_BRANDField, value) <> true) Then
+ Me.KASSE_BRANDField = value
+ Me.RaisePropertyChanged("KASSE_BRAND")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property KASSE_MODELL() As String
+ Get
+ Return Me.KASSE_MODELLField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.KASSE_MODELLField, value) <> true) Then
+ Me.KASSE_MODELLField = value
+ Me.RaisePropertyChanged("KASSE_MODELL")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property KASSE_SERIENNR() As String
+ Get
+ Return Me.KASSE_SERIENNRField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.KASSE_SERIENNRField, value) <> true) Then
+ Me.KASSE_SERIENNRField = value
+ Me.RaisePropertyChanged("KASSE_SERIENNR")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property KASSE_SW_BRAND() As String
+ Get
+ Return Me.KASSE_SW_BRANDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.KASSE_SW_BRANDField, value) <> true) Then
+ Me.KASSE_SW_BRANDField = value
+ Me.RaisePropertyChanged("KASSE_SW_BRAND")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property KASSE_SW_VERSION() As String
+ Get
+ Return Me.KASSE_SW_VERSIONField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.KASSE_SW_VERSIONField, value) <> true) Then
+ Me.KASSE_SW_VERSIONField = value
+ Me.RaisePropertyChanged("KASSE_SW_VERSION")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property KEINE_UST_ZUORDNUNG() As String
+ Get
+ Return Me.KEINE_UST_ZUORDNUNGField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.KEINE_UST_ZUORDNUNGField, value) <> true) Then
+ Me.KEINE_UST_ZUORDNUNGField = value
+ Me.RaisePropertyChanged("KEINE_UST_ZUORDNUNG")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property LOC_LAND() As String
+ Get
+ Return Me.LOC_LANDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.LOC_LANDField, value) <> true) Then
+ Me.LOC_LANDField = value
+ Me.RaisePropertyChanged("LOC_LAND")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property LOC_NAME() As String
+ Get
+ Return Me.LOC_NAMEField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.LOC_NAMEField, value) <> true) Then
+ Me.LOC_NAMEField = value
+ Me.RaisePropertyChanged("LOC_NAME")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property LOC_ORT() As String
+ Get
+ Return Me.LOC_ORTField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.LOC_ORTField, value) <> true) Then
+ Me.LOC_ORTField = value
+ Me.RaisePropertyChanged("LOC_ORT")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property LOC_PLZ() As String
+ Get
+ Return Me.LOC_PLZField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.LOC_PLZField, value) <> true) Then
+ Me.LOC_PLZField = value
+ Me.RaisePropertyChanged("LOC_PLZ")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property LOC_STRASSE() As String
+ Get
+ Return Me.LOC_STRASSEField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.LOC_STRASSEField, value) <> true) Then
+ Me.LOC_STRASSEField = value
+ Me.RaisePropertyChanged("LOC_STRASSE")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property LOC_USTID() As String
+ Get
+ Return Me.LOC_USTIDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.LOC_USTIDField, value) <> true) Then
+ Me.LOC_USTIDField = value
+ Me.RaisePropertyChanged("LOC_USTID")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property Z_KASSE_ID() As String
+ Get
+ Return Me.Z_KASSE_IDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.Z_KASSE_IDField, value) <> true) Then
+ Me.Z_KASSE_IDField = value
+ Me.RaisePropertyChanged("Z_KASSE_ID")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property Z_NR() As Long
+ Get
+ Return Me.Z_NRField
+ End Get
+ Set
+ If (Me.Z_NRField.Equals(value) <> true) Then
+ Me.Z_NRField = value
+ Me.RaisePropertyChanged("Z_NR")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property license() As String
+ Get
+ Return Me.licenseField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.licenseField, value) <> true) Then
+ Me.licenseField = value
+ Me.RaisePropertyChanged("license")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property tse_bezeichnung() As String
+ Get
+ Return Me.tse_bezeichnungField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.tse_bezeichnungField, value) <> true) Then
+ Me.tse_bezeichnungField = value
+ Me.RaisePropertyChanged("tse_bezeichnung")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property tse_ivnr() As Integer
+ Get
+ Return Me.tse_ivnrField
+ End Get
+ Set
+ If (Me.tse_ivnrField.Equals(value) <> true) Then
+ Me.tse_ivnrField = value
+ Me.RaisePropertyChanged("tse_ivnr")
+ End If
+ End Set
+ End Property
+
+ Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
+
+ Protected Sub RaisePropertyChanged(ByVal propertyName As String)
+ Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
+ If (Not (propertyChanged) Is Nothing) Then
+ propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
+ End If
+ End Sub
+ End Class
+
+ _
+ Partial Public Class BonKopfBegin
+ Inherits Object
+ Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
+
+ _
+ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
+
+ _
+ 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_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 ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData
+ Get
+ Return Me.extensionDataField
+ End Get
+ Set
+ Me.extensionDataField = value
+ End Set
+ End Property
+
+ _
+ Public Property BEDIENER_ID() As String
+ Get
+ Return Me.BEDIENER_IDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.BEDIENER_IDField, value) <> true) Then
+ Me.BEDIENER_IDField = value
+ Me.RaisePropertyChanged("BEDIENER_ID")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property BEDIENER_NAME() As String
+ Get
+ Return Me.BEDIENER_NAMEField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.BEDIENER_NAMEField, value) <> true) Then
+ Me.BEDIENER_NAMEField = value
+ Me.RaisePropertyChanged("BEDIENER_NAME")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property BON_ID() As String
+ Get
+ Return Me.BON_IDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.BON_IDField, value) <> true) Then
+ Me.BON_IDField = value
+ Me.RaisePropertyChanged("BON_ID")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property BON_NAME() As String
+ Get
+ Return Me.BON_NAMEField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.BON_NAMEField, value) <> true) Then
+ Me.BON_NAMEField = value
+ Me.RaisePropertyChanged("BON_NAME")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property BON_NOTIZ() As String
+ Get
+ Return Me.BON_NOTIZField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.BON_NOTIZField, value) <> true) Then
+ Me.BON_NOTIZField = value
+ Me.RaisePropertyChanged("BON_NOTIZ")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property BON_NR() As Integer
+ Get
+ Return Me.BON_NRField
+ End Get
+ Set
+ If (Me.BON_NRField.Equals(value) <> true) Then
+ Me.BON_NRField = value
+ Me.RaisePropertyChanged("BON_NR")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property BON_START() As String
+ Get
+ Return Me.BON_STARTField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.BON_STARTField, value) <> true) Then
+ Me.BON_STARTField = value
+ Me.RaisePropertyChanged("BON_START")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property BON_STORNO() As String
+ Get
+ Return Me.BON_STORNOField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.BON_STORNOField, value) <> true) Then
+ Me.BON_STORNOField = value
+ Me.RaisePropertyChanged("BON_STORNO")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property BON_TYP() As String
+ Get
+ Return Me.BON_TYPField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.BON_TYPField, value) <> true) Then
+ Me.BON_TYPField = value
+ Me.RaisePropertyChanged("BON_TYP")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property KUNDE_ID() As String
+ Get
+ Return Me.KUNDE_IDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.KUNDE_IDField, value) <> true) Then
+ Me.KUNDE_IDField = value
+ Me.RaisePropertyChanged("KUNDE_ID")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property KUNDE_LAND() As String
+ Get
+ Return Me.KUNDE_LANDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.KUNDE_LANDField, value) <> true) Then
+ Me.KUNDE_LANDField = value
+ Me.RaisePropertyChanged("KUNDE_LAND")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property KUNDE_NAME() As String
+ Get
+ Return Me.KUNDE_NAMEField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.KUNDE_NAMEField, value) <> true) Then
+ Me.KUNDE_NAMEField = value
+ Me.RaisePropertyChanged("KUNDE_NAME")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property KUNDE_ORT() As String
+ Get
+ Return Me.KUNDE_ORTField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.KUNDE_ORTField, value) <> true) Then
+ Me.KUNDE_ORTField = value
+ Me.RaisePropertyChanged("KUNDE_ORT")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property KUNDE_PLZ() As String
+ Get
+ Return Me.KUNDE_PLZField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.KUNDE_PLZField, value) <> true) Then
+ Me.KUNDE_PLZField = value
+ Me.RaisePropertyChanged("KUNDE_PLZ")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property KUNDE_STRASSE() As String
+ Get
+ Return Me.KUNDE_STRASSEField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.KUNDE_STRASSEField, value) <> true) Then
+ Me.KUNDE_STRASSEField = value
+ Me.RaisePropertyChanged("KUNDE_STRASSE")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property KUNDE_TYP() As String
+ Get
+ Return Me.KUNDE_TYPField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.KUNDE_TYPField, value) <> true) Then
+ Me.KUNDE_TYPField = value
+ Me.RaisePropertyChanged("KUNDE_TYP")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property KUNDE_USTID() As String
+ Get
+ Return Me.KUNDE_USTIDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.KUNDE_USTIDField, value) <> true) Then
+ Me.KUNDE_USTIDField = value
+ Me.RaisePropertyChanged("KUNDE_USTID")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property TERMINAL_ID() As String
+ Get
+ Return Me.TERMINAL_IDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.TERMINAL_IDField, value) <> true) Then
+ Me.TERMINAL_IDField = value
+ Me.RaisePropertyChanged("TERMINAL_ID")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property Z_KASSE_ID() As String
+ Get
+ Return Me.Z_KASSE_IDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.Z_KASSE_IDField, value) <> true) Then
+ Me.Z_KASSE_IDField = value
+ Me.RaisePropertyChanged("Z_KASSE_ID")
+ End If
+ End Set
+ End Property
+
+ Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
+
+ Protected Sub RaisePropertyChanged(ByVal propertyName As String)
+ Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
+ If (Not (propertyChanged) Is Nothing) Then
+ propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
+ End If
+ End Sub
+ End Class
+
+ _
+ Partial Public Class BonKopfFinish
+ Inherits Object
+ Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
+
+ _
+ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
+
+ _
+ Private BON_ENDEField As String
+
+ _
+ Private BON_IDField As String
+
+ _
+ Private PROCESS_TYPEField As String
+
+ _
+ Private UMS_BRUTTOField As Decimal
+
+ _
+ Private Z_KASSE_IDField As String
+
+ _
+ Private payment_currenciesField() As String
+
+ _
+ Private payment_per_currencyField() As Decimal
+
+ _
+ Private payment_typesField() As String
+
+ _
+ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData
+ Get
+ Return Me.extensionDataField
+ End Get
+ Set
+ Me.extensionDataField = value
+ End Set
+ End Property
+
+ _
+ Public Property BON_ENDE() As String
+ Get
+ Return Me.BON_ENDEField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.BON_ENDEField, value) <> true) Then
+ Me.BON_ENDEField = value
+ Me.RaisePropertyChanged("BON_ENDE")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property BON_ID() As String
+ Get
+ Return Me.BON_IDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.BON_IDField, value) <> true) Then
+ Me.BON_IDField = value
+ Me.RaisePropertyChanged("BON_ID")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property PROCESS_TYPE() As String
+ Get
+ Return Me.PROCESS_TYPEField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.PROCESS_TYPEField, value) <> true) Then
+ Me.PROCESS_TYPEField = value
+ Me.RaisePropertyChanged("PROCESS_TYPE")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property UMS_BRUTTO() As Decimal
+ Get
+ Return Me.UMS_BRUTTOField
+ End Get
+ Set
+ If (Me.UMS_BRUTTOField.Equals(value) <> true) Then
+ Me.UMS_BRUTTOField = value
+ Me.RaisePropertyChanged("UMS_BRUTTO")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property Z_KASSE_ID() As String
+ Get
+ Return Me.Z_KASSE_IDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.Z_KASSE_IDField, value) <> true) Then
+ Me.Z_KASSE_IDField = value
+ Me.RaisePropertyChanged("Z_KASSE_ID")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property payment_currencies() As String()
+ Get
+ Return Me.payment_currenciesField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.payment_currenciesField, value) <> true) Then
+ Me.payment_currenciesField = value
+ Me.RaisePropertyChanged("payment_currencies")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property payment_per_currency() As Decimal()
+ Get
+ Return Me.payment_per_currencyField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.payment_per_currencyField, value) <> true) Then
+ Me.payment_per_currencyField = value
+ Me.RaisePropertyChanged("payment_per_currency")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property payment_types() As String()
+ Get
+ Return Me.payment_typesField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.payment_typesField, value) <> true) Then
+ Me.payment_typesField = value
+ Me.RaisePropertyChanged("payment_types")
+ End If
+ End Set
+ End Property
+
+ Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
+
+ Protected Sub RaisePropertyChanged(ByVal propertyName As String)
+ Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
+ If (Not (propertyChanged) Is Nothing) Then
+ propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
+ End If
+ End Sub
+ End Class
+
+ _
+ Partial Public Class BonPosition
+ Inherits Object
+ Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
+
+ _
+ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
+
+ _
+ Private AGENTUR_IDField As Integer
+
+ _
+ Private ARTIKELTEXTField As String
+
+ _
+ Private ART_NRField As String
+
+ _
+ Private BON_IDField As String
+
+ _
+ Private EINHEITField As String
+
+ _
+ Private FAKTORField As Decimal
+
+ _
+ 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 POS_TERMINAL_IDField As String
+
+ _
+ Private POS_ZEILEField As String
+
+ _
+ Private P_STORNOField As String
+
+ _
+ Private STK_BRField As Decimal
+
+ _
+ Private WARENGRField As String
+
+ _
+ Private WARENGR_IDField As String
+
+ _
+ Private Z_KASSE_IDField As String
+
+ _
+ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData
+ Get
+ Return Me.extensionDataField
+ End Get
+ Set
+ Me.extensionDataField = value
+ End Set
+ End Property
+
+ _
+ Public Property AGENTUR_ID() As Integer
+ Get
+ Return Me.AGENTUR_IDField
+ End Get
+ Set
+ If (Me.AGENTUR_IDField.Equals(value) <> true) Then
+ Me.AGENTUR_IDField = value
+ Me.RaisePropertyChanged("AGENTUR_ID")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property ARTIKELTEXT() As String
+ Get
+ Return Me.ARTIKELTEXTField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.ARTIKELTEXTField, value) <> true) Then
+ Me.ARTIKELTEXTField = value
+ Me.RaisePropertyChanged("ARTIKELTEXT")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property ART_NR() As String
+ Get
+ Return Me.ART_NRField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.ART_NRField, value) <> true) Then
+ Me.ART_NRField = value
+ Me.RaisePropertyChanged("ART_NR")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property BON_ID() As String
+ Get
+ Return Me.BON_IDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.BON_IDField, value) <> true) Then
+ Me.BON_IDField = value
+ Me.RaisePropertyChanged("BON_ID")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property EINHEIT() As String
+ Get
+ Return Me.EINHEITField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.EINHEITField, value) <> true) Then
+ Me.EINHEITField = value
+ Me.RaisePropertyChanged("EINHEIT")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property FAKTOR() As Decimal
+ Get
+ Return Me.FAKTORField
+ End Get
+ Set
+ If (Me.FAKTORField.Equals(value) <> true) Then
+ Me.FAKTORField = value
+ Me.RaisePropertyChanged("FAKTOR")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property GTIN() As String
+ Get
+ Return Me.GTINField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.GTINField, value) <> true) Then
+ Me.GTINField = value
+ Me.RaisePropertyChanged("GTIN")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property GUTSCHEIN_NR() As String
+ Get
+ Return Me.GUTSCHEIN_NRField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.GUTSCHEIN_NRField, value) <> true) Then
+ Me.GUTSCHEIN_NRField = value
+ Me.RaisePropertyChanged("GUTSCHEIN_NR")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property GV_NAME() As String
+ Get
+ Return Me.GV_NAMEField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.GV_NAMEField, value) <> true) Then
+ Me.GV_NAMEField = value
+ Me.RaisePropertyChanged("GV_NAME")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property GV_TYP() As String
+ Get
+ Return Me.GV_TYPField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.GV_TYPField, value) <> true) Then
+ Me.GV_TYPField = value
+ Me.RaisePropertyChanged("GV_TYP")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property INHAUS() As String
+ Get
+ Return Me.INHAUSField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.INHAUSField, value) <> true) Then
+ Me.INHAUSField = value
+ Me.RaisePropertyChanged("INHAUS")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property MENGE() As Decimal
+ Get
+ Return Me.MENGEField
+ End Get
+ Set
+ If (Me.MENGEField.Equals(value) <> true) Then
+ Me.MENGEField = value
+ Me.RaisePropertyChanged("MENGE")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property POS_TERMINAL_ID() As String
+ Get
+ Return Me.POS_TERMINAL_IDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.POS_TERMINAL_IDField, value) <> true) Then
+ Me.POS_TERMINAL_IDField = value
+ Me.RaisePropertyChanged("POS_TERMINAL_ID")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property POS_ZEILE() As String
+ Get
+ Return Me.POS_ZEILEField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.POS_ZEILEField, value) <> true) Then
+ Me.POS_ZEILEField = value
+ Me.RaisePropertyChanged("POS_ZEILE")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property P_STORNO() As String
+ Get
+ Return Me.P_STORNOField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.P_STORNOField, value) <> true) Then
+ Me.P_STORNOField = value
+ Me.RaisePropertyChanged("P_STORNO")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property STK_BR() As Decimal
+ Get
+ Return Me.STK_BRField
+ End Get
+ Set
+ If (Me.STK_BRField.Equals(value) <> true) Then
+ Me.STK_BRField = value
+ Me.RaisePropertyChanged("STK_BR")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property WARENGR() As String
+ Get
+ Return Me.WARENGRField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.WARENGRField, value) <> true) Then
+ Me.WARENGRField = value
+ Me.RaisePropertyChanged("WARENGR")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property WARENGR_ID() As String
+ Get
+ Return Me.WARENGR_IDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.WARENGR_IDField, value) <> true) Then
+ Me.WARENGR_IDField = value
+ Me.RaisePropertyChanged("WARENGR_ID")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property Z_KASSE_ID() As String
+ Get
+ Return Me.Z_KASSE_IDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.Z_KASSE_IDField, value) <> true) Then
+ Me.Z_KASSE_IDField = value
+ Me.RaisePropertyChanged("Z_KASSE_ID")
+ End If
+ End Set
+ End Property
+
+ Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
+
+ Protected Sub RaisePropertyChanged(ByVal propertyName As String)
+ Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
+ If (Not (propertyChanged) Is Nothing) Then
+ propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
+ End If
+ End Sub
+ End Class
+
+ _
+ Partial Public Class BonPosition_Ust
+ Inherits Object
+ Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
+
+ _
+ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
+
+ _
+ Private BON_IDField As String
+
+ _
+ Private POS_BRUTTOField As Decimal
+
+ _
+ Private POS_NETTOField As Decimal
+
+ _
+ Private POS_USTField As Decimal
+
+ _
+ Private POS_ZEILEField As String
+
+ _
+ Private UST_SCHLUESSELField As Integer
+
+ _
+ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData
+ Get
+ Return Me.extensionDataField
+ End Get
+ Set
+ Me.extensionDataField = value
+ End Set
+ End Property
+
+ _
+ Public Property BON_ID() As String
+ Get
+ Return Me.BON_IDField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.BON_IDField, value) <> true) Then
+ Me.BON_IDField = value
+ Me.RaisePropertyChanged("BON_ID")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property POS_BRUTTO() As Decimal
+ Get
+ Return Me.POS_BRUTTOField
+ End Get
+ Set
+ If (Me.POS_BRUTTOField.Equals(value) <> true) Then
+ Me.POS_BRUTTOField = value
+ Me.RaisePropertyChanged("POS_BRUTTO")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property POS_NETTO() As Decimal
+ Get
+ Return Me.POS_NETTOField
+ End Get
+ Set
+ If (Me.POS_NETTOField.Equals(value) <> true) Then
+ Me.POS_NETTOField = value
+ Me.RaisePropertyChanged("POS_NETTO")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property POS_UST() As Decimal
+ Get
+ Return Me.POS_USTField
+ End Get
+ Set
+ If (Me.POS_USTField.Equals(value) <> true) Then
+ Me.POS_USTField = value
+ Me.RaisePropertyChanged("POS_UST")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property POS_ZEILE() As String
+ Get
+ Return Me.POS_ZEILEField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.POS_ZEILEField, value) <> true) Then
+ Me.POS_ZEILEField = value
+ Me.RaisePropertyChanged("POS_ZEILE")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property UST_SCHLUESSEL() As Integer
+ Get
+ Return Me.UST_SCHLUESSELField
+ End Get
+ Set
+ If (Me.UST_SCHLUESSELField.Equals(value) <> true) Then
+ Me.UST_SCHLUESSELField = value
+ Me.RaisePropertyChanged("UST_SCHLUESSEL")
+ End If
+ End Set
+ End Property
+
+ Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
+
+ Protected Sub RaisePropertyChanged(ByVal propertyName As String)
+ Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
+ If (Not (propertyChanged) Is Nothing) Then
+ propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
+ End If
+ End Sub
+ End Class
+
+ _
+ Partial Public Class TSEData
+ Inherits Object
+ Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
+
+ _
+ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
+
+ _
+ 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 ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData
+ Get
+ Return Me.extensionDataField
+ End Get
+ Set
+ Me.extensionDataField = value
+ End Set
+ End Property
+
+ _
+ Public Property tse_pd_encoding() As String
+ Get
+ Return Me.tse_pd_encodingField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.tse_pd_encodingField, value) <> true) Then
+ Me.tse_pd_encodingField = value
+ Me.RaisePropertyChanged("tse_pd_encoding")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property tse_public_key() As String
+ Get
+ Return Me.tse_public_keyField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.tse_public_keyField, value) <> true) Then
+ Me.tse_public_keyField = value
+ Me.RaisePropertyChanged("tse_public_key")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property tse_serial() As String
+ Get
+ Return Me.tse_serialField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.tse_serialField, value) <> true) Then
+ Me.tse_serialField = value
+ Me.RaisePropertyChanged("tse_serial")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property tse_sig_algo() As String
+ Get
+ Return Me.tse_sig_algoField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.tse_sig_algoField, value) <> true) Then
+ Me.tse_sig_algoField = value
+ Me.RaisePropertyChanged("tse_sig_algo")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property tse_zeitformat() As String
+ Get
+ Return Me.tse_zeitformatField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.tse_zeitformatField, value) <> true) Then
+ Me.tse_zeitformatField = value
+ Me.RaisePropertyChanged("tse_zeitformat")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property tse_zertifikat() As String
+ Get
+ Return Me.tse_zertifikatField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.tse_zertifikatField, value) <> true) Then
+ Me.tse_zertifikatField = value
+ Me.RaisePropertyChanged("tse_zertifikat")
+ End If
+ End Set
+ End Property
+
+ Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
+
+ Protected Sub RaisePropertyChanged(ByVal propertyName As String)
+ Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
+ If (Not (propertyChanged) Is Nothing) Then
+ propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
+ End If
+ End Sub
+ End Class
+
+ _
+ Partial Public Class Taxes
+ Inherits Object
+ Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
+
+ _
+ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
+
+ _
+ Private CountField As Integer
+
+ _
+ Private UST_BESCHRField() As String
+
+ _
+ Private UST_SATZField() As Decimal
+
+ _
+ Private UST_SCHLUESSELField() As Integer
+
+ _
+ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData
+ Get
+ Return Me.extensionDataField
+ End Get
+ Set
+ Me.extensionDataField = value
+ End Set
+ End Property
+
+ _
+ Public Property Count() As Integer
+ Get
+ Return Me.CountField
+ End Get
+ Set
+ If (Me.CountField.Equals(value) <> true) Then
+ Me.CountField = value
+ Me.RaisePropertyChanged("Count")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property UST_BESCHR() As String()
+ Get
+ Return Me.UST_BESCHRField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.UST_BESCHRField, value) <> true) Then
+ Me.UST_BESCHRField = value
+ Me.RaisePropertyChanged("UST_BESCHR")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property UST_SATZ() As Decimal()
+ Get
+ Return Me.UST_SATZField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.UST_SATZField, value) <> true) Then
+ Me.UST_SATZField = value
+ Me.RaisePropertyChanged("UST_SATZ")
+ End If
+ End Set
+ End Property
+
+ _
+ Public Property UST_SCHLUESSEL() As Integer()
+ Get
+ Return Me.UST_SCHLUESSELField
+ End Get
+ Set
+ If (Object.ReferenceEquals(Me.UST_SCHLUESSELField, value) <> true) Then
+ Me.UST_SCHLUESSELField = value
+ Me.RaisePropertyChanged("UST_SCHLUESSEL")
+ End If
+ End Set
+ End Property
+
+ Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
+
+ Protected Sub RaisePropertyChanged(ByVal propertyName As String)
+ Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
+ If (Not (propertyChanged) Is Nothing) Then
+ propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
+ End If
+ End Sub
+ End Class
+
+ _
+ Public Interface IDSFinVKServer
+
+ _
+ Function GetMachineCode(ByVal isDemoLicense As Boolean, ByVal clientId As String) As String
+
+ _
+ 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 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 CleanupLibrary() As RKSV_DE.ErrorCode
+
+ _
+ Function CleanupLibraryAsync() As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode)
+
+ _
+ Function CreateDatabase(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As 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 RKSV_DE.ErrorCode)
+
+ _
+ Function CreateCashbox(ByVal cashbox As RKSV_DE.Kassendaten) As RKSV_DE.ErrorCode
+
+ _
+ Function CreateCashboxAsync(ByVal cashbox As RKSV_DE.Kassendaten) As System.Threading.Tasks.Task(Of RKSV_DE.ErrorCode)
+
+ _
+ Function GetCashboxes(ByVal request As RKSV_DE.GetCashboxesRequest) As RKSV_DE.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 BeginReceipt(ByVal request As RKSV_DE.BeginReceiptRequest) As RKSV_DE.BeginReceiptResponse
+
+ 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist.
+