edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-03-04 15:47:48 +01:00
parent 3aaf328ce6
commit b4612ab3e0
142 changed files with 24372 additions and 14785 deletions
Download Patch File Download Diff File Expand all files Collapse all files

114
SDL/Classes/cEmailBenachrichtigung.vb
View File

@@ -1,114 +0,0 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cEmailBenachrichtigungList
Property eb_KundenNr As Object = Nothing
Property eb_ebartId As Object = Nothing
Public LIST As New List(Of cEmailBenachrichtigung)
Dim SQL As New SQL
Sub New()
End Sub
Sub New(eb_KundenNr, eb_ebartId)
Me.eb_KundenNr = eb_KundenNr
Me.eb_ebartId = eb_ebartId
LOAD(Me.eb_KundenNr, Me.eb_ebartId)
End Sub
Public Sub CLEAR()
LIST.Clear()
End Sub
Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False)
Dim l As New cEmailBenachrichtigung
l.eb_KundenNr = eb_KundenNr
l.eb_ebartId = eb_ebartId
l.eb_EMail = eb_EMail
l.eb_cc = cc
l.eb_bcc = bcc
LIST.Add(l)
End Sub
Public Sub LOAD(eb_KundenNr, eb_ebartId)
Try
LIST.Clear()
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblEmailBenachrichtigung WHERE eb_KundenNr=@eb_KundenNr and eb_ebartId=@eb_ebartId ", conn)
cmd.Parameters.AddWithValue("@eb_KundenNr", eb_KundenNr)
cmd.Parameters.AddWithValue("@eb_ebartId", eb_ebartId)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cEmailBenachrichtigung
l.eb_KundenNr = dr.Item("eb_KundenNr")
l.eb_ebartId = dr.Item("eb_ebartId")
l.eb_EMail = dr.Item("eb_EMail")
l.eb_cc = dr.Item("eb_cc")
l.eb_bcc = dr.Item("eb_bcc")
LIST.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
End Sub
Function SAVE()
If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then
For Each l In LIST
If Not l.INSERT() Then Return False
Next
Return True
Else
Return False
End If
End Function
End Class
Public Class cEmailBenachrichtigung
Property eb_KundenNr As Object = Nothing
Property eb_ebartId As Object = Nothing
Property eb_EMail As Object = Nothing
Property eb_cc As Boolean = False
Property eb_bcc As Boolean = False
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("eb_KundenNr", eb_KundenNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_ebartId", eb_ebartId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_EMail", eb_EMail))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_cc", eb_cc))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_bcc", eb_bcc))
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
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 tblEmailBenachrichtigung (" & 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

146
SDL/Fakturierung/cFakturierung.vb
View File

@@ -578,14 +578,14 @@ Public Class cFakturierung
rpt.txtBank2.Text = ""
Else
If hasVK(Rechnung) Then
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBWEAT2WXXX"
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBOEATWWOOE"
rpt.txtBank2.Text = ""
Else
If hasEUSTZOLL(Rechnung) Then
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBWEAT2WXXX"
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBOEATWWOOE"
rpt.txtBank2.Text = ""
Else
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBWEAT2WXXX"
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBOEATWWOOE"
rpt.txtBank2.Text = ""
End If
End If
@@ -639,14 +639,14 @@ Public Class cFakturierung
rpt.txtBank2.Text = ""
Else
If hasVK(RechnungsNr, Buchungsjahr) Then
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBWEAT2WXXX"
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBOEATWWOOE"
rpt.txtBank2.Text = ""
Else
If hasEUSTZOLL(RechnungsNr) Then
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBWEAT2WXXX"
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBOEATWWOOE"
rpt.txtBank2.Text = ""
Else
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBWEAT2WXXX"
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBOEATWWOOE"
rpt.txtBank2.Text = ""
End If
End If
@@ -691,14 +691,14 @@ Public Class cFakturierung
rpt.txtBank2.Text = ""
Else
If hasVK(RechnungsNr, Buchungsjahr) Then
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBWEAT2WXXX"
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBOEATWWOOE"
rpt.txtBank2.Text = ""
Else
If hasEUSTZOLL(RechnungsNr) Then
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBWEAT2WXXX"
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBOEATWWOOE"
rpt.txtBank2.Text = ""
Else
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBWEAT2WXXX"
rpt.txtBank1.Text = "Volksbank Schärding" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBOEATWWOOE"
rpt.txtBank2.Text = ""
End If
End If
@@ -742,7 +742,7 @@ Public Class cFakturierung
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Try
' MsgBox(RECHNUNG.Firma_ID)
Dim rpt As New rptRechnungDruck
Dim rpt As New rptRechnungDruck(RECHNUNG.RechnungSprache)
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(RECHNUNG.Firma_ID)
Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr)
@@ -1130,7 +1130,9 @@ Public Class cFakturierung
Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False)
If printStbVdb Then
printSpedBuchAnhaenge(RECHNUNG)
If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then
printSpedBuchAnhaenge(RECHNUNG, True, True)
End If
End If
Return ret
@@ -1220,10 +1222,10 @@ Public Class cFakturierung
If SPEDBCUH.DokumentId_Steuerbeleg IsNot Nothing Then
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_Steuerbeleg)})
End If
If printVbD Then
If SPEDBCUH.DokumentId_VBD IsNot Nothing Then
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_VBD)})
End If
End If
If printVbD Then
If SPEDBCUH.DokumentId_VBD IsNot Nothing Then
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_VBD)})
End If
End If
End If
@@ -1233,6 +1235,24 @@ Public Class cFakturierung
End Sub
Shared Function getSpedBuchAnhaenge_Path(FilialenNr As Integer, AbfertigungsNr As Integer, SpeditionsbuchUnterNr As Integer) As String
Try
Dim SPEDBCUH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(FilialenNr, AbfertigungsNr, SpeditionsbuchUnterNr)
If SPEDBCUH.hasEntry Then
If SPEDBCUH.DokumentId_Steuerbeleg IsNot Nothing Then
Return VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_Steuerbeleg)
End If
If SPEDBCUH.DokumentId_VBD IsNot Nothing Then
Return VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_VBD)
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return ""
End Function
Shared Function getFirmaNr(Optional firma = -1) As String
If firma < 0 Then 'Falls keine Firma
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -1251,43 +1271,52 @@ 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) As String
Shared Function getSignature(Optional landKz = "", Optional firma = -1, Optional individuell = False, Optional displayFirmenmane = False, Optional special = "") As String
getSignature = ""
firma = getFirmaNr(firma)
Dim imgsrc = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\").Replace("\", "/")
Dim emailindividuell = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email
Select Case firma
Case 1 'VERAG
Select Case special
Case "BREXIT_VERAG"
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG_AEO_MailSig.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>VERAG Spedition AG<br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 216714y</div>"
Case 7 'ATILLA
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Atilla.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>ATILLA Spedition GmbH<br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2845-0 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 288916b</div>"
Case 11 'VERAG CS
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Customs-Service-GMBH-Logo_sig.png""/>"
If displayFirmenmane Then getSignature &= "<br>VERAG Customs Service<br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 14 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "versand@verag.com") & " | www.verag.ag | FN 406316z</div>"
Case 20 'Imex
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>Imex Customs Service GmbH<br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Autobahngrenze 15 <br><b>T</b> +43 7711 31630 | <b>F</b> +43 7711 31630-1 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "info@imex-group.at") & " | www.imex-group.at | FN 410356s</div>"
Case 21 'UNISPED
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Unisped_logo.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>Unisped Speditions GmbH<br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2677-0 | <b>F</b> +43 7711 2677-27 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "office@unisped.at") & " | www.unisped.at | FN 375838d</div>"
Case 99 'GmbH
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Spedition-GMBH-Logo1.png""/>"
If displayFirmenmane Then getSignature &= "<br>VERAG Spedition GmbH<br>"
getSignature &= "<div style=""font-size:12px"">D 94152 Neuhaus/Inn, Hartham 6 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "rechnungsversand@verag.ag") & " | www.verag.ag </div>"
Case 17 'Front-Office
getSignature &= "<img width=""170"" height=""50"" src=""" & imgsrc & "Logo_blue_globe_Horizontal.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>Front Office Suben eG<br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 14<br><b>T</b> +43 7711 31636 -0 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "suben@front-office.eu") & " | www.front-office.eu </div>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b> +43 7711 2777-885 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, emailindividuell, "brexit@verag.ag") & " | www.verag.ag | FN 216714y</div>"
Case Else
Select Case firma
Case 1 'VERAG
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG_AEO_MailSig.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>VERAG Spedition AG<br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 216714y</div>"
Case 7 'ATILLA
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Atilla.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>ATILLA Spedition GmbH<br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2845-0 | <b>@</b> " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 288916b</div>"
Case 11 'VERAG CS
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Customs-Service-GMBH-Logo_sig.png""/>"
If displayFirmenmane Then getSignature &= "<br>VERAG Customs Service<br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 14 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, emailindividuell, "versand@verag.com") & " | www.verag.ag | FN 406316z</div>"
Case 20 'Imex
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>Imex Customs Service GmbH<br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Autobahngrenze 15 <br><b>T</b> +43 7711 31630 | <b>F</b> +43 7711 31630-1 | <b>@</b> " & If(individuell, emailindividuell, "info@imex-group.at") & " | www.imex-group.at | FN 410356s</div>"
Case 21 'UNISPED
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Unisped_logo.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>Unisped Speditions GmbH<br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2677-0 | <b>F</b> +43 7711 2677-27 | <b>@</b> " & If(individuell, emailindividuell, "office@unisped.at") & " | www.unisped.at | FN 375838d</div>"
Case 99 'GmbH
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Spedition-GMBH-Logo1.png""/>"
If displayFirmenmane Then getSignature &= "<br>VERAG Spedition GmbH<br>"
getSignature &= "<div style=""font-size:12px"">D 94152 Neuhaus/Inn, Hartham 6 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag </div>"
Case 17 'Front-Office
getSignature &= "<img width=""170"" height=""50"" src=""" & imgsrc & "Logo_blue_globe_Horizontal.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>Front Office Suben eG<br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 14<br><b>T</b> +43 7711 31636 -0 | <b>@</b> " & If(individuell, emailindividuell, "suben@front-office.eu") & " | www.front-office.eu </div>"
End Select
End Select
getSignature &= "<br>"
@@ -1617,6 +1646,17 @@ Public Class cFakturierung
End If
End If
'ZOLLBELEGE:
If RechnungsdruckArt = 0 Or RechnungsdruckArt = 1 Then 'DRUCK
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg") Then 'Sammelrechnungsbericht EVOLOG
Try
Dim pathZollbeleg = getSpedBuchAnhaenge_Path(dt.Rows(0)("FilialenNr"), dt.Rows(0)("AbfertigungsNr"), dt.Rows(0)("SpeditionsbuchUnterNr"))
If pathZollbeleg <> "" Then SonstAnlagen.Add(pathZollbeleg)
Catch ex As Exception
MsgBox("ERR ZOLLBELEG-ANHNAG: " & ex.Message & ex.StackTrace)
End Try
End If
End If
'-------------- für PDF-Sammel-Rechnung --------------
Dim list As New List(Of String) ' Sammlung PDFs
@@ -1795,7 +1835,6 @@ Public Class cFakturierung
Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional VorschauID 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
Try
Dim rpt As New rptSammelRechnungAnlagenDruck
Dim dt As DataTable
If VorschauID = "" Then
@@ -1803,9 +1842,11 @@ Public Class cFakturierung
Else
dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
End If
Dim ROW As DataRow = dt.Rows(0)
Dim rpt As New rptSammelRechnungAnlagenDruck(ROW("RechnungSprache"))
rpt.DataSource = dt
Dim ROW As DataRow = dt.Rows(0)
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(ROW("Firma_ID"))
Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr"))
@@ -1996,8 +2037,8 @@ Public Class cFakturierung
If CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz))) < 0 Then
rpt.Label9.Text = "Gutschriftsbetrag:"
rpt.Label16.Text = "Gutschrifts-Nr.:"
rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:"
rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:"
End If
End Sub
@@ -2112,9 +2153,10 @@ Public Class cFakturierung
Shared Function doSAMMELRechnungDruck_Rechnungsdruck(dt As DataTable, RechnungsNr As Integer, DruckdatumUhrzeit As Date, Rgstatus As Integer, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional SRDruckWiederholen As Boolean = False, Optional VorschauID 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
Try
Dim rpt As New rptSammelRechnungDruck
Dim ROW As DataRow = dt.Rows(0)
Dim rpt As New rptSammelRechnungDruck(ROW("RechnungSprache"))
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(ROW("Firma_ID"))
Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr"))
@@ -2191,7 +2233,7 @@ Public Class cFakturierung
'rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
'rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
rpt.lblLKWId.Text = getLKWID(RechnungsNr, DruckdatumUhrzeit, Rgstatus)
rpt.Label24.Visible = (rpt.lblLKWId.Text <> "")
rpt.lblLKWIdUebeschrift.Visible = (rpt.lblLKWId.Text <> "")
If If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "") = "" Then
rpt.lblRechnung_Name1.Text = ""
@@ -2312,8 +2354,8 @@ Public Class cFakturierung
If CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz))) < 0 Then
rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT"
rpt.Label9.Text = "Gutschriftsbetrag:"
rpt.Label16.Text = "Gutschrifts-Nr.:"
rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:"
rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:"
End If
@@ -2434,7 +2476,7 @@ Public Class cFakturierung
tblFirma.Firma_IBAN1, tblFirma.Firma_BIC1, tblFirma.Firma_Bankverbindung2, tblFirma.Firma_BLZ2, tblFirma.Firma_KTO2, tblFirma.Firma_IBAN2,
tblFirma.Firma_BIC2, tblFirma.Firma_Ort, tblFirma.Firma_Straße, tblFirma.Firma_Telefon, tblFirma.Firma_Telefax, tblFirma.[Firma_E-Mail],
tblFirma.Firma_Webadresse, MIN(Rechnungsausgang.KdAuftragsNr) as KdAuftragsNr,
MIN(Rechnungsausgang.RechnungsLandKz) AS RechnungsLandKz
MIN(Rechnungsausgang.RechnungsLandKz) AS RechnungsLandKz, MIN(Rechnungsausgang.RechnungSprache) AS RechnungSprache
FROM ((Adressen INNER JOIN ((Rechnungsausgang INNER JOIN Filialen ON Rechnungsausgang.FilialenNr = Filialen.FilialenNr) INNER JOIN Steuertabelle ON Rechnungsausgang.Steuerschlüssel = Steuertabelle.Steuerschlüssel) ON Adressen.AdressenNr = Rechnungsausgang.RechnungsKundenNr) INNER JOIN tblFirma ON Rechnungsausgang.Firma_ID = tblFirma.Firma_ID) INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID
where 1=1 "

28
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -37,31 +37,42 @@ Public Class frmAbrechnungsMaske
'BERECHTIGUNG 90 = FAKTURIERUNG!!!
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
FirmaTmp = "VERAGIMEX"
End If
Select Case FirmaTmp
Case "VERAG"
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID<>20", False, "FMZOLL")
cboFirma.changeItem("1")
MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR [mit_id] IN (SELECT [beroz_bergrId] FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND beroz_art='B')) order by mit_username", False, "ADMIN", True)
If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "MDM" Then
cboFirma.fillWithSQL("Select [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE FIRMENGRUPPE In ('VERAG360') ", False, "FMZOLL")
cboFirma.changeItem("1")
MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR [mit_id] IN (SELECT [beroz_bergrId] FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND beroz_art='B')) order by mit_username", False, "ADMIN", True)
Else
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE FIRMENGRUPPE IN ('VERAG','VERAGUNISPED','FRONTOFFICE') ", False, "FMZOLL")
cboFirma.changeItem("1")
MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR [mit_id] IN (SELECT [beroz_bergrId] FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND beroz_art='B')) order by mit_username", False, "ADMIN", True)
End If
Case "IMEX"
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID=20", False, "FMZOLL")
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE FIRMENGRUPPE IN ('IMEX') ", False, "FMZOLL")
cboFirma.changeItem("20")
MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma='IMEX' and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True)
Case "UNISPED"
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID IN (21,22,23) ", False, "FMZOLL")
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE FIRMENGRUPPE IN ('UNISPED') ", False, "FMZOLL")
cboFirma.changeItem("21")
MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma='UNISPED' and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True)
Case "AMBAR"
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE FIRMENGRUPPE IN ('AMBAR') ", False, "FMZOLL")
cboFirma.changeItem("24")
MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma='AMBAR' and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True)
Case "VERAGIMEX"
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] ", False, "FMZOLL")
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') ", False, "FMZOLL")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG" : cboFirma.changeItem("1")
Case "IMEX" : cboFirma.changeItem("20")
End Select
MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('IMEX','VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") AND mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True)
End Select
' MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Benutzerwechsel
'If MyComboBox2.Items.Count > 0 Then MyComboBox2.SelectedIndex = 0
MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
@@ -477,9 +488,10 @@ Public Class frmAbrechnungsMaske
cFakturierung.getRgDatInput("", RechnungsDatumTMP)
Dim PARAM_printZollbeleg = VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg")
For Each r As DataGridViewRow In MyDatagridview1.SelectedRows
cFakturierung.doRechnungsDruck(r.Cells("RK_ID").Value, RechnungsDatumTMP,, 0, cboPrinter.Text)
cFakturierung.doRechnungsDruck(r.Cells("RK_ID").Value, RechnungsDatumTMP,, 0, cboPrinter.Text,,, PARAM_printZollbeleg)
Next
'merge PDFs path
initDGV()

2
SDL/Fakturierung/frmRechnungenSuche.Designer.vb generated
View File

@@ -411,7 +411,7 @@ Partial Class frmRechnungenSuche
Me.btnSuche.Name = "btnSuche"
Me.btnSuche.Size = New System.Drawing.Size(162, 52)
Me.btnSuche.TabIndex = 28
Me.btnSuche.Text = "Speditionsbuch" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suche starten"
Me.btnSuche.Text = "Rechnungs-" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "suche starten"
Me.btnSuche.UseVisualStyleBackColor = True
'
'txtAbfertDat

9
SDL/Fakturierung/frmRechnungenSuche.vb
View File

@@ -234,6 +234,15 @@ Public Class frmRechnungenSuche
End If
Select Case FirmaTmp
Case "IMEX"
cboFiliale.changeItem("5501")
cboFiliale.Enabled = False
Case "UNISPED"
cboFiliale.changeItem("5601")
cboFiliale.Enabled = False
Case "AMBAR"
cboFiliale.changeItem("5701")
cboFiliale.Enabled = False
Case "IMEX"
cboFiliale.changeItem("5501")
cboFiliale.Enabled = False

448
SDL/Fakturierung/rptRechnungDruck.Designer.vb generated
View File

@@ -29,16 +29,16 @@ Partial Public Class rptRechnungDruck
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBankUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtBank1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBank2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox13 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDisclaimer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.lblRgNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRgNrUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKundenNrUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUeberschriftRG_GS = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKundenNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -50,23 +50,23 @@ Partial Public Class rptRechnungDruck
Me.lblFirmaWeb = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRgDatumUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRgDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label20 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAbfertigungsNrUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAbfertigungsNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label22 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAbfertigungsDatumUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAbfertigungsDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label24 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLKWIdUebeschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLKWId = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label26 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSachbearbeiterUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label29 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmenbuchUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmenbuch = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label31 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUIDUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUID = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Name1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Name2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Strasse = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Ort = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label48 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblEORIUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblEORI = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_UID_Ueberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_UID = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -102,10 +102,10 @@ Partial Public Class rptRechnungDruck
Me.txtHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLeistungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSteuerfreiUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblAbsenderUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAvisiererUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -113,15 +113,15 @@ Partial Public Class rptRechnungDruck
Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label37 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblWarenWertUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtWarenwert = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGrenzeUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtGrenze = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label42 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtBef<EFBFBD>rderungsmittelUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtBef<EFBFBD>rderungsmittel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label43 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSendungsdatenUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtSendungsdaten = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -133,15 +133,15 @@ Partial Public Class rptRechnungDruck
CType(Me.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBankUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBank2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDisclaimer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKundenNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaOrt, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -152,23 +152,23 @@ Partial Public Class rptRechnungDruck
CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgDatumUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label20, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAbfertigungsNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAbfertigungsNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label22, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAbfertigungsDatumUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAbfertigungsDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label24, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWIdUebeschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label26, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiterUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label29, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmenbuchUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmenbuch, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label31, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUIDUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUID, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Name1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Name2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Strasse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Ort, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label48, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEORIUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEORI, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_UID, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -193,25 +193,25 @@ Partial Public Class rptRechnungDruck
CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label37, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWarenwert, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGrenzeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label42, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBef<EFBFBD>rderungsmittelUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBef<EFBFBD>rderungsmittel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label43, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSendungsdatenUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSendungsdaten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
@@ -314,7 +314,7 @@ Partial Public Class rptRechnungDruck
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.Label28, Me.txtBank1, Me.txtBank2, Me.TextBox13})
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.lblBankUeberschrift, Me.txtBank1, Me.txtBank2, Me.txtDisclaimer})
Me.PageFooter.Height = 0.8791339!
Me.PageFooter.Name = "PageFooter"
'
@@ -341,17 +341,17 @@ Partial Public Class rptRechnungDruck
Me.ReportInfo2.Top = 0.1173228!
Me.ReportInfo2.Width = 1.994928!
'
'Label28
'lblBankUeberschrift
'
Me.Label28.Height = 0.1574803!
Me.Label28.HyperLink = Nothing
Me.Label28.Left = 0.01417323!
Me.Label28.Name = "Label28"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" &
Me.lblBankUeberschrift.Height = 0.1574803!
Me.lblBankUeberschrift.HyperLink = Nothing
Me.lblBankUeberschrift.Left = 0.01417323!
Me.lblBankUeberschrift.Name = "lblBankUeberschrift"
Me.lblBankUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" &
"r-set: 1"
Me.Label28.Text = "Bankverbindungen:"
Me.Label28.Top = 0.1173228!
Me.Label28.Width = 1.155512!
Me.lblBankUeberschrift.Text = "Bankverbindungen:"
Me.lblBankUeberschrift.Top = 0.1173228!
Me.lblBankUeberschrift.Width = 1.155512!
'
'txtBank1
'
@@ -377,20 +377,20 @@ Partial Public Class rptRechnungDruck
Me.txtBank2.Top = 0.1173228!
Me.txtBank2.Width = 2.837401!
'
'TextBox13
'txtDisclaimer
'
Me.TextBox13.Height = 0.2708662!
Me.TextBox13.Left = 0.01417323!
Me.TextBox13.Name = "TextBox13"
Me.TextBox13.Style = "font-size: 7.8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-" &
Me.txtDisclaimer.Height = 0.2708662!
Me.txtDisclaimer.Left = 0.01417323!
Me.txtDisclaimer.Name = "txtDisclaimer"
Me.txtDisclaimer.Style = "font-size: 7.8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-" &
"char-set: 1"
Me.TextBox13.Text = resources.GetString("TextBox13.Text")
Me.TextBox13.Top = 0.6082678!
Me.TextBox13.Width = 7.466143!
Me.txtDisclaimer.Text = resources.GetString("txtDisclaimer.Text")
Me.txtDisclaimer.Top = 0.6082678!
Me.txtDisclaimer.Width = 7.466143!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblRgNr, Me.lblRgNrUeberschrift, Me.Picture1, Me.picVERAG, Me.Label3, Me.lblUeberschriftRG_GS, Me.lblKundenNr, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.lblRgDatumUeberschrift, Me.lblRgDatum, Me.Label20, Me.lblAbfertigungsNr, Me.Label22, Me.lblAbfertigungsDatum, Me.Label24, Me.lblLKWId, Me.Label26, Me.lblSachbearbeiter, Me.Label29, Me.lblFirmenbuch, Me.Label31, Me.lblUID, Me.lblRechnung_Name1, Me.lblRechnung_Name2, Me.lblRechnung_Strasse, Me.lblRechnung_Ort, Me.Label48, Me.lblEORI, Me.lblRechnung_UID_Ueberschrift, Me.lblRechnung_UID, Me.lblRechnung_Steuernummer_Ueberschrift, Me.lblRechnung_Steuernummer, Me.txtKdAuftragsNr_Ueberschrift, Me.txtKdAuftragsNr, Me.Line15, Me.lblFirma, Me.lblRechnung_Land})
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblRgNr, Me.lblRgNrUeberschrift, Me.Picture1, Me.picVERAG, Me.lblKundenNrUeberschrift, Me.lblUeberschriftRG_GS, Me.lblKundenNr, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.lblRgDatumUeberschrift, Me.lblRgDatum, Me.lblAbfertigungsNrUeberschrift, Me.lblAbfertigungsNr, Me.lblAbfertigungsDatumUeberschrift, Me.lblAbfertigungsDatum, Me.lblLKWIdUebeschrift, Me.lblLKWId, Me.lblSachbearbeiterUeberschrift, Me.lblSachbearbeiter, Me.lblFirmenbuchUeberschrift, Me.lblFirmenbuch, Me.lblUIDUeberschrift, Me.lblUID, Me.lblRechnung_Name1, Me.lblRechnung_Name2, Me.lblRechnung_Strasse, Me.lblRechnung_Ort, Me.lblEORIUeberschrift, Me.lblEORI, Me.lblRechnung_UID_Ueberschrift, Me.lblRechnung_UID, Me.lblRechnung_Steuernummer_Ueberschrift, Me.lblRechnung_Steuernummer, Me.txtKdAuftragsNr_Ueberschrift, Me.txtKdAuftragsNr, Me.Line15, Me.lblFirma, Me.lblRechnung_Land})
Me.ReportHeader1.Height = 3.470997!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -440,17 +440,17 @@ Partial Public Class rptRechnungDruck
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.482677!
'
'Label3
'lblKundenNrUeberschrift
'
Me.Label3.Height = 0.1574803!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 5.104331!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblKundenNrUeberschrift.Height = 0.1574803!
Me.lblKundenNrUeberschrift.HyperLink = Nothing
Me.lblKundenNrUeberschrift.Left = 5.104331!
Me.lblKundenNrUeberschrift.Name = "lblKundenNrUeberschrift"
Me.lblKundenNrUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label3.Text = "Kunden-Nr.:"
Me.Label3.Top = 2.7063!
Me.Label3.Width = 1.165748!
Me.lblKundenNrUeberschrift.Text = "Kunden-Nr.:"
Me.lblKundenNrUeberschrift.Top = 2.7063!
Me.lblKundenNrUeberschrift.Width = 1.165748!
'
'lblUeberschriftRG_GS
'
@@ -585,17 +585,17 @@ Partial Public Class rptRechnungDruck
Me.lblRgDatum.Top = 0.907874!
Me.lblRgDatum.Width = 1.958268!
'
'Label20
'lblAbfertigungsNrUeberschrift
'
Me.Label20.Height = 0.1574803!
Me.Label20.HyperLink = Nothing
Me.Label20.Left = 5.104331!
Me.Label20.Name = "Label20"
Me.Label20.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblAbfertigungsNrUeberschrift.Height = 0.1574803!
Me.lblAbfertigungsNrUeberschrift.HyperLink = Nothing
Me.lblAbfertigungsNrUeberschrift.Left = 5.104331!
Me.lblAbfertigungsNrUeberschrift.Name = "lblAbfertigungsNrUeberschrift"
Me.lblAbfertigungsNrUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label20.Text = "Abfertigungs-Nr.:"
Me.Label20.Top = 1.344095!
Me.Label20.Width = 1.165748!
Me.lblAbfertigungsNrUeberschrift.Text = "Abfertigungs-Nr.:"
Me.lblAbfertigungsNrUeberschrift.Top = 1.344095!
Me.lblAbfertigungsNrUeberschrift.Width = 1.165748!
'
'lblAbfertigungsNr
'
@@ -609,17 +609,17 @@ Partial Public Class rptRechnungDruck
Me.lblAbfertigungsNr.Top = 1.344095!
Me.lblAbfertigungsNr.Width = 1.958268!
'
'Label22
'lblAbfertigungsDatumUeberschrift
'
Me.Label22.Height = 0.1574803!
Me.Label22.HyperLink = Nothing
Me.Label22.Left = 5.104331!
Me.Label22.Name = "Label22"
Me.Label22.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblAbfertigungsDatumUeberschrift.Height = 0.1574803!
Me.lblAbfertigungsDatumUeberschrift.HyperLink = Nothing
Me.lblAbfertigungsDatumUeberschrift.Left = 5.104331!
Me.lblAbfertigungsDatumUeberschrift.Name = "lblAbfertigungsDatumUeberschrift"
Me.lblAbfertigungsDatumUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label22.Text = "Abfertigungs-Datum:"
Me.Label22.Top = 1.501575!
Me.Label22.Width = 1.165748!
Me.lblAbfertigungsDatumUeberschrift.Text = "Abfertigungs-Datum:"
Me.lblAbfertigungsDatumUeberschrift.Top = 1.501575!
Me.lblAbfertigungsDatumUeberschrift.Width = 1.165748!
'
'lblAbfertigungsDatum
'
@@ -633,17 +633,17 @@ Partial Public Class rptRechnungDruck
Me.lblAbfertigungsDatum.Top = 1.501575!
Me.lblAbfertigungsDatum.Width = 1.958268!
'
'Label24
'lblLKWIdUebeschrift
'
Me.Label24.Height = 0.1574803!
Me.Label24.HyperLink = Nothing
Me.Label24.Left = 5.104331!
Me.Label24.Name = "Label24"
Me.Label24.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblLKWIdUebeschrift.Height = 0.1574803!
Me.lblLKWIdUebeschrift.HyperLink = Nothing
Me.lblLKWIdUebeschrift.Left = 5.104331!
Me.lblLKWIdUebeschrift.Name = "lblLKWIdUebeschrift"
Me.lblLKWIdUebeschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label24.Text = "LKW-ID:"
Me.Label24.Top = 1.659056!
Me.Label24.Width = 1.165748!
Me.lblLKWIdUebeschrift.Text = "LKW-ID:"
Me.lblLKWIdUebeschrift.Top = 1.659056!
Me.lblLKWIdUebeschrift.Width = 1.165748!
'
'lblLKWId
'
@@ -657,17 +657,17 @@ Partial Public Class rptRechnungDruck
Me.lblLKWId.Top = 1.659056!
Me.lblLKWId.Width = 1.958268!
'
'Label26
'lblSachbearbeiterUeberschrift
'
Me.Label26.Height = 0.1574803!
Me.Label26.HyperLink = Nothing
Me.Label26.Left = 5.104332!
Me.Label26.Name = "Label26"
Me.Label26.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblSachbearbeiterUeberschrift.Height = 0.1574803!
Me.lblSachbearbeiterUeberschrift.HyperLink = Nothing
Me.lblSachbearbeiterUeberschrift.Left = 5.104332!
Me.lblSachbearbeiterUeberschrift.Name = "lblSachbearbeiterUeberschrift"
Me.lblSachbearbeiterUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label26.Text = "Sachbearbeiter/in:"
Me.Label26.Top = 1.934646!
Me.Label26.Width = 1.165748!
Me.lblSachbearbeiterUeberschrift.Text = "Sachbearbeiter/in:"
Me.lblSachbearbeiterUeberschrift.Top = 1.934646!
Me.lblSachbearbeiterUeberschrift.Width = 1.165748!
'
'lblSachbearbeiter
'
@@ -681,17 +681,17 @@ Partial Public Class rptRechnungDruck
Me.lblSachbearbeiter.Top = 1.934646!
Me.lblSachbearbeiter.Width = 1.958268!
'
'Label29
'lblFirmenbuchUeberschrift
'
Me.Label29.Height = 0.1574803!
Me.Label29.HyperLink = Nothing
Me.Label29.Left = 5.104332!
Me.Label29.Name = "Label29"
Me.Label29.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblFirmenbuchUeberschrift.Height = 0.1574803!
Me.lblFirmenbuchUeberschrift.HyperLink = Nothing
Me.lblFirmenbuchUeberschrift.Left = 5.104332!
Me.lblFirmenbuchUeberschrift.Name = "lblFirmenbuchUeberschrift"
Me.lblFirmenbuchUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label29.Text = "Firmenbuch:"
Me.Label29.Top = 2.092126!
Me.Label29.Width = 1.165748!
Me.lblFirmenbuchUeberschrift.Text = "Firmenbuch:"
Me.lblFirmenbuchUeberschrift.Top = 2.092126!
Me.lblFirmenbuchUeberschrift.Width = 1.165748!
'
'lblFirmenbuch
'
@@ -705,17 +705,17 @@ Partial Public Class rptRechnungDruck
Me.lblFirmenbuch.Top = 2.092126!
Me.lblFirmenbuch.Width = 1.958268!
'
'Label31
'lblUIDUeberschrift
'
Me.Label31.Height = 0.1574803!
Me.Label31.HyperLink = Nothing
Me.Label31.Left = 5.104332!
Me.Label31.Name = "Label31"
Me.Label31.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblUIDUeberschrift.Height = 0.1574803!
Me.lblUIDUeberschrift.HyperLink = Nothing
Me.lblUIDUeberschrift.Left = 5.104332!
Me.lblUIDUeberschrift.Name = "lblUIDUeberschrift"
Me.lblUIDUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label31.Text = "UID:"
Me.Label31.Top = 2.249606!
Me.Label31.Width = 1.165748!
Me.lblUIDUeberschrift.Text = "UID:"
Me.lblUIDUeberschrift.Top = 2.249606!
Me.lblUIDUeberschrift.Width = 1.165748!
'
'lblUID
'
@@ -777,17 +777,17 @@ Partial Public Class rptRechnungDruck
Me.lblRechnung_Ort.Top = 2.41063!
Me.lblRechnung_Ort.Width = 4.589763!
'
'Label48
'lblEORIUeberschrift
'
Me.Label48.Height = 0.1574803!
Me.Label48.HyperLink = Nothing
Me.Label48.Left = 5.104331!
Me.Label48.Name = "Label48"
Me.Label48.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblEORIUeberschrift.Height = 0.1574803!
Me.lblEORIUeberschrift.HyperLink = Nothing
Me.lblEORIUeberschrift.Left = 5.104331!
Me.lblEORIUeberschrift.Name = "lblEORIUeberschrift"
Me.lblEORIUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label48.Text = "EORI:"
Me.Label48.Top = 2.407087!
Me.Label48.Width = 1.165748!
Me.lblEORIUeberschrift.Text = "EORI:"
Me.lblEORIUeberschrift.Top = 2.407087!
Me.lblEORIUeberschrift.Width = 1.165748!
'
'lblEORI
'
@@ -1197,58 +1197,58 @@ Partial Public Class rptRechnungDruck
'
'GroupHeader4
'
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label11, Me.Label4, Me.Label8, Me.Label6, Me.Line4, Me.lblAbsenderUeberschrift, Me.lblAvisiererUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAvisierer, Me.Label37, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.Label42, Me.txtBef<EFBFBD>rderungsmittel, Me.Label43, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16})
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSteuerpflichtigUeberschrift, Me.lblLeistungUeberschrift, Me.lblAnzahlUeberschrift, Me.lblSteuerfreiUeberschrift, Me.Line4, Me.lblAbsenderUeberschrift, Me.lblAvisiererUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAvisierer, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBef<EFBFBD>rderungsmittelUeberschrift, Me.txtBef<EFBFBD>rderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16})
Me.GroupHeader4.Height = 1.777811!
Me.GroupHeader4.KeepTogether = True
Me.GroupHeader4.Name = "GroupHeader4"
'
'Label11
'lblSteuerpflichtigUeberschrift
'
Me.Label11.Height = 0.1433071!
Me.Label11.HyperLink = Nothing
Me.Label11.Left = 3.957481!
Me.Label11.Name = "Label11"
Me.Label11.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
Me.lblSteuerpflichtigUeberschrift.Height = 0.1433071!
Me.lblSteuerpflichtigUeberschrift.HyperLink = Nothing
Me.lblSteuerpflichtigUeberschrift.Left = 3.957481!
Me.lblSteuerpflichtigUeberschrift.Name = "lblSteuerpflichtigUeberschrift"
Me.lblSteuerpflichtigUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
"r-set: 1"
Me.Label11.Text = "Steuerpflichtig"
Me.Label11.Top = 1.566536!
Me.Label11.Width = 1.554331!
Me.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig"
Me.lblSteuerpflichtigUeberschrift.Top = 1.566536!
Me.lblSteuerpflichtigUeberschrift.Width = 1.554331!
'
'Label4
'lblLeistungUeberschrift
'
Me.Label4.Height = 0.1433071!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 0.01417252!
Me.Label4.Name = "Label4"
Me.Label4.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
Me.lblLeistungUeberschrift.Height = 0.1433071!
Me.lblLeistungUeberschrift.HyperLink = Nothing
Me.lblLeistungUeberschrift.Left = 0.01417252!
Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift"
Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1"
Me.Label4.Text = "Leistung"
Me.Label4.Top = 1.566536!
Me.Label4.Width = 3.366143!
Me.lblLeistungUeberschrift.Text = "Leistung"
Me.lblLeistungUeberschrift.Top = 1.566536!
Me.lblLeistungUeberschrift.Width = 3.366143!
'
'Label8
'lblAnzahlUeberschrift
'
Me.Label8.Height = 0.1433071!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.380315!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
Me.lblAnzahlUeberschrift.Height = 0.1433071!
Me.lblAnzahlUeberschrift.HyperLink = Nothing
Me.lblAnzahlUeberschrift.Left = 3.380315!
Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift"
Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
"r-set: 1"
Me.Label8.Text = "Anzahl"
Me.Label8.Top = 1.566536!
Me.Label8.Width = 0.5771656!
Me.lblAnzahlUeberschrift.Text = "Anzahl"
Me.lblAnzahlUeberschrift.Top = 1.566536!
Me.lblAnzahlUeberschrift.Width = 0.5771656!
'
'Label6
'lblSteuerfreiUeberschrift
'
Me.Label6.Height = 0.143307!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 5.511812!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label6.Text = "Steuerfrei"
Me.Label6.Top = 1.566536!
Me.Label6.Width = 1.554331!
Me.lblSteuerfreiUeberschrift.Height = 0.143307!
Me.lblSteuerfreiUeberschrift.HyperLink = Nothing
Me.lblSteuerfreiUeberschrift.Left = 5.511812!
Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift"
Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei"
Me.lblSteuerfreiUeberschrift.Top = 1.566536!
Me.lblSteuerfreiUeberschrift.Width = 1.554331!
'
'Line4
'
@@ -1332,17 +1332,17 @@ Partial Public Class rptRechnungDruck
Me.txtAvisierer.Top = 0.1732285!
Me.txtAvisierer.Width = 2.853936!
'
'Label37
'lblZollbelegNr
'
Me.Label37.Height = 0.1574803!
Me.Label37.HyperLink = Nothing
Me.Label37.Left = 0!
Me.Label37.Name = "Label37"
Me.Label37.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
Me.lblZollbelegNr.Height = 0.1574803!
Me.lblZollbelegNr.HyperLink = Nothing
Me.lblZollbelegNr.Left = 0!
Me.lblZollbelegNr.Name = "lblZollbelegNr"
Me.lblZollbelegNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
"har-set: 1"
Me.Label37.Text = "Zollbeleg-Nr.:"
Me.Label37.Top = 0.7980316!
Me.Label37.Width = 0.9366142!
Me.lblZollbelegNr.Text = "Zollbeleg-Nr.:"
Me.lblZollbelegNr.Top = 0.7980316!
Me.lblZollbelegNr.Width = 0.9366142!
'
'txtZollbelegNr
'
@@ -1401,17 +1401,17 @@ Partial Public Class rptRechnungDruck
Me.txtGrenze.Top = 0.7980316!
Me.txtGrenze.Width = 2.853938!
'
'Label42
'txtBef<EFBFBD>rderungsmittelUeberschrift
'
Me.Label42.Height = 0.1574803!
Me.Label42.HyperLink = Nothing
Me.Label42.Left = 3.596063!
Me.Label42.Name = "Label42"
Me.Label42.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Height = 0.1574803!
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.HyperLink = Nothing
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Left = 3.596063!
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Name = "txtBef<EFBFBD>rderungsmittelUeberschrift"
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
"har-set: 1"
Me.Label42.Text = "Bef<EFBFBD>rderungsmittel:"
Me.Label42.Top = 0.9555119!
Me.Label42.Width = 1.020079!
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Text = "Bef<EFBFBD>rderungsmittel:"
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Top = 0.9555119!
Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Width = 1.020079!
'
'txtBef<65>rderungsmittel
'
@@ -1424,17 +1424,17 @@ Partial Public Class rptRechnungDruck
Me.txtBef<EFBFBD>rderungsmittel.Top = 0.9555119!
Me.txtBef<EFBFBD>rderungsmittel.Width = 2.853938!
'
'Label43
'lblSendungsdatenUeberschrift
'
Me.Label43.Height = 0.1574803!
Me.Label43.HyperLink = Nothing
Me.Label43.Left = 0!
Me.Label43.Name = "Label43"
Me.Label43.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
Me.lblSendungsdatenUeberschrift.Height = 0.1574803!
Me.lblSendungsdatenUeberschrift.HyperLink = Nothing
Me.lblSendungsdatenUeberschrift.Left = 0!
Me.lblSendungsdatenUeberschrift.Name = "lblSendungsdatenUeberschrift"
Me.lblSendungsdatenUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
"har-set: 1"
Me.Label43.Text = "Sendungs-Daten:"
Me.Label43.Top = 1.177953!
Me.Label43.Width = 0.9366142!
Me.lblSendungsdatenUeberschrift.Text = "Sendungs-Daten:"
Me.lblSendungsdatenUeberschrift.Top = 1.177953!
Me.lblSendungsdatenUeberschrift.Width = 0.9366142!
'
'txtSendungsdaten
'
@@ -1520,15 +1520,15 @@ Partial Public Class rptRechnungDruck
CType(Me.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBankUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBank2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDisclaimer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKundenNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaOrt, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1539,23 +1539,23 @@ Partial Public Class rptRechnungDruck
CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgDatumUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label20, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAbfertigungsNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAbfertigungsNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label22, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAbfertigungsDatumUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAbfertigungsDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label24, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWIdUebeschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label26, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiterUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label29, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmenbuchUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmenbuch, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label31, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUIDUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUID, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Name1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Name2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Strasse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Ort, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label48, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEORIUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEORI, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_UID, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1580,31 +1580,31 @@ Partial Public Class rptRechnungDruck
CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label37, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWarenwert, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGrenzeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label42, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBef<EFBFBD>rderungsmittelUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBef<EFBFBD>rderungsmittel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label43, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSendungsdatenUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSendungsdaten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKundenNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents lblUeberschriftRG_GS As GrapeCity.ActiveReports.SectionReportModel.Label
@@ -1616,26 +1616,26 @@ Partial Public Class rptRechnungDruck
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSteuerfreiUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzahlUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblLeistungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSteuerpflichtigUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSteuerfrei As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSteuerfreiGes As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label20 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label22 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label24 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label26 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label29 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label31 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label37 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label42 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label43 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label48 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents TextBox13 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblAbfertigungsNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAbfertigungsDatumUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblLKWIdUebeschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSachbearbeiterUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFirmenbuchUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblUIDUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblZollbelegNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtBef<EFBFBD>rderungsmittelUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSendungsdatenUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblEORIUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBankUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtDisclaimer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblRgNr As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAbfertigungsNr As GrapeCity.ActiveReports.SectionReportModel.Label

2
SDL/Fakturierung/rptRechnungDruck.resx
View File

@@ -117,7 +117,7 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="TextBox13.Text" xml:space="preserve">
<data name="txtDisclaimer.Text" xml:space="preserve">
<value>Wir arbeiten ausschließlich auf Grund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten, Spesen und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding oder Passau. Steuer- Zoll- und Tarifauskünfte sind unverbindlich.
</value>
</data>

23
SDL/Fakturierung/rptRechnungDruck.vb
View File

@@ -1,13 +1,24 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class rptRechnungDruck
Private Sub GroupHeader3_Format(sender As Object, e As EventArgs)
Dim _LAN = ""
Sub New()
InitializeComponent()
End Sub
Sub New(_LAN)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me._LAN = _LAN
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
If _LAN.replace("DE", "") <> "" Then
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN)
End If
End Sub
End Class

402
SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb generated
View File

@@ -32,16 +32,16 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBankUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtBank1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBank2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox13 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDisclaimer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.lblRgNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label16 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRgNrUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKundenNrUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUeberschriftRG_GS = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKundenNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -51,19 +51,19 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.lblFirmaFax = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaEmail = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaWeb = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label18 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRgDatumUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRgDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label26 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSachbearbeiterUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label29 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmenbuchUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmenbuch = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label31 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUIDUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUID = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Name1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Name2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Strasse = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Ort = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label48 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblEORIUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblEORI = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_UID_Ueberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_UID = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -75,7 +75,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSteuerfreiGes = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSteuerpflichtigGes = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumme = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -90,11 +90,11 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.Line14 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblZwText = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLeistungsdatumUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblPosNrUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSendungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSteuerfreiUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -110,15 +110,15 @@ Partial Public Class rptSammelRechnungAnlagenDruck
CType(Me.txtSendungsdetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPackstuecke, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBankUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBank2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDisclaimer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKundenNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaOrt, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -127,19 +127,19 @@ Partial Public Class rptSammelRechnungAnlagenDruck
CType(Me.lblFirmaFax, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label18, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgDatumUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label26, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiterUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label29, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmenbuchUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmenbuch, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label31, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUIDUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUID, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Name1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Name2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Strasse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Ort, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label48, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEORIUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEORI, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_UID, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -147,7 +147,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck
CType(Me.lblRechnung_Steuernummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Land, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerfreiGes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -156,11 +156,11 @@ Partial Public Class rptSammelRechnungAnlagenDruck
CType(Me.lblSteuerbetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuersatz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLeistungsdatumUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblPosNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSendungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
@@ -295,7 +295,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.Label28, Me.txtBank1, Me.txtBank2, Me.TextBox13})
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.lblBankUeberschrift, Me.txtBank1, Me.txtBank2, Me.txtDisclaimer})
Me.PageFooter.Height = 0.8791339!
Me.PageFooter.Name = "PageFooter"
'
@@ -322,17 +322,17 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.ReportInfo2.Top = 0.1173228!
Me.ReportInfo2.Width = 1.994928!
'
'Label28
'lblBankUeberschrift
'
Me.Label28.Height = 0.1574803!
Me.Label28.HyperLink = Nothing
Me.Label28.Left = 0.01417323!
Me.Label28.Name = "Label28"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" &
Me.lblBankUeberschrift.Height = 0.1574803!
Me.lblBankUeberschrift.HyperLink = Nothing
Me.lblBankUeberschrift.Left = 0.01417323!
Me.lblBankUeberschrift.Name = "lblBankUeberschrift"
Me.lblBankUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" &
"r-set: 1"
Me.Label28.Text = "Bankverbindungen:"
Me.Label28.Top = 0.1173228!
Me.Label28.Width = 1.155512!
Me.lblBankUeberschrift.Text = "Bankverbindungen:"
Me.lblBankUeberschrift.Top = 0.1173228!
Me.lblBankUeberschrift.Width = 1.155512!
'
'txtBank1
'
@@ -341,8 +341,8 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.txtBank1.Name = "txtBank1"
Me.txtBank1.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" &
"ar-set: 1"
Me.txtBank1.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" &
"455"
Me.txtBank1.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L455" &
""
Me.txtBank1.Top = 0.1173228!
Me.txtBank1.Width = 2.483071!
'
@@ -358,20 +358,20 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.txtBank2.Top = 0.1173228!
Me.txtBank2.Width = 2.472835!
'
'TextBox13
'txtDisclaimer
'
Me.TextBox13.Height = 0.2708662!
Me.TextBox13.Left = 0.01417323!
Me.TextBox13.Name = "TextBox13"
Me.TextBox13.Style = "font-size: 7.8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-" &
Me.txtDisclaimer.Height = 0.2708662!
Me.txtDisclaimer.Left = 0.01417323!
Me.txtDisclaimer.Name = "txtDisclaimer"
Me.txtDisclaimer.Style = "font-size: 7.8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-" &
"char-set: 1"
Me.TextBox13.Text = resources.GetString("TextBox13.Text")
Me.TextBox13.Top = 0.6082678!
Me.TextBox13.Width = 7.466143!
Me.txtDisclaimer.Text = resources.GetString("txtDisclaimer.Text")
Me.txtDisclaimer.Top = 0.6082678!
Me.txtDisclaimer.Width = 7.466143!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblRgNr, Me.Label16, Me.Picture1, Me.picVERAG, Me.Label3, Me.lblUeberschriftRG_GS, Me.lblKundenNr, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.Label18, Me.lblRgDatum, Me.Label26, Me.lblSachbearbeiter, Me.Label29, Me.lblFirmenbuch, Me.Label31, Me.lblUID, Me.lblRechnung_Name1, Me.lblRechnung_Name2, Me.lblRechnung_Strasse, Me.lblRechnung_Ort, Me.Label48, Me.lblEORI, Me.lblRechnung_UID_Ueberschrift, Me.lblRechnung_UID, Me.lblRechnung_Steuernummer_Ueberschrift, Me.lblRechnung_Steuernummer, Me.Line13, Me.lblFirma, Me.lblRechnung_Land})
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblRgNr, Me.lblRgNrUeberschrift, Me.Picture1, Me.picVERAG, Me.lblKundenNrUeberschrift, Me.lblUeberschriftRG_GS, Me.lblKundenNr, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.lblRgDatumUeberschrift, Me.lblRgDatum, Me.lblSachbearbeiterUeberschrift, Me.lblSachbearbeiter, Me.lblFirmenbuchUeberschrift, Me.lblFirmenbuch, Me.lblUIDUeberschrift, Me.lblUID, Me.lblRechnung_Name1, Me.lblRechnung_Name2, Me.lblRechnung_Strasse, Me.lblRechnung_Ort, Me.lblEORIUeberschrift, Me.lblEORI, Me.lblRechnung_UID_Ueberschrift, Me.lblRechnung_UID, Me.lblRechnung_Steuernummer_Ueberschrift, Me.lblRechnung_Steuernummer, Me.Line13, Me.lblFirma, Me.lblRechnung_Land})
Me.ReportHeader1.Height = 4.168913!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -387,17 +387,17 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.lblRgNr.Top = 0.7503937!
Me.lblRgNr.Width = 1.958268!
'
'Label16
'lblRgNrUeberschrift
'
Me.Label16.Height = 0.1574803!
Me.Label16.HyperLink = Nothing
Me.Label16.Left = 5.104331!
Me.Label16.Name = "Label16"
Me.Label16.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblRgNrUeberschrift.Height = 0.1574803!
Me.lblRgNrUeberschrift.HyperLink = Nothing
Me.lblRgNrUeberschrift.Left = 5.104331!
Me.lblRgNrUeberschrift.Name = "lblRgNrUeberschrift"
Me.lblRgNrUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label16.Text = "Rechnungs-Nr.:"
Me.Label16.Top = 0.7503937!
Me.Label16.Width = 1.165748!
Me.lblRgNrUeberschrift.Text = "Rechnungs-Nr.:"
Me.lblRgNrUeberschrift.Top = 0.7503937!
Me.lblRgNrUeberschrift.Width = 1.165748!
'
'Picture1
'
@@ -421,17 +421,17 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.482677!
'
'Label3
'lblKundenNrUeberschrift
'
Me.Label3.Height = 0.1574803!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 5.104331!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblKundenNrUeberschrift.Height = 0.1574803!
Me.lblKundenNrUeberschrift.HyperLink = Nothing
Me.lblKundenNrUeberschrift.Left = 5.104331!
Me.lblKundenNrUeberschrift.Name = "lblKundenNrUeberschrift"
Me.lblKundenNrUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label3.Text = "Kunden-Nr.:"
Me.Label3.Top = 2.328347!
Me.Label3.Width = 1.165748!
Me.lblKundenNrUeberschrift.Text = "Kunden-Nr.:"
Me.lblKundenNrUeberschrift.Top = 2.328347!
Me.lblKundenNrUeberschrift.Width = 1.165748!
'
'lblUeberschriftRG_GS
'
@@ -542,17 +542,17 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.lblFirmaWeb.Top = 0.868504!
Me.lblFirmaWeb.Width = 1.436614!
'
'Label18
'lblRgDatumUeberschrift
'
Me.Label18.Height = 0.1574803!
Me.Label18.HyperLink = Nothing
Me.Label18.Left = 5.104331!
Me.Label18.Name = "Label18"
Me.Label18.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblRgDatumUeberschrift.Height = 0.1574803!
Me.lblRgDatumUeberschrift.HyperLink = Nothing
Me.lblRgDatumUeberschrift.Left = 5.104331!
Me.lblRgDatumUeberschrift.Name = "lblRgDatumUeberschrift"
Me.lblRgDatumUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label18.Text = "Rechnungs-Datum:"
Me.Label18.Top = 0.9078741!
Me.Label18.Width = 1.165748!
Me.lblRgDatumUeberschrift.Text = "Rechnungs-Datum:"
Me.lblRgDatumUeberschrift.Top = 0.9078741!
Me.lblRgDatumUeberschrift.Width = 1.165748!
'
'lblRgDatum
'
@@ -566,17 +566,17 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.lblRgDatum.Top = 0.907874!
Me.lblRgDatum.Width = 1.958268!
'
'Label26
'lblSachbearbeiterUeberschrift
'
Me.Label26.Height = 0.1574803!
Me.Label26.HyperLink = Nothing
Me.Label26.Left = 5.104332!
Me.Label26.Name = "Label26"
Me.Label26.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblSachbearbeiterUeberschrift.Height = 0.1574803!
Me.lblSachbearbeiterUeberschrift.HyperLink = Nothing
Me.lblSachbearbeiterUeberschrift.Left = 5.104332!
Me.lblSachbearbeiterUeberschrift.Name = "lblSachbearbeiterUeberschrift"
Me.lblSachbearbeiterUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label26.Text = "Sachbearbeiter/in:"
Me.Label26.Top = 1.556693!
Me.Label26.Width = 1.165748!
Me.lblSachbearbeiterUeberschrift.Text = "Sachbearbeiter/in:"
Me.lblSachbearbeiterUeberschrift.Top = 1.556693!
Me.lblSachbearbeiterUeberschrift.Width = 1.165748!
'
'lblSachbearbeiter
'
@@ -590,17 +590,17 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.lblSachbearbeiter.Top = 1.556693!
Me.lblSachbearbeiter.Width = 1.958268!
'
'Label29
'lblFirmenbuchUeberschrift
'
Me.Label29.Height = 0.1574803!
Me.Label29.HyperLink = Nothing
Me.Label29.Left = 5.104332!
Me.Label29.Name = "Label29"
Me.Label29.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblFirmenbuchUeberschrift.Height = 0.1574803!
Me.lblFirmenbuchUeberschrift.HyperLink = Nothing
Me.lblFirmenbuchUeberschrift.Left = 5.104332!
Me.lblFirmenbuchUeberschrift.Name = "lblFirmenbuchUeberschrift"
Me.lblFirmenbuchUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label29.Text = "Firmenbuch:"
Me.Label29.Top = 1.714173!
Me.Label29.Width = 1.165748!
Me.lblFirmenbuchUeberschrift.Text = "Firmenbuch:"
Me.lblFirmenbuchUeberschrift.Top = 1.714173!
Me.lblFirmenbuchUeberschrift.Width = 1.165748!
'
'lblFirmenbuch
'
@@ -614,17 +614,17 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.lblFirmenbuch.Top = 1.714173!
Me.lblFirmenbuch.Width = 1.958268!
'
'Label31
'lblUIDUeberschrift
'
Me.Label31.Height = 0.1574803!
Me.Label31.HyperLink = Nothing
Me.Label31.Left = 5.104332!
Me.Label31.Name = "Label31"
Me.Label31.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblUIDUeberschrift.Height = 0.1574803!
Me.lblUIDUeberschrift.HyperLink = Nothing
Me.lblUIDUeberschrift.Left = 5.104332!
Me.lblUIDUeberschrift.Name = "lblUIDUeberschrift"
Me.lblUIDUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label31.Text = "UID:"
Me.Label31.Top = 1.871653!
Me.Label31.Width = 1.165748!
Me.lblUIDUeberschrift.Text = "UID:"
Me.lblUIDUeberschrift.Top = 1.871653!
Me.lblUIDUeberschrift.Width = 1.165748!
'
'lblUID
'
@@ -686,17 +686,17 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.lblRechnung_Ort.Top = 2.40315!
Me.lblRechnung_Ort.Width = 4.589763!
'
'Label48
'lblEORIUeberschrift
'
Me.Label48.Height = 0.1574803!
Me.Label48.HyperLink = Nothing
Me.Label48.Left = 5.104331!
Me.Label48.Name = "Label48"
Me.Label48.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblEORIUeberschrift.Height = 0.1574803!
Me.lblEORIUeberschrift.HyperLink = Nothing
Me.lblEORIUeberschrift.Left = 5.104331!
Me.lblEORIUeberschrift.Name = "lblEORIUeberschrift"
Me.lblEORIUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label48.Text = "EORI:"
Me.Label48.Top = 2.025197!
Me.Label48.Width = 1.165748!
Me.lblEORIUeberschrift.Text = "EORI:"
Me.lblEORIUeberschrift.Top = 2.025197!
Me.lblEORIUeberschrift.Width = 1.165748!
'
'lblEORI
'
@@ -797,7 +797,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.Label9, Me.lblSteuerfreiGes, Me.lblSteuerpflichtigGes, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuerbetrag, Me.lblSteuersatz, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText})
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSteuerfreiGes, Me.lblSteuerpflichtigGes, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuerbetrag, Me.lblSteuersatz, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText})
Me.ReportFooter1.Height = 1.315354!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
@@ -828,16 +828,16 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.Line9.Y1 = 0.1035433!
Me.Line9.Y2 = 0.1035433!
'
'Label9
'lblSummeUeberschrift
'
Me.Label9.Height = 0.1574803!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 4.309449!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label9.Text = "Rechnungsbetrag"
Me.Label9.Top = 0.7165355!
Me.Label9.Width = 1.549213!
Me.lblSummeUeberschrift.Height = 0.1574803!
Me.lblSummeUeberschrift.HyperLink = Nothing
Me.lblSummeUeberschrift.Left = 4.309449!
Me.lblSummeUeberschrift.Name = "lblSummeUeberschrift"
Me.lblSummeUeberschrift.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSummeUeberschrift.Text = "Rechnungsbetrag"
Me.lblSummeUeberschrift.Top = 0.7165355!
Me.lblSummeUeberschrift.Width = 1.549213!
'
'lblSteuerfreiGes
'
@@ -1002,70 +1002,70 @@ Partial Public Class rptSammelRechnungAnlagenDruck
'
'GroupHeader4
'
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label2, Me.Label11, Me.Label4, Me.Label8, Me.Label6, Me.Line4, Me.Line12, Me.Line16, Me.Line15, Me.Line17})
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungsdatumUeberschrift, Me.lblSteuerpflichtigUeberschrift, Me.lblPosNrUeberschrift, Me.lblSendungUeberschrift, Me.lblSteuerfreiUeberschrift, Me.Line4, Me.Line12, Me.Line16, Me.Line15, Me.Line17})
Me.GroupHeader4.Height = 0.1944771!
Me.GroupHeader4.KeepTogether = True
Me.GroupHeader4.Name = "GroupHeader4"
'
'Label2
'lblLeistungsdatumUeberschrift
'
Me.Label2.Height = 0.1433071!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 1.211024!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; vertical" &
Me.lblLeistungsdatumUeberschrift.Height = 0.1433071!
Me.lblLeistungsdatumUeberschrift.HyperLink = Nothing
Me.lblLeistungsdatumUeberschrift.Left = 1.211024!
Me.lblLeistungsdatumUeberschrift.Name = "lblLeistungsdatumUeberschrift"
Me.lblLeistungsdatumUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; vertical" &
"-align: top; ddo-char-set: 1"
Me.Label2.Text = "Leistungsdatum"
Me.Label2.Top = 0!
Me.Label2.Width = 0.9976378!
Me.lblLeistungsdatumUeberschrift.Text = "Leistungsdatum"
Me.lblLeistungsdatumUeberschrift.Top = 0!
Me.lblLeistungsdatumUeberschrift.Width = 0.9976378!
'
'Label11
'lblSteuerpflichtigUeberschrift
'
Me.Label11.Height = 0.1433071!
Me.Label11.HyperLink = Nothing
Me.Label11.Left = 4.651181!
Me.Label11.Name = "Label11"
Me.Label11.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
Me.lblSteuerpflichtigUeberschrift.Height = 0.1433071!
Me.lblSteuerpflichtigUeberschrift.HyperLink = Nothing
Me.lblSteuerpflichtigUeberschrift.Left = 4.651181!
Me.lblSteuerpflichtigUeberschrift.Name = "lblSteuerpflichtigUeberschrift"
Me.lblSteuerpflichtigUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
"r-set: 1"
Me.Label11.Text = "Steuerpflichtig"
Me.Label11.Top = 0!
Me.Label11.Width = 1.207481!
Me.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig"
Me.lblSteuerpflichtigUeberschrift.Top = 0!
Me.lblSteuerpflichtigUeberschrift.Width = 1.207481!
'
'Label4
'lblPosNrUeberschrift
'
Me.Label4.Height = 0.1433071!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 0.01417252!
Me.Label4.Name = "Label4"
Me.Label4.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
Me.lblPosNrUeberschrift.Height = 0.1433071!
Me.lblPosNrUeberschrift.HyperLink = Nothing
Me.lblPosNrUeberschrift.Left = 0.01417252!
Me.lblPosNrUeberschrift.Name = "lblPosNrUeberschrift"
Me.lblPosNrUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lblPosNrUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1"
Me.Label4.Text = "Pos.Nr."
Me.Label4.Top = 0!
Me.Label4.Width = 1.196851!
Me.lblPosNrUeberschrift.Text = "Pos.Nr."
Me.lblPosNrUeberschrift.Top = 0!
Me.lblPosNrUeberschrift.Width = 1.196851!
'
'Label8
'lblSendungUeberschrift
'
Me.Label8.Height = 0.1433071!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 2.208662!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" &
Me.lblSendungUeberschrift.Height = 0.1433071!
Me.lblSendungUeberschrift.HyperLink = Nothing
Me.lblSendungUeberschrift.Left = 2.208662!
Me.lblSendungUeberschrift.Name = "lblSendungUeberschrift"
Me.lblSendungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" &
"ar-set: 1"
Me.Label8.Text = "Sendung"
Me.Label8.Top = 0!
Me.Label8.Width = 0.5771656!
Me.lblSendungUeberschrift.Text = "Sendung"
Me.lblSendungUeberschrift.Top = 0!
Me.lblSendungUeberschrift.Width = 0.5771656!
'
'Label6
'lblSteuerfreiUeberschrift
'
Me.Label6.Height = 0.1433071!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 5.858662!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label6.Text = "Steuerfrei"
Me.Label6.Top = 0!
Me.Label6.Width = 1.20748!
Me.lblSteuerfreiUeberschrift.Height = 0.1433071!
Me.lblSteuerfreiUeberschrift.HyperLink = Nothing
Me.lblSteuerfreiUeberschrift.Left = 5.858662!
Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift"
Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei"
Me.lblSteuerfreiUeberschrift.Top = 0!
Me.lblSteuerfreiUeberschrift.Width = 1.20748!
'
'Line4
'
@@ -1171,15 +1171,15 @@ Partial Public Class rptSammelRechnungAnlagenDruck
CType(Me.txtSendungsdetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPackstuecke, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBankUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBank2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDisclaimer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKundenNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaOrt, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1188,19 +1188,19 @@ Partial Public Class rptSammelRechnungAnlagenDruck
CType(Me.lblFirmaFax, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label18, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgDatumUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label26, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiterUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label29, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmenbuchUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmenbuch, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label31, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUIDUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUID, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Name1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Name2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Strasse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Ort, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label48, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEORIUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEORI, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_UID, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1208,7 +1208,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck
CType(Me.lblRechnung_Steuernummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Land, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerfreiGes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1217,16 +1217,16 @@ Partial Public Class rptSammelRechnungAnlagenDruck
CType(Me.lblSteuerbetrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuersatz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLeistungsdatumUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblPosNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSendungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKundenNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents lblUeberschriftRG_GS As GrapeCity.ActiveReports.SectionReportModel.Label
@@ -1239,23 +1239,23 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSteuerfreiUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSendungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblPosNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSteuerpflichtigUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSteuerfrei As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSteuerfreiGes As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label18 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label26 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label29 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label31 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblRgDatumUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSachbearbeiterUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFirmenbuchUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblUIDUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label48 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents TextBox13 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblEORIUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBankUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtDisclaimer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblRgNr As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
@@ -1294,13 +1294,13 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Private WithEvents Line16 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Line10 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Line11 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label16 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSummeUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRgNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblZwText As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line13 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line17 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblLeistungsdatumUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtKdAuftragsnummer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbfertigungsart As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtSendungsdetails As GrapeCity.ActiveReports.SectionReportModel.TextBox

2
SDL/Fakturierung/rptSammelRechnungAnlagenDruck.resx
View File

@@ -117,7 +117,7 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="TextBox13.Text" xml:space="preserve">
<data name="txtDisclaimer.Text" xml:space="preserve">
<value>Wir arbeiten ausschließlich auf Grund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten, Spesen und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding oder Passau. Steuer- Zoll- und Tarifauskünfte sind unverbindlich.
</value>
</data>

18
SDL/Fakturierung/rptSammelRechnungAnlagenDruck.vb
View File

@@ -2,6 +2,24 @@ Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSammelRechnungAnlagenDruck
Dim _LAN = ""
Sub New()
InitializeComponent()
End Sub
Sub New(_LAN)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me._LAN = _LAN
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
If _LAN.replace("DE", "") <> "" Then
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN)
End If
End Sub
End Class

402
SDL/Fakturierung/rptSammelRechnungDruck.Designer.vb generated
View File

@@ -29,16 +29,16 @@ Partial Public Class rptSammelRechnungDruck
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBankUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtBank1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBank2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox13 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDisclaimer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.lblRgNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label16 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRgNrUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKundenNrUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUeberschriftRG_GS = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKundenNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -48,19 +48,19 @@ Partial Public Class rptSammelRechnungDruck
Me.lblFirmaFax = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaEmail = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaWeb = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label18 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRgDatumUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRgDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label26 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSachbearbeiterUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label29 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmenbuchUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmenbuch = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label31 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUIDUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUID = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Name1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Name2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Strasse = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Ort = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label48 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblEORIUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblEORI = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_UID_Ueberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_UID = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -68,13 +68,13 @@ Partial Public Class rptSammelRechnungDruck
Me.lblRechnung_Steuernummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label24 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLKWIdUebeschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLKWId = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Land = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSteuerfreiGes = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSteuerpflichtigGes = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumme = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -91,10 +91,10 @@ Partial Public Class rptSammelRechnungDruck
Me.Line14 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblZwText = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLeistungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSteuerfreiUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -107,15 +107,15 @@ Partial Public Class rptSammelRechnungDruck
CType(Me.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBankUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBank2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDisclaimer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKundenNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaOrt, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -124,29 +124,29 @@ Partial Public Class rptSammelRechnungDruck
CType(Me.lblFirmaFax, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label18, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgDatumUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label26, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiterUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label29, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmenbuchUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmenbuch, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label31, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUIDUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUID, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Name1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Name2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Strasse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Ort, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label48, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEORIUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEORI, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_UID, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Steuernummer_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Steuernummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label24, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWIdUebeschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Land, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerfreiGes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -157,10 +157,10 @@ Partial Public Class rptSammelRechnungDruck
CType(Me.txtVermerk, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
@@ -262,7 +262,7 @@ Partial Public Class rptSammelRechnungDruck
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.Label28, Me.txtBank1, Me.txtBank2, Me.TextBox13})
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.lblBankUeberschrift, Me.txtBank1, Me.txtBank2, Me.txtDisclaimer})
Me.PageFooter.Height = 0.8791339!
Me.PageFooter.Name = "PageFooter"
'
@@ -289,17 +289,17 @@ Partial Public Class rptSammelRechnungDruck
Me.ReportInfo2.Top = 0.1173228!
Me.ReportInfo2.Width = 1.994928!
'
'Label28
'lblBankUeberschrift
'
Me.Label28.Height = 0.1574803!
Me.Label28.HyperLink = Nothing
Me.Label28.Left = 0.01417323!
Me.Label28.Name = "Label28"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" &
Me.lblBankUeberschrift.Height = 0.1574803!
Me.lblBankUeberschrift.HyperLink = Nothing
Me.lblBankUeberschrift.Left = 0.01417323!
Me.lblBankUeberschrift.Name = "lblBankUeberschrift"
Me.lblBankUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" &
"r-set: 1"
Me.Label28.Text = "Bankverbindungen:"
Me.Label28.Top = 0.1173228!
Me.Label28.Width = 1.155512!
Me.lblBankUeberschrift.Text = "Bankverbindungen:"
Me.lblBankUeberschrift.Top = 0.1173228!
Me.lblBankUeberschrift.Width = 1.155512!
'
'txtBank1
'
@@ -308,8 +308,8 @@ Partial Public Class rptSammelRechnungDruck
Me.txtBank1.Name = "txtBank1"
Me.txtBank1.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" &
"ar-set: 1"
Me.txtBank1.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" &
"455"
Me.txtBank1.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L455" &
""
Me.txtBank1.Top = 0.1173228!
Me.txtBank1.Width = 2.512205!
'
@@ -325,20 +325,20 @@ Partial Public Class rptSammelRechnungDruck
Me.txtBank2.Top = 0.1173228!
Me.txtBank2.Width = 2.837401!
'
'TextBox13
'txtDisclaimer
'
Me.TextBox13.Height = 0.2708662!
Me.TextBox13.Left = 0.01417323!
Me.TextBox13.Name = "TextBox13"
Me.TextBox13.Style = "font-size: 7.8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-" &
Me.txtDisclaimer.Height = 0.2708662!
Me.txtDisclaimer.Left = 0.01417323!
Me.txtDisclaimer.Name = "txtDisclaimer"
Me.txtDisclaimer.Style = "font-size: 7.8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-" &
"char-set: 1"
Me.TextBox13.Text = resources.GetString("TextBox13.Text")
Me.TextBox13.Top = 0.6082678!
Me.TextBox13.Width = 7.466143!
Me.txtDisclaimer.Text = resources.GetString("txtDisclaimer.Text")
Me.txtDisclaimer.Top = 0.6082678!
Me.txtDisclaimer.Width = 7.466143!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblRgNr, Me.Label16, Me.Picture1, Me.picVERAG, Me.Label3, Me.lblUeberschriftRG_GS, Me.lblKundenNr, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.Label18, Me.lblRgDatum, Me.Label26, Me.lblSachbearbeiter, Me.Label29, Me.lblFirmenbuch, Me.Label31, Me.lblUID, Me.lblRechnung_Name1, Me.lblRechnung_Name2, Me.lblRechnung_Strasse, Me.lblRechnung_Ort, Me.Label48, Me.lblEORI, Me.lblRechnung_UID_Ueberschrift, Me.lblRechnung_UID, Me.lblRechnung_Steuernummer_Ueberschrift, Me.lblRechnung_Steuernummer, Me.Line13, Me.lblFirma, Me.Label24, Me.lblLKWId, Me.lblRechnung_Land})
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblRgNr, Me.lblRgNrUeberschrift, Me.Picture1, Me.picVERAG, Me.lblKundenNrUeberschrift, Me.lblUeberschriftRG_GS, Me.lblKundenNr, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.lblRgDatumUeberschrift, Me.lblRgDatum, Me.lblSachbearbeiterUeberschrift, Me.lblSachbearbeiter, Me.lblFirmenbuchUeberschrift, Me.lblFirmenbuch, Me.lblUIDUeberschrift, Me.lblUID, Me.lblRechnung_Name1, Me.lblRechnung_Name2, Me.lblRechnung_Strasse, Me.lblRechnung_Ort, Me.lblEORIUeberschrift, Me.lblEORI, Me.lblRechnung_UID_Ueberschrift, Me.lblRechnung_UID, Me.lblRechnung_Steuernummer_Ueberschrift, Me.lblRechnung_Steuernummer, Me.Line13, Me.lblFirma, Me.lblLKWIdUebeschrift, Me.lblLKWId, Me.lblRechnung_Land})
Me.ReportHeader1.Height = 4.168913!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -354,17 +354,17 @@ Partial Public Class rptSammelRechnungDruck
Me.lblRgNr.Top = 0.7503937!
Me.lblRgNr.Width = 1.958268!
'
'Label16
'lblRgNrUeberschrift
'
Me.Label16.Height = 0.1574803!
Me.Label16.HyperLink = Nothing
Me.Label16.Left = 5.104331!
Me.Label16.Name = "Label16"
Me.Label16.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblRgNrUeberschrift.Height = 0.1574803!
Me.lblRgNrUeberschrift.HyperLink = Nothing
Me.lblRgNrUeberschrift.Left = 5.104331!
Me.lblRgNrUeberschrift.Name = "lblRgNrUeberschrift"
Me.lblRgNrUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label16.Text = "Rechnungs-Nr.:"
Me.Label16.Top = 0.7503937!
Me.Label16.Width = 1.165748!
Me.lblRgNrUeberschrift.Text = "Rechnungs-Nr.:"
Me.lblRgNrUeberschrift.Top = 0.7503937!
Me.lblRgNrUeberschrift.Width = 1.165748!
'
'Picture1
'
@@ -388,17 +388,17 @@ Partial Public Class rptSammelRechnungDruck
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.482677!
'
'Label3
'lblKundenNrUeberschrift
'
Me.Label3.Height = 0.1574803!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 5.104331!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblKundenNrUeberschrift.Height = 0.1574803!
Me.lblKundenNrUeberschrift.HyperLink = Nothing
Me.lblKundenNrUeberschrift.Left = 5.104331!
Me.lblKundenNrUeberschrift.Name = "lblKundenNrUeberschrift"
Me.lblKundenNrUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label3.Text = "Kunden-Nr.:"
Me.Label3.Top = 2.328347!
Me.Label3.Width = 1.165748!
Me.lblKundenNrUeberschrift.Text = "Kunden-Nr.:"
Me.lblKundenNrUeberschrift.Top = 2.328347!
Me.lblKundenNrUeberschrift.Width = 1.165748!
'
'lblUeberschriftRG_GS
'
@@ -509,17 +509,17 @@ Partial Public Class rptSammelRechnungDruck
Me.lblFirmaWeb.Top = 0.868504!
Me.lblFirmaWeb.Width = 1.436614!
'
'Label18
'lblRgDatumUeberschrift
'
Me.Label18.Height = 0.1574803!
Me.Label18.HyperLink = Nothing
Me.Label18.Left = 5.104331!
Me.Label18.Name = "Label18"
Me.Label18.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblRgDatumUeberschrift.Height = 0.1574803!
Me.lblRgDatumUeberschrift.HyperLink = Nothing
Me.lblRgDatumUeberschrift.Left = 5.104331!
Me.lblRgDatumUeberschrift.Name = "lblRgDatumUeberschrift"
Me.lblRgDatumUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label18.Text = "Rechnungs-Datum:"
Me.Label18.Top = 0.9078741!
Me.Label18.Width = 1.165748!
Me.lblRgDatumUeberschrift.Text = "Rechnungs-Datum:"
Me.lblRgDatumUeberschrift.Top = 0.9078741!
Me.lblRgDatumUeberschrift.Width = 1.165748!
'
'lblRgDatum
'
@@ -533,17 +533,17 @@ Partial Public Class rptSammelRechnungDruck
Me.lblRgDatum.Top = 0.907874!
Me.lblRgDatum.Width = 1.958268!
'
'Label26
'lblSachbearbeiterUeberschrift
'
Me.Label26.Height = 0.1574803!
Me.Label26.HyperLink = Nothing
Me.Label26.Left = 5.104332!
Me.Label26.Name = "Label26"
Me.Label26.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblSachbearbeiterUeberschrift.Height = 0.1574803!
Me.lblSachbearbeiterUeberschrift.HyperLink = Nothing
Me.lblSachbearbeiterUeberschrift.Left = 5.104332!
Me.lblSachbearbeiterUeberschrift.Name = "lblSachbearbeiterUeberschrift"
Me.lblSachbearbeiterUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label26.Text = "Sachbearbeiter/in:"
Me.Label26.Top = 1.556693!
Me.Label26.Width = 1.165748!
Me.lblSachbearbeiterUeberschrift.Text = "Sachbearbeiter/in:"
Me.lblSachbearbeiterUeberschrift.Top = 1.556693!
Me.lblSachbearbeiterUeberschrift.Width = 1.165748!
'
'lblSachbearbeiter
'
@@ -557,17 +557,17 @@ Partial Public Class rptSammelRechnungDruck
Me.lblSachbearbeiter.Top = 1.556693!
Me.lblSachbearbeiter.Width = 1.958268!
'
'Label29
'lblFirmenbuchUeberschrift
'
Me.Label29.Height = 0.1574803!
Me.Label29.HyperLink = Nothing
Me.Label29.Left = 5.104332!
Me.Label29.Name = "Label29"
Me.Label29.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblFirmenbuchUeberschrift.Height = 0.1574803!
Me.lblFirmenbuchUeberschrift.HyperLink = Nothing
Me.lblFirmenbuchUeberschrift.Left = 5.104332!
Me.lblFirmenbuchUeberschrift.Name = "lblFirmenbuchUeberschrift"
Me.lblFirmenbuchUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label29.Text = "Firmenbuch:"
Me.Label29.Top = 1.714173!
Me.Label29.Width = 1.165748!
Me.lblFirmenbuchUeberschrift.Text = "Firmenbuch:"
Me.lblFirmenbuchUeberschrift.Top = 1.714173!
Me.lblFirmenbuchUeberschrift.Width = 1.165748!
'
'lblFirmenbuch
'
@@ -581,17 +581,17 @@ Partial Public Class rptSammelRechnungDruck
Me.lblFirmenbuch.Top = 1.714173!
Me.lblFirmenbuch.Width = 1.958268!
'
'Label31
'lblUIDUeberschrift
'
Me.Label31.Height = 0.1574803!
Me.Label31.HyperLink = Nothing
Me.Label31.Left = 5.104332!
Me.Label31.Name = "Label31"
Me.Label31.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblUIDUeberschrift.Height = 0.1574803!
Me.lblUIDUeberschrift.HyperLink = Nothing
Me.lblUIDUeberschrift.Left = 5.104332!
Me.lblUIDUeberschrift.Name = "lblUIDUeberschrift"
Me.lblUIDUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label31.Text = "UID:"
Me.Label31.Top = 1.871653!
Me.Label31.Width = 1.165748!
Me.lblUIDUeberschrift.Text = "UID:"
Me.lblUIDUeberschrift.Top = 1.871653!
Me.lblUIDUeberschrift.Width = 1.165748!
'
'lblUID
'
@@ -653,17 +653,17 @@ Partial Public Class rptSammelRechnungDruck
Me.lblRechnung_Ort.Top = 2.40315!
Me.lblRechnung_Ort.Width = 3.592913!
'
'Label48
'lblEORIUeberschrift
'
Me.Label48.Height = 0.1574803!
Me.Label48.HyperLink = Nothing
Me.Label48.Left = 5.104331!
Me.Label48.Name = "Label48"
Me.Label48.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblEORIUeberschrift.Height = 0.1574803!
Me.lblEORIUeberschrift.HyperLink = Nothing
Me.lblEORIUeberschrift.Left = 5.104331!
Me.lblEORIUeberschrift.Name = "lblEORIUeberschrift"
Me.lblEORIUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label48.Text = "EORI:"
Me.Label48.Top = 2.025197!
Me.Label48.Width = 1.165748!
Me.lblEORIUeberschrift.Text = "EORI:"
Me.lblEORIUeberschrift.Top = 2.025197!
Me.lblEORIUeberschrift.Width = 1.165748!
'
'lblEORI
'
@@ -750,17 +750,17 @@ Partial Public Class rptSammelRechnungDruck
Me.lblFirma.Top = 1.651182!
Me.lblFirma.Width = 3.619685!
'
'Label24
'lblLKWIdUebeschrift
'
Me.Label24.Height = 0.1574803!
Me.Label24.HyperLink = Nothing
Me.Label24.Left = 5.104331!
Me.Label24.Name = "Label24"
Me.Label24.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
Me.lblLKWIdUebeschrift.Height = 0.1574803!
Me.lblLKWIdUebeschrift.HyperLink = Nothing
Me.lblLKWIdUebeschrift.Left = 5.104331!
Me.lblLKWIdUebeschrift.Name = "lblLKWIdUebeschrift"
Me.lblLKWIdUebeschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label24.Text = "LKW-ID:"
Me.Label24.Top = 1.065354!
Me.Label24.Width = 1.165748!
Me.lblLKWIdUebeschrift.Text = "LKW-ID:"
Me.lblLKWIdUebeschrift.Top = 1.065354!
Me.lblLKWIdUebeschrift.Width = 1.165748!
'
'lblLKWId
'
@@ -788,7 +788,7 @@ Partial Public Class rptSammelRechnungDruck
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.Label9, Me.lblSteuerfreiGes, Me.lblSteuerpflichtigGes, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuerbetrag, Me.lblSteuersatz, Me.txtVermerk, Me.txtInfo, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText})
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSteuerfreiGes, Me.lblSteuerpflichtigGes, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuerbetrag, Me.lblSteuersatz, Me.txtVermerk, Me.txtInfo, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText})
Me.ReportFooter1.Height = 1.315354!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
@@ -819,16 +819,16 @@ Partial Public Class rptSammelRechnungDruck
Me.Line9.Y1 = 0.1035433!
Me.Line9.Y2 = 0.1035433!
'
'Label9
'lblSummeUeberschrift
'
Me.Label9.Height = 0.1574803!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 3.957481!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label9.Text = "Rechnungsbetrag"
Me.Label9.Top = 0.7165355!
Me.Label9.Width = 1.549213!
Me.lblSummeUeberschrift.Height = 0.1574803!
Me.lblSummeUeberschrift.HyperLink = Nothing
Me.lblSummeUeberschrift.Left = 3.957481!
Me.lblSummeUeberschrift.Name = "lblSummeUeberschrift"
Me.lblSummeUeberschrift.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSummeUeberschrift.Text = "Rechnungsbetrag"
Me.lblSummeUeberschrift.Top = 0.7165355!
Me.lblSummeUeberschrift.Width = 1.549213!
'
'lblSteuerfreiGes
'
@@ -1015,58 +1015,58 @@ Partial Public Class rptSammelRechnungDruck
'
'GroupHeader4
'
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label11, Me.Label4, Me.Label8, Me.Label6, Me.Line4, Me.Line12, Me.Line16, Me.Line15, Me.Line17})
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSteuerpflichtigUeberschrift, Me.lblLeistungUeberschrift, Me.lblAnzahlUeberschrift, Me.lblSteuerfreiUeberschrift, Me.Line4, Me.Line12, Me.Line16, Me.Line15, Me.Line17})
Me.GroupHeader4.Height = 0.1840605!
Me.GroupHeader4.KeepTogether = True
Me.GroupHeader4.Name = "GroupHeader4"
'
'Label11
'lblSteuerpflichtigUeberschrift
'
Me.Label11.Height = 0.1433071!
Me.Label11.HyperLink = Nothing
Me.Label11.Left = 3.957481!
Me.Label11.Name = "Label11"
Me.Label11.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
Me.lblSteuerpflichtigUeberschrift.Height = 0.1433071!
Me.lblSteuerpflichtigUeberschrift.HyperLink = Nothing
Me.lblSteuerpflichtigUeberschrift.Left = 3.957481!
Me.lblSteuerpflichtigUeberschrift.Name = "lblSteuerpflichtigUeberschrift"
Me.lblSteuerpflichtigUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
"r-set: 1"
Me.Label11.Text = "Steuerpflichtig"
Me.Label11.Top = 0!
Me.Label11.Width = 1.554331!
Me.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig"
Me.lblSteuerpflichtigUeberschrift.Top = 0!
Me.lblSteuerpflichtigUeberschrift.Width = 1.554331!
'
'Label4
'lblLeistungUeberschrift
'
Me.Label4.Height = 0.1433071!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 0.01417252!
Me.Label4.Name = "Label4"
Me.Label4.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
Me.lblLeistungUeberschrift.Height = 0.1433071!
Me.lblLeistungUeberschrift.HyperLink = Nothing
Me.lblLeistungUeberschrift.Left = 0.01417252!
Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift"
Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1"
Me.Label4.Text = "Leistung"
Me.Label4.Top = 0!
Me.Label4.Width = 3.366143!
Me.lblLeistungUeberschrift.Text = "Leistung"
Me.lblLeistungUeberschrift.Top = 0!
Me.lblLeistungUeberschrift.Width = 3.366143!
'
'Label8
'lblAnzahlUeberschrift
'
Me.Label8.Height = 0.1433071!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.380315!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" &
Me.lblAnzahlUeberschrift.Height = 0.1433071!
Me.lblAnzahlUeberschrift.HyperLink = Nothing
Me.lblAnzahlUeberschrift.Left = 3.380315!
Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift"
Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" &
"ar-set: 1"
Me.Label8.Text = "Anzahl"
Me.Label8.Top = 0!
Me.Label8.Width = 0.5771656!
Me.lblAnzahlUeberschrift.Text = "Anzahl"
Me.lblAnzahlUeberschrift.Top = 0!
Me.lblAnzahlUeberschrift.Width = 0.5771656!
'
'Label6
'lblSteuerfreiUeberschrift
'
Me.Label6.Height = 0.143307!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 5.511812!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label6.Text = "Steuerfrei"
Me.Label6.Top = 0!
Me.Label6.Width = 1.554331!
Me.lblSteuerfreiUeberschrift.Height = 0.143307!
Me.lblSteuerfreiUeberschrift.HyperLink = Nothing
Me.lblSteuerfreiUeberschrift.Left = 5.511812!
Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift"
Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei"
Me.lblSteuerfreiUeberschrift.Top = 0!
Me.lblSteuerfreiUeberschrift.Width = 1.554331!
'
'Line4
'
@@ -1169,15 +1169,15 @@ Partial Public Class rptSammelRechnungDruck
CType(Me.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBankUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBank2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDisclaimer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKundenNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaOrt, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1186,29 +1186,29 @@ Partial Public Class rptSammelRechnungDruck
CType(Me.lblFirmaFax, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label18, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgDatumUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label26, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiterUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label29, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmenbuchUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmenbuch, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label31, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUIDUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUID, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Name1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Name2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Strasse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Ort, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label48, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEORIUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEORI, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_UID, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Steuernummer_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Steuernummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label24, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWIdUebeschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Land, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerfreiGes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1219,15 +1219,15 @@ Partial Public Class rptSammelRechnungDruck
CType(Me.txtVermerk, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKundenNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents lblUeberschriftRG_GS As GrapeCity.ActiveReports.SectionReportModel.Label
@@ -1240,23 +1240,23 @@ Partial Public Class rptSammelRechnungDruck
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSteuerfreiUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzahlUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblLeistungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSteuerpflichtigUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSteuerfrei As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSteuerfreiGes As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label18 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label26 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label29 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label31 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblRgDatumUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSachbearbeiterUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFirmenbuchUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblUIDUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label48 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents TextBox13 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblEORIUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBankUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtDisclaimer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblRgNr As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
@@ -1298,13 +1298,13 @@ Partial Public Class rptSammelRechnungDruck
Private WithEvents Line16 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Line10 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Line11 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label16 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSummeUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRgNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblZwText As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line13 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line17 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Label24 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblLKWIdUebeschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblLKWId As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRechnung_Land As GrapeCity.ActiveReports.SectionReportModel.Label

2
SDL/Fakturierung/rptSammelRechnungDruck.resx
View File

@@ -117,7 +117,7 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="TextBox13.Text" xml:space="preserve">
<data name="txtDisclaimer.Text" xml:space="preserve">
<value>Wir arbeiten ausschließlich auf Grund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten, Spesen und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding oder Passau. Steuer- Zoll- und Tarifauskünfte sind unverbindlich.
</value>
</data>

21
SDL/Fakturierung/rptSammelRechnungDruck.vb
View File

@@ -2,8 +2,23 @@ Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSammelRechnungDruck
Private Sub GroupHeader3_Format(sender As Object, e As EventArgs)
Dim _LAN = ""
Sub New()
InitializeComponent()
End Sub
Sub New(_LAN)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me._LAN = _LAN
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
If _LAN.replace("DE", "") <> "" Then
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN)
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN)
End If
End Sub
End Class

3269
SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

18
SDL/Fakturierung/usrCntlFaktAbrechnung.resx
View File

@@ -135,6 +135,24 @@
<metadata name="Aufschubkonto.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Leistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Anzahl.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Preis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="SteuerpflichtigerBetrag.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="SteuerfreierBetrag.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Aufschubkonto.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnOK.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

48
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -258,6 +258,8 @@ Public Class usrCntlFaktAbrechnung
cboSammelrechnung.changeItem(RECHNUNG.Sammelrechnung)
txtZollbelegNr.Text = If(RECHNUNG.BelegNr, "")
cboRechnungSprache.changeItem(If(RECHNUNG.RechnungSprache, "DE"))
txtWarenwertUmrechnung.Text = ""
txtWarenwert._value = If(RECHNUNG.Wert, "")
cboWaehrung.changeItem(If(RECHNUNG.WährungsNr, 900))
@@ -474,19 +476,32 @@ Public Class usrCntlFaktAbrechnung
cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 pro LKW", 7))
cboSammelrechnung.changeItem(0)
cboRechnungSprache.Items.Clear()
cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
cboRechnungSprache.changeItem(0)
'cboSteuerschlüssel.fillWithSQL("SELECT tblSteuersätze.Nr, tblSteuersätze.Beschreibung FROM tblSteuersätze ORDER BY tblSteuersätze.Nr; ", False, "FMZOLL", True)
cboSteuerschlüssel.fillWithSQL("SELECT [Steuerschlüssel],isnull([Steuerbezeichnung],'') as Steuerbezeichnung FROM [Steuertabelle] ORDER BY [Steuerschlüssel]", False, "FMZOLL", True)
Dim whereFirma = ""
Dim firstEmpty = False
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG", "IMEX" : whereFirma = " AND Firma_ID NOT IN (21,22,23,24) " : pnlDocs.Visible = True
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
FirmaTmp = "VERAGIMEX"
End If
Select Case FirmaTmp
Case "VERAG", "IMEX" : whereFirma = " AND FIRMENGRUPPE IN ('VERAG','ATILLA','FRONTOFFICE') " : pnlDocs.Visible = True
'Case "VERAG" : whereFirma = " AND Firma_ID<>20 " : pnlDocs.Visible = True
'Case "IMEX" : whereFirma = " AND Firma_ID=20 "
Case "ATILLA" : whereFirma = " AND Firma_ID=7 " : pnlDocs.Visible = True
Case "UNISPED" : whereFirma = " AND Firma_ID IN (21,22,23) " : firstEmpty = True
Case "UNISPED" : whereFirma = " AND FIRMENGRUPPE IN ('UNISPED') " : firstEmpty = True
Case "AMBAR" : whereFirma = " AND Firma_ID=24 "
Case "FRONT-OFFICE" : whereFirma = " AND Firma_ID=17 "
Case "VERAGIMEX" : whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') "
End Select
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID NOT IN(3) " & whereFirma & " ORDER BY Firma_ID ", True, "FMZOLL", firstEmpty)
@@ -729,7 +744,7 @@ Public Class usrCntlFaktAbrechnung
If KUNDE_ERW.kde_BesonderheitenNeu Then
rtbAbf_Besonderheiten.Size = txtBesonderheiten.Size
rtbAbf_Besonderheiten.init(kdFirmaRechnungAn.KdNr_value, "VRR", True)
rtbAbf_Besonderheiten.init(kdFirmaRechnungAn.KdNr_value, , True, "VRR", "'ZOLL','ALLG','DISPO'")
rtbAbf_Besonderheiten.Visible = True
Else
rtbAbf_Besonderheiten.Visible = False
@@ -740,6 +755,7 @@ Public Class usrCntlFaktAbrechnung
RECHNUNG.Vorkasse = KD.Vorkasse
RECHNUNG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen
RECHNUNG.Vorlageprovision_Proz = KD.Vorlageprovision
RECHNUNG.Lastschrift = KD.Lastschrift
End If
@@ -1276,10 +1292,14 @@ Public Class usrCntlFaktAbrechnung
lblErrUnterNr.Visible = False
If Not IsNumeric(cboFiliale._value) Then lblErrFiliale.Visible = True : Exit Sub
If Not IsNumeric(txtAbfertigungsnummer.Text) OrElse txtAbfertigungsnummer.Text.Length <> 8 Then lblAbfNr_Err.Visible = True : Exit Sub
If Not IsNumeric(cboSpedBuchUnterNr._value) Then lblErrUnterNr.Visible = True : Exit Sub
Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(cboFiliale._value, txtAbfertigungsnummer.Text, cboSpedBuchUnterNr._value) 'txtUnterNr.Text)
If Not SPEDBUCH.hasEntry Then lblAbfNrExists.Visible = True : Exit Sub
@@ -1539,6 +1559,10 @@ Public Class usrCntlFaktAbrechnung
Case 17 : pic.BackgroundImage = My.Resources.FrontOfficeSUB_Horizontal
pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.DarkRed
Case 26 : pic.BackgroundImage = My.Resources.VERAG_UNISPED_Logo
pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.DarkRed
Case Else : pic.BackgroundImage = Nothing
pnlTop.BackColor = Color.Gray : errCOlor = Color.white
@@ -1587,6 +1611,7 @@ Public Class usrCntlFaktAbrechnung
Case "5501" : cboFirma.changeItem(20) : RECHNUNG.Firma_ID = 20
Case "5601" : cboFirma.changeItem("") : RECHNUNG.Firma_ID = -1 'UNISPED
Case "7001" : cboFirma.changeItem("") : RECHNUNG.Firma_ID = -1 'UK oder AG
Case "5701" : cboFirma.changeItem(24) : RECHNUNG.Firma_ID = 24'AMBAR
Case "5801" : cboFirma.changeItem(17) : RECHNUNG.Firma_ID = 17 'FRONT-OFFICE
@@ -1597,6 +1622,13 @@ Public Class usrCntlFaktAbrechnung
cboFirma.changeItem(1) : RECHNUNG.Firma_ID = 1
End If
End Select
Dim FIRMATMP = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value)
kdFirmaRechnungAn._UseFIRMA = FIRMATMP
kdFirmaAbsender._UseFIRMA = FIRMATMP
kdFirmaAuftraggeber._UseFIRMA = FIRMATMP
kdFirmaEmpfaenger._UseFIRMA = FIRMATMP
kdFirmaAvisierer._UseFIRMA = FIRMATMP
End Sub
Sub getValues()
@@ -1620,6 +1652,11 @@ Public Class usrCntlFaktAbrechnung
RECHNUNG.Sammelrechnung = cProgramFunctions.isLeerNothing(cboSammelrechnung._value)
RECHNUNG.RechnungSprache = cboRechnungSprache._value
If RECHNUNG.RechnungSprache = "" Then RECHNUNG.RechnungSprache = "DE"
RECHNUNG.BelegNr = txtZollbelegNr.Text
RECHNUNG.AbsenderKundenNr = kdFirmaAbsender.KdNrNullInt
@@ -3113,7 +3150,8 @@ 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
If cFakturierung.doRechnungsDruck(RECHNUNG,,, 0,, getPrinterFromParent, cbxOriginalPrint.Checked) Then
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()
RaiseEvent SOMETHING_CHANGED(-1)
End If

120
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb
View File

@@ -208,10 +208,33 @@
txtEustProzent.changeItem("0,19")
End If
cboFirma.Items.Clear()
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "UNISPED"
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Speditions GmbH", "21"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Deutschland Speditions GmbH", "22"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Zollservice GmbH", "23"))
cboFirma.changeItem("22")
Case "IMEX"
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "20"))
cboFirma.changeItem("20")
Case "AMBAR"
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "24"))
cboFirma.changeItem("24")
'Case "XXX"
' cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-UNISPED LTD", "26"))
' cboFirma.changeItem("26")
Case Else
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "1"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "11"))
cboFirma.changeItem("1")
End Select
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "AG"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "CS"))
cboFirma.changeItem("AG")
cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -237,14 +260,47 @@
Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtHerrFrau.TextChanged
End Sub
Sub initBerechnung()
If txtUid.Text = "" Then
If txtMwstProzent._value = "" Then
txtMwstProzent._value = 0.2
End If
Else
txtMwstProzent._value = 0
Sub initSteuersatz()
Dim bool_steuerberechnung = True
If cboFirma._value <> "" Then
Dim FIRMA_TMP = New VERAG_PROG_ALLGEMEIN.cFirmen(cbofirma._value)
Select Case FIRMA_TMP.Firma_LandKz
Case "A", "AT"
If txtUid.Text.Trim = "" OrElse txtUid.Text.ToUpper.StartsWith("AT") Then
'If txtMwstProzent._value = "" Then
txtMwstProzent._value = 0.2
'End If
Else
txtMwstProzent._value = 0
bool_steuerberechnung = False
End If
Case Else '"D"
If txtUid.Text.Trim = "" OrElse txtUid.Text.ToUpper.StartsWith("DE") Then
'If txtMwstProzent._value = "" Then
txtMwstProzent._value = 0.19
' End If
Else
txtMwstProzent._value = 0
bool_steuerberechnung = False
End If
End Select
End If
If bool_steuerberechnung Then
txtMwstProzent.Visible = True
txtMWST.Visible = True
Label14.Visible = True
Else
txtMwstProzent.Visible = False
txtMWST.Visible = False
Label14.Visible = False
txtMWST.Visible = False
End If
End Sub
Sub initBerechnung()
initSteuersatz()
' MsgBox(lblRechnungsbetrag.Text)
' MsgBox(lblRechnungsbetrag._value)
' MsgBox(Vl(lblRechnungsbetrag))
@@ -302,31 +358,7 @@
End Function
Private Sub txtUid_TextChanged(sender As Object, e As EventArgs) Handles txtUid.TextChanged
Dim bool_steuerberechnung = True
If sender.text.trim = "" Then
bool_steuerberechnung = True
Else
bool_steuerberechnung = False
If sender.text.ToString.StartsWith("AT") Then
bool_steuerberechnung = True
End If
End If
If bool_steuerberechnung Then
txtMwstProzent.Visible = True
txtMWST.Visible = True
Label14.Visible = True
txtMwstProzent._value = "0,2"
Else
txtMwstProzent._value = "0"
txtMwstProzent.Visible = False
txtMWST.Visible = False
Label14.Visible = False
End If
txtMwstProzent.Visible = (sender.text.trim = "")
txtMWST.Visible = (sender.text.trim = "")
Label14.Visible = (sender.text.trim = "")
initBerechnung()
End Sub
@@ -339,19 +371,21 @@
Private Sub MyComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
If txtEustProzent._value <> "0" Then ' Wenn =, soll das bleiben
'Dim FIRMA_TMP = New VERAG_PROG_ALLGEMEIN.cFirmen(cboFiliale._value)
'Select Case FIRMA_TMP.Firma_LandKz
Select Case cboFirma._value
Case "CS"
Case "11" ', "21", "23"
txtEustProzent.changeItem("0,20")
Case "AG"
If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("20.12.2020") Then
txtEustProzent.changeItem("0,16")
Else
txtEustProzent.changeItem("0,19")
End If
Case Else
'If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("20.12.2020") Then
' txtEustProzent.changeItem("0,16")
'Else
' txtEustProzent.changeItem("0,19")
'End If
txtEustProzent.changeItem("0,19")
End Select
End If
initBerechnung()
End Sub
Private Sub pnlBottom_Paint(sender As Object, e As PaintEventArgs) Handles pnlBottom.Paint

26
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -228,6 +228,25 @@ Public Class frmFormulare
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal_IMEX))
Case "ATILLA"
Case "AMBAR"
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (VERAG Spedition AG)", FormularManagerArten.VUB_AG))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
cboVorlage.Items.Clear()
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
Case Else
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
@@ -1307,9 +1326,10 @@ Public Class FormularManagerNEU
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
Dim top = 0
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
top = 25
End If
If usrCntl.cbxEinmaligeVollmacht.Checked Then
listTowrite = addEinmaligeVM(listTowrite, 0, top + 200, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then
@@ -3051,7 +3071,7 @@ Public Class FormularManagerNEU
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
Case "IMEX", "AMBAR", "UNISPED"
Select Case usrCntl.cboSprache._value
Case "EN"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_EXPORT_EN", listTowrite)
@@ -3176,7 +3196,7 @@ Public Class FormularManagerNEU
Case Else
Select Case usrCntl.cboFirma._value
Case "CS" : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS_NEU2", listTowrite)
Case "11" : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS_NEU2", listTowrite)
Case Else : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG_NEU2", listTowrite)
End Select

12
SDL/My Project/Resources.Designer.vb generated
View File

@@ -2212,7 +2212,17 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.8.6 ähnelt.
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property VERAG_UNISPED_Logo() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("VERAG_UNISPED_Logo", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.9.2 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

5
SDL/My Project/Resources.resx
View File

@@ -638,7 +638,7 @@
<value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>1.1.8.6</value>
<value>1.1.9.2</value>
</data>
<data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -802,4 +802,7 @@
<data name="brexit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\brexit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="VERAG_UNISPED_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\VERAG-UNISPED-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

15
SDL/Reports/MDM/BriefSDl/rptSDLBrief.Designer.vb generated
View File

@@ -137,7 +137,7 @@ Partial Public Class rptSDLBrief
Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 0.0!
Me.SubReport.Top = 0!
Me.SubReport.Width = 6.496063!
'
'PageFooter
@@ -194,18 +194,19 @@ Partial Public Class rptSDLBrief
Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lbl.Text = "VERAG Spediton AG"
Me.lbl.Text = "VERAG 360 GmbH"
Me.lbl.Top = 1.472441!
Me.lbl.Width = 2.031496!
'
'Label1
'
Me.Label1.Height = 1.133071!
Me.Label1.Height = 1.333072!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left"
Me.Label1.Text = "Suben 15" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Fax. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 216714y" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU53187000"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" &
"" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 544732b" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 76165837"
Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496!
'
@@ -248,7 +249,7 @@ Partial Public Class rptSDLBrief
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0.0!
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'rptSDLBrief
@@ -266,10 +267,10 @@ Partial Public Class rptSDLBrief
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()

1607
SDL/Reports/MDM/BriefSDl/rptSDLBrief.resx
View File

File diff suppressed because it is too large Load Diff

22
SDL/Reports/MDM/rptAuswertungMWSTOffeneAntraegeMitVorauszahlung.Designer.vb generated
View File

@@ -65,7 +65,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.lblKdNr.Name = "lblKdNr"
Me.lblKdNr.Style = "font-size: 8pt; font-weight: bold"
Me.lblKdNr.Text = "KdNr"
Me.lblKdNr.Top = 0.0!
Me.lblKdNr.Top = 0!
Me.lblKdNr.Width = 0.9688977!
'
'lblFirma
@@ -76,7 +76,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = "font-size: 8pt; font-weight: bold"
Me.lblFirma.Text = "Firma"
Me.lblFirma.Top = 0.0!
Me.lblFirma.Top = 0!
Me.lblFirma.Width = 3.426379!
'
'lblSummeOffeneBetrage
@@ -87,7 +87,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.lblSummeOffeneBetrage.Name = "lblSummeOffeneBetrage"
Me.lblSummeOffeneBetrage.Style = "font-size: 8pt; font-weight: bold"
Me.lblSummeOffeneBetrage.Text = "Summe offener Betr<74>ge"
Me.lblSummeOffeneBetrage.Top = 0.0!
Me.lblSummeOffeneBetrage.Top = 0!
Me.lblSummeOffeneBetrage.Width = 1.666929!
'
'Label4
@@ -98,7 +98,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold"
Me.Label4.Text = "Anzahl offener Antr<74>ge"
Me.Label4.Top = 0.0!
Me.Label4.Top = 0!
Me.Label4.Width = 1.479527!
'
'picVERAG
@@ -108,7 +108,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.picVERAG.Left = 4.948032!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.0!
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
@@ -177,7 +177,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.txtAnzahl.Name = "txtAnzahl"
Me.txtAnzahl.Style = "font-size: 8pt; text-align: right"
Me.txtAnzahl.Text = "Anzahl"
Me.txtAnzahl.Top = 0.0!
Me.txtAnzahl.Top = 0!
Me.txtAnzahl.Width = 0.9484248!
'
'PageFooter
@@ -193,7 +193,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.ReportInfo1.Left = 4.147244!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.0!
Me.ReportInfo1.Top = 0!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
@@ -204,7 +204,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.0!
Me.lblDetails.Top = 0!
Me.lblDetails.Width = 4.864567!
'
'ReportHeader1
@@ -215,7 +215,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0.0!
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
@@ -229,10 +229,10 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.lblKdNr, System.ComponentModel.ISupportInitialize).EndInit()

1607
SDL/Reports/MDM/rptAuswertungMWSTOffeneAntraegeMitVorauszahlung.resx
View File

File diff suppressed because it is too large Load Diff

184
SDL/Reports/MDM/rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails.Designer.vb generated
View File

@@ -24,6 +24,11 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.lblSummeOffeneBetrage = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.TextBoxKdnr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBetraege = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -32,24 +37,19 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBoxKdnr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBetraege = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
CType(Me.lblKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeOffeneBetrage, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBoxKdnr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBetraege, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBoxKdnr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBetraege, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
@@ -66,7 +66,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.lblKdNr.Name = "lblKdNr"
Me.lblKdNr.Style = "font-size: 8pt; font-weight: bold"
Me.lblKdNr.Text = "KdNr"
Me.lblKdNr.Top = 0.0!
Me.lblKdNr.Top = 0!
Me.lblKdNr.Width = 0.9688979!
'
'lblFirma
@@ -77,7 +77,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = "font-size: 8pt; font-weight: bold"
Me.lblFirma.Text = "Firma"
Me.lblFirma.Top = 0.0!
Me.lblFirma.Top = 0!
Me.lblFirma.Width = 3.426379!
'
'lblSummeOffeneBetrage
@@ -88,7 +88,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.lblSummeOffeneBetrage.Name = "lblSummeOffeneBetrage"
Me.lblSummeOffeneBetrage.Style = "font-size: 8pt; font-weight: bold"
Me.lblSummeOffeneBetrage.Text = "Summe offener Betr<74>ge"
Me.lblSummeOffeneBetrage.Top = 0.0!
Me.lblSummeOffeneBetrage.Top = 0!
Me.lblSummeOffeneBetrage.Width = 1.666929!
'
'Label4
@@ -99,7 +99,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold"
Me.Label4.Text = "Anzahl offener Antr<74>ge"
Me.Label4.Top = 0.0!
Me.Label4.Top = 0!
Me.Label4.Width = 1.479527!
'
'Detail
@@ -108,77 +108,6 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.Detail.Height = 0.40625!
Me.Detail.Name = "Detail"
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails})
Me.PageFooter.Height = 0.2!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.143306!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.0!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.07952756!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.0!
Me.lblDetails.Width = 4.864567!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.Label1})
Me.ReportHeader1.Height = 0.9417323!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.Left = 4.944095!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0.07952756!
Me.lblText1.Name = "lblText1"
Me.lblText1.Style = "font-weight: bold"
Me.lblText1.Text = "Auswertung" & Global.Microsoft.VisualBasic.ChrW(10) & "Offene MWST-Antr<74>ge von Kunden mit Vorauszahlung"
Me.lblText1.Top = 0.09173229!
Me.lblText1.Width = 4.395276!
'
'Label1
'
Me.Label1.Height = 0.2!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.07952756!
Me.Label1.Name = "Label1"
Me.Label1.Style = ""
Me.Label1.Text = "- Detailauswertung -"
Me.Label1.Top = 0.4566929!
Me.Label1.Width = 3.062599!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0.0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'TextBoxKdnr
'
Me.TextBoxKdnr.Height = 0.1586614!
@@ -216,20 +145,91 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.txtAnzahl.Name = "txtAnzahl"
Me.txtAnzahl.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.txtAnzahl.Text = "Anzahl"
Me.txtAnzahl.Top = 0.0!
Me.txtAnzahl.Top = 0!
Me.txtAnzahl.Width = 0.9484251!
'
'SubReport
'
Me.SubReport.CloseBorder = False
Me.SubReport.Height = 0.2062992!
Me.SubReport.Left = 0.0!
Me.SubReport.Left = 0!
Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 0.1688976!
Me.SubReport.Width = 7.677166!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails})
Me.PageFooter.Height = 0.2!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.143306!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.07952756!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0!
Me.lblDetails.Width = 4.864567!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.Label1})
Me.ReportHeader1.Height = 0.9417323!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.Left = 4.944095!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0.07952756!
Me.lblText1.Name = "lblText1"
Me.lblText1.Style = "font-weight: bold"
Me.lblText1.Text = "Auswertung" & Global.Microsoft.VisualBasic.ChrW(10) & "Offene MWST-Antr<74>ge von Kunden mit Vorauszahlung"
Me.lblText1.Top = 0.09173229!
Me.lblText1.Width = 4.395276!
'
'Label1
'
Me.Label1.Height = 0.2!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.07952756!
Me.Label1.Name = "Label1"
Me.Label1.Style = ""
Me.Label1.Text = "- Detailauswertung -"
Me.Label1.Top = 0.4566929!
Me.Label1.Width = 3.062599!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
'
Me.MasterReport = False
@@ -241,25 +241,25 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.lblKdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeOffeneBetrage, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBoxKdnr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBetraege, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBoxKdnr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBetraege, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub

1607
SDL/Reports/MDM/rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails.resx
View File

File diff suppressed because it is too large Load Diff

46
SDL/Reports/MDM/rptAuswertungUeberfaelligeBestellungen.Designer.vb generated
View File

@@ -26,6 +26,7 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.subrpt = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.lblLeistung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -34,16 +35,15 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.lblLeistung = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.lblKD, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblF, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
@@ -99,12 +99,12 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
'Line1
'
Me.Line1.Height = 0.00008201599!
Me.Line1.Left = 0.0!
Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.3551182!
Me.Line1.Width = 7.677084!
Me.Line1.X1 = 0.0!
Me.Line1.X1 = 0!
Me.Line1.X2 = 7.677084!
Me.Line1.Y1 = 0.3551182!
Me.Line1.Y2 = 0.3552002!
@@ -119,13 +119,24 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
'
Me.subrpt.CloseBorder = False
Me.subrpt.Height = 0.2082677!
Me.subrpt.Left = 0.0!
Me.subrpt.Left = 0!
Me.subrpt.Name = "subrpt"
Me.subrpt.Report = Nothing
Me.subrpt.ReportName = "SubReport1"
Me.subrpt.Top = 0.2314961!
Me.subrpt.Width = 7.677166!
'
'lblLeistung
'
Me.lblLeistung.Height = 0.1897638!
Me.lblLeistung.HyperLink = Nothing
Me.lblLeistung.Left = 0.0677166!
Me.lblLeistung.Name = "lblLeistung"
Me.lblLeistung.Style = "font-size: 9pt; font-weight: bold; text-decoration: underline; ddo-char-set: 1"
Me.lblLeistung.Text = "Leistung"
Me.lblLeistung.Top = 0.04173228!
Me.lblLeistung.Width = 3.51063!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Line2})
@@ -155,12 +166,12 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
'Line2
'
Me.Line2.Height = 0.00008204021!
Me.Line2.Left = 0.0!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.02480315!
Me.Line2.Width = 7.677084!
Me.Line2.X1 = 0.0!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.677084!
Me.Line2.Y1 = 0.02480315!
Me.Line2.Y2 = 0.02488519!
@@ -179,7 +190,7 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
Me.picVERAG.Left = 4.932284!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.0!
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
@@ -195,20 +206,9 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0.0!
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'lblLeistung
'
Me.lblLeistung.Height = 0.1897638!
Me.lblLeistung.HyperLink = Nothing
Me.lblLeistung.Left = 0.0677166!
Me.lblLeistung.Name = "lblLeistung"
Me.lblLeistung.Style = "font-size: 9pt; font-weight: bold; text-decoration: underline; ddo-char-set: 1"
Me.lblLeistung.Text = "Leistung"
Me.lblLeistung.Top = 0.04173228!
Me.lblLeistung.Width = 3.51063!
'
'rptAuswertungUeberfaelligeBestellungen
'
Me.MasterReport = False
@@ -224,21 +224,21 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.lblKD, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblF, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLeistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLeistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub

1607
SDL/Reports/MDM/rptAuswertungUeberfaelligeBestellungen.resx
View File

File diff suppressed because it is too large Load Diff

44
SDL/Reports/MDM/rptLeereOBU.Designer.vb generated
View File

@@ -79,7 +79,7 @@ Partial Public Class rptLeereOBU
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-size: 9pt; font-weight: bold; text-align: center"
Me.Label10.Text = "Lieferdatum"
Me.Label10.Top = 0.0!
Me.Label10.Top = 0!
Me.Label10.Width = 0.8437006!
'
'Label7
@@ -90,7 +90,7 @@ Partial Public Class rptLeereOBU
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label7.Text = "Kunde"
Me.Label7.Top = 0.0!
Me.Label7.Top = 0!
Me.Label7.Width = 1.781103!
'
'Label2
@@ -101,7 +101,7 @@ Partial Public Class rptLeereOBU
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label2.Text = "SDL-Nr."
Me.Label2.Top = 0.0!
Me.Label2.Top = 0!
Me.Label2.Width = 0.9893703!
'
'Label5
@@ -112,7 +112,7 @@ Partial Public Class rptLeereOBU
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label5.Text = "LKW"
Me.Label5.Top = 0.0!
Me.Label5.Top = 0!
Me.Label5.Width = 0.9893701!
'
'Label6
@@ -123,7 +123,7 @@ Partial Public Class rptLeereOBU
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label6.Text = "KartenNr"
Me.Label6.Top = 0.0!
Me.Label6.Top = 0!
Me.Label6.Width = 1.836221!
'
'Label9
@@ -134,12 +134,12 @@ Partial Public Class rptLeereOBU
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 9pt; font-weight: bold; text-align: center"
Me.Label9.Text = "Bestelldatum"
Me.Label9.Top = 0.0!
Me.Label9.Top = 0!
Me.Label9.Width = 0.8437009!
'
'Line2
'
Me.Line2.Height = 0.0!
Me.Line2.Height = 0!
Me.Line2.Left = 0.1968504!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
@@ -186,7 +186,7 @@ Partial Public Class rptLeereOBU
Me.lblKunde.Name = "lblKunde"
Me.lblKunde.Style = "font-size: 9pt; font-weight: normal; text-align: left"
Me.lblKunde.Text = "Kunde"
Me.lblKunde.Top = 0.0!
Me.lblKunde.Top = 0!
Me.lblKunde.Width = 1.781103!
'
'lblSDL
@@ -197,7 +197,7 @@ Partial Public Class rptLeereOBU
Me.lblSDL.Name = "lblSDL"
Me.lblSDL.Style = "font-size: 9pt; font-weight: normal; text-align: left"
Me.lblSDL.Text = "SDL-Nr."
Me.lblSDL.Top = 0.0!
Me.lblSDL.Top = 0!
Me.lblSDL.Width = 0.9893701!
'
'lblLKW
@@ -208,7 +208,7 @@ Partial Public Class rptLeereOBU
Me.lblLKW.Name = "lblLKW"
Me.lblLKW.Style = "font-size: 9pt; font-weight: normal; text-align: left"
Me.lblLKW.Text = "LKW"
Me.lblLKW.Top = 0.0!
Me.lblLKW.Top = 0!
Me.lblLKW.Width = 0.9893701!
'
'lblKartenNr
@@ -219,7 +219,7 @@ Partial Public Class rptLeereOBU
Me.lblKartenNr.Name = "lblKartenNr"
Me.lblKartenNr.Style = "font-size: 9pt; font-weight: normal; text-align: left"
Me.lblKartenNr.Text = "KartenNr"
Me.lblKartenNr.Top = 0.0!
Me.lblKartenNr.Top = 0!
Me.lblKartenNr.Width = 1.836221!
'
'lblLieferdatum
@@ -230,7 +230,7 @@ Partial Public Class rptLeereOBU
Me.lblLieferdatum.Name = "lblLieferdatum"
Me.lblLieferdatum.Style = "font-size: 9pt; font-weight: normal; text-align: center"
Me.lblLieferdatum.Text = "Lieferdatum"
Me.lblLieferdatum.Top = 0.0!
Me.lblLieferdatum.Top = 0!
Me.lblLieferdatum.Width = 0.8437006!
'
'lblBestelldatum
@@ -241,7 +241,7 @@ Partial Public Class rptLeereOBU
Me.lblBestelldatum.Name = "lblBestelldatum"
Me.lblBestelldatum.Style = "font-size: 9pt; font-weight: normal; text-align: center"
Me.lblBestelldatum.Text = "Bestelldatum"
Me.lblBestelldatum.Top = 0.0!
Me.lblBestelldatum.Top = 0!
Me.lblBestelldatum.Width = 0.8437006!
'
'PageFooter
@@ -257,7 +257,7 @@ Partial Public Class rptLeereOBU
Me.ReportInfo1.Left = 4.002362!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.0!
Me.ReportInfo1.Top = 0!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
@@ -268,21 +268,21 @@ Partial Public Class rptLeereOBU
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.0!
Me.lblDetails.Top = 0!
Me.lblDetails.Width = 4.735435!
'
'Line1
'
Me.Line1.Height = 0.0!
Me.Line1.Height = 0!
Me.Line1.Left = 0.1968504!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.0!
Me.Line1.Top = 0!
Me.Line1.Width = 7.283462!
Me.Line1.X1 = 0.1968504!
Me.Line1.X2 = 7.480312!
Me.Line1.Y1 = 0.0!
Me.Line1.Y2 = 0.0!
Me.Line1.Y1 = 0!
Me.Line1.Y2 = 0!
'
'ReportHeader1
'
@@ -326,7 +326,7 @@ Partial Public Class rptLeereOBU
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0.0!
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'rptLeereOBU
@@ -344,10 +344,10 @@ Partial Public Class rptLeereOBU
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()

1607
SDL/Reports/MDM/rptLeereOBU.resx
View File

File diff suppressed because it is too large Load Diff

5
SDL/Reports/MDM/rptSDLAbrechnungsblatt.Designer.vb generated
View File

@@ -242,7 +242,7 @@ Partial Public Class rptSDLAbrechnungsblatt
Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lbl.Text = "VERAG Spediton AG"
Me.lbl.Text = "VERAG 360 GmbH"
Me.lbl.Top = 1.472441!
Me.lbl.Width = 2.031496!
'
@@ -253,8 +253,7 @@ Partial Public Class rptSDLAbrechnungsblatt
Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(10) & "www." &
"verag.ag" & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 216714y" & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 53187000"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 544732b" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 76165837"
Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496!
'

1607
SDL/Reports/MDM/rptSDLAbrechnungsblatt.resx
View File

File diff suppressed because it is too large Load Diff

79
SDL/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungCZ.Designer.vb generated
View File

@@ -21,11 +21,13 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBetreff = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMSENr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label21 = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -51,12 +53,12 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUnterschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMfg = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMSENr = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMSENr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -76,8 +78,6 @@ Partial Public Class rptSDLBenachrichtigungCZ
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMfg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMSENr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
@@ -94,7 +94,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Shape1.LineWeight = 2.0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0.0!
Me.Shape1.Top = 0!
Me.Shape1.Width = 6.285039!
'
'Label14
@@ -108,6 +108,17 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Label14.Top = 0.007874017!
Me.Label14.Width = 1.678741!
'
'Label7
'
Me.Label7.Height = 0.1791339!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 2.999213!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label7.Text = "Multi ServiceCard-Nr"
Me.Label7.Top = 0.01988186!
Me.Label7.Width = 1.980709!
'
'lblBetreff
'
Me.lblBetreff.Height = 0.1791339!
@@ -142,7 +153,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 0.0!
Me.Shape.Top = 0!
Me.Shape.Width = 6.28504!
'
'lblKennzeichen
@@ -156,6 +167,17 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.lblKennzeichen.Top = 0.007874017!
Me.lblKennzeichen.Width = 1.76378!
'
'lblMSENr
'
Me.lblMSENr.Height = 0.1791339!
Me.lblMSENr.HyperLink = Nothing
Me.lblMSENr.Left = 2.999213!
Me.lblMSENr.Name = "lblMSENr"
Me.lblMSENr.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblMSENr.Text = "-"
Me.lblMSENr.Top = 0.01968504!
Me.lblMSENr.Width = 2.333858!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.Label21, Me.ReportInfo1})
@@ -198,7 +220,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" & _
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614!
@@ -222,7 +244,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lbl.Text = "VERAG Spediton AG"
Me.lbl.Text = "VERAG 360 GmbH"
Me.lbl.Top = 1.472441!
Me.lbl.Width = 2.031496!
'
@@ -233,8 +255,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left"
Me.Label1.Text = "Suben 15" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & _
"www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 216714y" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 53187000"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 544732b" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 76165837"
Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496!
'
@@ -336,7 +357,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" & _
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" &
"lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882!
@@ -348,7 +369,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3"
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" & _
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748!
@@ -361,7 +382,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Label8.Left = 0.6299214!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label8.Text = "Sehr geehrte Damen und Herren," & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) & "folgende LKW wurden f<>r die Tschechische Maut (PR" & _
Me.Label8.Text = "Sehr geehrte Damen und Herren," & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) & "folgende LKW wurden f<>r die Tschechische Maut (PR" &
"EMID) registriert:"
Me.Label8.Top = 4.347244!
Me.Label8.Width = 6.417323!
@@ -401,7 +422,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Label13.Left = 0.6299213!
Me.Label13.Name = "Label13"
Me.Label13.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label13.Text = "Fahrer k<>nnen sich an jeder PREMID-Vertriebstelle melden und die POST-PAY-Box <20>be" & _
Me.Label13.Text = "Fahrer k<>nnen sich an jeder PREMID-Vertriebstelle melden und die POST-PAY-Box <20>be" &
"rnehmen!"
Me.Label13.Top = 0.2397638!
Me.Label13.Width = 6.417323!
@@ -428,28 +449,6 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.lblMfg.Top = 1.46063!
Me.lblMfg.Width = 3.240158!
'
'Label7
'
Me.Label7.Height = 0.1791339!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 2.999213!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label7.Text = "Multi ServiceCard-Nr"
Me.Label7.Top = 0.01988186!
Me.Label7.Width = 1.980709!
'
'lblMSENr
'
Me.lblMSENr.Height = 0.1791339!
Me.lblMSENr.HyperLink = Nothing
Me.lblMSENr.Left = 2.999213!
Me.lblMSENr.Name = "lblMSENr"
Me.lblMSENr.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblMSENr.Text = "-"
Me.lblMSENr.Top = 0.01968504!
Me.lblMSENr.Width = 2.333858!
'
'rptSDLBenachrichtigungCZ
'
Me.MasterReport = False
@@ -465,16 +464,18 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMSENr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
@@ -494,8 +495,6 @@ Partial Public Class rptSDLBenachrichtigungCZ
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMfg, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMSENr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub

1607
SDL/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungCZ.resx
View File

File diff suppressed because it is too large Load Diff

27
SDL/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungDE.Designer.vb generated
View File

@@ -103,7 +103,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Shape1.LineWeight = 2.0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0.0!
Me.Shape1.Top = 0!
Me.Shape1.Width = 6.285039!
'
'Label14
@@ -114,7 +114,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label14.Text = "KENNZEICHEN"
Me.Label14.Top = 0.0!
Me.Label14.Top = 0!
Me.Label14.Width = 1.678741!
'
'Label15
@@ -125,7 +125,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Label15.Name = "Label15"
Me.Label15.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label15.Text = "KARTE/BOX"
Me.Label15.Top = 0.0!
Me.Label15.Top = 0!
Me.Label15.Width = 2.802362!
'
'Label16
@@ -136,7 +136,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Label16.Name = "Label16"
Me.Label16.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label16.Text = "PIN"
Me.Label16.Top = 0.0!
Me.Label16.Top = 0!
Me.Label16.Width = 1.74134!
'
'lblBetreff
@@ -173,7 +173,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 0.0!
Me.Shape.Top = 0!
Me.Shape.Width = 6.28504!
'
'lblKennzeichen
@@ -251,7 +251,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" & _
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614!
@@ -275,7 +275,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lbl.Text = "VERAG Spediton AG"
Me.lbl.Text = "VERAG 360 GmbH"
Me.lbl.Top = 1.472441!
Me.lbl.Width = 2.031496!
'
@@ -286,8 +286,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left"
Me.Label1.Text = "Suben 15" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & _
"www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 216714y" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 53187000"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 544732b" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 76165837"
Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496!
'
@@ -389,7 +388,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" & _
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" &
"lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882!
@@ -401,7 +400,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3"
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" & _
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748!
@@ -414,7 +413,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Label8.Left = 0.6299214!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label8.Text = "Sehr geehrte Damen und Herren!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Folgende Karten/Boxen sind bei uns eingetroffen" & _
Me.Label8.Text = "Sehr geehrte Damen und Herren!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Folgende Karten/Boxen sind bei uns eingetroffen" &
" und abholbereit:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.Label8.Top = 4.347244!
Me.Label8.Width = 6.417323!
@@ -532,10 +531,10 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit()

1607
SDL/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungDE.resx
View File

File diff suppressed because it is too large Load Diff

21
SDL/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungIDS.Designer.vb generated
View File

@@ -96,7 +96,7 @@ Partial Public Class rptSDLBenachrichtigungids
Me.Shape1.LineWeight = 2.0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0.0!
Me.Shape1.Top = 0!
Me.Shape1.Width = 6.285039!
'
'Label14
@@ -155,7 +155,7 @@ Partial Public Class rptSDLBenachrichtigungids
Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 0.0!
Me.Shape.Top = 0!
Me.Shape.Width = 6.28504!
'
'lblKennzeichen
@@ -222,7 +222,7 @@ Partial Public Class rptSDLBenachrichtigungids
Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" & _
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614!
@@ -246,7 +246,7 @@ Partial Public Class rptSDLBenachrichtigungids
Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lbl.Text = "VERAG Spediton AG"
Me.lbl.Text = "VERAG 360 GmbH"
Me.lbl.Top = 1.472441!
Me.lbl.Width = 2.031496!
'
@@ -257,8 +257,7 @@ Partial Public Class rptSDLBenachrichtigungids
Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left"
Me.Label1.Text = "Suben 15" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & _
"www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 216714y" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 53187000"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 544732b" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 76165837"
Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496!
'
@@ -360,7 +359,7 @@ Partial Public Class rptSDLBenachrichtigungids
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" & _
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" &
"lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882!
@@ -372,7 +371,7 @@ Partial Public Class rptSDLBenachrichtigungids
Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3"
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" & _
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748!
@@ -445,7 +444,7 @@ Partial Public Class rptSDLBenachrichtigungids
Me.lblMfg.HyperLink = Nothing
Me.lblMfg.Left = 0.6299213!
Me.lblMfg.Name = "lblMfg"
Me.lblMfg.Style = "font-size: 11pt; font-weight: normal; text-align: left; vertical-align: top; ddo-" & _
Me.lblMfg.Style = "font-size: 11pt; font-weight: normal; text-align: left; vertical-align: top; ddo-" &
"char-set: 1"
Me.lblMfg.Text = "Srdacan pozdrav!"
Me.lblMfg.Top = 1.533465!
@@ -477,10 +476,10 @@ Partial Public Class rptSDLBenachrichtigungids
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit()

1607
SDL/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungIDS.resx
View File

File diff suppressed because it is too large Load Diff

25
SDL/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungMSE.Designer.vb generated
View File

@@ -90,7 +90,7 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.Shape1.LineWeight = 2.0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0.0!
Me.Shape1.Top = 0!
Me.Shape1.Width = 6.285039!
'
'Label14
@@ -127,7 +127,7 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 0.0!
Me.Shape.Top = 0!
Me.Shape.Width = 6.28504!
'
'lblKennzeichen
@@ -183,7 +183,7 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" & _
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614!
@@ -207,7 +207,7 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lbl.Text = "VERAG Spediton AG"
Me.lbl.Text = "VERAG 360 GmbH"
Me.lbl.Top = 1.472441!
Me.lbl.Width = 2.031496!
'
@@ -218,8 +218,7 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left"
Me.Label1.Text = "Suben 15" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & _
"www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 216714y" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 53187000"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 544732b" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 76165837"
Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496!
'
@@ -321,7 +320,7 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" & _
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" &
"lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882!
@@ -333,7 +332,7 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3"
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" & _
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748!
@@ -379,8 +378,8 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.Label8.Left = 0.6299214!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label8.Text = "Postovane dame i gospodo!" & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) & "Stigle su Vam nove MSE/VERAG-kartice!! Stare vrijede s" & _
"amo jos do ! Nove kartice mogu vec da se koriste!!! Molim Vas da hitno zamj" & _
Me.Label8.Text = "Postovane dame i gospodo!" & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) & "Stigle su Vam nove MSE/VERAG-kartice!! Stare vrijede s" &
"amo jos do ! Nove kartice mogu vec da se koriste!!! Molim Vas da hitno zamj" &
"ente kartice i unistite stare!"
Me.Label8.Top = 4.347243!
Me.Label8.Width = 6.417323!
@@ -419,7 +418,7 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.lblMfg.HyperLink = Nothing
Me.lblMfg.Left = 0.6299213!
Me.lblMfg.Name = "lblMfg"
Me.lblMfg.Style = "font-size: 11pt; font-weight: normal; text-align: left; vertical-align: top; ddo-" & _
Me.lblMfg.Style = "font-size: 11pt; font-weight: normal; text-align: left; vertical-align: top; ddo-" &
"char-set: 1"
Me.lblMfg.Text = "Srdacan pozdrav!"
Me.lblMfg.Top = 1.000394!
@@ -440,10 +439,10 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit()

1607
SDL/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungMSE.resx
View File

File diff suppressed because it is too large Load Diff

27
SDL/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungPL.Designer.vb generated
View File

@@ -94,7 +94,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Shape1.LineWeight = 2.0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0.0!
Me.Shape1.Top = 0!
Me.Shape1.Width = 6.285039!
'
'Label14
@@ -105,7 +105,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label14.Text = "KENNZEICHEN"
Me.Label14.Top = 0.0!
Me.Label14.Top = 0!
Me.Label14.Width = 1.678741!
'
'Label15
@@ -116,7 +116,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Label15.Name = "Label15"
Me.Label15.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label15.Text = "Multi ServiceCard-Nr"
Me.Label15.Top = 0.0!
Me.Label15.Top = 0!
Me.Label15.Width = 2.802362!
'
'lblBetreff
@@ -153,7 +153,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 0.0!
Me.Shape.Top = 0!
Me.Shape.Width = 6.28504!
'
'lblKennzeichen
@@ -220,7 +220,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" & _
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614!
@@ -244,7 +244,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lbl.Text = "VERAG Spediton AG"
Me.lbl.Text = "VERAG 360 GmbH"
Me.lbl.Top = 1.472441!
Me.lbl.Width = 2.031496!
'
@@ -255,8 +255,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left"
Me.Label1.Text = "Suben 15" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & _
"www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 216714y" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 53187000"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 544732b" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 76165837"
Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496!
'
@@ -358,7 +357,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" & _
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" &
"lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882!
@@ -370,7 +369,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3"
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" & _
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748!
@@ -383,7 +382,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Label8.Left = 0.6299214!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label8.Text = "Sehr geehrte Damen und Herren!" & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) & "folgende LKW wurden f<>r die Polnische Maut (VIATO" & _
Me.Label8.Text = "Sehr geehrte Damen und Herren!" & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) & "folgende LKW wurden f<>r die Polnische Maut (VIATO" &
"LL) registriert:" & Global.Microsoft.VisualBasic.ChrW(10)
Me.Label8.Top = 4.347244!
Me.Label8.Width = 6.417323!
@@ -423,7 +422,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Label13.Left = 0.6299213!
Me.Label13.Name = "Label13"
Me.Label13.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label13.Text = "Der Fahrer kann die Post-Pay-Box an jedem viaTOLL-Verteiler abholen. Bitte die ""A" & _
Me.Label13.Text = "Der Fahrer kann die Post-Pay-Box an jedem viaTOLL-Verteiler abholen. Bitte die ""A" &
"ccount-Kartennummer"" dem Fahrer <20>bergeben." & Global.Microsoft.VisualBasic.ChrW(10)
Me.Label13.Top = 0.2397638!
Me.Label13.Width = 6.417323!
@@ -465,10 +464,10 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit()

1607
SDL/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungPL.resx
View File

File diff suppressed because it is too large Load Diff

25
SDL/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungUTA.Designer.vb generated
View File

@@ -96,7 +96,7 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.Shape1.LineWeight = 2.0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0.0!
Me.Shape1.Top = 0!
Me.Shape1.Width = 6.285039!
'
'Label14
@@ -133,7 +133,7 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 0.0!
Me.Shape.Top = 0!
Me.Shape.Width = 6.28504!
'
'lblKennzeichen
@@ -189,7 +189,7 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" & _
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614!
@@ -213,7 +213,7 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lbl.Text = "VERAG Spediton AG"
Me.lbl.Text = "VERAG 360 GmbH"
Me.lbl.Top = 1.472441!
Me.lbl.Width = 2.031496!
'
@@ -224,8 +224,7 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left"
Me.Label1.Text = "Suben 15" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & _
"www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 216714y" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 53187000"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 544732b" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 76165837"
Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496!
'
@@ -327,7 +326,7 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" & _
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" &
"lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882!
@@ -339,7 +338,7 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3"
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" & _
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748!
@@ -385,8 +384,8 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.Label8.Left = 0.6299213!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label8.Text = "Postovane dame i gospodo!" & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) & "Stigle su Vam nove UTA-kartice!! Stare vrijede samo jo" & _
"s do ! Nove kartice su aktivne i mogu vec da se koriste!!! Molim Vas da hit" & _
Me.Label8.Text = "Postovane dame i gospodo!" & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) & "Stigle su Vam nove UTA-kartice!! Stare vrijede samo jo" &
"s do ! Nove kartice su aktivne i mogu vec da se koriste!!! Molim Vas da hit" &
"no zamjente kartice i unistite stare!"
Me.Label8.Top = 3.940552!
Me.Label8.Width = 6.417323!
@@ -425,7 +424,7 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.lblMfg.HyperLink = Nothing
Me.lblMfg.Left = 0.6299213!
Me.lblMfg.Name = "lblMfg"
Me.lblMfg.Style = "font-size: 11pt; font-weight: normal; text-align: left; vertical-align: top; ddo-" & _
Me.lblMfg.Style = "font-size: 11pt; font-weight: normal; text-align: left; vertical-align: top; ddo-" &
"char-set: 1"
Me.lblMfg.Text = "Srdacan pozdrav!"
Me.lblMfg.Top = 2.704725!
@@ -479,10 +478,10 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit()

1607
SDL/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungUTA.resx
View File

File diff suppressed because it is too large Load Diff

113
SDL/Reports/Zoll/rptAufschubabgleich.Designer.vb generated
View File

@@ -18,6 +18,7 @@ Partial Public Class rptAufschubabgleich
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptAufschubabgleich))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -34,6 +35,7 @@ Partial Public Class rptAufschubabgleich
Me.lblBetrag = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFakturiert = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblDifferenz = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFaelligkeit = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
@@ -52,6 +54,7 @@ Partial Public Class rptAufschubabgleich
Me.lblDifferenzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzahl = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -66,6 +69,7 @@ Partial Public Class rptAufschubabgleich
CType(Me.lblBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFakturiert, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDifferenz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFaelligkeit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -84,53 +88,64 @@ Partial Public Class rptAufschubabgleich
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label11, Me.Label4, Me.Label12, Me.lblSummeOffenerSachbearbeiter, Me.lblBezugsnummer, Me.lblAnnahme, Me.lblGestellung, Me.Line1})
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label3, Me.Label11, Me.Label4, Me.Label12, Me.lblSummeOffenerSachbearbeiter, Me.lblBezugsnummer, Me.lblAnnahme, Me.lblGestellung, Me.Line1})
Me.PageHeader.Height = 0.186554!
Me.PageHeader.Name = "PageHeader"
'
'Label3
'
Me.Label3.Height = 0.1480315!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 8.646064!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label3.Text = "Kommentar"
Me.Label3.Top = 0.03031496!
Me.Label3.Width = 2.441339!
'
'Label11
'
Me.Label11.Height = 0.1480315!
Me.Label11.HyperLink = Nothing
Me.Label11.Left = 4.877953!
Me.Label11.Left = 5.846851!
Me.Label11.Name = "Label11"
Me.Label11.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label11.Text = "Betrag"
Me.Label11.Top = 0.02874016!
Me.Label11.Top = 0.0287402!
Me.Label11.Width = 0.9330705!
'
'Label4
'
Me.Label4.Height = 0.1480315!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 5.811024!
Me.Label4.Left = 6.779922!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label4.Text = "Fakturiert"
Me.Label4.Top = 0.02874016!
Me.Label4.Top = 0.0287402!
Me.Label4.Width = 0.9330708!
'
'Label12
'
Me.Label12.Height = 0.1480315!
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 6.744095!
Me.Label12.Left = 7.712993!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label12.Text = "Differenz"
Me.Label12.Top = 0.02874016!
Me.Label12.Top = 0.0287402!
Me.Label12.Width = 0.9330708!
'
'lblSummeOffenerSachbearbeiter
'
Me.lblSummeOffenerSachbearbeiter.Height = 0.1480315!
Me.lblSummeOffenerSachbearbeiter.HyperLink = Nothing
Me.lblSummeOffenerSachbearbeiter.Left = 3.113386!
Me.lblSummeOffenerSachbearbeiter.Left = 3.561418!
Me.lblSummeOffenerSachbearbeiter.Name = "lblSummeOffenerSachbearbeiter"
Me.lblSummeOffenerSachbearbeiter.Style = "font-size: 8pt; font-weight: bold"
Me.lblSummeOffenerSachbearbeiter.Text = "Abfertigungsort"
Me.lblSummeOffenerSachbearbeiter.Top = 0.02874016!
Me.lblSummeOffenerSachbearbeiter.Width = 1.764567!
Me.lblSummeOffenerSachbearbeiter.Width = 2.285433!
'
'lblBezugsnummer
'
@@ -141,29 +156,29 @@ Partial Public Class rptAufschubabgleich
Me.lblBezugsnummer.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnummer.Text = "Aufschubkonto"
Me.lblBezugsnummer.Top = 0.03031496!
Me.lblBezugsnummer.Width = 0.8748031!
Me.lblBezugsnummer.Width = 0.98937!
'
'lblAnnahme
'
Me.lblAnnahme.Height = 0.1478347!
Me.lblAnnahme.HyperLink = Nothing
Me.lblAnnahme.Left = 0.8748032!
Me.lblAnnahme.Left = 0.9893702!
Me.lblAnnahme.Name = "lblAnnahme"
Me.lblAnnahme.Style = "font-size: 8pt; font-weight: bold"
Me.lblAnnahme.Text = "Registriernumer"
Me.lblAnnahme.Top = 0.02992126!
Me.lblAnnahme.Width = 1.611024!
Me.lblAnnahme.Width = 1.757087!
'
'lblGestellung
'
Me.lblGestellung.Height = 0.1478347!
Me.lblGestellung.HyperLink = Nothing
Me.lblGestellung.Left = 2.485827!
Me.lblGestellung.Left = 2.746457!
Me.lblGestellung.Name = "lblGestellung"
Me.lblGestellung.Style = "font-size: 8pt; font-weight: bold"
Me.lblGestellung.Text = "Bu.-Datum"
Me.lblGestellung.Top = 0.02913386!
Me.lblGestellung.Width = 0.6125984!
Me.lblGestellung.Width = 0.8!
'
'Line1
'
@@ -172,29 +187,29 @@ Partial Public Class rptAufschubabgleich
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1795276!
Me.Line1.Width = 7.677084!
Me.Line1.Width = 11.10236!
Me.Line1.X1 = 0!
Me.Line1.X2 = 7.677084!
Me.Line1.X2 = 11.10236!
Me.Line1.Y1 = 0.1795276!
Me.Line1.Y2 = 0.1796096!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblAbfertigungsort, Me.lblAKTO, Me.lblATC, Me.lblBUDatValue, Me.lblBetrag, Me.lblFakturiert, Me.lblDifferenz})
Me.Detail.Height = 0.1480315!
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblAbfertigungsort, Me.lblAKTO, Me.lblATC, Me.lblBUDatValue, Me.lblBetrag, Me.lblFakturiert, Me.lblDifferenz, Me.Label6})
Me.Detail.Height = 0.1896982!
Me.Detail.Name = "Detail"
'
'lblAbfertigungsort
'
Me.lblAbfertigungsort.Height = 0.1379921!
Me.lblAbfertigungsort.HyperLink = Nothing
Me.lblAbfertigungsort.Left = 3.113386!
Me.lblAbfertigungsort.Left = 3.561418!
Me.lblAbfertigungsort.Name = "lblAbfertigungsort"
Me.lblAbfertigungsort.Style = "font-size: 8pt; font-weight: normal; white-space: inherit; ddo-wrap-mode: char-wr" &
"ap"
Me.lblAbfertigungsort.Text = "-"
Me.lblAbfertigungsort.Top = 2.793968E-9!
Me.lblAbfertigungsort.Width = 1.764567!
Me.lblAbfertigungsort.Width = 2.285433!
'
'lblAKTO
'
@@ -205,64 +220,75 @@ Partial Public Class rptAufschubabgleich
Me.lblAKTO.Style = "font-size: 8pt; font-weight: normal; ddo-char-set: 1"
Me.lblAKTO.Text = "-"
Me.lblAKTO.Top = 0.0003937008!
Me.lblAKTO.Width = 0.8748031!
Me.lblAKTO.Width = 0.98937!
'
'lblATC
'
Me.lblATC.Height = 0.1377953!
Me.lblATC.HyperLink = Nothing
Me.lblATC.Left = 0.8748032!
Me.lblATC.Left = 0.9893702!
Me.lblATC.Name = "lblATC"
Me.lblATC.Style = "font-size: 8pt; font-weight: normal; white-space: inherit; ddo-wrap-mode: char-wr" &
"ap"
Me.lblATC.Text = "-"
Me.lblATC.Top = 0.003149613!
Me.lblATC.Width = 1.611024!
Me.lblATC.Width = 1.757087!
'
'lblBUDatValue
'
Me.lblBUDatValue.Height = 0.1377953!
Me.lblBUDatValue.HyperLink = Nothing
Me.lblBUDatValue.Left = 2.485827!
Me.lblBUDatValue.Left = 2.746457!
Me.lblBUDatValue.Name = "lblBUDatValue"
Me.lblBUDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblBUDatValue.Text = "-"
Me.lblBUDatValue.Top = 4.656613E-9!
Me.lblBUDatValue.Width = 0.6275587!
Me.lblBUDatValue.Width = 0.8149602!
'
'lblBetrag
'
Me.lblBetrag.Height = 0.1480315!
Me.lblBetrag.HyperLink = Nothing
Me.lblBetrag.Left = 4.877953!
Me.lblBetrag.Left = 5.846851!
Me.lblBetrag.Name = "lblBetrag"
Me.lblBetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblBetrag.Text = "Betrag"
Me.lblBetrag.Top = 0!
Me.lblBetrag.Top = 0.00000004470348!
Me.lblBetrag.Width = 0.9330708!
'
'lblFakturiert
'
Me.lblFakturiert.Height = 0.1480315!
Me.lblFakturiert.HyperLink = Nothing
Me.lblFakturiert.Left = 5.811024!
Me.lblFakturiert.Left = 6.779922!
Me.lblFakturiert.Name = "lblFakturiert"
Me.lblFakturiert.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblFakturiert.Text = "Fakturiert"
Me.lblFakturiert.Top = 0!
Me.lblFakturiert.Top = 0.00000004470348!
Me.lblFakturiert.Width = 0.9330708!
'
'lblDifferenz
'
Me.lblDifferenz.Height = 0.1480315!
Me.lblDifferenz.HyperLink = Nothing
Me.lblDifferenz.Left = 6.744095!
Me.lblDifferenz.Left = 7.712993!
Me.lblDifferenz.Name = "lblDifferenz"
Me.lblDifferenz.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblDifferenz.Text = "Differenz"
Me.lblDifferenz.Top = 0!
Me.lblDifferenz.Top = 0.00000004470348!
Me.lblDifferenz.Width = 0.9330708!
'
'Label6
'
Me.Label6.Height = 0.1480315!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 8.646064!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.Label6.Text = ""
Me.Label6.Top = 0!
Me.Label6.Width = 2.441339!
'
'lblFaelligkeit
'
Me.lblFaelligkeit.Height = 0.1379921!
@@ -284,7 +310,7 @@ Partial Public Class rptAufschubabgleich
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.199213!
Me.ReportInfo1.Left = 7.609449!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.05669292!
@@ -305,11 +331,11 @@ Partial Public Class rptAufschubabgleich
'
Me.Label8.Height = 0.2!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.213015!
Me.Label8.Left = 4.167717!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt"
Me.Label8.Text = "VERAG Spedition AG"
Me.Label8.Top = 0.05688977!
Me.Label8.Top = 0.05708662!
Me.Label8.Width = 2.193284!
'
'Line2
@@ -319,9 +345,9 @@ Partial Public Class rptAufschubabgleich
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.05708662!
Me.Line2.Width = 7.677084!
Me.Line2.Width = 11.10236!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.677084!
Me.Line2.X2 = 11.10236!
Me.Line2.Y1 = 0.05708662!
Me.Line2.Y2 = 0.05716864!
'
@@ -336,7 +362,7 @@ Partial Public Class rptAufschubabgleich
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.Left = 4.932283!
Me.picVERAG.Left = 8.410236!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
@@ -396,7 +422,7 @@ Partial Public Class rptAufschubabgleich
'
Me.lblBetragSum.Height = 0.1480315!
Me.lblBetragSum.HyperLink = Nothing
Me.lblBetragSum.Left = 4.877953!
Me.lblBetragSum.Left = 5.846851!
Me.lblBetragSum.Name = "lblBetragSum"
Me.lblBetragSum.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblBetragSum.Text = "Betrag"
@@ -407,7 +433,7 @@ Partial Public Class rptAufschubabgleich
'
Me.lblFakturiertSum.Height = 0.1480315!
Me.lblFakturiertSum.HyperLink = Nothing
Me.lblFakturiertSum.Left = 5.811024!
Me.lblFakturiertSum.Left = 6.779922!
Me.lblFakturiertSum.Name = "lblFakturiertSum"
Me.lblFakturiertSum.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblFakturiertSum.Text = "Fakturiert"
@@ -418,7 +444,7 @@ Partial Public Class rptAufschubabgleich
'
Me.lblDifferenzSum.Height = 0.1480315!
Me.lblDifferenzSum.HyperLink = Nothing
Me.lblDifferenzSum.Left = 6.744095!
Me.lblDifferenzSum.Left = 7.712993!
Me.lblDifferenzSum.Name = "lblDifferenzSum"
Me.lblDifferenzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblDifferenzSum.Text = "Differenz"
@@ -454,9 +480,10 @@ Partial Public Class rptAufschubabgleich
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
Me.PrintWidth = 11.10236!
Me.ScriptLanguage = "VB.NET"
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
@@ -469,6 +496,7 @@ Partial Public Class rptAufschubabgleich
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit()
@@ -483,6 +511,7 @@ Partial Public Class rptAufschubabgleich
CType(Me.lblBetrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFakturiert, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDifferenz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFaelligkeit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
@@ -533,4 +562,6 @@ Partial Public Class rptAufschubabgleich
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_RO.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_RO.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_TR.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ+PL_TR.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ+PL_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_RO.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_TR.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/CZ/Abholbereit_CZ_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_RO.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_RO.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_TR.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/PL/Abholbereit_PL_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Bestellfomulare/Bestellung_MAN_Abgasplakette.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Retour/CZ.doc
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Retour/HUGO.doc
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Retour/MULTIBOX.doc
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Retour/PLOSE.doc
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Retour/PLOSE_CZ.doc
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Retour/PLOSE_IT.doc
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Retour/SI.doc
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Retour/TELEPASS.doc
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Retour/VIATOLL.doc
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Uebernahmebestätigung/ÜBERNAHMEBESTÄTIGUNG.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Uebernahmebestätigung/ÜBERNAHMEBESTÄTIGUNG_Kuvert.dotx
View File

Binary file not shown.

BIN
SDL/Resources/VERAG-UNISPED-Logo.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 226 KiB

29
SDL/SDL.vbproj
View File

@@ -429,7 +429,6 @@
<Compile Include="Classes\ATLAS_Zabis\cATLAS_zbPos.vb" />
<Compile Include="Classes\cCMR.vb" />
<Compile Include="Classes\cEABeleg.vb" />
<Compile Include="Classes\cEmailBenachrichtigung.vb" />
<Compile Include="Classes\cEORIWebService.vb" />
<Compile Include="Classes\cEP0735_Versand.vb" />
<Compile Include="Classes\cEPBes.vb" />
@@ -481,6 +480,12 @@
<Compile Include="kunden\usrCntlKundenBesonderheiten.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="mdm\frmMDM_USTVAntrag.Designer.vb">
<DependentUpon>frmMDM_USTVAntrag.vb</DependentUpon>
</Compile>
<Compile Include="mdm\frmMDM_USTVAntrag.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="mdm\PLOSE\rptPLOSE_LaenderGesamt.Designer.vb">
<DependentUpon>rptPLOSE_LaenderGesamt.vb</DependentUpon>
</Compile>
@@ -493,12 +498,24 @@
<Compile Include="mdm\PLOSE\rptPLOSE_Konsortium.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="mdm\usrCntlUSTV.Designer.vb">
<DependentUpon>usrCntlUSTV.vb</DependentUpon>
</Compile>
<Compile Include="mdm\usrCntlUSTV.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="mdm\usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.Designer.vb">
<DependentUpon>usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb</DependentUpon>
</Compile>
<Compile Include="mdm\usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="mdm\usrCntlMSE_KonvertCSV.Designer.vb">
<DependentUpon>usrCntlMSE_KonvertCSV.vb</DependentUpon>
</Compile>
<Compile Include="mdm\usrCntlMSE_KonvertCSV.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Reports\Zoll\rptKontrolleLKW_NCTSTR.Designer.vb">
<DependentUpon>rptKontrolleLKW_NCTSTR.vb</DependentUpon>
</Compile>
@@ -2589,15 +2606,24 @@
<EmbeddedResource Include="kunden\usrCntlKundenBesonderheiten.resx">
<DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\frmMDM_USTVAntrag.resx">
<DependentUpon>frmMDM_USTVAntrag.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\PLOSE\rptPLOSE_LaenderGesamt.resx">
<DependentUpon>rptPLOSE_LaenderGesamt.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\PLOSE\rptPLOSE_Konsortium.resx">
<DependentUpon>rptPLOSE_Konsortium.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\usrCntlUSTV.resx">
<DependentUpon>usrCntlUSTV.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.resx">
<DependentUpon>usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\usrCntlMSE_KonvertCSV.resx">
<DependentUpon>usrCntlMSE_KonvertCSV.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\Zoll\rptKontrolleLKW_NCTSTR.resx">
<DependentUpon>rptKontrolleLKW_NCTSTR.vb</DependentUpon>
</EmbeddedResource>
@@ -4003,6 +4029,7 @@
<ItemGroup>
<Content Include="My Project\logo_mdm.png" />
<Content Include="My Project\zoll.png" />
<None Include="Resources\VERAG-UNISPED-Logo.jpg" />
<None Include="Resources\unisped_aeo_ZS_AT.jpg" />
<None Include="Resources\Unisped_ZS_logo.png" />
<None Include="Resources\Unisped_logo.png" />

12
SDL/SMS/frmSendSMS.vb
View File

@@ -247,11 +247,11 @@ Public Class frmSendSMS
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
fillTXT("Bitte zu VERAG kommen und den Pass mitnehmen!", "LKW: ")
fillTXT("Bitte zu VERAG kommen und den PASS mitnehmen!", "LKW: ")
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
fillTXT("Bitte zu VERAG kommen und den Stempel mitnehmen!", "LKW: ")
fillTXT("Bitte zu VERAG kommen und den STEMPEL mitnehmen!", "LKW: ")
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
@@ -263,11 +263,11 @@ Public Class frmSendSMS
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
fillTXT("Pasaportu ile birlikte VERAG ofise geliniz.", "TIR: ")
fillTXT("PASAPORTU ile birlikte VERAG ofise geliniz.", "TIR: ")
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
fillTXT("Firmakasesi ile birlikte VERAG ofise geliniz.", "TIR: ")
fillTXT("FIRMAKASESI ile birlikte VERAG ofise geliniz.", "TIR: ")
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
@@ -280,11 +280,11 @@ Public Class frmSendSMS
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
fillTXT("Molim Vas dođite u VERAG i ponesite pasos!", "TRUCK: ")
fillTXT("Molim Vas dođite u VERAG i PONESITE PASOS!", "TRUCK: ")
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
fillTXT("Molim Vas dođite u VERAG i ponesite pečat!", "TRUCK: ")
fillTXT("Molim Vas dođite u VERAG i PONESITE PEČAT!", "TRUCK: ")
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click

2
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb
View File

@@ -430,7 +430,7 @@ Public Class usrCntlATLAS_NCTS
p.nctsWP_Warenwert = SENDUNG.tblSnd_Warenwert
p.nctsWP_WarenwertWaehrung = SENDUNG.tblSnd_WarenwertWaehrung
' p.nctsWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
p.nctsWP_VorpapierTyp = "OHNE"
If If(p.nctsWP_VorpapierTyp, "") = "" Then p.nctsWP_VorpapierTyp = "OHNE"
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then
p.nctsWP_BesondereVermeke_Export = True

2
SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb
View File

@@ -188,7 +188,7 @@
Else
Select Case AVISO.Grenzstelle
Case "SUB" : zst = "DE007701"'Suben Autobahngrenze
Case "SBG" : zst = "DE007458" 'Bad Reichenhall-Autobahn
Case "SBG", "AMB" : zst = "DE007458" 'Bad Reichenhall-Autobahn
Case "WAI" : zst = "DE008904" 'Weiden-Waidhaus
Case "NEU" : zst = "DE007703" 'Passau
' Case "SFD" : zst = Asd ....DAKOS DE -.-

41
SDL/cProgramFunctions.vb
View File

@@ -1259,11 +1259,48 @@ Public Class cProgramFunctions
Next
End If
End Sub
Public Shared Sub _TRANSLATE_RPT(rpt As GrapeCity.ActiveReports.SectionReport, o As GrapeCity.ActiveReports.SectionReportModel.ControlCollection, lan As String)
If lan = "" Then Exit Sub
If lan = "DE" Then Exit Sub
'o... Form
's... SubContainer
'c... Control
Dim MEname = "rptRechnungDruck" 'rpt.Name
Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = MEname And x.trs_sprache = lan)
If TextTmp IsNot Nothing Then
For Each TXT As VERAG_PROG_ALLGEMEIN.cTranslate In TextTmp
Dim found As GrapeCity.ActiveReports.SectionReportModel.ARControl = Nothing
For Each search As GrapeCity.ActiveReports.SectionReportModel.ARControl In o
If search.Name = TXT.trs_control Then
found = search
End If
Next
' MsgBox(TXT.trs_control)
If found IsNot Nothing Then
' MsgBox("JA")
Dim obj As GrapeCity.ActiveReports.SectionReportModel.ARControl = found
If obj IsNot Nothing Then
If (TypeOf obj Is GrapeCity.ActiveReports.SectionReportModel.Label) Then
DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text = TXT.trs_text
End If
If (TypeOf obj Is GrapeCity.ActiveReports.SectionReportModel.TextBox) Then
DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.TextBox).Text = TXT.trs_text
End If
End If
End If
Next
End If
End Sub
End Class
Public Class MyListItem_DELETE
Private mText As String
Private mValue As String

12
SDL/frmMain.Designer.vb generated
View File

@@ -102,6 +102,7 @@ Partial Class frmMain
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
Me.USTVAnträgeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnlLeft.SuspendLayout()
Me.MenuStripSDL.SuspendLayout()
Me.Panel1.SuspendLayout()
@@ -161,7 +162,7 @@ Partial Class frmMain
'mnueMDM
'
Me.mnueMDM.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.mnueMDM.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KartenverwaltungToolStripMenuItem1, Me.VERAGCardParkplatzToolStripMenuItem1, Me.ParkzeitWaberersEtcToolStripMenuItem, Me.LKWListeToolStripMenuItem1, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripSeparator1, Me.SchnittstellenToolStripMenuItem, Me.ToolStripSeparator2, Me.AuswertungenToolStripMenuItem2})
Me.mnueMDM.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KartenverwaltungToolStripMenuItem1, Me.VERAGCardParkplatzToolStripMenuItem1, Me.ParkzeitWaberersEtcToolStripMenuItem, Me.LKWListeToolStripMenuItem1, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripSeparator1, Me.USTVAnträgeToolStripMenuItem, Me.ToolStripSeparator2, Me.SchnittstellenToolStripMenuItem, Me.AuswertungenToolStripMenuItem2})
Me.mnueMDM.ForeColor = System.Drawing.Color.White
Me.mnueMDM.Image = Global.SDL.My.Resources.Resources.logo_mdm
Me.mnueMDM.ImageAlign = System.Drawing.ContentAlignment.TopCenter
@@ -216,6 +217,7 @@ Partial Class frmMain
Me.SchnittstellenToolStripMenuItem.Name = "SchnittstellenToolStripMenuItem"
Me.SchnittstellenToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
Me.SchnittstellenToolStripMenuItem.Text = "Schnittstellen"
Me.SchnittstellenToolStripMenuItem.Visible = False
'
'ToolStripSeparator2
'
@@ -815,6 +817,7 @@ Partial Class frmMain
Me.KdSearchBox1.searchActive = True
Me.KdSearchBox1.Size = New System.Drawing.Size(215, 26)
Me.KdSearchBox1.TabIndex = 76
Me.KdSearchBox1.TIMER_SEARCH = True
Me.KdSearchBox1.usrcntl = Nothing
'
'Button4
@@ -920,6 +923,12 @@ Partial Class frmMain
Me.Timer_REFRESH.Enabled = True
Me.Timer_REFRESH.Interval = 5000
'
'USTVAnträgeToolStripMenuItem
'
Me.USTVAnträgeToolStripMenuItem.Name = "USTVAnträgeToolStripMenuItem"
Me.USTVAnträgeToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
Me.USTVAnträgeToolStripMenuItem.Text = "USTV Anträge"
'
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -1033,4 +1042,5 @@ Partial Class frmMain
Friend WithEvents picAVISOMessenger As PictureBox
Friend WithEvents Timer_REFRESH As Timer
Friend WithEvents Button3 As Button
Friend WithEvents USTVAnträgeToolStripMenuItem As ToolStripMenuItem
End Class

11
SDL/frmMain.vb
View File

@@ -900,6 +900,17 @@ Public Class frmMain
End If
secondmonitorSelected = Not secondmonitorSelected
End Sub
Private Sub USTVAnträgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles USTVAnträgeToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Hauptmenü", Me) = 0 Then
clrPnlMain()
Dim usrCntl As New usrCntlUSTV
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
pnlMain.Controls.Add(usrCntl)
Else
setInfo("err", "Daten sind nicht freigegeben!", 3)
End If
End Sub
End Class
Public Class MyRenderer

8
SDL/kunden/Vorauskasse/frmVorauskasse.vb
View File

@@ -62,8 +62,12 @@
Case "FRONTOFFICE"
cboFiliale._allowedValuesFreiText = {"5801"}
cboFiliale.changeItem("5801")
Case Else
cboFiliale.Items.Insert(1, New VERAG_PROG_ALLGEMEIN.MyListItem("alle VERAG", "VERAG"))
cboFiliale.changeItem("VERAG")
End Select
cboSachbearbeiterQS.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
" FROM tblMitarbeiter WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='QS' AND [mit_gekuendigt]=0 " & QSwhere & " order by name", False, "ADMIN", True)
cboSachbearbeiterBH.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
@@ -203,7 +207,9 @@
sqlstr &= " AND vk_AbfertigungsNr LIKE @AbfertigungsNr "
End If
' If txtUnterNr.Text <> "" Then sqlstr &= " AND [UnterNr] LIKE @UnterNr "
If cboFiliale._value <> "" Then sqlstr &= " AND [vk_FilialeNr] LIKE @FilialenNr "
If cboFiliale._value = "VERAG" Then : sqlstr &= " AND [vk_FilialeNr] IN (SELECT [FilialenNr] FROM [Filialen] where Firma ='VERAG') "
ElseIf cboFiliale._value <> "" Then : sqlstr &= " AND [vk_FilialeNr] LIKE @FilialenNr "
End If
If cboSachbearbeiterQS._value <> "" Then sqlstr &= " AND [vk_QS_SachbearbeiterId] = @PersonalnummerQS "
If cboSachbearbeiterBH._value <> "" Then sqlstr &= " AND [vk_BH_SachbearbeiterId] = @PersonalnummerBH "

4
SDL/kunden/frmEmailBenachrichtigung.vb
View File

@@ -1,10 +1,10 @@
Public Class frmEmailBenachrichtigung
Dim LIST As cEmailBenachrichtigungList = Nothing
Dim LIST As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList = Nothing
Sub New(kundennr, art)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
LIST = New cEmailBenachrichtigungList(kundennr, art)
LIST = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(kundennr, art)
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub

3
SDL/kunden/frmKundenBesonderheiten_Add.vb
View File

@@ -61,6 +61,9 @@
If KD_BESONSERHEITEN.hasEntry Then
rtbText.Text = KD_BESONSERHEITEN.kdb_text
cbxHervorheben.Checked = KD_BESONSERHEITEN.kdb_hervorheben
cboKategorie.changeItem(KD_BESONSERHEITEN.kdb_kategorie)
cboKategorie.changeItem(KD_BESONSERHEITEN.kdb_kategorie)
End If
End Sub

6
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -168,8 +168,8 @@ Public Class frmKundenUebersichtZOLL
' BERECHTIGUNEN = cBerechtignungenFunctions.loadBerechtigungen(USRID)
AddHandler KdSearchBox1.PropertyChanged, Sub()
Try
setKD(KdSearchBox1.KdNr_value)
Catch ex As Exception
setKD(KdSearchBox1.KdNr_value)
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
End Try
End Sub
@@ -258,6 +258,7 @@ Public Class frmKundenUebersichtZOLL
initAllgemein()
Me.tbcntrKundenDaten.Visible = True
usrcntlKundenuebersicht.setKD(kdnr)
'initDGVUmsatz()
'initDGVOffenePosten()
@@ -290,7 +291,6 @@ Public Class frmKundenUebersichtZOLL
'SchließenToolStripMenuItem.Enabled = True
mnueFiskal.Enabled = True
Me.tbcntrKundenDaten.Visible = True
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
mnueRechnungen.Visible = False

5
SDL/kunden/frmKundenZOLLVollmachten.vb
View File

@@ -24,7 +24,8 @@
Case "UNISPED", "IMEX", "FRONTOFFICE"
Panel1.Visible = True
Case Else
Me.Height = Me.Height - Panel1.Height
Panel1.Visible = True
'Me.Height = Me.Height - Panel1.Height
End Select
If id > 0 Then
@@ -59,7 +60,7 @@
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(id)
DS.DELETE_COMPLETE()
If Not ksql.setVollmacht_DSId(kdnr, MyComboBox1._value, id) Then
If ksql.setVollmacht_DSId(kdnr, MyComboBox1._value, -1) Then
id = -1 : pic.Visible = False
Label2.Text = "Kein PDF vorhanden."
picPDF.Image = My.Resources.pdf_gray

20
SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.Designer.vb generated
View File

@@ -42,6 +42,7 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung
Me.Label1 = New System.Windows.Forms.Label()
Me.cbxFreigabe_ABD = New System.Windows.Forms.CheckBox()
Me.cbxAVM = New System.Windows.Forms.CheckBox()
Me.cboFreigabeArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.SuspendLayout()
'
'cboFreigabe_SteuerbescheidBedingung
@@ -120,9 +121,9 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung
Me.CheckBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox6.Location = New System.Drawing.Point(278, 4)
Me.CheckBox6.Name = "CheckBox6"
Me.CheckBox6.Size = New System.Drawing.Size(146, 17)
Me.CheckBox6.Size = New System.Drawing.Size(72, 17)
Me.CheckBox6.TabIndex = 44
Me.CheckBox6.Text = "E-Mail bei LKW-Freigabe:"
Me.CheckBox6.Text = "E-Mail bei"
Me.CheckBox6.UseVisualStyleBackColor = True
'
'CheckBox4
@@ -284,11 +285,25 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung
Me.cbxAVM.Text = "AVM"
Me.cbxAVM.UseVisualStyleBackColor = True
'
'cboFreigabeArt
'
Me.cboFreigabeArt._allowedValuesFreiText = Nothing
Me.cboFreigabeArt._allowFreiText = False
Me.cboFreigabeArt._value = ""
Me.cboFreigabeArt.Enabled = False
Me.cboFreigabeArt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboFreigabeArt.FormattingEnabled = True
Me.cboFreigabeArt.Location = New System.Drawing.Point(348, 1)
Me.cboFreigabeArt.Name = "cboFreigabeArt"
Me.cboFreigabeArt.Size = New System.Drawing.Size(68, 21)
Me.cboFreigabeArt.TabIndex = 63
'
'usrCntlKundenAvisoMailBenachrichtigung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.cboFreigabeArt)
Me.Controls.Add(Me.cbxAVM)
Me.Controls.Add(Me.cbxFreigabe_ABD)
Me.Controls.Add(Me.Label1)
@@ -336,4 +351,5 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung
Friend WithEvents Label1 As Label
Friend WithEvents cbxFreigabe_ABD As CheckBox
Friend WithEvents cbxAVM As CheckBox
Friend WithEvents cboFreigabeArt As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

28
SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb
View File

@@ -23,7 +23,7 @@
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged, CheckBox4.CheckedChanged, cbxSendungsListFreigabe.CheckedChanged, cbxFreigabe_Steuerbescheid.CheckedChanged, cbxFreigabe_Steuerbescheid.CheckedChanged, cbxFreigabe_VBD.CheckedChanged, cboFreigabe_SteuerbescheidBedingung.SelectedIndexChanged, CheckBox2.CheckedChanged, CheckBox1.CheckedChanged, cbxFreigabe_ABD.CheckedChanged, cbxAVM.CheckedChanged
Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged, CheckBox4.CheckedChanged, cbxSendungsListFreigabe.CheckedChanged, cbxFreigabe_Steuerbescheid.CheckedChanged, cbxFreigabe_Steuerbescheid.CheckedChanged, cbxFreigabe_VBD.CheckedChanged, cboFreigabe_SteuerbescheidBedingung.SelectedIndexChanged, CheckBox2.CheckedChanged, CheckBox1.CheckedChanged, cbxFreigabe_ABD.CheckedChanged, cbxAVM.CheckedChanged, cboFreigabeArt.SelectedIndexChanged
Try
If sender Is cbxSendungsListFreigabe Then
' cbxFreigabe_Steuerbescheid.Enabled = cbxSendungsListFreigabe.Checked
@@ -33,6 +33,7 @@
cboFreigabe_SteuerbescheidBedingung.Enabled = cbxFreigabe_Steuerbescheid.Checked
End If
If loaded Then
cboFreigabeArt.Enabled = CheckBox6.Checked
initAvisoMail()
Dim kdTmp As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
@@ -41,15 +42,18 @@
kdTmp.EmailFreigabe = CheckBox6.Checked
kdTmpErw.EmailAnkunft_Export = CheckBox2.Checked
kdTmpErw.EmailFreigabe_Export = CheckBox1.Checked
kdTmpErw.EmailFreigabe_Art = cboFreigabeArt._value
kdTmpErw.EmailFreigabeSendungsListe = cbxSendungsListFreigabe.Checked
kdTmpErw.EmailFreigabe_SteuerbescheidPDF = cbxFreigabe_Steuerbescheid.Checked
kdTmpErw.EmailFreigabe_SteuerbescheidPDF_Bedingung = cboFreigabe_SteuerbescheidBedingung._value
kdTmpErw.EmailFreigabe_VBDPDF = cbxFreigabe_VBD.Checked
kdTmpErw.EmailFreigabe_aBDPDF = cbxFreigabe_ABD.Checked
kdTmpErw.EmailFreigabe_ABDPDF = cbxFreigabe_ABD.Checked
kdTmpErw.Email_AVM = cbxAVM.Checked
kdTmp.SAVE()
kdTmpErw.SAVE()
End If
Catch ex As Exception
MsgBox("Fehler beim Speichern." & vbNewLine & ex.Message & ex.StackTrace)
@@ -86,6 +90,9 @@
CheckBox4.Checked = KUNDE.EmailAnkunft
CheckBox1.Checked = KUNDE_ERW.EmailFreigabe_Export
CheckBox2.Checked = KUNDE_ERW.EmailAnkunft_Export
cboFreigabeArt.Enabled = CheckBox6.Checked
cboFreigabeArt.changeItem(KUNDE_ERW.EmailFreigabe_Art)
End If
@@ -137,10 +144,10 @@
RichTextBox2.Text = ""
If KUNDE IsNot Nothing AndAlso KUNDE.KundenNr > 0 Then
Dim EMAIL_ANKUNFT = New cEmailBenachrichtigungList(KUNDE.KundenNr, 1)
Dim EMAIL_FREIGABE = New cEmailBenachrichtigungList(KUNDE.KundenNr, 2)
Dim EMAIL_ANKUNFT_EXPORT = New cEmailBenachrichtigungList(KUNDE.KundenNr, 3)
Dim EMAIL_FREIGABE_EXPORT = New cEmailBenachrichtigungList(KUNDE.KundenNr, 4)
Dim EMAIL_ANKUNFT = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(KUNDE.KundenNr, 1)
Dim EMAIL_FREIGABE = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(KUNDE.KundenNr, 2)
Dim EMAIL_ANKUNFT_EXPORT = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(KUNDE.KundenNr, 3)
Dim EMAIL_FREIGABE_EXPORT = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(KUNDE.KundenNr, 4)
For Each l In EMAIL_ANKUNFT.LIST
If l.eb_cc Then
rtbLkwAnkunf.Text &= l.eb_EMail & " (CC)" & vbNewLine
@@ -188,6 +195,12 @@
End Sub
Private Sub usrCntlKundenAvisoMailBenachrichtigung_Load(sender As Object, e As EventArgs) Handles Me.Load
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 Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_MAIL_Steuerbescheid", "AVISO") Then
cbxFreigabe_Steuerbescheid.Visible = False
cboFreigabe_SteuerbescheidBedingung.Visible = False
@@ -206,4 +219,7 @@
loadEmails()
End Sub
Private Sub cboFreigabeArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFreigabeArt.SelectedIndexChanged
End Sub
End Class

65
SDL/kunden/usrCntlKundenBesonderheiten.vb
View File

@@ -4,7 +4,30 @@
Dim loaded = False
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Protected Overrides Sub OnVisibleChanged(ByVal e As EventArgs)
doStyle()
End Sub
Sub doStyle()
With dgvBesonderheiten
If .Columns.Count = 0 Then dgvBesonderheiten.Columns.Clear() : Exit Sub
For Each c In .Columns
c.HeaderCell.Style.ForeColor = Color.White
c.HeaderCell.Style.BackColor = Color.FromArgb(0, 54, 128)
Next
For Each r As DataGridViewRow In .Rows
If r.Cells("kdb_hervorheben").Value Then
r.DefaultCellStyle.BackColor = Color.LightYellow
End If
If r.Cells("kdb_history").Value Then
r.DefaultCellStyle.BackColor = Color.LightGray
End If
Next
End With
End Sub
Private Sub usrCntlKundenBesonderheiten_Load(sender As Object, e As EventArgs) Handles Me.Load
'initDGV()
cboKategorie.fillWithSQL("SELECT [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien]", False, "FMZOLL", True)
@@ -15,12 +38,12 @@
loaded = True
End Sub
Sub init(kdNr, Optional Kategorie = "", Optional simpleView = False)
Sub init(kdNr, Optional Kategorie = "", Optional simpleView = False, Optional preferedKategorie = "", Optional preferedKategorieOtherIN = "")
loaded = False
If simpleView Then Panel1.Visible = False 'showhideOptions(False)
cboKategorie.changeItem(Kategorie)
cbx.Checked = False
initDGV(kdNr, simpleView)
initDGV(kdNr, simpleView, preferedKategorie, preferedKategorieOtherIN)
loaded = True
End Sub
@@ -30,7 +53,7 @@
cboKategorie.Visible = visible
lbl.Visible = visible
End Sub
Private Sub initDGV(Optional kdnrTmp = -1, Optional simpleView = False)
Private Sub initDGV(Optional kdnrTmp = -1, Optional simpleView = False, Optional preferedKategorie = "", Optional preferedKategorieOtherIN = "")
dgvBesonderheiten.Columns.Clear()
@@ -50,7 +73,14 @@
where &= " and kdb_history=0 "
End If
.DataSource = SQL.loadDgvBySql("SELECT kdb_id, kdb_AenderungAm,kdb_text,kdb_mitId,kdb_mitName,kdb_EingetragenAm,kdb_kategorie, kdb_hervorheben,kdb_history FROM [tblKundenBesonderheiten] where kdb_KundenNr=" & kdNr & " and kdb_visible=1 " & where & " ORDER BY kdb_AenderungAm desc", "FMZOLL")
Dim order = " ORDER BY kdb_AenderungAm desc"
Dim katIN = " "
If preferedKategorie <> "" Then
order = " ORDER BY CASE WHEN kdb_kategorie = '" & preferedKategorie & "' THEN 1 ELSE 2 END desc, kdb_AenderungAm desc "
If katIN <> "" Then order = " AND kdb_kategorie IN(" & preferedKategorieOtherIN & ",'" & preferedKategorie & "') "
End If
.DataSource = SQL.loadDgvBySql("Select kdb_id, kdb_AenderungAm,kdb_text,kdb_mitId,kdb_mitName,kdb_EingetragenAm,kdb_kategorie, kdb_hervorheben,kdb_history FROM [tblKundenBesonderheiten] where kdb_KundenNr=" & kdNr & " And kdb_visible=1 " & katIN & where & " " & order, "FMZOLL")
If .Columns.Count = 0 Then dgvBesonderheiten.Columns.Clear() : Exit Sub
.ClearSelection()
@@ -76,19 +106,22 @@
.Columns("kdb_AenderungAm").DefaultCellStyle.Format = "dd.MM.yyyy"
.EnableHeadersVisualStyles = False
For Each c In .Columns
c.HeaderCell.Style.ForeColor = Color.White
c.HeaderCell.Style.BackColor = Color.FromArgb(0, 54, 128)
Next
For Each r As DataGridViewRow In .Rows
If r.Cells("kdb_hervorheben").Value Then
r.DefaultCellStyle.BackColor = Color.LightYellow
End If
If r.Cells("kdb_history").Value Then
r.DefaultCellStyle.BackColor = Color.LightGray
End If
Next
doStyle()
'For Each c In .Columns
' c.HeaderCell.Style.ForeColor = Color.White
' c.HeaderCell.Style.BackColor = Color.FromArgb(0, 54, 128)
'Next
'For Each r As DataGridViewRow In .Rows
' If r.Cells("kdb_hervorheben").Value Then
' r.DefaultCellStyle.BackColor = Color.LightYellow
' End If
' If r.Cells("kdb_history").Value Then
' r.DefaultCellStyle.BackColor = Color.LightGray
' End If
'Next
If simpleView Then
.Columns("kdb_kategorie").Visible = False

639
SDL/kunden/usrCntlKundenuebersicht.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

3
SDL/kunden/usrCntlKundenuebersicht.resx
View File

@@ -236,4 +236,7 @@
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1146, 17</value>
</metadata>
<metadata name="ContextMenuStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1303, 17</value>
</metadata>
</root>

198
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -163,6 +163,7 @@ Public Class usrCntlKundenuebersicht
End If
cboVertrag.fillWithSQL("SELECT kva_id,kva_Bezeichnung FROM [tblKundenVertraegeArten] ORDER BY kva_Bezeichnung", False, "FMZOLL", True)
txtT1VerzollungsadresseBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
txtGGDatum._value = Now.ToShortDateString
@@ -277,6 +278,7 @@ Public Class usrCntlKundenuebersicht
initDGVOffenePosten()
initDGVVollmachten()
initDGVGestGarantie()
initDGVVertraege()
'initDGVOfferte()
initDGVAnhaenge()
initDGVOffertenSperrliste()
@@ -584,8 +586,7 @@ Public Class usrCntlKundenuebersicht
UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW)
'UsrCntlKundenBesonderheiten1.Visible = False
If KUNDE_ERW.kde_BesonderheitenNeu Then
UsrCntlKundenBesonderheiten1.Size = rtbAbf_Besonderheiten.Size
UsrCntlKundenBesonderheiten1.init(kdNr)
@@ -824,7 +825,7 @@ Public Class usrCntlKundenuebersicht
.Columns("clmnPDF").Visible = True
Case Else
.Columns("clmnTherefore").Visible = True
.Columns("clmnPDF").Visible = False
.Columns("clmnPDF").Visible = True
End Select
For Each r As DataGridViewRow In .Rows
If r.Cells("kdvm_erhalten").Value Is DBNull.Value Then
@@ -882,6 +883,46 @@ Public Class usrCntlKundenuebersicht
clearGG()
End Sub
Sub initDGVVertraege()
With dgvVertraege
.Columns.Clear()
.DataSource = VERAG_PROG_ALLGEMEIN.cKundenVertraege.LOAD_LIST(kdNr)
If .Columns.Count = 0 Then Exit Sub
.Columns("kv_Id").Visible = False
.Columns("kv_KundenNr").Visible = False
.Columns("kv_vertragArtId").Visible = False
.Columns("kv_datenarchivId").Visible = False
.Columns("kv_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("kv_erhalten_Datum").Width = 70
.Columns("kv_erhalten_Datum").HeaderText = "Datum"
.Columns("kva_Bezeichnung").Width = 120
.Columns("kva_Bezeichnung").HeaderText = "Art"
.Columns("kv_Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("kv_Info").HeaderText = "Info"
.Columns("kv_gueltig").Width = 35
.Columns("kv_gueltig").HeaderText = "gültig"
If True Then
Dim c As New DataGridViewImageColumn
c.Name = "clmnPDF" : c.HeaderText = "PDF"
c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
c.DefaultCellStyle.Tag = "PDF anzeigen"
.Columns.Add(c)
For Each r As DataGridViewRow In .Rows
If r.Cells("kv_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kv_datenarchivId").Value) > 0 Then
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
End If
Next
End If
.ClearSelection()
End With
clearKV()
End Sub
Sub initDGVOffertenSperrliste()
With dgvOffertenSperrliste
Dim where As String = ""
@@ -1385,6 +1426,13 @@ Public Class usrCntlKundenuebersicht
End If
End Sub
Private Sub dgvVertraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraege.CellDoubleClick
If dgvVertraege.SelectedRows.Count = 1 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.SelectedRows(0).Cells("kv_datenarchivId").Value)
DS.OPEN_SINGLE()
End If
End Sub
Private Sub dgvVollmachten_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachten.CellDoubleClick
Dim tmprowindex As Integer = e.RowIndex
@@ -2005,6 +2053,15 @@ Public Class usrCntlKundenuebersicht
End If
End If
End Sub
Private Sub dgvVertraege_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvVertraege.CellMouseClick
If e.RowIndex < 0 Then Exit Sub
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
If e.Button = Windows.Forms.MouseButtons.Right Then
If dgvVertraege.SelectedRows.Count > 0 Then
ContextMenuStrip4.Show(Cursor.Position)
End If
End If
End Sub
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
If dgvGestGarantie.SelectedRows.Count > 0 Then
@@ -2074,6 +2131,15 @@ Public Class usrCntlKundenuebersicht
Button9.Visible = False
End Sub
Sub clearKV()
cboVertrag.changeItem("")
datVertrag.Text = ""
txtVertragVermerk.Text = ""
Button11.Text = "Hinzufügen"
Button12.Visible = False
End Sub
Private Sub PDFLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PDFLöschenToolStripMenuItem.Click
If dgvGestGarantie.SelectedRows.Count = 1 Then
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
@@ -2140,4 +2206,130 @@ Public Class usrCntlKundenuebersicht
If pdf <> "" Then Process.Start(pdf)
Me.Cursor = Cursors.Default
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
If cboVertrag._value <> "" And datVertrag._value <> "" Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege
If Button12.Visible Then
If dgvVertraege.SelectedRows.Count = 1 Then
KV = New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
Else
Exit Sub
End If
End If
KV.kv_KundenNr = kdNr
KV.kv_erhalten_Datum = datVertrag._value
'KV.kv_Zollamt = If(cbxKV.Checked, "GENERELL", txtT1VerzollungsadresseBestimmungszollstelle._value)
'If Not Button9.Visible AndAlso VERAG_PROG_ALLGEMEIN.cKundenVertraege.ENTRY_Exists(kdNr, KV.kv_Zollamt) Then
' MsgBox("Der Eintrag existiert bereits!")
' Exit Sub
'End If
KV.kv_vertragArtId = cboVertrag._value
KV.kv_Info = txtVertragVermerk.Text
If KV.SAVE Then
setKD(kdNr)
End If
clearKV()
End If
End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
clearKV()
End Sub
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
If dgvVertraege.SelectedRows.Count > 0 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
If vbYes = MsgBox("Möchten Sie den Vertrag wirklich löschen?", vbYesNoCancel) Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
If KV.DELETE() Then
setKD(kdNr)
End If
End If
End If
End If
End Sub
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
If dgvVertraege.SelectedRows.Count = 1 Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
cboVertrag.changeItem(KV.kv_vertragArtId)
datVertrag.Text = KV.kv_erhalten_Datum
txtVertragVermerk.Text = KV.kv_Info
Button11.Text = "Ändern"
Button12.Visible = True
End If
End Sub
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
If dgvVertraege.SelectedRows.Count = 1 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
KV.kv_datenarchivId = DS.da_id
KV.SAVE()
initDGVVertraege()
End If
End If
End If
End Sub
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
If dgvVertraege.SelectedRows.Count = 1 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("DirectScan")
frmScan.DefaultFileName = DS.da_name
If frmScan.ShowDialog(Me) = DialogResult.OK Then
If frmScan.ReturnValue IsNot Nothing Then
Dim Filename = DS.da_name
If frmScan.fileName <> "" Then Filename = frmScan.fileName
If DS.uploadDataToDATENSERVER_fromBytes(frmScan.ReturnValue, Filename, ".pdf") Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
KV.kv_datenarchivId = DS.da_id
KV.SAVE()
initDGVVertraege()
End If
End If
End If
End If
End If
End Sub
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
If dgvVertraege.SelectedRows.Count = 1 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
DS.DELETE_COMPLETE()
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
KV.kv_datenarchivId = Nothing
KV.SAVE()
initDGVVertraege()
End If
End If
End If
End Sub
Private Sub GültigungültigToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GültigungültigToolStripMenuItem.Click
If dgvVertraege.SelectedRows.Count = 1 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
KV.kv_gueltig = Not KV.kv_gueltig
KV.SAVE()
initDGVVertraege()
End If
End If
End Sub
End Class

4
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -7,8 +7,8 @@ Public Class usrcntlKundeBearbeitenFull
Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Dim FISKAL As cFiskal_Daten = Nothing
' Dim USRCNTL_FISK As usrCntlKundeFiskaldaten
Dim EMAIL_ANKUNFT As cEmailBenachrichtigungList = Nothing
Dim EMAIL_FREIGABE As cEmailBenachrichtigungList = Nothing
Dim EMAIL_ANKUNFT As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList = Nothing
Dim EMAIL_FREIGABE As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList = Nothing
Dim sql As New SQL
Dim WunschKdNr As Integer = -1
' Dim kdnr = -1

Some files were not shown because too many files have changed in this diff Show More