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 = "" rpt.txtBank2.Text = ""
Else Else
If hasVK(Rechnung) Then 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 = "" rpt.txtBank2.Text = ""
Else Else
If hasEUSTZOLL(Rechnung) Then 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 = "" rpt.txtBank2.Text = ""
Else 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 = "" rpt.txtBank2.Text = ""
End If End If
End If End If
@@ -639,14 +639,14 @@ Public Class cFakturierung
rpt.txtBank2.Text = "" rpt.txtBank2.Text = ""
Else Else
If hasVK(RechnungsNr, Buchungsjahr) Then 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 = "" rpt.txtBank2.Text = ""
Else Else
If hasEUSTZOLL(RechnungsNr) Then 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 = "" rpt.txtBank2.Text = ""
Else 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 = "" rpt.txtBank2.Text = ""
End If End If
End If End If
@@ -691,14 +691,14 @@ Public Class cFakturierung
rpt.txtBank2.Text = "" rpt.txtBank2.Text = ""
Else Else
If hasVK(RechnungsNr, Buchungsjahr) Then 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 = "" rpt.txtBank2.Text = ""
Else Else
If hasEUSTZOLL(RechnungsNr) Then 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 = "" rpt.txtBank2.Text = ""
Else 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 = "" rpt.txtBank2.Text = ""
End If End If
End If End If
@@ -742,7 +742,7 @@ Public Class cFakturierung
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Try Try
' MsgBox(RECHNUNG.Firma_ID) ' 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 FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(RECHNUNG.Firma_ID)
Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) 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) Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False)
If printStbVdb Then 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 End If
Return ret Return ret
@@ -1220,10 +1222,10 @@ Public Class cFakturierung
If SPEDBCUH.DokumentId_Steuerbeleg IsNot Nothing Then If SPEDBCUH.DokumentId_Steuerbeleg IsNot Nothing Then
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_Steuerbeleg)}) VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_Steuerbeleg)})
End If End If
If printVbD Then End If
If SPEDBCUH.DokumentId_VBD IsNot Nothing Then If printVbD Then
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_VBD)}) If SPEDBCUH.DokumentId_VBD IsNot Nothing Then
End If VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_VBD)})
End If End If
End If End If
End If End If
@@ -1233,6 +1235,24 @@ Public Class cFakturierung
End Sub 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 Shared Function getFirmaNr(Optional firma = -1) As String
If firma < 0 Then 'Falls keine Firma If firma < 0 Then 'Falls keine Firma
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -1251,43 +1271,52 @@ Public Class cFakturierung
Return getSignature(RECHNUNG.RechnungsLandKz, RECHNUNG.Firma_ID) Return getSignature(RECHNUNG.RechnungsLandKz, RECHNUNG.Firma_ID)
End Function 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 = "" getSignature = ""
firma = getFirmaNr(firma) firma = getFirmaNr(firma)
Dim imgsrc = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\").Replace("\", "/") Dim imgsrc = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\").Replace("\", "/")
Dim emailindividuell = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email
Select Case firma Select Case special
Case 1 'VERAG Case "BREXIT_VERAG"
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG_AEO_MailSig.jpg""/>" getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG_AEO_MailSig.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>VERAG Spedition AG<br>" 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>" 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 7 'ATILLA
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Atilla.jpg""/>" Case Else
If displayFirmenmane Then getSignature &= "<br>ATILLA Spedition GmbH<br>" Select Case firma
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 1 'VERAG
Case 11 'VERAG CS getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG_AEO_MailSig.jpg""/>"
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Customs-Service-GMBH-Logo_sig.png""/>" If displayFirmenmane Then getSignature &= "<br>VERAG Spedition AG<br>"
If displayFirmenmane Then getSignature &= "<br>VERAG Customs Service<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>"
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 7 'ATILLA
Case 20 'Imex getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Atilla.jpg""/>"
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>" If displayFirmenmane Then getSignature &= "<br>ATILLA Spedition GmbH<br>"
If displayFirmenmane Then getSignature &= "<br>Imex Customs Service 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>"
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 11 'VERAG CS
Case 21 'UNISPED getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Customs-Service-GMBH-Logo_sig.png""/>"
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Unisped_logo.jpg""/>" If displayFirmenmane Then getSignature &= "<br>VERAG Customs Service<br>"
If displayFirmenmane Then getSignature &= "<br>Unisped Speditions GmbH<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>"
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 20 'Imex
Case 99 'GmbH getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>"
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Spedition-GMBH-Logo1.png""/>" If displayFirmenmane Then getSignature &= "<br>Imex Customs Service GmbH<br>"
If displayFirmenmane Then getSignature &= "<br>VERAG Spedition 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>"
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 21 'UNISPED
Case 17 'Front-Office getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Unisped_logo.jpg""/>"
getSignature &= "<img width=""170"" height=""50"" src=""" & imgsrc & "Logo_blue_globe_Horizontal.jpg""/>" If displayFirmenmane Then getSignature &= "<br>Unisped Speditions GmbH<br>"
If displayFirmenmane Then getSignature &= "<br>Front Office Suben eG<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>"
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>" 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 End Select
getSignature &= "<br>" getSignature &= "<br>"
@@ -1617,6 +1646,17 @@ Public Class cFakturierung
End If End If
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 -------------- '-------------- für PDF-Sammel-Rechnung --------------
Dim list As New List(Of String) ' Sammlung PDFs 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 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 Try
Dim rpt As New rptSammelRechnungAnlagenDruck
Dim dt As DataTable Dim dt As DataTable
If VorschauID = "" Then If VorschauID = "" Then
@@ -1803,9 +1842,11 @@ Public Class cFakturierung
Else Else
dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
End If End If
Dim ROW As DataRow = dt.Rows(0)
Dim rpt As New rptSammelRechnungAnlagenDruck(ROW("RechnungSprache"))
rpt.DataSource = dt rpt.DataSource = dt
Dim ROW As DataRow = dt.Rows(0)
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(ROW("Firma_ID")) Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(ROW("Firma_ID"))
Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr")) 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 If CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz))) < 0 Then
rpt.Label9.Text = "Gutschriftsbetrag:" rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:"
rpt.Label16.Text = "Gutschrifts-Nr.:" rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:"
End If End If
End Sub 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 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 Try
Dim rpt As New rptSammelRechnungDruck
Dim ROW As DataRow = dt.Rows(0) 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 FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(ROW("Firma_ID"))
Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr")) 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.lblUID.Text = If(FIRMA.Firma_UID, "")
'rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "") 'rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
rpt.lblLKWId.Text = getLKWID(RechnungsNr, DruckdatumUhrzeit, Rgstatus) 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 If If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "") = "" Then
rpt.lblRechnung_Name1.Text = "" rpt.lblRechnung_Name1.Text = ""
@@ -2312,8 +2354,8 @@ Public Class cFakturierung
If CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz))) < 0 Then If CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz))) < 0 Then
rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT" rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT"
rpt.Label9.Text = "Gutschriftsbetrag:" rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:"
rpt.Label16.Text = "Gutschrifts-Nr.:" rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:"
End If 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_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_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, 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 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 " where 1=1 "

28
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -37,31 +37,42 @@ Public Class frmAbrechnungsMaske
'BERECHTIGUNG 90 = FAKTURIERUNG!!! 'BERECHTIGUNG 90 = FAKTURIERUNG!!!
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 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" FirmaTmp = "VERAGIMEX"
End If End If
Select Case FirmaTmp Select Case FirmaTmp
Case "VERAG" Case "VERAG"
cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID<>20", False, "FMZOLL") If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "MDM" Then
cboFirma.changeItem("1") cboFirma.fillWithSQL("Select [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE FIRMENGRUPPE In ('VERAG360') ", False, "FMZOLL")
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) 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" 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") 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) 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" 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") 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) 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" 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 Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG" : cboFirma.changeItem("1") Case "VERAG" : cboFirma.changeItem("1")
Case "IMEX" : cboFirma.changeItem("20") Case "IMEX" : cboFirma.changeItem("20")
End Select 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) 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 End Select
' MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Benutzerwechsel ' MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Benutzerwechsel
'If MyComboBox2.Items.Count > 0 Then MyComboBox2.SelectedIndex = 0 'If MyComboBox2.Items.Count > 0 Then MyComboBox2.SelectedIndex = 0
MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
@@ -477,9 +488,10 @@ Public Class frmAbrechnungsMaske
cFakturierung.getRgDatInput("", RechnungsDatumTMP) 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 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 Next
'merge PDFs path 'merge PDFs path
initDGV() initDGV()

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

@@ -411,7 +411,7 @@ Partial Class frmRechnungenSuche
Me.btnSuche.Name = "btnSuche" Me.btnSuche.Name = "btnSuche"
Me.btnSuche.Size = New System.Drawing.Size(162, 52) Me.btnSuche.Size = New System.Drawing.Size(162, 52)
Me.btnSuche.TabIndex = 28 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 Me.btnSuche.UseVisualStyleBackColor = True
' '
'txtAbfertDat 'txtAbfertDat

9
SDL/Fakturierung/frmRechnungenSuche.vb
View File

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

21
SDL/Fakturierung/rptRechnungDruck.vb
View File

@@ -2,12 +2,23 @@ Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document Imports GrapeCity.ActiveReports.Document
Public Class rptRechnungDruck Public Class rptRechnungDruck
Dim _LAN = ""
Private Sub GroupHeader3_Format(sender As Object, e As EventArgs) 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 End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart 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 Sub
End Class 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.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() 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.txtBank1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBank2 = 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.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.lblRgNr = New GrapeCity.ActiveReports.SectionReportModel.Label() 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.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.picVERAG = 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.lblUeberschriftRG_GS = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKundenNr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblKundenNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -51,19 +51,19 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.lblFirmaFax = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblFirmaFax = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaEmail = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblFirmaEmail = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaWeb = 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.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.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.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.lblUID = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Name1 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblRechnung_Name1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Name2 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblRechnung_Name2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Strasse = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblRechnung_Strasse = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Ort = 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.lblEORI = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_UID_Ueberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblRechnung_UID_Ueberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_UID = 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.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line9 = 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.lblSteuerfreiGes = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSteuerpflichtigGes = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSteuerpflichtigGes = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumme = 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.Line14 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblZwText = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblZwText = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblLeistungsdatumUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblPosNrUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSendungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSteuerfreiUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line16 = 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.txtSendungsdetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPackstuecke, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtPackstuecke, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, 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.txtBank1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBank2, 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.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.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, 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.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaOrt, 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.lblFirmaFax, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaWeb, 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.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.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.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.lblUID, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Name1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRechnung_Name1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Name2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRechnung_Name2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Strasse, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRechnung_Strasse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Ort, 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.lblEORI, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_UID, 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.lblRechnung_Steuernummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Land, 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.lblSteuerfreiGes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme, 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.lblSteuerbetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuersatz, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuersatz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblLeistungsdatumUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblPosNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSendungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
' '
'PageHeader 'PageHeader
@@ -295,7 +295,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck
' '
'PageFooter '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.Height = 0.8791339!
Me.PageFooter.Name = "PageFooter" Me.PageFooter.Name = "PageFooter"
' '
@@ -322,17 +322,17 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.ReportInfo2.Top = 0.1173228! Me.ReportInfo2.Top = 0.1173228!
Me.ReportInfo2.Width = 1.994928! Me.ReportInfo2.Width = 1.994928!
' '
'Label28 'lblBankUeberschrift
' '
Me.Label28.Height = 0.1574803! Me.lblBankUeberschrift.Height = 0.1574803!
Me.Label28.HyperLink = Nothing Me.lblBankUeberschrift.HyperLink = Nothing
Me.Label28.Left = 0.01417323! Me.lblBankUeberschrift.Left = 0.01417323!
Me.Label28.Name = "Label28" Me.lblBankUeberschrift.Name = "lblBankUeberschrift"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" & Me.lblBankUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" &
"r-set: 1" "r-set: 1"
Me.Label28.Text = "Bankverbindungen:" Me.lblBankUeberschrift.Text = "Bankverbindungen:"
Me.Label28.Top = 0.1173228! Me.lblBankUeberschrift.Top = 0.1173228!
Me.Label28.Width = 1.155512! Me.lblBankUeberschrift.Width = 1.155512!
' '
'txtBank1 'txtBank1
' '
@@ -341,8 +341,8 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.txtBank1.Name = "txtBank1" Me.txtBank1.Name = "txtBank1"
Me.txtBank1.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & Me.txtBank1.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" &
"ar-set: 1" "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" & 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" &
"455" ""
Me.txtBank1.Top = 0.1173228! Me.txtBank1.Top = 0.1173228!
Me.txtBank1.Width = 2.483071! Me.txtBank1.Width = 2.483071!
' '
@@ -358,20 +358,20 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.txtBank2.Top = 0.1173228! Me.txtBank2.Top = 0.1173228!
Me.txtBank2.Width = 2.472835! Me.txtBank2.Width = 2.472835!
' '
'TextBox13 'txtDisclaimer
' '
Me.TextBox13.Height = 0.2708662! Me.txtDisclaimer.Height = 0.2708662!
Me.TextBox13.Left = 0.01417323! Me.txtDisclaimer.Left = 0.01417323!
Me.TextBox13.Name = "TextBox13" Me.txtDisclaimer.Name = "txtDisclaimer"
Me.TextBox13.Style = "font-size: 7.8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-" & Me.txtDisclaimer.Style = "font-size: 7.8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-" &
"char-set: 1" "char-set: 1"
Me.TextBox13.Text = resources.GetString("TextBox13.Text") Me.txtDisclaimer.Text = resources.GetString("txtDisclaimer.Text")
Me.TextBox13.Top = 0.6082678! Me.txtDisclaimer.Top = 0.6082678!
Me.TextBox13.Width = 7.466143! Me.txtDisclaimer.Width = 7.466143!
' '
'ReportHeader1 '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.Height = 4.168913!
Me.ReportHeader1.Name = "ReportHeader1" Me.ReportHeader1.Name = "ReportHeader1"
' '
@@ -387,17 +387,17 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.lblRgNr.Top = 0.7503937! Me.lblRgNr.Top = 0.7503937!
Me.lblRgNr.Width = 1.958268! Me.lblRgNr.Width = 1.958268!
' '
'Label16 'lblRgNrUeberschrift
' '
Me.Label16.Height = 0.1574803! Me.lblRgNrUeberschrift.Height = 0.1574803!
Me.Label16.HyperLink = Nothing Me.lblRgNrUeberschrift.HyperLink = Nothing
Me.Label16.Left = 5.104331! Me.lblRgNrUeberschrift.Left = 5.104331!
Me.Label16.Name = "Label16" Me.lblRgNrUeberschrift.Name = "lblRgNrUeberschrift"
Me.Label16.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblRgNrUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
Me.Label16.Text = "Rechnungs-Nr.:" Me.lblRgNrUeberschrift.Text = "Rechnungs-Nr.:"
Me.Label16.Top = 0.7503937! Me.lblRgNrUeberschrift.Top = 0.7503937!
Me.Label16.Width = 1.165748! Me.lblRgNrUeberschrift.Width = 1.165748!
' '
'Picture1 'Picture1
' '
@@ -421,17 +421,17 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.picVERAG.Top = 0! Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.482677! Me.picVERAG.Width = 2.482677!
' '
'Label3 'lblKundenNrUeberschrift
' '
Me.Label3.Height = 0.1574803! Me.lblKundenNrUeberschrift.Height = 0.1574803!
Me.Label3.HyperLink = Nothing Me.lblKundenNrUeberschrift.HyperLink = Nothing
Me.Label3.Left = 5.104331! Me.lblKundenNrUeberschrift.Left = 5.104331!
Me.Label3.Name = "Label3" Me.lblKundenNrUeberschrift.Name = "lblKundenNrUeberschrift"
Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblKundenNrUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
Me.Label3.Text = "Kunden-Nr.:" Me.lblKundenNrUeberschrift.Text = "Kunden-Nr.:"
Me.Label3.Top = 2.328347! Me.lblKundenNrUeberschrift.Top = 2.328347!
Me.Label3.Width = 1.165748! Me.lblKundenNrUeberschrift.Width = 1.165748!
' '
'lblUeberschriftRG_GS 'lblUeberschriftRG_GS
' '
@@ -542,17 +542,17 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.lblFirmaWeb.Top = 0.868504! Me.lblFirmaWeb.Top = 0.868504!
Me.lblFirmaWeb.Width = 1.436614! Me.lblFirmaWeb.Width = 1.436614!
' '
'Label18 'lblRgDatumUeberschrift
' '
Me.Label18.Height = 0.1574803! Me.lblRgDatumUeberschrift.Height = 0.1574803!
Me.Label18.HyperLink = Nothing Me.lblRgDatumUeberschrift.HyperLink = Nothing
Me.Label18.Left = 5.104331! Me.lblRgDatumUeberschrift.Left = 5.104331!
Me.Label18.Name = "Label18" Me.lblRgDatumUeberschrift.Name = "lblRgDatumUeberschrift"
Me.Label18.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblRgDatumUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
Me.Label18.Text = "Rechnungs-Datum:" Me.lblRgDatumUeberschrift.Text = "Rechnungs-Datum:"
Me.Label18.Top = 0.9078741! Me.lblRgDatumUeberschrift.Top = 0.9078741!
Me.Label18.Width = 1.165748! Me.lblRgDatumUeberschrift.Width = 1.165748!
' '
'lblRgDatum 'lblRgDatum
' '
@@ -566,17 +566,17 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.lblRgDatum.Top = 0.907874! Me.lblRgDatum.Top = 0.907874!
Me.lblRgDatum.Width = 1.958268! Me.lblRgDatum.Width = 1.958268!
' '
'Label26 'lblSachbearbeiterUeberschrift
' '
Me.Label26.Height = 0.1574803! Me.lblSachbearbeiterUeberschrift.Height = 0.1574803!
Me.Label26.HyperLink = Nothing Me.lblSachbearbeiterUeberschrift.HyperLink = Nothing
Me.Label26.Left = 5.104332! Me.lblSachbearbeiterUeberschrift.Left = 5.104332!
Me.Label26.Name = "Label26" Me.lblSachbearbeiterUeberschrift.Name = "lblSachbearbeiterUeberschrift"
Me.Label26.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblSachbearbeiterUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
Me.Label26.Text = "Sachbearbeiter/in:" Me.lblSachbearbeiterUeberschrift.Text = "Sachbearbeiter/in:"
Me.Label26.Top = 1.556693! Me.lblSachbearbeiterUeberschrift.Top = 1.556693!
Me.Label26.Width = 1.165748! Me.lblSachbearbeiterUeberschrift.Width = 1.165748!
' '
'lblSachbearbeiter 'lblSachbearbeiter
' '
@@ -590,17 +590,17 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.lblSachbearbeiter.Top = 1.556693! Me.lblSachbearbeiter.Top = 1.556693!
Me.lblSachbearbeiter.Width = 1.958268! Me.lblSachbearbeiter.Width = 1.958268!
' '
'Label29 'lblFirmenbuchUeberschrift
' '
Me.Label29.Height = 0.1574803! Me.lblFirmenbuchUeberschrift.Height = 0.1574803!
Me.Label29.HyperLink = Nothing Me.lblFirmenbuchUeberschrift.HyperLink = Nothing
Me.Label29.Left = 5.104332! Me.lblFirmenbuchUeberschrift.Left = 5.104332!
Me.Label29.Name = "Label29" Me.lblFirmenbuchUeberschrift.Name = "lblFirmenbuchUeberschrift"
Me.Label29.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblFirmenbuchUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
Me.Label29.Text = "Firmenbuch:" Me.lblFirmenbuchUeberschrift.Text = "Firmenbuch:"
Me.Label29.Top = 1.714173! Me.lblFirmenbuchUeberschrift.Top = 1.714173!
Me.Label29.Width = 1.165748! Me.lblFirmenbuchUeberschrift.Width = 1.165748!
' '
'lblFirmenbuch 'lblFirmenbuch
' '
@@ -614,17 +614,17 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.lblFirmenbuch.Top = 1.714173! Me.lblFirmenbuch.Top = 1.714173!
Me.lblFirmenbuch.Width = 1.958268! Me.lblFirmenbuch.Width = 1.958268!
' '
'Label31 'lblUIDUeberschrift
' '
Me.Label31.Height = 0.1574803! Me.lblUIDUeberschrift.Height = 0.1574803!
Me.Label31.HyperLink = Nothing Me.lblUIDUeberschrift.HyperLink = Nothing
Me.Label31.Left = 5.104332! Me.lblUIDUeberschrift.Left = 5.104332!
Me.Label31.Name = "Label31" Me.lblUIDUeberschrift.Name = "lblUIDUeberschrift"
Me.Label31.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblUIDUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
Me.Label31.Text = "UID:" Me.lblUIDUeberschrift.Text = "UID:"
Me.Label31.Top = 1.871653! Me.lblUIDUeberschrift.Top = 1.871653!
Me.Label31.Width = 1.165748! Me.lblUIDUeberschrift.Width = 1.165748!
' '
'lblUID 'lblUID
' '
@@ -686,17 +686,17 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.lblRechnung_Ort.Top = 2.40315! Me.lblRechnung_Ort.Top = 2.40315!
Me.lblRechnung_Ort.Width = 4.589763! Me.lblRechnung_Ort.Width = 4.589763!
' '
'Label48 'lblEORIUeberschrift
' '
Me.Label48.Height = 0.1574803! Me.lblEORIUeberschrift.Height = 0.1574803!
Me.Label48.HyperLink = Nothing Me.lblEORIUeberschrift.HyperLink = Nothing
Me.Label48.Left = 5.104331! Me.lblEORIUeberschrift.Left = 5.104331!
Me.Label48.Name = "Label48" Me.lblEORIUeberschrift.Name = "lblEORIUeberschrift"
Me.Label48.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblEORIUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
Me.Label48.Text = "EORI:" Me.lblEORIUeberschrift.Text = "EORI:"
Me.Label48.Top = 2.025197! Me.lblEORIUeberschrift.Top = 2.025197!
Me.Label48.Width = 1.165748! Me.lblEORIUeberschrift.Width = 1.165748!
' '
'lblEORI 'lblEORI
' '
@@ -797,7 +797,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck
' '
'ReportFooter1 '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.Height = 1.315354!
Me.ReportFooter1.KeepTogether = True Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1" Me.ReportFooter1.Name = "ReportFooter1"
@@ -828,16 +828,16 @@ Partial Public Class rptSammelRechnungAnlagenDruck
Me.Line9.Y1 = 0.1035433! Me.Line9.Y1 = 0.1035433!
Me.Line9.Y2 = 0.1035433! Me.Line9.Y2 = 0.1035433!
' '
'Label9 'lblSummeUeberschrift
' '
Me.Label9.Height = 0.1574803! Me.lblSummeUeberschrift.Height = 0.1574803!
Me.Label9.HyperLink = Nothing Me.lblSummeUeberschrift.HyperLink = Nothing
Me.Label9.Left = 4.309449! Me.lblSummeUeberschrift.Left = 4.309449!
Me.Label9.Name = "Label9" Me.lblSummeUeberschrift.Name = "lblSummeUeberschrift"
Me.Label9.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1" Me.lblSummeUeberschrift.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label9.Text = "Rechnungsbetrag" Me.lblSummeUeberschrift.Text = "Rechnungsbetrag"
Me.Label9.Top = 0.7165355! Me.lblSummeUeberschrift.Top = 0.7165355!
Me.Label9.Width = 1.549213! Me.lblSummeUeberschrift.Width = 1.549213!
' '
'lblSteuerfreiGes 'lblSteuerfreiGes
' '
@@ -1002,70 +1002,70 @@ Partial Public Class rptSammelRechnungAnlagenDruck
' '
'GroupHeader4 '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.Height = 0.1944771!
Me.GroupHeader4.KeepTogether = True Me.GroupHeader4.KeepTogether = True
Me.GroupHeader4.Name = "GroupHeader4" Me.GroupHeader4.Name = "GroupHeader4"
' '
'Label2 'lblLeistungsdatumUeberschrift
' '
Me.Label2.Height = 0.1433071! Me.lblLeistungsdatumUeberschrift.Height = 0.1433071!
Me.Label2.HyperLink = Nothing Me.lblLeistungsdatumUeberschrift.HyperLink = Nothing
Me.Label2.Left = 1.211024! Me.lblLeistungsdatumUeberschrift.Left = 1.211024!
Me.Label2.Name = "Label2" Me.lblLeistungsdatumUeberschrift.Name = "lblLeistungsdatumUeberschrift"
Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; vertical" & Me.lblLeistungsdatumUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; vertical" &
"-align: top; ddo-char-set: 1" "-align: top; ddo-char-set: 1"
Me.Label2.Text = "Leistungsdatum" Me.lblLeistungsdatumUeberschrift.Text = "Leistungsdatum"
Me.Label2.Top = 0! Me.lblLeistungsdatumUeberschrift.Top = 0!
Me.Label2.Width = 0.9976378! Me.lblLeistungsdatumUeberschrift.Width = 0.9976378!
' '
'Label11 'lblSteuerpflichtigUeberschrift
' '
Me.Label11.Height = 0.1433071! Me.lblSteuerpflichtigUeberschrift.Height = 0.1433071!
Me.Label11.HyperLink = Nothing Me.lblSteuerpflichtigUeberschrift.HyperLink = Nothing
Me.Label11.Left = 4.651181! Me.lblSteuerpflichtigUeberschrift.Left = 4.651181!
Me.Label11.Name = "Label11" Me.lblSteuerpflichtigUeberschrift.Name = "lblSteuerpflichtigUeberschrift"
Me.Label11.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & Me.lblSteuerpflichtigUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
"r-set: 1" "r-set: 1"
Me.Label11.Text = "Steuerpflichtig" Me.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig"
Me.Label11.Top = 0! Me.lblSteuerpflichtigUeberschrift.Top = 0!
Me.Label11.Width = 1.207481! Me.lblSteuerpflichtigUeberschrift.Width = 1.207481!
' '
'Label4 'lblPosNrUeberschrift
' '
Me.Label4.Height = 0.1433071! Me.lblPosNrUeberschrift.Height = 0.1433071!
Me.Label4.HyperLink = Nothing Me.lblPosNrUeberschrift.HyperLink = Nothing
Me.Label4.Left = 0.01417252! Me.lblPosNrUeberschrift.Left = 0.01417252!
Me.Label4.Name = "Label4" Me.lblPosNrUeberschrift.Name = "lblPosNrUeberschrift"
Me.Label4.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.lblPosNrUeberschrift.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.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1" "-set: 1"
Me.Label4.Text = "Pos.Nr." Me.lblPosNrUeberschrift.Text = "Pos.Nr."
Me.Label4.Top = 0! Me.lblPosNrUeberschrift.Top = 0!
Me.Label4.Width = 1.196851! Me.lblPosNrUeberschrift.Width = 1.196851!
' '
'Label8 'lblSendungUeberschrift
' '
Me.Label8.Height = 0.1433071! Me.lblSendungUeberschrift.Height = 0.1433071!
Me.Label8.HyperLink = Nothing Me.lblSendungUeberschrift.HyperLink = Nothing
Me.Label8.Left = 2.208662! Me.lblSendungUeberschrift.Left = 2.208662!
Me.Label8.Name = "Label8" Me.lblSendungUeberschrift.Name = "lblSendungUeberschrift"
Me.Label8.Style = "font-size: 8pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" & Me.lblSendungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" &
"ar-set: 1" "ar-set: 1"
Me.Label8.Text = "Sendung" Me.lblSendungUeberschrift.Text = "Sendung"
Me.Label8.Top = 0! Me.lblSendungUeberschrift.Top = 0!
Me.Label8.Width = 0.5771656! Me.lblSendungUeberschrift.Width = 0.5771656!
' '
'Label6 'lblSteuerfreiUeberschrift
' '
Me.Label6.Height = 0.1433071! Me.lblSteuerfreiUeberschrift.Height = 0.1433071!
Me.Label6.HyperLink = Nothing Me.lblSteuerfreiUeberschrift.HyperLink = Nothing
Me.Label6.Left = 5.858662! Me.lblSteuerfreiUeberschrift.Left = 5.858662!
Me.Label6.Name = "Label6" Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label6.Text = "Steuerfrei" Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei"
Me.Label6.Top = 0! Me.lblSteuerfreiUeberschrift.Top = 0!
Me.Label6.Width = 1.20748! Me.lblSteuerfreiUeberschrift.Width = 1.20748!
' '
'Line4 'Line4
' '
@@ -1171,15 +1171,15 @@ Partial Public Class rptSammelRechnungAnlagenDruck
CType(Me.txtSendungsdetails, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtSendungsdetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPackstuecke, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtPackstuecke, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, 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.txtBank1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBank2, 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.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.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, 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.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaOrt, 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.lblFirmaFax, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaWeb, 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.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.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.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.lblUID, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Name1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRechnung_Name1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Name2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRechnung_Name2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Strasse, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRechnung_Strasse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Ort, 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.lblEORI, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_UID, 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.lblRechnung_Steuernummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Land, 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.lblSteuerfreiGes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme, 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.lblSteuerbetrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuersatz, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuersatz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblLeistungsdatumUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblPosNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSendungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader 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 Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents lblUeberschriftRG_GS As GrapeCity.ActiveReports.SectionReportModel.Label 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 Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblSteuerfreiUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblSendungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblPosNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter 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 lblSteuerfrei As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSteuerfreiGes As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblSteuerfreiGes As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label18 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblRgDatumUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label26 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblSachbearbeiterUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label29 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblFirmenbuchUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label31 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblUIDUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label48 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblEORIUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblBankUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents TextBox13 As GrapeCity.ActiveReports.SectionReportModel.TextBox Private WithEvents txtDisclaimer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblRgNr As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblRgNr As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSachbearbeiter 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 Private WithEvents Line16 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Line10 As GrapeCity.ActiveReports.SectionReportModel.Line Public WithEvents Line10 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Line11 As GrapeCity.ActiveReports.SectionReportModel.Line Public WithEvents Line11 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblSummeUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label16 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblRgNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblZwText As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblZwText As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line13 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line13 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line17 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 txtKdAuftragsnummer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbfertigungsart As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtAbfertigungsart As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtSendungsdetails 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"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </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>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> </value>
</data> </data>

18
SDL/Fakturierung/rptSammelRechnungAnlagenDruck.vb
View File

@@ -2,6 +2,24 @@ Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document Imports GrapeCity.ActiveReports.Document
Public Class rptSammelRechnungAnlagenDruck 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 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.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() 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.txtBank1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBank2 = 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.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.lblRgNr = New GrapeCity.ActiveReports.SectionReportModel.Label() 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.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.picVERAG = 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.lblUeberschriftRG_GS = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKundenNr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblKundenNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -48,19 +48,19 @@ Partial Public Class rptSammelRechnungDruck
Me.lblFirmaFax = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblFirmaFax = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaEmail = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblFirmaEmail = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaWeb = 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.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.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.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.lblUID = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Name1 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblRechnung_Name1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Name2 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblRechnung_Name2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Strasse = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblRechnung_Strasse = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Ort = 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.lblEORI = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_UID_Ueberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblRechnung_UID_Ueberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_UID = 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.lblRechnung_Steuernummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label() 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.lblLKWId = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnung_Land = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblRechnung_Land = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line9 = 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.lblSteuerfreiGes = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSteuerpflichtigGes = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSteuerpflichtigGes = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumme = 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.Line14 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblZwText = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblZwText = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblLeistungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSteuerfreiUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line16 = 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.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, 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.txtBank1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBank2, 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.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.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, 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.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaOrt, 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.lblFirmaFax, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaWeb, 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.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.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.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.lblUID, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Name1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRechnung_Name1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Name2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRechnung_Name2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Strasse, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRechnung_Strasse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Ort, 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.lblEORI, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_UID, 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_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Steuernummer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRechnung_Steuernummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, 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.lblLKWId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnung_Land, 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.lblSteuerfreiGes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme, 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.txtVermerk, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
' '
'PageHeader 'PageHeader
@@ -262,7 +262,7 @@ Partial Public Class rptSammelRechnungDruck
' '
'PageFooter '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.Height = 0.8791339!
Me.PageFooter.Name = "PageFooter" Me.PageFooter.Name = "PageFooter"
' '
@@ -289,17 +289,17 @@ Partial Public Class rptSammelRechnungDruck
Me.ReportInfo2.Top = 0.1173228! Me.ReportInfo2.Top = 0.1173228!
Me.ReportInfo2.Width = 1.994928! Me.ReportInfo2.Width = 1.994928!
' '
'Label28 'lblBankUeberschrift
' '
Me.Label28.Height = 0.1574803! Me.lblBankUeberschrift.Height = 0.1574803!
Me.Label28.HyperLink = Nothing Me.lblBankUeberschrift.HyperLink = Nothing
Me.Label28.Left = 0.01417323! Me.lblBankUeberschrift.Left = 0.01417323!
Me.Label28.Name = "Label28" Me.lblBankUeberschrift.Name = "lblBankUeberschrift"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" & Me.lblBankUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" &
"r-set: 1" "r-set: 1"
Me.Label28.Text = "Bankverbindungen:" Me.lblBankUeberschrift.Text = "Bankverbindungen:"
Me.Label28.Top = 0.1173228! Me.lblBankUeberschrift.Top = 0.1173228!
Me.Label28.Width = 1.155512! Me.lblBankUeberschrift.Width = 1.155512!
' '
'txtBank1 'txtBank1
' '
@@ -308,8 +308,8 @@ Partial Public Class rptSammelRechnungDruck
Me.txtBank1.Name = "txtBank1" Me.txtBank1.Name = "txtBank1"
Me.txtBank1.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & Me.txtBank1.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" &
"ar-set: 1" "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" & 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" &
"455" ""
Me.txtBank1.Top = 0.1173228! Me.txtBank1.Top = 0.1173228!
Me.txtBank1.Width = 2.512205! Me.txtBank1.Width = 2.512205!
' '
@@ -325,20 +325,20 @@ Partial Public Class rptSammelRechnungDruck
Me.txtBank2.Top = 0.1173228! Me.txtBank2.Top = 0.1173228!
Me.txtBank2.Width = 2.837401! Me.txtBank2.Width = 2.837401!
' '
'TextBox13 'txtDisclaimer
' '
Me.TextBox13.Height = 0.2708662! Me.txtDisclaimer.Height = 0.2708662!
Me.TextBox13.Left = 0.01417323! Me.txtDisclaimer.Left = 0.01417323!
Me.TextBox13.Name = "TextBox13" Me.txtDisclaimer.Name = "txtDisclaimer"
Me.TextBox13.Style = "font-size: 7.8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-" & Me.txtDisclaimer.Style = "font-size: 7.8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-" &
"char-set: 1" "char-set: 1"
Me.TextBox13.Text = resources.GetString("TextBox13.Text") Me.txtDisclaimer.Text = resources.GetString("txtDisclaimer.Text")
Me.TextBox13.Top = 0.6082678! Me.txtDisclaimer.Top = 0.6082678!
Me.TextBox13.Width = 7.466143! Me.txtDisclaimer.Width = 7.466143!
' '
'ReportHeader1 '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.Height = 4.168913!
Me.ReportHeader1.Name = "ReportHeader1" Me.ReportHeader1.Name = "ReportHeader1"
' '
@@ -354,17 +354,17 @@ Partial Public Class rptSammelRechnungDruck
Me.lblRgNr.Top = 0.7503937! Me.lblRgNr.Top = 0.7503937!
Me.lblRgNr.Width = 1.958268! Me.lblRgNr.Width = 1.958268!
' '
'Label16 'lblRgNrUeberschrift
' '
Me.Label16.Height = 0.1574803! Me.lblRgNrUeberschrift.Height = 0.1574803!
Me.Label16.HyperLink = Nothing Me.lblRgNrUeberschrift.HyperLink = Nothing
Me.Label16.Left = 5.104331! Me.lblRgNrUeberschrift.Left = 5.104331!
Me.Label16.Name = "Label16" Me.lblRgNrUeberschrift.Name = "lblRgNrUeberschrift"
Me.Label16.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblRgNrUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
Me.Label16.Text = "Rechnungs-Nr.:" Me.lblRgNrUeberschrift.Text = "Rechnungs-Nr.:"
Me.Label16.Top = 0.7503937! Me.lblRgNrUeberschrift.Top = 0.7503937!
Me.Label16.Width = 1.165748! Me.lblRgNrUeberschrift.Width = 1.165748!
' '
'Picture1 'Picture1
' '
@@ -388,17 +388,17 @@ Partial Public Class rptSammelRechnungDruck
Me.picVERAG.Top = 0! Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.482677! Me.picVERAG.Width = 2.482677!
' '
'Label3 'lblKundenNrUeberschrift
' '
Me.Label3.Height = 0.1574803! Me.lblKundenNrUeberschrift.Height = 0.1574803!
Me.Label3.HyperLink = Nothing Me.lblKundenNrUeberschrift.HyperLink = Nothing
Me.Label3.Left = 5.104331! Me.lblKundenNrUeberschrift.Left = 5.104331!
Me.Label3.Name = "Label3" Me.lblKundenNrUeberschrift.Name = "lblKundenNrUeberschrift"
Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblKundenNrUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
Me.Label3.Text = "Kunden-Nr.:" Me.lblKundenNrUeberschrift.Text = "Kunden-Nr.:"
Me.Label3.Top = 2.328347! Me.lblKundenNrUeberschrift.Top = 2.328347!
Me.Label3.Width = 1.165748! Me.lblKundenNrUeberschrift.Width = 1.165748!
' '
'lblUeberschriftRG_GS 'lblUeberschriftRG_GS
' '
@@ -509,17 +509,17 @@ Partial Public Class rptSammelRechnungDruck
Me.lblFirmaWeb.Top = 0.868504! Me.lblFirmaWeb.Top = 0.868504!
Me.lblFirmaWeb.Width = 1.436614! Me.lblFirmaWeb.Width = 1.436614!
' '
'Label18 'lblRgDatumUeberschrift
' '
Me.Label18.Height = 0.1574803! Me.lblRgDatumUeberschrift.Height = 0.1574803!
Me.Label18.HyperLink = Nothing Me.lblRgDatumUeberschrift.HyperLink = Nothing
Me.Label18.Left = 5.104331! Me.lblRgDatumUeberschrift.Left = 5.104331!
Me.Label18.Name = "Label18" Me.lblRgDatumUeberschrift.Name = "lblRgDatumUeberschrift"
Me.Label18.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblRgDatumUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
Me.Label18.Text = "Rechnungs-Datum:" Me.lblRgDatumUeberschrift.Text = "Rechnungs-Datum:"
Me.Label18.Top = 0.9078741! Me.lblRgDatumUeberschrift.Top = 0.9078741!
Me.Label18.Width = 1.165748! Me.lblRgDatumUeberschrift.Width = 1.165748!
' '
'lblRgDatum 'lblRgDatum
' '
@@ -533,17 +533,17 @@ Partial Public Class rptSammelRechnungDruck
Me.lblRgDatum.Top = 0.907874! Me.lblRgDatum.Top = 0.907874!
Me.lblRgDatum.Width = 1.958268! Me.lblRgDatum.Width = 1.958268!
' '
'Label26 'lblSachbearbeiterUeberschrift
' '
Me.Label26.Height = 0.1574803! Me.lblSachbearbeiterUeberschrift.Height = 0.1574803!
Me.Label26.HyperLink = Nothing Me.lblSachbearbeiterUeberschrift.HyperLink = Nothing
Me.Label26.Left = 5.104332! Me.lblSachbearbeiterUeberschrift.Left = 5.104332!
Me.Label26.Name = "Label26" Me.lblSachbearbeiterUeberschrift.Name = "lblSachbearbeiterUeberschrift"
Me.Label26.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblSachbearbeiterUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
Me.Label26.Text = "Sachbearbeiter/in:" Me.lblSachbearbeiterUeberschrift.Text = "Sachbearbeiter/in:"
Me.Label26.Top = 1.556693! Me.lblSachbearbeiterUeberschrift.Top = 1.556693!
Me.Label26.Width = 1.165748! Me.lblSachbearbeiterUeberschrift.Width = 1.165748!
' '
'lblSachbearbeiter 'lblSachbearbeiter
' '
@@ -557,17 +557,17 @@ Partial Public Class rptSammelRechnungDruck
Me.lblSachbearbeiter.Top = 1.556693! Me.lblSachbearbeiter.Top = 1.556693!
Me.lblSachbearbeiter.Width = 1.958268! Me.lblSachbearbeiter.Width = 1.958268!
' '
'Label29 'lblFirmenbuchUeberschrift
' '
Me.Label29.Height = 0.1574803! Me.lblFirmenbuchUeberschrift.Height = 0.1574803!
Me.Label29.HyperLink = Nothing Me.lblFirmenbuchUeberschrift.HyperLink = Nothing
Me.Label29.Left = 5.104332! Me.lblFirmenbuchUeberschrift.Left = 5.104332!
Me.Label29.Name = "Label29" Me.lblFirmenbuchUeberschrift.Name = "lblFirmenbuchUeberschrift"
Me.Label29.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblFirmenbuchUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
Me.Label29.Text = "Firmenbuch:" Me.lblFirmenbuchUeberschrift.Text = "Firmenbuch:"
Me.Label29.Top = 1.714173! Me.lblFirmenbuchUeberschrift.Top = 1.714173!
Me.Label29.Width = 1.165748! Me.lblFirmenbuchUeberschrift.Width = 1.165748!
' '
'lblFirmenbuch 'lblFirmenbuch
' '
@@ -581,17 +581,17 @@ Partial Public Class rptSammelRechnungDruck
Me.lblFirmenbuch.Top = 1.714173! Me.lblFirmenbuch.Top = 1.714173!
Me.lblFirmenbuch.Width = 1.958268! Me.lblFirmenbuch.Width = 1.958268!
' '
'Label31 'lblUIDUeberschrift
' '
Me.Label31.Height = 0.1574803! Me.lblUIDUeberschrift.Height = 0.1574803!
Me.Label31.HyperLink = Nothing Me.lblUIDUeberschrift.HyperLink = Nothing
Me.Label31.Left = 5.104332! Me.lblUIDUeberschrift.Left = 5.104332!
Me.Label31.Name = "Label31" Me.lblUIDUeberschrift.Name = "lblUIDUeberschrift"
Me.Label31.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblUIDUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
Me.Label31.Text = "UID:" Me.lblUIDUeberschrift.Text = "UID:"
Me.Label31.Top = 1.871653! Me.lblUIDUeberschrift.Top = 1.871653!
Me.Label31.Width = 1.165748! Me.lblUIDUeberschrift.Width = 1.165748!
' '
'lblUID 'lblUID
' '
@@ -653,17 +653,17 @@ Partial Public Class rptSammelRechnungDruck
Me.lblRechnung_Ort.Top = 2.40315! Me.lblRechnung_Ort.Top = 2.40315!
Me.lblRechnung_Ort.Width = 3.592913! Me.lblRechnung_Ort.Width = 3.592913!
' '
'Label48 'lblEORIUeberschrift
' '
Me.Label48.Height = 0.1574803! Me.lblEORIUeberschrift.Height = 0.1574803!
Me.Label48.HyperLink = Nothing Me.lblEORIUeberschrift.HyperLink = Nothing
Me.Label48.Left = 5.104331! Me.lblEORIUeberschrift.Left = 5.104331!
Me.Label48.Name = "Label48" Me.lblEORIUeberschrift.Name = "lblEORIUeberschrift"
Me.Label48.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblEORIUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
Me.Label48.Text = "EORI:" Me.lblEORIUeberschrift.Text = "EORI:"
Me.Label48.Top = 2.025197! Me.lblEORIUeberschrift.Top = 2.025197!
Me.Label48.Width = 1.165748! Me.lblEORIUeberschrift.Width = 1.165748!
' '
'lblEORI 'lblEORI
' '
@@ -750,17 +750,17 @@ Partial Public Class rptSammelRechnungDruck
Me.lblFirma.Top = 1.651182! Me.lblFirma.Top = 1.651182!
Me.lblFirma.Width = 3.619685! Me.lblFirma.Width = 3.619685!
' '
'Label24 'lblLKWIdUebeschrift
' '
Me.Label24.Height = 0.1574803! Me.lblLKWIdUebeschrift.Height = 0.1574803!
Me.Label24.HyperLink = Nothing Me.lblLKWIdUebeschrift.HyperLink = Nothing
Me.Label24.Left = 5.104331! Me.lblLKWIdUebeschrift.Left = 5.104331!
Me.Label24.Name = "Label24" Me.lblLKWIdUebeschrift.Name = "lblLKWIdUebeschrift"
Me.Label24.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & Me.lblLKWIdUebeschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1" "o-char-set: 1"
Me.Label24.Text = "LKW-ID:" Me.lblLKWIdUebeschrift.Text = "LKW-ID:"
Me.Label24.Top = 1.065354! Me.lblLKWIdUebeschrift.Top = 1.065354!
Me.Label24.Width = 1.165748! Me.lblLKWIdUebeschrift.Width = 1.165748!
' '
'lblLKWId 'lblLKWId
' '
@@ -788,7 +788,7 @@ Partial Public Class rptSammelRechnungDruck
' '
'ReportFooter1 '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.Height = 1.315354!
Me.ReportFooter1.KeepTogether = True Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1" Me.ReportFooter1.Name = "ReportFooter1"
@@ -819,16 +819,16 @@ Partial Public Class rptSammelRechnungDruck
Me.Line9.Y1 = 0.1035433! Me.Line9.Y1 = 0.1035433!
Me.Line9.Y2 = 0.1035433! Me.Line9.Y2 = 0.1035433!
' '
'Label9 'lblSummeUeberschrift
' '
Me.Label9.Height = 0.1574803! Me.lblSummeUeberschrift.Height = 0.1574803!
Me.Label9.HyperLink = Nothing Me.lblSummeUeberschrift.HyperLink = Nothing
Me.Label9.Left = 3.957481! Me.lblSummeUeberschrift.Left = 3.957481!
Me.Label9.Name = "Label9" Me.lblSummeUeberschrift.Name = "lblSummeUeberschrift"
Me.Label9.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1" Me.lblSummeUeberschrift.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label9.Text = "Rechnungsbetrag" Me.lblSummeUeberschrift.Text = "Rechnungsbetrag"
Me.Label9.Top = 0.7165355! Me.lblSummeUeberschrift.Top = 0.7165355!
Me.Label9.Width = 1.549213! Me.lblSummeUeberschrift.Width = 1.549213!
' '
'lblSteuerfreiGes 'lblSteuerfreiGes
' '
@@ -1015,58 +1015,58 @@ Partial Public Class rptSammelRechnungDruck
' '
'GroupHeader4 '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.Height = 0.1840605!
Me.GroupHeader4.KeepTogether = True Me.GroupHeader4.KeepTogether = True
Me.GroupHeader4.Name = "GroupHeader4" Me.GroupHeader4.Name = "GroupHeader4"
' '
'Label11 'lblSteuerpflichtigUeberschrift
' '
Me.Label11.Height = 0.1433071! Me.lblSteuerpflichtigUeberschrift.Height = 0.1433071!
Me.Label11.HyperLink = Nothing Me.lblSteuerpflichtigUeberschrift.HyperLink = Nothing
Me.Label11.Left = 3.957481! Me.lblSteuerpflichtigUeberschrift.Left = 3.957481!
Me.Label11.Name = "Label11" Me.lblSteuerpflichtigUeberschrift.Name = "lblSteuerpflichtigUeberschrift"
Me.Label11.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & Me.lblSteuerpflichtigUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
"r-set: 1" "r-set: 1"
Me.Label11.Text = "Steuerpflichtig" Me.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig"
Me.Label11.Top = 0! Me.lblSteuerpflichtigUeberschrift.Top = 0!
Me.Label11.Width = 1.554331! Me.lblSteuerpflichtigUeberschrift.Width = 1.554331!
' '
'Label4 'lblLeistungUeberschrift
' '
Me.Label4.Height = 0.1433071! Me.lblLeistungUeberschrift.Height = 0.1433071!
Me.Label4.HyperLink = Nothing Me.lblLeistungUeberschrift.HyperLink = Nothing
Me.Label4.Left = 0.01417252! Me.lblLeistungUeberschrift.Left = 0.01417252!
Me.Label4.Name = "Label4" Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift"
Me.Label4.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.lblLeistungUeberschrift.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.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1" "-set: 1"
Me.Label4.Text = "Leistung" Me.lblLeistungUeberschrift.Text = "Leistung"
Me.Label4.Top = 0! Me.lblLeistungUeberschrift.Top = 0!
Me.Label4.Width = 3.366143! Me.lblLeistungUeberschrift.Width = 3.366143!
' '
'Label8 'lblAnzahlUeberschrift
' '
Me.Label8.Height = 0.1433071! Me.lblAnzahlUeberschrift.Height = 0.1433071!
Me.Label8.HyperLink = Nothing Me.lblAnzahlUeberschrift.HyperLink = Nothing
Me.Label8.Left = 3.380315! Me.lblAnzahlUeberschrift.Left = 3.380315!
Me.Label8.Name = "Label8" Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift"
Me.Label8.Style = "font-size: 8pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" & Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" &
"ar-set: 1" "ar-set: 1"
Me.Label8.Text = "Anzahl" Me.lblAnzahlUeberschrift.Text = "Anzahl"
Me.Label8.Top = 0! Me.lblAnzahlUeberschrift.Top = 0!
Me.Label8.Width = 0.5771656! Me.lblAnzahlUeberschrift.Width = 0.5771656!
' '
'Label6 'lblSteuerfreiUeberschrift
' '
Me.Label6.Height = 0.143307! Me.lblSteuerfreiUeberschrift.Height = 0.143307!
Me.Label6.HyperLink = Nothing Me.lblSteuerfreiUeberschrift.HyperLink = Nothing
Me.Label6.Left = 5.511812! Me.lblSteuerfreiUeberschrift.Left = 5.511812!
Me.Label6.Name = "Label6" Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label6.Text = "Steuerfrei" Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei"
Me.Label6.Top = 0! Me.lblSteuerfreiUeberschrift.Top = 0!
Me.Label6.Width = 1.554331! Me.lblSteuerfreiUeberschrift.Width = 1.554331!
' '
'Line4 'Line4
' '
@@ -1169,15 +1169,15 @@ Partial Public Class rptSammelRechnungDruck
CType(Me.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, 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.txtBank1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBank2, 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.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.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, 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.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaOrt, 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.lblFirmaFax, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaWeb, 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.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.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.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.lblUID, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Name1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRechnung_Name1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Name2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRechnung_Name2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Strasse, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRechnung_Strasse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Ort, 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.lblEORI, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_UID, 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_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Steuernummer, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRechnung_Steuernummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, 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.lblLKWId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnung_Land, 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.lblSteuerfreiGes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme, 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.txtVermerk, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader 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 Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents lblUeberschriftRG_GS As GrapeCity.ActiveReports.SectionReportModel.Label 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 Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblSteuerfreiUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblAnzahlUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblLeistungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter 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 lblSteuerfrei As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSteuerfreiGes As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblSteuerfreiGes As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label18 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblRgDatumUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label26 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblSachbearbeiterUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label29 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblFirmenbuchUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label31 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblUIDUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label48 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblEORIUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblBankUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents TextBox13 As GrapeCity.ActiveReports.SectionReportModel.TextBox Private WithEvents txtDisclaimer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblRgNr As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblRgNr As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSachbearbeiter 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 Private WithEvents Line16 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Line10 As GrapeCity.ActiveReports.SectionReportModel.Line Public WithEvents Line10 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Line11 As GrapeCity.ActiveReports.SectionReportModel.Line Public WithEvents Line11 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblSummeUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label16 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblRgNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblZwText As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblZwText As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line13 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line13 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line17 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 lblLKWId As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRechnung_Land 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"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </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>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> </value>
</data> </data>

21
SDL/Fakturierung/rptSammelRechnungDruck.vb
View File

@@ -2,8 +2,23 @@ Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document Imports GrapeCity.ActiveReports.Document
Public Class rptSammelRechnungDruck Public Class rptSammelRechnungDruck
Dim _LAN = ""
Private Sub GroupHeader3_Format(sender As Object, e As EventArgs) Sub New()
InitializeComponent()
End Sub 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 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"> <metadata name="Aufschubkonto.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </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" /> <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"> <data name="btnOK.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>

48
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -258,6 +258,8 @@ Public Class usrCntlFaktAbrechnung
cboSammelrechnung.changeItem(RECHNUNG.Sammelrechnung) cboSammelrechnung.changeItem(RECHNUNG.Sammelrechnung)
txtZollbelegNr.Text = If(RECHNUNG.BelegNr, "") txtZollbelegNr.Text = If(RECHNUNG.BelegNr, "")
cboRechnungSprache.changeItem(If(RECHNUNG.RechnungSprache, "DE"))
txtWarenwertUmrechnung.Text = "" txtWarenwertUmrechnung.Text = ""
txtWarenwert._value = If(RECHNUNG.Wert, "") txtWarenwert._value = If(RECHNUNG.Wert, "")
cboWaehrung.changeItem(If(RECHNUNG.WährungsNr, 900)) 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.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 pro LKW", 7))
cboSammelrechnung.changeItem(0) 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 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) cboSteuerschlüssel.fillWithSQL("SELECT [Steuerschlüssel],isnull([Steuerbezeichnung],'') as Steuerbezeichnung FROM [Steuertabelle] ORDER BY [Steuerschlüssel]", False, "FMZOLL", True)
Dim whereFirma = "" Dim whereFirma = ""
Dim firstEmpty = False 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 "VERAG" : whereFirma = " AND Firma_ID<>20 " : pnlDocs.Visible = True
'Case "IMEX" : whereFirma = " AND Firma_ID=20 " 'Case "IMEX" : whereFirma = " AND Firma_ID=20 "
Case "ATILLA" : whereFirma = " AND Firma_ID=7 " : pnlDocs.Visible = True 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 "AMBAR" : whereFirma = " AND Firma_ID=24 "
Case "FRONT-OFFICE" : whereFirma = " AND Firma_ID=17 " Case "FRONT-OFFICE" : whereFirma = " AND Firma_ID=17 "
Case "VERAGIMEX" : whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') "
End Select 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) 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 If KUNDE_ERW.kde_BesonderheitenNeu Then
rtbAbf_Besonderheiten.Size = txtBesonderheiten.Size 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 rtbAbf_Besonderheiten.Visible = True
Else Else
rtbAbf_Besonderheiten.Visible = False rtbAbf_Besonderheiten.Visible = False
@@ -740,6 +755,7 @@ Public Class usrCntlFaktAbrechnung
RECHNUNG.Vorkasse = KD.Vorkasse RECHNUNG.Vorkasse = KD.Vorkasse
RECHNUNG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen RECHNUNG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen
RECHNUNG.Vorlageprovision_Proz = KD.Vorlageprovision RECHNUNG.Vorlageprovision_Proz = KD.Vorlageprovision
RECHNUNG.Lastschrift = KD.Lastschrift
End If End If
@@ -1276,10 +1292,14 @@ Public Class usrCntlFaktAbrechnung
lblErrUnterNr.Visible = False lblErrUnterNr.Visible = False
If Not IsNumeric(cboFiliale._value) Then lblErrFiliale.Visible = True : Exit Sub 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(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 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) 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 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 Case 17 : pic.BackgroundImage = My.Resources.FrontOfficeSUB_Horizontal
pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.DarkRed 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 Case Else : pic.BackgroundImage = Nothing
pnlTop.BackColor = Color.Gray : errCOlor = Color.white pnlTop.BackColor = Color.Gray : errCOlor = Color.white
@@ -1587,6 +1611,7 @@ Public Class usrCntlFaktAbrechnung
Case "5501" : cboFirma.changeItem(20) : RECHNUNG.Firma_ID = 20 Case "5501" : cboFirma.changeItem(20) : RECHNUNG.Firma_ID = 20
Case "5601" : cboFirma.changeItem("") : RECHNUNG.Firma_ID = -1 'UNISPED 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 "5701" : cboFirma.changeItem(24) : RECHNUNG.Firma_ID = 24'AMBAR
Case "5801" : cboFirma.changeItem(17) : RECHNUNG.Firma_ID = 17 'FRONT-OFFICE 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 cboFirma.changeItem(1) : RECHNUNG.Firma_ID = 1
End If End If
End Select 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 End Sub
Sub getValues() Sub getValues()
@@ -1620,6 +1652,11 @@ Public Class usrCntlFaktAbrechnung
RECHNUNG.Sammelrechnung = cProgramFunctions.isLeerNothing(cboSammelrechnung._value) RECHNUNG.Sammelrechnung = cProgramFunctions.isLeerNothing(cboSammelrechnung._value)
RECHNUNG.RechnungSprache = cboRechnungSprache._value
If RECHNUNG.RechnungSprache = "" Then RECHNUNG.RechnungSprache = "DE"
RECHNUNG.BelegNr = txtZollbelegNr.Text RECHNUNG.BelegNr = txtZollbelegNr.Text
RECHNUNG.AbsenderKundenNr = kdFirmaAbsender.KdNrNullInt 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.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 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 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() initRECHNUNG()
RaiseEvent SOMETHING_CHANGED(-1) RaiseEvent SOMETHING_CHANGED(-1)
End If End If

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

@@ -208,10 +208,33 @@
txtEustProzent.changeItem("0,19") txtEustProzent.changeItem("0,19")
End If 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) cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -237,14 +260,47 @@
Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtHerrFrau.TextChanged Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtHerrFrau.TextChanged
End Sub End Sub
Sub initBerechnung() Sub initSteuersatz()
If txtUid.Text = "" Then Dim bool_steuerberechnung = True
If txtMwstProzent._value = "" Then If cboFirma._value <> "" Then
txtMwstProzent._value = 0.2 Dim FIRMA_TMP = New VERAG_PROG_ALLGEMEIN.cFirmen(cbofirma._value)
End If Select Case FIRMA_TMP.Firma_LandKz
Else Case "A", "AT"
txtMwstProzent._value = 0 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 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.Text)
' MsgBox(lblRechnungsbetrag._value) ' MsgBox(lblRechnungsbetrag._value)
' MsgBox(Vl(lblRechnungsbetrag)) ' MsgBox(Vl(lblRechnungsbetrag))
@@ -302,31 +358,7 @@
End Function End Function
Private Sub txtUid_TextChanged(sender As Object, e As EventArgs) Handles txtUid.TextChanged 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() initBerechnung()
End Sub End Sub
@@ -339,19 +371,21 @@
Private Sub MyComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged Private Sub MyComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
If txtEustProzent._value <> "0" Then ' Wenn =, soll das bleiben 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 Select Case cboFirma._value
Case "CS" Case "11" ', "21", "23"
txtEustProzent.changeItem("0,20") txtEustProzent.changeItem("0,20")
Case "AG" Case Else
If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("20.12.2020") Then 'If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("20.12.2020") Then
txtEustProzent.changeItem("0,16") ' txtEustProzent.changeItem("0,16")
Else 'Else
txtEustProzent.changeItem("0,19") ' txtEustProzent.changeItem("0,19")
End If 'End If
txtEustProzent.changeItem("0,19")
End Select End Select
End If End If
initBerechnung()
End Sub End Sub
Private Sub pnlBottom_Paint(sender As Object, e As PaintEventArgs) Handles pnlBottom.Paint 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)) cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal_IMEX))
Case "ATILLA" 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 Case Else
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht)) 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)) 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)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
Dim top = 0 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 top = 25
End If End If
If usrCntl.cbxEinmaligeVollmacht.Checked Then If usrCntl.cbxEinmaligeVollmacht.Checked Then
listTowrite = addEinmaligeVM(listTowrite, 0, top + 200, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text) listTowrite = addEinmaligeVM(listTowrite, 0, top + 200, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then
@@ -3051,7 +3071,7 @@ Public Class FormularManagerNEU
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" Case "IMEX", "AMBAR", "UNISPED"
Select Case usrCntl.cboSprache._value Select Case usrCntl.cboSprache._value
Case "EN" Case "EN"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_EXPORT_EN", listTowrite) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_EXPORT_EN", listTowrite)
@@ -3176,7 +3196,7 @@ Public Class FormularManagerNEU
Case Else Case Else
Select Case usrCntl.cboFirma._value 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) Case Else : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG_NEU2", listTowrite)
End Select End Select

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

@@ -2212,7 +2212,17 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<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> '''</summary>
Friend ReadOnly Property Version() As String Friend ReadOnly Property Version() As String
Get 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> <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Version" xml:space="preserve"> <data name="Version" xml:space="preserve">
<value>1.1.8.6</value> <value>1.1.9.2</value>
</data> </data>
<data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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"> <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> <value>..\Resources\brexit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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> </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.Name = "SubReport"
Me.SubReport.Report = Nothing Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1" Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 0.0! Me.SubReport.Top = 0!
Me.SubReport.Width = 6.496063! Me.SubReport.Width = 6.496063!
' '
'PageFooter 'PageFooter
@@ -194,18 +194,19 @@ Partial Public Class rptSDLBrief
Me.lbl.Left = 5.094489! Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl" Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left" 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.Top = 1.472441!
Me.lbl.Width = 2.031496! Me.lbl.Width = 2.031496!
' '
'Label1 'Label1
' '
Me.Label1.Height = 1.133071! Me.Label1.Height = 1.333072!
Me.Label1.HyperLink = Nothing Me.Label1.HyperLink = Nothing
Me.Label1.Left = 5.094489! Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left" 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.Top = 1.67244!
Me.Label1.Width = 2.031496! Me.Label1.Width = 2.031496!
' '
@@ -248,7 +249,7 @@ Partial Public Class rptSDLBrief
' '
'ReportFooter1 'ReportFooter1
' '
Me.ReportFooter1.Height = 0.0! Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1" Me.ReportFooter1.Name = "ReportFooter1"
' '
'rptSDLBrief 'rptSDLBrief
@@ -266,10 +267,10 @@ Partial Public Class rptSDLBrief
Me.Sections.Add(Me.Detail) Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter) Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1) 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")) "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-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")) "lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit() 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.Name = "lblKdNr"
Me.lblKdNr.Style = "font-size: 8pt; font-weight: bold" Me.lblKdNr.Style = "font-size: 8pt; font-weight: bold"
Me.lblKdNr.Text = "KdNr" Me.lblKdNr.Text = "KdNr"
Me.lblKdNr.Top = 0.0! Me.lblKdNr.Top = 0!
Me.lblKdNr.Width = 0.9688977! Me.lblKdNr.Width = 0.9688977!
' '
'lblFirma 'lblFirma
@@ -76,7 +76,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.lblFirma.Name = "lblFirma" Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = "font-size: 8pt; font-weight: bold" Me.lblFirma.Style = "font-size: 8pt; font-weight: bold"
Me.lblFirma.Text = "Firma" Me.lblFirma.Text = "Firma"
Me.lblFirma.Top = 0.0! Me.lblFirma.Top = 0!
Me.lblFirma.Width = 3.426379! Me.lblFirma.Width = 3.426379!
' '
'lblSummeOffeneBetrage 'lblSummeOffeneBetrage
@@ -87,7 +87,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.lblSummeOffeneBetrage.Name = "lblSummeOffeneBetrage" Me.lblSummeOffeneBetrage.Name = "lblSummeOffeneBetrage"
Me.lblSummeOffeneBetrage.Style = "font-size: 8pt; font-weight: bold" Me.lblSummeOffeneBetrage.Style = "font-size: 8pt; font-weight: bold"
Me.lblSummeOffeneBetrage.Text = "Summe offener Betr<74>ge" Me.lblSummeOffeneBetrage.Text = "Summe offener Betr<74>ge"
Me.lblSummeOffeneBetrage.Top = 0.0! Me.lblSummeOffeneBetrage.Top = 0!
Me.lblSummeOffeneBetrage.Width = 1.666929! Me.lblSummeOffeneBetrage.Width = 1.666929!
' '
'Label4 'Label4
@@ -98,7 +98,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold" Me.Label4.Style = "font-size: 8pt; font-weight: bold"
Me.Label4.Text = "Anzahl offener Antr<74>ge" Me.Label4.Text = "Anzahl offener Antr<74>ge"
Me.Label4.Top = 0.0! Me.Label4.Top = 0!
Me.Label4.Width = 1.479527! Me.Label4.Width = 1.479527!
' '
'picVERAG 'picVERAG
@@ -108,7 +108,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.picVERAG.Left = 4.948032! Me.picVERAG.Left = 4.948032!
Me.picVERAG.Name = "picVERAG" Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.0! Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166! Me.picVERAG.Width = 2.677166!
' '
'lblText1 'lblText1
@@ -177,7 +177,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.txtAnzahl.Name = "txtAnzahl" Me.txtAnzahl.Name = "txtAnzahl"
Me.txtAnzahl.Style = "font-size: 8pt; text-align: right" Me.txtAnzahl.Style = "font-size: 8pt; text-align: right"
Me.txtAnzahl.Text = "Anzahl" Me.txtAnzahl.Text = "Anzahl"
Me.txtAnzahl.Top = 0.0! Me.txtAnzahl.Top = 0!
Me.txtAnzahl.Width = 0.9484248! Me.txtAnzahl.Width = 0.9484248!
' '
'PageFooter 'PageFooter
@@ -193,7 +193,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.ReportInfo1.Left = 4.147244! Me.ReportInfo1.Left = 4.147244!
Me.ReportInfo1.Name = "ReportInfo1" Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right" Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.0! Me.ReportInfo1.Top = 0!
Me.ReportInfo1.Width = 3.478! Me.ReportInfo1.Width = 3.478!
' '
'lblDetails 'lblDetails
@@ -204,7 +204,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.lblDetails.Name = "lblDetails" Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt" Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = "" Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.0! Me.lblDetails.Top = 0!
Me.lblDetails.Width = 4.864567! Me.lblDetails.Width = 4.864567!
' '
'ReportHeader1 'ReportHeader1
@@ -215,7 +215,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
' '
'ReportFooter1 'ReportFooter1
' '
Me.ReportFooter1.Height = 0.0! Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1" Me.ReportFooter1.Name = "ReportFooter1"
' '
'rptAuswertungMWSTOffeneAntraegeMitVorauszahlung 'rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
@@ -229,10 +229,10 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Me.Sections.Add(Me.Detail) Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter) Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1) 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")) "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-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")) "lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.lblKdNr, System.ComponentModel.ISupportInitialize).EndInit() 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.lblSummeOffeneBetrage = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() 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.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -32,24 +37,19 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() 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.lblKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeOffeneBetrage, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSummeOffeneBetrage, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, 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.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, 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() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
' '
'PageHeader 'PageHeader
@@ -66,7 +66,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.lblKdNr.Name = "lblKdNr" Me.lblKdNr.Name = "lblKdNr"
Me.lblKdNr.Style = "font-size: 8pt; font-weight: bold" Me.lblKdNr.Style = "font-size: 8pt; font-weight: bold"
Me.lblKdNr.Text = "KdNr" Me.lblKdNr.Text = "KdNr"
Me.lblKdNr.Top = 0.0! Me.lblKdNr.Top = 0!
Me.lblKdNr.Width = 0.9688979! Me.lblKdNr.Width = 0.9688979!
' '
'lblFirma 'lblFirma
@@ -77,7 +77,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.lblFirma.Name = "lblFirma" Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = "font-size: 8pt; font-weight: bold" Me.lblFirma.Style = "font-size: 8pt; font-weight: bold"
Me.lblFirma.Text = "Firma" Me.lblFirma.Text = "Firma"
Me.lblFirma.Top = 0.0! Me.lblFirma.Top = 0!
Me.lblFirma.Width = 3.426379! Me.lblFirma.Width = 3.426379!
' '
'lblSummeOffeneBetrage 'lblSummeOffeneBetrage
@@ -88,7 +88,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.lblSummeOffeneBetrage.Name = "lblSummeOffeneBetrage" Me.lblSummeOffeneBetrage.Name = "lblSummeOffeneBetrage"
Me.lblSummeOffeneBetrage.Style = "font-size: 8pt; font-weight: bold" Me.lblSummeOffeneBetrage.Style = "font-size: 8pt; font-weight: bold"
Me.lblSummeOffeneBetrage.Text = "Summe offener Betr<74>ge" Me.lblSummeOffeneBetrage.Text = "Summe offener Betr<74>ge"
Me.lblSummeOffeneBetrage.Top = 0.0! Me.lblSummeOffeneBetrage.Top = 0!
Me.lblSummeOffeneBetrage.Width = 1.666929! Me.lblSummeOffeneBetrage.Width = 1.666929!
' '
'Label4 'Label4
@@ -99,7 +99,7 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold" Me.Label4.Style = "font-size: 8pt; font-weight: bold"
Me.Label4.Text = "Anzahl offener Antr<74>ge" Me.Label4.Text = "Anzahl offener Antr<74>ge"
Me.Label4.Top = 0.0! Me.Label4.Top = 0!
Me.Label4.Width = 1.479527! Me.Label4.Width = 1.479527!
' '
'Detail 'Detail
@@ -108,77 +108,6 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.Detail.Height = 0.40625! Me.Detail.Height = 0.40625!
Me.Detail.Name = "Detail" 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 'TextBoxKdnr
' '
Me.TextBoxKdnr.Height = 0.1586614! Me.TextBoxKdnr.Height = 0.1586614!
@@ -216,20 +145,91 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.txtAnzahl.Name = "txtAnzahl" Me.txtAnzahl.Name = "txtAnzahl"
Me.txtAnzahl.Style = "font-size: 8pt; font-weight: bold; text-align: right" Me.txtAnzahl.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.txtAnzahl.Text = "Anzahl" Me.txtAnzahl.Text = "Anzahl"
Me.txtAnzahl.Top = 0.0! Me.txtAnzahl.Top = 0!
Me.txtAnzahl.Width = 0.9484251! Me.txtAnzahl.Width = 0.9484251!
' '
'SubReport 'SubReport
' '
Me.SubReport.CloseBorder = False Me.SubReport.CloseBorder = False
Me.SubReport.Height = 0.2062992! Me.SubReport.Height = 0.2062992!
Me.SubReport.Left = 0.0! Me.SubReport.Left = 0!
Me.SubReport.Name = "SubReport" Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1" Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 0.1688976! Me.SubReport.Top = 0.1688976!
Me.SubReport.Width = 7.677166! 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 'rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
' '
Me.MasterReport = False Me.MasterReport = False
@@ -241,25 +241,25 @@ Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Me.Sections.Add(Me.Detail) Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter) Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1) 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")) "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-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")) "lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.lblKdNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblKdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeOffeneBetrage, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSummeOffeneBetrage, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, 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.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, 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() CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub 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.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.subrpt = New GrapeCity.ActiveReports.SectionReportModel.SubReport() Me.subrpt = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.lblLeistung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -34,16 +35,15 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture() Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.lblLeistung = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.lblKD, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblKD, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblF, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblF, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lbl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, 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.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
' '
'PageHeader 'PageHeader
@@ -99,12 +99,12 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
'Line1 'Line1
' '
Me.Line1.Height = 0.00008201599! Me.Line1.Height = 0.00008201599!
Me.Line1.Left = 0.0! Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0! Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1" Me.Line1.Name = "Line1"
Me.Line1.Top = 0.3551182! Me.Line1.Top = 0.3551182!
Me.Line1.Width = 7.677084! Me.Line1.Width = 7.677084!
Me.Line1.X1 = 0.0! Me.Line1.X1 = 0!
Me.Line1.X2 = 7.677084! Me.Line1.X2 = 7.677084!
Me.Line1.Y1 = 0.3551182! Me.Line1.Y1 = 0.3551182!
Me.Line1.Y2 = 0.3552002! Me.Line1.Y2 = 0.3552002!
@@ -119,13 +119,24 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
' '
Me.subrpt.CloseBorder = False Me.subrpt.CloseBorder = False
Me.subrpt.Height = 0.2082677! Me.subrpt.Height = 0.2082677!
Me.subrpt.Left = 0.0! Me.subrpt.Left = 0!
Me.subrpt.Name = "subrpt" Me.subrpt.Name = "subrpt"
Me.subrpt.Report = Nothing Me.subrpt.Report = Nothing
Me.subrpt.ReportName = "SubReport1" Me.subrpt.ReportName = "SubReport1"
Me.subrpt.Top = 0.2314961! Me.subrpt.Top = 0.2314961!
Me.subrpt.Width = 7.677166! 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 'PageFooter
' '
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Line2}) Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Line2})
@@ -155,12 +166,12 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
'Line2 'Line2
' '
Me.Line2.Height = 0.00008204021! Me.Line2.Height = 0.00008204021!
Me.Line2.Left = 0.0! Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0! Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2" Me.Line2.Name = "Line2"
Me.Line2.Top = 0.02480315! Me.Line2.Top = 0.02480315!
Me.Line2.Width = 7.677084! Me.Line2.Width = 7.677084!
Me.Line2.X1 = 0.0! Me.Line2.X1 = 0!
Me.Line2.X2 = 7.677084! Me.Line2.X2 = 7.677084!
Me.Line2.Y1 = 0.02480315! Me.Line2.Y1 = 0.02480315!
Me.Line2.Y2 = 0.02488519! Me.Line2.Y2 = 0.02488519!
@@ -179,7 +190,7 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
Me.picVERAG.Left = 4.932284! Me.picVERAG.Left = 4.932284!
Me.picVERAG.Name = "picVERAG" Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.0! Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166! Me.picVERAG.Width = 2.677166!
' '
'lblText1 'lblText1
@@ -195,20 +206,9 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
' '
'ReportFooter1 'ReportFooter1
' '
Me.ReportFooter1.Height = 0.0! Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1" 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 'rptAuswertungUeberfaelligeBestellungen
' '
Me.MasterReport = False Me.MasterReport = False
@@ -224,21 +224,21 @@ Partial Public Class rptAuswertungUeberfaelligeBestellungen
Me.Sections.Add(Me.Detail) Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter) Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1) 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")) "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-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")) "lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.lblKD, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblKD, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblF, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblF, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lbl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, 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.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLeistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub 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.Name = "Label10"
Me.Label10.Style = "font-size: 9pt; font-weight: bold; text-align: center" Me.Label10.Style = "font-size: 9pt; font-weight: bold; text-align: center"
Me.Label10.Text = "Lieferdatum" Me.Label10.Text = "Lieferdatum"
Me.Label10.Top = 0.0! Me.Label10.Top = 0!
Me.Label10.Width = 0.8437006! Me.Label10.Width = 0.8437006!
' '
'Label7 'Label7
@@ -90,7 +90,7 @@ Partial Public Class rptLeereOBU
Me.Label7.Name = "Label7" Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 9pt; font-weight: bold; text-align: left" Me.Label7.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label7.Text = "Kunde" Me.Label7.Text = "Kunde"
Me.Label7.Top = 0.0! Me.Label7.Top = 0!
Me.Label7.Width = 1.781103! Me.Label7.Width = 1.781103!
' '
'Label2 'Label2
@@ -101,7 +101,7 @@ Partial Public Class rptLeereOBU
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 9pt; font-weight: bold; text-align: left" Me.Label2.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label2.Text = "SDL-Nr." Me.Label2.Text = "SDL-Nr."
Me.Label2.Top = 0.0! Me.Label2.Top = 0!
Me.Label2.Width = 0.9893703! Me.Label2.Width = 0.9893703!
' '
'Label5 'Label5
@@ -112,7 +112,7 @@ Partial Public Class rptLeereOBU
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left" Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label5.Text = "LKW" Me.Label5.Text = "LKW"
Me.Label5.Top = 0.0! Me.Label5.Top = 0!
Me.Label5.Width = 0.9893701! Me.Label5.Width = 0.9893701!
' '
'Label6 'Label6
@@ -123,7 +123,7 @@ Partial Public Class rptLeereOBU
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 9pt; font-weight: bold; text-align: left" Me.Label6.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label6.Text = "KartenNr" Me.Label6.Text = "KartenNr"
Me.Label6.Top = 0.0! Me.Label6.Top = 0!
Me.Label6.Width = 1.836221! Me.Label6.Width = 1.836221!
' '
'Label9 'Label9
@@ -134,12 +134,12 @@ Partial Public Class rptLeereOBU
Me.Label9.Name = "Label9" Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 9pt; font-weight: bold; text-align: center" Me.Label9.Style = "font-size: 9pt; font-weight: bold; text-align: center"
Me.Label9.Text = "Bestelldatum" Me.Label9.Text = "Bestelldatum"
Me.Label9.Top = 0.0! Me.Label9.Top = 0!
Me.Label9.Width = 0.8437009! Me.Label9.Width = 0.8437009!
' '
'Line2 'Line2
' '
Me.Line2.Height = 0.0! Me.Line2.Height = 0!
Me.Line2.Left = 0.1968504! Me.Line2.Left = 0.1968504!
Me.Line2.LineWeight = 1.0! Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2" Me.Line2.Name = "Line2"
@@ -186,7 +186,7 @@ Partial Public Class rptLeereOBU
Me.lblKunde.Name = "lblKunde" Me.lblKunde.Name = "lblKunde"
Me.lblKunde.Style = "font-size: 9pt; font-weight: normal; text-align: left" Me.lblKunde.Style = "font-size: 9pt; font-weight: normal; text-align: left"
Me.lblKunde.Text = "Kunde" Me.lblKunde.Text = "Kunde"
Me.lblKunde.Top = 0.0! Me.lblKunde.Top = 0!
Me.lblKunde.Width = 1.781103! Me.lblKunde.Width = 1.781103!
' '
'lblSDL 'lblSDL
@@ -197,7 +197,7 @@ Partial Public Class rptLeereOBU
Me.lblSDL.Name = "lblSDL" Me.lblSDL.Name = "lblSDL"
Me.lblSDL.Style = "font-size: 9pt; font-weight: normal; text-align: left" Me.lblSDL.Style = "font-size: 9pt; font-weight: normal; text-align: left"
Me.lblSDL.Text = "SDL-Nr." Me.lblSDL.Text = "SDL-Nr."
Me.lblSDL.Top = 0.0! Me.lblSDL.Top = 0!
Me.lblSDL.Width = 0.9893701! Me.lblSDL.Width = 0.9893701!
' '
'lblLKW 'lblLKW
@@ -208,7 +208,7 @@ Partial Public Class rptLeereOBU
Me.lblLKW.Name = "lblLKW" Me.lblLKW.Name = "lblLKW"
Me.lblLKW.Style = "font-size: 9pt; font-weight: normal; text-align: left" Me.lblLKW.Style = "font-size: 9pt; font-weight: normal; text-align: left"
Me.lblLKW.Text = "LKW" Me.lblLKW.Text = "LKW"
Me.lblLKW.Top = 0.0! Me.lblLKW.Top = 0!
Me.lblLKW.Width = 0.9893701! Me.lblLKW.Width = 0.9893701!
' '
'lblKartenNr 'lblKartenNr
@@ -219,7 +219,7 @@ Partial Public Class rptLeereOBU
Me.lblKartenNr.Name = "lblKartenNr" Me.lblKartenNr.Name = "lblKartenNr"
Me.lblKartenNr.Style = "font-size: 9pt; font-weight: normal; text-align: left" Me.lblKartenNr.Style = "font-size: 9pt; font-weight: normal; text-align: left"
Me.lblKartenNr.Text = "KartenNr" Me.lblKartenNr.Text = "KartenNr"
Me.lblKartenNr.Top = 0.0! Me.lblKartenNr.Top = 0!
Me.lblKartenNr.Width = 1.836221! Me.lblKartenNr.Width = 1.836221!
' '
'lblLieferdatum 'lblLieferdatum
@@ -230,7 +230,7 @@ Partial Public Class rptLeereOBU
Me.lblLieferdatum.Name = "lblLieferdatum" Me.lblLieferdatum.Name = "lblLieferdatum"
Me.lblLieferdatum.Style = "font-size: 9pt; font-weight: normal; text-align: center" Me.lblLieferdatum.Style = "font-size: 9pt; font-weight: normal; text-align: center"
Me.lblLieferdatum.Text = "Lieferdatum" Me.lblLieferdatum.Text = "Lieferdatum"
Me.lblLieferdatum.Top = 0.0! Me.lblLieferdatum.Top = 0!
Me.lblLieferdatum.Width = 0.8437006! Me.lblLieferdatum.Width = 0.8437006!
' '
'lblBestelldatum 'lblBestelldatum
@@ -241,7 +241,7 @@ Partial Public Class rptLeereOBU
Me.lblBestelldatum.Name = "lblBestelldatum" Me.lblBestelldatum.Name = "lblBestelldatum"
Me.lblBestelldatum.Style = "font-size: 9pt; font-weight: normal; text-align: center" Me.lblBestelldatum.Style = "font-size: 9pt; font-weight: normal; text-align: center"
Me.lblBestelldatum.Text = "Bestelldatum" Me.lblBestelldatum.Text = "Bestelldatum"
Me.lblBestelldatum.Top = 0.0! Me.lblBestelldatum.Top = 0!
Me.lblBestelldatum.Width = 0.8437006! Me.lblBestelldatum.Width = 0.8437006!
' '
'PageFooter 'PageFooter
@@ -257,7 +257,7 @@ Partial Public Class rptLeereOBU
Me.ReportInfo1.Left = 4.002362! Me.ReportInfo1.Left = 4.002362!
Me.ReportInfo1.Name = "ReportInfo1" Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right" Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.0! Me.ReportInfo1.Top = 0!
Me.ReportInfo1.Width = 3.478! Me.ReportInfo1.Width = 3.478!
' '
'lblDetails 'lblDetails
@@ -268,21 +268,21 @@ Partial Public Class rptLeereOBU
Me.lblDetails.Name = "lblDetails" Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt" Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = "" Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.0! Me.lblDetails.Top = 0!
Me.lblDetails.Width = 4.735435! Me.lblDetails.Width = 4.735435!
' '
'Line1 'Line1
' '
Me.Line1.Height = 0.0! Me.Line1.Height = 0!
Me.Line1.Left = 0.1968504! Me.Line1.Left = 0.1968504!
Me.Line1.LineWeight = 1.0! Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1" Me.Line1.Name = "Line1"
Me.Line1.Top = 0.0! Me.Line1.Top = 0!
Me.Line1.Width = 7.283462! Me.Line1.Width = 7.283462!
Me.Line1.X1 = 0.1968504! Me.Line1.X1 = 0.1968504!
Me.Line1.X2 = 7.480312! Me.Line1.X2 = 7.480312!
Me.Line1.Y1 = 0.0! Me.Line1.Y1 = 0!
Me.Line1.Y2 = 0.0! Me.Line1.Y2 = 0!
' '
'ReportHeader1 'ReportHeader1
' '
@@ -326,7 +326,7 @@ Partial Public Class rptLeereOBU
' '
'ReportFooter1 'ReportFooter1
' '
Me.ReportFooter1.Height = 0.0! Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1" Me.ReportFooter1.Name = "ReportFooter1"
' '
'rptLeereOBU 'rptLeereOBU
@@ -344,10 +344,10 @@ Partial Public Class rptLeereOBU
Me.Sections.Add(Me.Detail) Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter) Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1) 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")) "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-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")) "lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit() 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.Left = 5.094489!
Me.lbl.Name = "lbl" Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left" 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.Top = 1.472441!
Me.lbl.Width = 2.031496! Me.lbl.Width = 2.031496!
' '
@@ -253,8 +253,7 @@ Partial Public Class rptSDLAbrechnungsblatt
Me.Label1.Left = 5.094489! Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left" 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." & 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"
"verag.ag" & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 216714y" & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 53187000"
Me.Label1.Top = 1.67244! Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496! 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.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape() Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBetreff = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblBetreff = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape() Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMSENr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label21 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label21 = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -51,12 +53,12 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUnterschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblUnterschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMfg = 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.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKennzeichen, 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.Label21, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, 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.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMfg, 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() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
' '
'PageHeader 'PageHeader
@@ -94,7 +94,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Shape1.LineWeight = 2.0! Me.Shape1.LineWeight = 2.0!
Me.Shape1.Name = "Shape1" Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) 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! Me.Shape1.Width = 6.285039!
' '
'Label14 'Label14
@@ -108,6 +108,17 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Label14.Top = 0.007874017! Me.Label14.Top = 0.007874017!
Me.Label14.Width = 1.678741! 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 'lblBetreff
' '
Me.lblBetreff.Height = 0.1791339! Me.lblBetreff.Height = 0.1791339!
@@ -142,7 +153,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Shape.Left = 0.7858268! Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape" Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) 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! Me.Shape.Width = 6.28504!
' '
'lblKennzeichen 'lblKennzeichen
@@ -156,6 +167,17 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.lblKennzeichen.Top = 0.007874017! Me.lblKennzeichen.Top = 0.007874017!
Me.lblKennzeichen.Width = 1.76378! 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 'PageFooter
' '
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.Label21, Me.ReportInfo1}) 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.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386! Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2" 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" "eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = "" Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614! Me.ReportInfo2.Top = 2.686614!
@@ -222,7 +244,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.lbl.Left = 5.094489! Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl" Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left" 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.Top = 1.472441!
Me.lbl.Width = 2.031496! Me.lbl.Width = 2.031496!
' '
@@ -233,8 +255,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Label1.Left = 5.094489! Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left" 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) & _ 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"
"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.Top = 1.67244! Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496! Me.Label1.Width = 2.031496!
' '
@@ -336,7 +357,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Label12.HyperLink = Nothing Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386! Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12" 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" "lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST" Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882! Me.Label12.Top = 3.044882!
@@ -348,7 +369,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.ReportInfo3.Height = 0.1791338! Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386! Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3" 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" "eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = "" Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748! Me.ReportInfo3.Top = 2.865748!
@@ -361,7 +382,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Label8.Left = 0.6299214! Me.Label8.Left = 0.6299214!
Me.Label8.Name = "Label8" Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1" 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:" "EMID) registriert:"
Me.Label8.Top = 4.347244! Me.Label8.Top = 4.347244!
Me.Label8.Width = 6.417323! Me.Label8.Width = 6.417323!
@@ -401,7 +422,7 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Label13.Left = 0.6299213! Me.Label13.Left = 0.6299213!
Me.Label13.Name = "Label13" Me.Label13.Name = "Label13"
Me.Label13.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1" 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!" "rnehmen!"
Me.Label13.Top = 0.2397638! Me.Label13.Top = 0.2397638!
Me.Label13.Width = 6.417323! Me.Label13.Width = 6.417323!
@@ -428,28 +449,6 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.lblMfg.Top = 1.46063! Me.lblMfg.Top = 1.46063!
Me.lblMfg.Width = 3.240158! 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 'rptSDLBenachrichtigungCZ
' '
Me.MasterReport = False Me.MasterReport = False
@@ -465,16 +464,18 @@ Partial Public Class rptSDLBenachrichtigungCZ
Me.Sections.Add(Me.Detail) Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter) Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1) 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")) "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-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")) "lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKennzeichen, 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.Label21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, 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.Label13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMfg, 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() CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub 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.LineWeight = 2.0!
Me.Shape1.Name = "Shape1" Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) 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! Me.Shape1.Width = 6.285039!
' '
'Label14 'Label14
@@ -114,7 +114,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Label14.Name = "Label14" Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.Label14.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label14.Text = "KENNZEICHEN" Me.Label14.Text = "KENNZEICHEN"
Me.Label14.Top = 0.0! Me.Label14.Top = 0!
Me.Label14.Width = 1.678741! Me.Label14.Width = 1.678741!
' '
'Label15 'Label15
@@ -125,7 +125,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Label15.Name = "Label15" Me.Label15.Name = "Label15"
Me.Label15.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.Label15.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label15.Text = "KARTE/BOX" Me.Label15.Text = "KARTE/BOX"
Me.Label15.Top = 0.0! Me.Label15.Top = 0!
Me.Label15.Width = 2.802362! Me.Label15.Width = 2.802362!
' '
'Label16 'Label16
@@ -136,7 +136,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Label16.Name = "Label16" Me.Label16.Name = "Label16"
Me.Label16.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.Label16.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label16.Text = "PIN" Me.Label16.Text = "PIN"
Me.Label16.Top = 0.0! Me.Label16.Top = 0!
Me.Label16.Width = 1.74134! Me.Label16.Width = 1.74134!
' '
'lblBetreff 'lblBetreff
@@ -173,7 +173,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Shape.Left = 0.7858268! Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape" Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) 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! Me.Shape.Width = 6.28504!
' '
'lblKennzeichen 'lblKennzeichen
@@ -251,7 +251,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.ReportInfo2.Height = 0.1791338! Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386! Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2" 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" "eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = "" Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614! Me.ReportInfo2.Top = 2.686614!
@@ -275,7 +275,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.lbl.Left = 5.094489! Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl" Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left" 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.Top = 1.472441!
Me.lbl.Width = 2.031496! Me.lbl.Width = 2.031496!
' '
@@ -286,8 +286,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Label1.Left = 5.094489! Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left" 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) & _ 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"
"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.Top = 1.67244! Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496! Me.Label1.Width = 2.031496!
' '
@@ -389,7 +388,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Label12.HyperLink = Nothing Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386! Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12" 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" "lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST" Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882! Me.Label12.Top = 3.044882!
@@ -401,7 +400,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.ReportInfo3.Height = 0.1791338! Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386! Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3" 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" "eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = "" Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748! Me.ReportInfo3.Top = 2.865748!
@@ -414,7 +413,7 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Label8.Left = 0.6299214! Me.Label8.Left = 0.6299214!
Me.Label8.Name = "Label8" Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1" 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) " und abholbereit:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.Label8.Top = 4.347244! Me.Label8.Top = 4.347244!
Me.Label8.Width = 6.417323! Me.Label8.Width = 6.417323!
@@ -532,10 +531,10 @@ Partial Public Class rptSDLBenachrichtigungDE
Me.Sections.Add(Me.Detail) Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter) Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1) 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")) "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-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")) "lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit() 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.LineWeight = 2.0!
Me.Shape1.Name = "Shape1" Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) 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! Me.Shape1.Width = 6.285039!
' '
'Label14 'Label14
@@ -155,7 +155,7 @@ Partial Public Class rptSDLBenachrichtigungids
Me.Shape.Left = 0.7858268! Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape" Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) 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! Me.Shape.Width = 6.28504!
' '
'lblKennzeichen 'lblKennzeichen
@@ -222,7 +222,7 @@ Partial Public Class rptSDLBenachrichtigungids
Me.ReportInfo2.Height = 0.1791338! Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386! Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2" 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" "eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = "" Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614! Me.ReportInfo2.Top = 2.686614!
@@ -246,7 +246,7 @@ Partial Public Class rptSDLBenachrichtigungids
Me.lbl.Left = 5.094489! Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl" Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left" 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.Top = 1.472441!
Me.lbl.Width = 2.031496! Me.lbl.Width = 2.031496!
' '
@@ -257,8 +257,7 @@ Partial Public Class rptSDLBenachrichtigungids
Me.Label1.Left = 5.094489! Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left" 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) & _ 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"
"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.Top = 1.67244! Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496! Me.Label1.Width = 2.031496!
' '
@@ -360,7 +359,7 @@ Partial Public Class rptSDLBenachrichtigungids
Me.Label12.HyperLink = Nothing Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386! Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12" 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" "lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST" Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882! Me.Label12.Top = 3.044882!
@@ -372,7 +371,7 @@ Partial Public Class rptSDLBenachrichtigungids
Me.ReportInfo3.Height = 0.1791338! Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386! Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3" 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" "eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = "" Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748! Me.ReportInfo3.Top = 2.865748!
@@ -445,7 +444,7 @@ Partial Public Class rptSDLBenachrichtigungids
Me.lblMfg.HyperLink = Nothing Me.lblMfg.HyperLink = Nothing
Me.lblMfg.Left = 0.6299213! Me.lblMfg.Left = 0.6299213!
Me.lblMfg.Name = "lblMfg" 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" "char-set: 1"
Me.lblMfg.Text = "Srdacan pozdrav!" Me.lblMfg.Text = "Srdacan pozdrav!"
Me.lblMfg.Top = 1.533465! Me.lblMfg.Top = 1.533465!
@@ -477,10 +476,10 @@ Partial Public Class rptSDLBenachrichtigungids
Me.Sections.Add(Me.Detail) Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter) Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1) 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")) "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-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")) "lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit() 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.LineWeight = 2.0!
Me.Shape1.Name = "Shape1" Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) 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! Me.Shape1.Width = 6.285039!
' '
'Label14 'Label14
@@ -127,7 +127,7 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.Shape.Left = 0.7858268! Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape" Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) 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! Me.Shape.Width = 6.28504!
' '
'lblKennzeichen 'lblKennzeichen
@@ -183,7 +183,7 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.ReportInfo2.Height = 0.1791338! Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386! Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2" 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" "eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = "" Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614! Me.ReportInfo2.Top = 2.686614!
@@ -207,7 +207,7 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.lbl.Left = 5.094489! Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl" Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left" 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.Top = 1.472441!
Me.lbl.Width = 2.031496! Me.lbl.Width = 2.031496!
' '
@@ -218,8 +218,7 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.Label1.Left = 5.094489! Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left" 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) & _ 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"
"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.Top = 1.67244! Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496! Me.Label1.Width = 2.031496!
' '
@@ -321,7 +320,7 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.Label12.HyperLink = Nothing Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386! Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12" 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" "lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST" Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882! Me.Label12.Top = 3.044882!
@@ -333,7 +332,7 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.ReportInfo3.Height = 0.1791338! Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386! Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3" 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" "eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = "" Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748! Me.ReportInfo3.Top = 2.865748!
@@ -379,8 +378,8 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.Label8.Left = 0.6299214! Me.Label8.Left = 0.6299214!
Me.Label8.Name = "Label8" Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1" 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" & _ 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" & _ "amo jos do ! Nove kartice mogu vec da se koriste!!! Molim Vas da hitno zamj" &
"ente kartice i unistite stare!" "ente kartice i unistite stare!"
Me.Label8.Top = 4.347243! Me.Label8.Top = 4.347243!
Me.Label8.Width = 6.417323! Me.Label8.Width = 6.417323!
@@ -419,7 +418,7 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.lblMfg.HyperLink = Nothing Me.lblMfg.HyperLink = Nothing
Me.lblMfg.Left = 0.6299213! Me.lblMfg.Left = 0.6299213!
Me.lblMfg.Name = "lblMfg" 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" "char-set: 1"
Me.lblMfg.Text = "Srdacan pozdrav!" Me.lblMfg.Text = "Srdacan pozdrav!"
Me.lblMfg.Top = 1.000394! Me.lblMfg.Top = 1.000394!
@@ -440,10 +439,10 @@ Partial Public Class rptSDLBenachrichtigungMSE
Me.Sections.Add(Me.Detail) Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter) Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1) 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")) "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-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")) "lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit() 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.LineWeight = 2.0!
Me.Shape1.Name = "Shape1" Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) 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! Me.Shape1.Width = 6.285039!
' '
'Label14 'Label14
@@ -105,7 +105,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Label14.Name = "Label14" Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.Label14.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label14.Text = "KENNZEICHEN" Me.Label14.Text = "KENNZEICHEN"
Me.Label14.Top = 0.0! Me.Label14.Top = 0!
Me.Label14.Width = 1.678741! Me.Label14.Width = 1.678741!
' '
'Label15 'Label15
@@ -116,7 +116,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Label15.Name = "Label15" Me.Label15.Name = "Label15"
Me.Label15.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.Label15.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label15.Text = "Multi ServiceCard-Nr" Me.Label15.Text = "Multi ServiceCard-Nr"
Me.Label15.Top = 0.0! Me.Label15.Top = 0!
Me.Label15.Width = 2.802362! Me.Label15.Width = 2.802362!
' '
'lblBetreff 'lblBetreff
@@ -153,7 +153,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Shape.Left = 0.7858268! Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape" Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) 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! Me.Shape.Width = 6.28504!
' '
'lblKennzeichen 'lblKennzeichen
@@ -220,7 +220,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.ReportInfo2.Height = 0.1791338! Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386! Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2" 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" "eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = "" Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614! Me.ReportInfo2.Top = 2.686614!
@@ -244,7 +244,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.lbl.Left = 5.094489! Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl" Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left" 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.Top = 1.472441!
Me.lbl.Width = 2.031496! Me.lbl.Width = 2.031496!
' '
@@ -255,8 +255,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Label1.Left = 5.094489! Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left" 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) & _ 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"
"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.Top = 1.67244! Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496! Me.Label1.Width = 2.031496!
' '
@@ -358,7 +357,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Label12.HyperLink = Nothing Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386! Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12" 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" "lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST" Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882! Me.Label12.Top = 3.044882!
@@ -370,7 +369,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.ReportInfo3.Height = 0.1791338! Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386! Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3" 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" "eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = "" Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748! Me.ReportInfo3.Top = 2.865748!
@@ -383,7 +382,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Label8.Left = 0.6299214! Me.Label8.Left = 0.6299214!
Me.Label8.Name = "Label8" Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1" 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) "LL) registriert:" & Global.Microsoft.VisualBasic.ChrW(10)
Me.Label8.Top = 4.347244! Me.Label8.Top = 4.347244!
Me.Label8.Width = 6.417323! Me.Label8.Width = 6.417323!
@@ -423,7 +422,7 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Label13.Left = 0.6299213! Me.Label13.Left = 0.6299213!
Me.Label13.Name = "Label13" Me.Label13.Name = "Label13"
Me.Label13.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1" 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) "ccount-Kartennummer"" dem Fahrer <20>bergeben." & Global.Microsoft.VisualBasic.ChrW(10)
Me.Label13.Top = 0.2397638! Me.Label13.Top = 0.2397638!
Me.Label13.Width = 6.417323! Me.Label13.Width = 6.417323!
@@ -465,10 +464,10 @@ Partial Public Class rptSDLBenachrichtigungPL
Me.Sections.Add(Me.Detail) Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter) Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1) 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")) "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-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")) "lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit() 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.LineWeight = 2.0!
Me.Shape1.Name = "Shape1" Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) 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! Me.Shape1.Width = 6.285039!
' '
'Label14 'Label14
@@ -133,7 +133,7 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.Shape.Left = 0.7858268! Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape" Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) 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! Me.Shape.Width = 6.28504!
' '
'lblKennzeichen 'lblKennzeichen
@@ -189,7 +189,7 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.ReportInfo2.Height = 0.1791338! Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386! Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2" 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" "eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = "" Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614! Me.ReportInfo2.Top = 2.686614!
@@ -213,7 +213,7 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.lbl.Left = 5.094489! Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl" Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left" 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.Top = 1.472441!
Me.lbl.Width = 2.031496! Me.lbl.Width = 2.031496!
' '
@@ -224,8 +224,7 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.Label1.Left = 5.094489! Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left" 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) & _ 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"
"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.Top = 1.67244! Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496! Me.Label1.Width = 2.031496!
' '
@@ -327,7 +326,7 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.Label12.HyperLink = Nothing Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386! Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12" 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" "lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST" Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882! Me.Label12.Top = 3.044882!
@@ -339,7 +338,7 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.ReportInfo3.Height = 0.1791338! Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386! Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3" 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" "eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = "" Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748! Me.ReportInfo3.Top = 2.865748!
@@ -385,8 +384,8 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.Label8.Left = 0.6299213! Me.Label8.Left = 0.6299213!
Me.Label8.Name = "Label8" Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1" 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" & _ 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" & _ "s do ! Nove kartice su aktivne i mogu vec da se koriste!!! Molim Vas da hit" &
"no zamjente kartice i unistite stare!" "no zamjente kartice i unistite stare!"
Me.Label8.Top = 3.940552! Me.Label8.Top = 3.940552!
Me.Label8.Width = 6.417323! Me.Label8.Width = 6.417323!
@@ -425,7 +424,7 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.lblMfg.HyperLink = Nothing Me.lblMfg.HyperLink = Nothing
Me.lblMfg.Left = 0.6299213! Me.lblMfg.Left = 0.6299213!
Me.lblMfg.Name = "lblMfg" 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" "char-set: 1"
Me.lblMfg.Text = "Srdacan pozdrav!" Me.lblMfg.Text = "Srdacan pozdrav!"
Me.lblMfg.Top = 2.704725! Me.lblMfg.Top = 2.704725!
@@ -479,10 +478,10 @@ Partial Public Class rptSDLBenachrichtigungUTA
Me.Sections.Add(Me.Detail) Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter) Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1) 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")) "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-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")) "lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit() 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() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptAufschubabgleich)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptAufschubabgleich))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label12 = 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.lblBetrag = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFakturiert = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblFakturiert = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblDifferenz = 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.lblFaelligkeit = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
@@ -52,6 +54,7 @@ Partial Public Class rptAufschubabgleich
Me.lblDifferenzSum = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblDifferenzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzahl = 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.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label12, 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.lblBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFakturiert, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFakturiert, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDifferenz, 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.lblFaelligkeit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -84,53 +88,64 @@ Partial Public Class rptAufschubabgleich
' '
'PageHeader '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.Height = 0.186554!
Me.PageHeader.Name = "PageHeader" 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 'Label11
' '
Me.Label11.Height = 0.1480315! Me.Label11.Height = 0.1480315!
Me.Label11.HyperLink = Nothing Me.Label11.HyperLink = Nothing
Me.Label11.Left = 4.877953! Me.Label11.Left = 5.846851!
Me.Label11.Name = "Label11" Me.Label11.Name = "Label11"
Me.Label11.Style = "font-size: 8pt; font-weight: bold; text-align: right" Me.Label11.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label11.Text = "Betrag" Me.Label11.Text = "Betrag"
Me.Label11.Top = 0.02874016! Me.Label11.Top = 0.0287402!
Me.Label11.Width = 0.9330705! Me.Label11.Width = 0.9330705!
' '
'Label4 'Label4
' '
Me.Label4.Height = 0.1480315! Me.Label4.Height = 0.1480315!
Me.Label4.HyperLink = Nothing Me.Label4.HyperLink = Nothing
Me.Label4.Left = 5.811024! Me.Label4.Left = 6.779922!
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right" Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label4.Text = "Fakturiert" Me.Label4.Text = "Fakturiert"
Me.Label4.Top = 0.02874016! Me.Label4.Top = 0.0287402!
Me.Label4.Width = 0.9330708! Me.Label4.Width = 0.9330708!
' '
'Label12 'Label12
' '
Me.Label12.Height = 0.1480315! Me.Label12.Height = 0.1480315!
Me.Label12.HyperLink = Nothing Me.Label12.HyperLink = Nothing
Me.Label12.Left = 6.744095! Me.Label12.Left = 7.712993!
Me.Label12.Name = "Label12" Me.Label12.Name = "Label12"
Me.Label12.Style = "font-size: 8pt; font-weight: bold; text-align: right" Me.Label12.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label12.Text = "Differenz" Me.Label12.Text = "Differenz"
Me.Label12.Top = 0.02874016! Me.Label12.Top = 0.0287402!
Me.Label12.Width = 0.9330708! Me.Label12.Width = 0.9330708!
' '
'lblSummeOffenerSachbearbeiter 'lblSummeOffenerSachbearbeiter
' '
Me.lblSummeOffenerSachbearbeiter.Height = 0.1480315! Me.lblSummeOffenerSachbearbeiter.Height = 0.1480315!
Me.lblSummeOffenerSachbearbeiter.HyperLink = Nothing Me.lblSummeOffenerSachbearbeiter.HyperLink = Nothing
Me.lblSummeOffenerSachbearbeiter.Left = 3.113386! Me.lblSummeOffenerSachbearbeiter.Left = 3.561418!
Me.lblSummeOffenerSachbearbeiter.Name = "lblSummeOffenerSachbearbeiter" Me.lblSummeOffenerSachbearbeiter.Name = "lblSummeOffenerSachbearbeiter"
Me.lblSummeOffenerSachbearbeiter.Style = "font-size: 8pt; font-weight: bold" Me.lblSummeOffenerSachbearbeiter.Style = "font-size: 8pt; font-weight: bold"
Me.lblSummeOffenerSachbearbeiter.Text = "Abfertigungsort" Me.lblSummeOffenerSachbearbeiter.Text = "Abfertigungsort"
Me.lblSummeOffenerSachbearbeiter.Top = 0.02874016! Me.lblSummeOffenerSachbearbeiter.Top = 0.02874016!
Me.lblSummeOffenerSachbearbeiter.Width = 1.764567! Me.lblSummeOffenerSachbearbeiter.Width = 2.285433!
' '
'lblBezugsnummer 'lblBezugsnummer
' '
@@ -141,29 +156,29 @@ Partial Public Class rptAufschubabgleich
Me.lblBezugsnummer.Style = "font-size: 8pt; font-weight: bold" Me.lblBezugsnummer.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnummer.Text = "Aufschubkonto" Me.lblBezugsnummer.Text = "Aufschubkonto"
Me.lblBezugsnummer.Top = 0.03031496! Me.lblBezugsnummer.Top = 0.03031496!
Me.lblBezugsnummer.Width = 0.8748031! Me.lblBezugsnummer.Width = 0.98937!
' '
'lblAnnahme 'lblAnnahme
' '
Me.lblAnnahme.Height = 0.1478347! Me.lblAnnahme.Height = 0.1478347!
Me.lblAnnahme.HyperLink = Nothing Me.lblAnnahme.HyperLink = Nothing
Me.lblAnnahme.Left = 0.8748032! Me.lblAnnahme.Left = 0.9893702!
Me.lblAnnahme.Name = "lblAnnahme" Me.lblAnnahme.Name = "lblAnnahme"
Me.lblAnnahme.Style = "font-size: 8pt; font-weight: bold" Me.lblAnnahme.Style = "font-size: 8pt; font-weight: bold"
Me.lblAnnahme.Text = "Registriernumer" Me.lblAnnahme.Text = "Registriernumer"
Me.lblAnnahme.Top = 0.02992126! Me.lblAnnahme.Top = 0.02992126!
Me.lblAnnahme.Width = 1.611024! Me.lblAnnahme.Width = 1.757087!
' '
'lblGestellung 'lblGestellung
' '
Me.lblGestellung.Height = 0.1478347! Me.lblGestellung.Height = 0.1478347!
Me.lblGestellung.HyperLink = Nothing Me.lblGestellung.HyperLink = Nothing
Me.lblGestellung.Left = 2.485827! Me.lblGestellung.Left = 2.746457!
Me.lblGestellung.Name = "lblGestellung" Me.lblGestellung.Name = "lblGestellung"
Me.lblGestellung.Style = "font-size: 8pt; font-weight: bold" Me.lblGestellung.Style = "font-size: 8pt; font-weight: bold"
Me.lblGestellung.Text = "Bu.-Datum" Me.lblGestellung.Text = "Bu.-Datum"
Me.lblGestellung.Top = 0.02913386! Me.lblGestellung.Top = 0.02913386!
Me.lblGestellung.Width = 0.6125984! Me.lblGestellung.Width = 0.8!
' '
'Line1 'Line1
' '
@@ -172,29 +187,29 @@ Partial Public Class rptAufschubabgleich
Me.Line1.LineWeight = 1.0! Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1" Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1795276! Me.Line1.Top = 0.1795276!
Me.Line1.Width = 7.677084! Me.Line1.Width = 11.10236!
Me.Line1.X1 = 0! Me.Line1.X1 = 0!
Me.Line1.X2 = 7.677084! Me.Line1.X2 = 11.10236!
Me.Line1.Y1 = 0.1795276! Me.Line1.Y1 = 0.1795276!
Me.Line1.Y2 = 0.1796096! Me.Line1.Y2 = 0.1796096!
' '
'Detail '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.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.1480315! Me.Detail.Height = 0.1896982!
Me.Detail.Name = "Detail" Me.Detail.Name = "Detail"
' '
'lblAbfertigungsort 'lblAbfertigungsort
' '
Me.lblAbfertigungsort.Height = 0.1379921! Me.lblAbfertigungsort.Height = 0.1379921!
Me.lblAbfertigungsort.HyperLink = Nothing Me.lblAbfertigungsort.HyperLink = Nothing
Me.lblAbfertigungsort.Left = 3.113386! Me.lblAbfertigungsort.Left = 3.561418!
Me.lblAbfertigungsort.Name = "lblAbfertigungsort" Me.lblAbfertigungsort.Name = "lblAbfertigungsort"
Me.lblAbfertigungsort.Style = "font-size: 8pt; font-weight: normal; white-space: inherit; ddo-wrap-mode: char-wr" & Me.lblAbfertigungsort.Style = "font-size: 8pt; font-weight: normal; white-space: inherit; ddo-wrap-mode: char-wr" &
"ap" "ap"
Me.lblAbfertigungsort.Text = "-" Me.lblAbfertigungsort.Text = "-"
Me.lblAbfertigungsort.Top = 2.793968E-9! Me.lblAbfertigungsort.Top = 2.793968E-9!
Me.lblAbfertigungsort.Width = 1.764567! Me.lblAbfertigungsort.Width = 2.285433!
' '
'lblAKTO 'lblAKTO
' '
@@ -205,64 +220,75 @@ Partial Public Class rptAufschubabgleich
Me.lblAKTO.Style = "font-size: 8pt; font-weight: normal; ddo-char-set: 1" Me.lblAKTO.Style = "font-size: 8pt; font-weight: normal; ddo-char-set: 1"
Me.lblAKTO.Text = "-" Me.lblAKTO.Text = "-"
Me.lblAKTO.Top = 0.0003937008! Me.lblAKTO.Top = 0.0003937008!
Me.lblAKTO.Width = 0.8748031! Me.lblAKTO.Width = 0.98937!
' '
'lblATC 'lblATC
' '
Me.lblATC.Height = 0.1377953! Me.lblATC.Height = 0.1377953!
Me.lblATC.HyperLink = Nothing Me.lblATC.HyperLink = Nothing
Me.lblATC.Left = 0.8748032! Me.lblATC.Left = 0.9893702!
Me.lblATC.Name = "lblATC" Me.lblATC.Name = "lblATC"
Me.lblATC.Style = "font-size: 8pt; font-weight: normal; white-space: inherit; ddo-wrap-mode: char-wr" & Me.lblATC.Style = "font-size: 8pt; font-weight: normal; white-space: inherit; ddo-wrap-mode: char-wr" &
"ap" "ap"
Me.lblATC.Text = "-" Me.lblATC.Text = "-"
Me.lblATC.Top = 0.003149613! Me.lblATC.Top = 0.003149613!
Me.lblATC.Width = 1.611024! Me.lblATC.Width = 1.757087!
' '
'lblBUDatValue 'lblBUDatValue
' '
Me.lblBUDatValue.Height = 0.1377953! Me.lblBUDatValue.Height = 0.1377953!
Me.lblBUDatValue.HyperLink = Nothing Me.lblBUDatValue.HyperLink = Nothing
Me.lblBUDatValue.Left = 2.485827! Me.lblBUDatValue.Left = 2.746457!
Me.lblBUDatValue.Name = "lblBUDatValue" Me.lblBUDatValue.Name = "lblBUDatValue"
Me.lblBUDatValue.Style = "font-size: 8pt; font-weight: normal" Me.lblBUDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblBUDatValue.Text = "-" Me.lblBUDatValue.Text = "-"
Me.lblBUDatValue.Top = 4.656613E-9! Me.lblBUDatValue.Top = 4.656613E-9!
Me.lblBUDatValue.Width = 0.6275587! Me.lblBUDatValue.Width = 0.8149602!
' '
'lblBetrag 'lblBetrag
' '
Me.lblBetrag.Height = 0.1480315! Me.lblBetrag.Height = 0.1480315!
Me.lblBetrag.HyperLink = Nothing Me.lblBetrag.HyperLink = Nothing
Me.lblBetrag.Left = 4.877953! Me.lblBetrag.Left = 5.846851!
Me.lblBetrag.Name = "lblBetrag" Me.lblBetrag.Name = "lblBetrag"
Me.lblBetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1" Me.lblBetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblBetrag.Text = "Betrag" Me.lblBetrag.Text = "Betrag"
Me.lblBetrag.Top = 0! Me.lblBetrag.Top = 0.00000004470348!
Me.lblBetrag.Width = 0.9330708! Me.lblBetrag.Width = 0.9330708!
' '
'lblFakturiert 'lblFakturiert
' '
Me.lblFakturiert.Height = 0.1480315! Me.lblFakturiert.Height = 0.1480315!
Me.lblFakturiert.HyperLink = Nothing Me.lblFakturiert.HyperLink = Nothing
Me.lblFakturiert.Left = 5.811024! Me.lblFakturiert.Left = 6.779922!
Me.lblFakturiert.Name = "lblFakturiert" Me.lblFakturiert.Name = "lblFakturiert"
Me.lblFakturiert.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1" Me.lblFakturiert.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblFakturiert.Text = "Fakturiert" Me.lblFakturiert.Text = "Fakturiert"
Me.lblFakturiert.Top = 0! Me.lblFakturiert.Top = 0.00000004470348!
Me.lblFakturiert.Width = 0.9330708! Me.lblFakturiert.Width = 0.9330708!
' '
'lblDifferenz 'lblDifferenz
' '
Me.lblDifferenz.Height = 0.1480315! Me.lblDifferenz.Height = 0.1480315!
Me.lblDifferenz.HyperLink = Nothing Me.lblDifferenz.HyperLink = Nothing
Me.lblDifferenz.Left = 6.744095! Me.lblDifferenz.Left = 7.712993!
Me.lblDifferenz.Name = "lblDifferenz" Me.lblDifferenz.Name = "lblDifferenz"
Me.lblDifferenz.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1" Me.lblDifferenz.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblDifferenz.Text = "Differenz" Me.lblDifferenz.Text = "Differenz"
Me.lblDifferenz.Top = 0! Me.lblDifferenz.Top = 0.00000004470348!
Me.lblDifferenz.Width = 0.9330708! 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 'lblFaelligkeit
' '
Me.lblFaelligkeit.Height = 0.1379921! Me.lblFaelligkeit.Height = 0.1379921!
@@ -284,7 +310,7 @@ Partial Public Class rptAufschubabgleich
' '
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten " Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2! Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.199213! Me.ReportInfo1.Left = 7.609449!
Me.ReportInfo1.Name = "ReportInfo1" Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right" Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.05669292! Me.ReportInfo1.Top = 0.05669292!
@@ -305,11 +331,11 @@ Partial Public Class rptAufschubabgleich
' '
Me.Label8.Height = 0.2! Me.Label8.Height = 0.2!
Me.Label8.HyperLink = Nothing Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.213015! Me.Label8.Left = 4.167717!
Me.Label8.Name = "Label8" Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt" Me.Label8.Style = "font-size: 8pt"
Me.Label8.Text = "VERAG Spedition AG" Me.Label8.Text = "VERAG Spedition AG"
Me.Label8.Top = 0.05688977! Me.Label8.Top = 0.05708662!
Me.Label8.Width = 2.193284! Me.Label8.Width = 2.193284!
' '
'Line2 'Line2
@@ -319,9 +345,9 @@ Partial Public Class rptAufschubabgleich
Me.Line2.LineWeight = 1.0! Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2" Me.Line2.Name = "Line2"
Me.Line2.Top = 0.05708662! Me.Line2.Top = 0.05708662!
Me.Line2.Width = 7.677084! Me.Line2.Width = 11.10236!
Me.Line2.X1 = 0! Me.Line2.X1 = 0!
Me.Line2.X2 = 7.677084! Me.Line2.X2 = 11.10236!
Me.Line2.Y1 = 0.05708662! Me.Line2.Y1 = 0.05708662!
Me.Line2.Y2 = 0.05716864! Me.Line2.Y2 = 0.05716864!
' '
@@ -336,7 +362,7 @@ Partial Public Class rptAufschubabgleich
Me.picVERAG.Height = 0.5000001! Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream) 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.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0! Me.picVERAG.Top = 0!
@@ -396,7 +422,7 @@ Partial Public Class rptAufschubabgleich
' '
Me.lblBetragSum.Height = 0.1480315! Me.lblBetragSum.Height = 0.1480315!
Me.lblBetragSum.HyperLink = Nothing Me.lblBetragSum.HyperLink = Nothing
Me.lblBetragSum.Left = 4.877953! Me.lblBetragSum.Left = 5.846851!
Me.lblBetragSum.Name = "lblBetragSum" Me.lblBetragSum.Name = "lblBetragSum"
Me.lblBetragSum.Style = "font-size: 8pt; font-weight: bold; text-align: right" Me.lblBetragSum.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblBetragSum.Text = "Betrag" Me.lblBetragSum.Text = "Betrag"
@@ -407,7 +433,7 @@ Partial Public Class rptAufschubabgleich
' '
Me.lblFakturiertSum.Height = 0.1480315! Me.lblFakturiertSum.Height = 0.1480315!
Me.lblFakturiertSum.HyperLink = Nothing Me.lblFakturiertSum.HyperLink = Nothing
Me.lblFakturiertSum.Left = 5.811024! Me.lblFakturiertSum.Left = 6.779922!
Me.lblFakturiertSum.Name = "lblFakturiertSum" Me.lblFakturiertSum.Name = "lblFakturiertSum"
Me.lblFakturiertSum.Style = "font-size: 8pt; font-weight: bold; text-align: right" Me.lblFakturiertSum.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblFakturiertSum.Text = "Fakturiert" Me.lblFakturiertSum.Text = "Fakturiert"
@@ -418,7 +444,7 @@ Partial Public Class rptAufschubabgleich
' '
Me.lblDifferenzSum.Height = 0.1480315! Me.lblDifferenzSum.Height = 0.1480315!
Me.lblDifferenzSum.HyperLink = Nothing Me.lblDifferenzSum.HyperLink = Nothing
Me.lblDifferenzSum.Left = 6.744095! Me.lblDifferenzSum.Left = 7.712993!
Me.lblDifferenzSum.Name = "lblDifferenzSum" Me.lblDifferenzSum.Name = "lblDifferenzSum"
Me.lblDifferenzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right" Me.lblDifferenzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblDifferenzSum.Text = "Differenz" Me.lblDifferenzSum.Text = "Differenz"
@@ -454,9 +480,10 @@ Partial Public Class rptAufschubabgleich
Me.PageSettings.Margins.Left = 0.1968504! Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504! Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.1968504! Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
Me.PageSettings.PaperHeight = 11.0! Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5! Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166! Me.PrintWidth = 11.10236!
Me.ScriptLanguage = "VB.NET" Me.ScriptLanguage = "VB.NET"
Me.Sections.Add(Me.ReportHeader1) Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader) 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" & Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal")) "lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "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.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label12, 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.lblBetrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFakturiert, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFakturiert, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDifferenz, 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.lblFaelligkeit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, 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 Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAnzahl 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 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\ATLAS_Zabis\cATLAS_zbPos.vb" />
<Compile Include="Classes\cCMR.vb" /> <Compile Include="Classes\cCMR.vb" />
<Compile Include="Classes\cEABeleg.vb" /> <Compile Include="Classes\cEABeleg.vb" />
<Compile Include="Classes\cEmailBenachrichtigung.vb" />
<Compile Include="Classes\cEORIWebService.vb" /> <Compile Include="Classes\cEORIWebService.vb" />
<Compile Include="Classes\cEP0735_Versand.vb" /> <Compile Include="Classes\cEP0735_Versand.vb" />
<Compile Include="Classes\cEPBes.vb" /> <Compile Include="Classes\cEPBes.vb" />
@@ -481,6 +480,12 @@
<Compile Include="kunden\usrCntlKundenBesonderheiten.vb"> <Compile Include="kunden\usrCntlKundenBesonderheiten.vb">
<SubType>UserControl</SubType> <SubType>UserControl</SubType>
</Compile> </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"> <Compile Include="mdm\PLOSE\rptPLOSE_LaenderGesamt.Designer.vb">
<DependentUpon>rptPLOSE_LaenderGesamt.vb</DependentUpon> <DependentUpon>rptPLOSE_LaenderGesamt.vb</DependentUpon>
</Compile> </Compile>
@@ -493,12 +498,24 @@
<Compile Include="mdm\PLOSE\rptPLOSE_Konsortium.vb"> <Compile Include="mdm\PLOSE\rptPLOSE_Konsortium.vb">
<SubType>Component</SubType> <SubType>Component</SubType>
</Compile> </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"> <Compile Include="mdm\usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.Designer.vb">
<DependentUpon>usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb</DependentUpon> <DependentUpon>usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb</DependentUpon>
</Compile> </Compile>
<Compile Include="mdm\usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb"> <Compile Include="mdm\usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb">
<SubType>UserControl</SubType> <SubType>UserControl</SubType>
</Compile> </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"> <Compile Include="Reports\Zoll\rptKontrolleLKW_NCTSTR.Designer.vb">
<DependentUpon>rptKontrolleLKW_NCTSTR.vb</DependentUpon> <DependentUpon>rptKontrolleLKW_NCTSTR.vb</DependentUpon>
</Compile> </Compile>
@@ -2589,15 +2606,24 @@
<EmbeddedResource Include="kunden\usrCntlKundenBesonderheiten.resx"> <EmbeddedResource Include="kunden\usrCntlKundenBesonderheiten.resx">
<DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon> <DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="mdm\frmMDM_USTVAntrag.resx">
<DependentUpon>frmMDM_USTVAntrag.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\PLOSE\rptPLOSE_LaenderGesamt.resx"> <EmbeddedResource Include="mdm\PLOSE\rptPLOSE_LaenderGesamt.resx">
<DependentUpon>rptPLOSE_LaenderGesamt.vb</DependentUpon> <DependentUpon>rptPLOSE_LaenderGesamt.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="mdm\PLOSE\rptPLOSE_Konsortium.resx"> <EmbeddedResource Include="mdm\PLOSE\rptPLOSE_Konsortium.resx">
<DependentUpon>rptPLOSE_Konsortium.vb</DependentUpon> <DependentUpon>rptPLOSE_Konsortium.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="mdm\usrCntlUSTV.resx">
<DependentUpon>usrCntlUSTV.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.resx"> <EmbeddedResource Include="mdm\usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.resx">
<DependentUpon>usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb</DependentUpon> <DependentUpon>usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="mdm\usrCntlMSE_KonvertCSV.resx">
<DependentUpon>usrCntlMSE_KonvertCSV.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\Zoll\rptKontrolleLKW_NCTSTR.resx"> <EmbeddedResource Include="Reports\Zoll\rptKontrolleLKW_NCTSTR.resx">
<DependentUpon>rptKontrolleLKW_NCTSTR.vb</DependentUpon> <DependentUpon>rptKontrolleLKW_NCTSTR.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -4003,6 +4029,7 @@
<ItemGroup> <ItemGroup>
<Content Include="My Project\logo_mdm.png" /> <Content Include="My Project\logo_mdm.png" />
<Content Include="My Project\zoll.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_aeo_ZS_AT.jpg" />
<None Include="Resources\Unisped_ZS_logo.png" /> <None Include="Resources\Unisped_ZS_logo.png" />
<None Include="Resources\Unisped_logo.png" /> <None Include="Resources\Unisped_logo.png" />

12
SDL/SMS/frmSendSMS.vb
View File

@@ -247,11 +247,11 @@ Public Class frmSendSMS
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 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 End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 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 End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
@@ -263,11 +263,11 @@ Public Class frmSendSMS
End Sub End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click 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 End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click 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 End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
@@ -280,11 +280,11 @@ Public Class frmSendSMS
End Sub End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click 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 End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click 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 End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click 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_Warenwert = SENDUNG.tblSnd_Warenwert
p.nctsWP_WarenwertWaehrung = SENDUNG.tblSnd_WarenwertWaehrung p.nctsWP_WarenwertWaehrung = SENDUNG.tblSnd_WarenwertWaehrung
' p.nctsWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung ' 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 If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then
p.nctsWP_BesondereVermeke_Export = True p.nctsWP_BesondereVermeke_Export = True

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

@@ -188,7 +188,7 @@
Else Else
Select Case AVISO.Grenzstelle Select Case AVISO.Grenzstelle
Case "SUB" : zst = "DE007701"'Suben Autobahngrenze 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 "WAI" : zst = "DE008904" 'Weiden-Waidhaus
Case "NEU" : zst = "DE007703" 'Passau Case "NEU" : zst = "DE007703" 'Passau
' Case "SFD" : zst = Asd ....DAKOS DE -.- ' Case "SFD" : zst = Asd ....DAKOS DE -.-

41
SDL/cProgramFunctions.vb
View File

@@ -1259,11 +1259,48 @@ Public Class cProgramFunctions
Next Next
End If End If
End Sub 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 End Class
Public Class MyListItem_DELETE Public Class MyListItem_DELETE
Private mText As String Private mText As String
Private mValue 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.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
Me.USTVAnträgeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnlLeft.SuspendLayout() Me.pnlLeft.SuspendLayout()
Me.MenuStripSDL.SuspendLayout() Me.MenuStripSDL.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
@@ -161,7 +162,7 @@ Partial Class frmMain
'mnueMDM '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.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.ForeColor = System.Drawing.Color.White
Me.mnueMDM.Image = Global.SDL.My.Resources.Resources.logo_mdm Me.mnueMDM.Image = Global.SDL.My.Resources.Resources.logo_mdm
Me.mnueMDM.ImageAlign = System.Drawing.ContentAlignment.TopCenter Me.mnueMDM.ImageAlign = System.Drawing.ContentAlignment.TopCenter
@@ -216,6 +217,7 @@ Partial Class frmMain
Me.SchnittstellenToolStripMenuItem.Name = "SchnittstellenToolStripMenuItem" Me.SchnittstellenToolStripMenuItem.Name = "SchnittstellenToolStripMenuItem"
Me.SchnittstellenToolStripMenuItem.Size = New System.Drawing.Size(199, 22) Me.SchnittstellenToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
Me.SchnittstellenToolStripMenuItem.Text = "Schnittstellen" Me.SchnittstellenToolStripMenuItem.Text = "Schnittstellen"
Me.SchnittstellenToolStripMenuItem.Visible = False
' '
'ToolStripSeparator2 'ToolStripSeparator2
' '
@@ -815,6 +817,7 @@ Partial Class frmMain
Me.KdSearchBox1.searchActive = True Me.KdSearchBox1.searchActive = True
Me.KdSearchBox1.Size = New System.Drawing.Size(215, 26) Me.KdSearchBox1.Size = New System.Drawing.Size(215, 26)
Me.KdSearchBox1.TabIndex = 76 Me.KdSearchBox1.TabIndex = 76
Me.KdSearchBox1.TIMER_SEARCH = True
Me.KdSearchBox1.usrcntl = Nothing Me.KdSearchBox1.usrcntl = Nothing
' '
'Button4 'Button4
@@ -920,6 +923,12 @@ Partial Class frmMain
Me.Timer_REFRESH.Enabled = True Me.Timer_REFRESH.Enabled = True
Me.Timer_REFRESH.Interval = 5000 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 'frmMain
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -1033,4 +1042,5 @@ Partial Class frmMain
Friend WithEvents picAVISOMessenger As PictureBox Friend WithEvents picAVISOMessenger As PictureBox
Friend WithEvents Timer_REFRESH As Timer Friend WithEvents Timer_REFRESH As Timer
Friend WithEvents Button3 As Button Friend WithEvents Button3 As Button
Friend WithEvents USTVAnträgeToolStripMenuItem As ToolStripMenuItem
End Class End Class

11
SDL/frmMain.vb
View File

@@ -900,6 +900,17 @@ Public Class frmMain
End If End If
secondmonitorSelected = Not secondmonitorSelected secondmonitorSelected = Not secondmonitorSelected
End Sub 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 End Class
Public Class MyRenderer Public Class MyRenderer

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

@@ -62,8 +62,12 @@
Case "FRONTOFFICE" Case "FRONTOFFICE"
cboFiliale._allowedValuesFreiText = {"5801"} cboFiliale._allowedValuesFreiText = {"5801"}
cboFiliale.changeItem("5801") cboFiliale.changeItem("5801")
Case Else
cboFiliale.Items.Insert(1, New VERAG_PROG_ALLGEMEIN.MyListItem("alle VERAG", "VERAG"))
cboFiliale.changeItem("VERAG")
End Select End Select
cboSachbearbeiterQS.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " & 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) " 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 " & cboSachbearbeiterBH.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
@@ -203,7 +207,9 @@
sqlstr &= " AND vk_AbfertigungsNr LIKE @AbfertigungsNr " sqlstr &= " AND vk_AbfertigungsNr LIKE @AbfertigungsNr "
End If End If
' If txtUnterNr.Text <> "" Then sqlstr &= " AND [UnterNr] LIKE @UnterNr " ' 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 cboSachbearbeiterQS._value <> "" Then sqlstr &= " AND [vk_QS_SachbearbeiterId] = @PersonalnummerQS "
If cboSachbearbeiterBH._value <> "" Then sqlstr &= " AND [vk_BH_SachbearbeiterId] = @PersonalnummerBH " If cboSachbearbeiterBH._value <> "" Then sqlstr &= " AND [vk_BH_SachbearbeiterId] = @PersonalnummerBH "

4
SDL/kunden/frmEmailBenachrichtigung.vb
View File

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

3
SDL/kunden/frmKundenBesonderheiten_Add.vb
View File

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

6
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

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

5
SDL/kunden/frmKundenZOLLVollmachten.vb
View File

@@ -24,7 +24,8 @@
Case "UNISPED", "IMEX", "FRONTOFFICE" Case "UNISPED", "IMEX", "FRONTOFFICE"
Panel1.Visible = True Panel1.Visible = True
Case Else Case Else
Me.Height = Me.Height - Panel1.Height Panel1.Visible = True
'Me.Height = Me.Height - Panel1.Height
End Select End Select
If id > 0 Then If id > 0 Then
@@ -59,7 +60,7 @@
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(id) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(id)
DS.DELETE_COMPLETE() 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 id = -1 : pic.Visible = False
Label2.Text = "Kein PDF vorhanden." Label2.Text = "Kein PDF vorhanden."
picPDF.Image = My.Resources.pdf_gray 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.Label1 = New System.Windows.Forms.Label()
Me.cbxFreigabe_ABD = New System.Windows.Forms.CheckBox() Me.cbxFreigabe_ABD = New System.Windows.Forms.CheckBox()
Me.cbxAVM = New System.Windows.Forms.CheckBox() Me.cbxAVM = New System.Windows.Forms.CheckBox()
Me.cboFreigabeArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.SuspendLayout() Me.SuspendLayout()
' '
'cboFreigabe_SteuerbescheidBedingung '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.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.Location = New System.Drawing.Point(278, 4)
Me.CheckBox6.Name = "CheckBox6" 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.TabIndex = 44
Me.CheckBox6.Text = "E-Mail bei LKW-Freigabe:" Me.CheckBox6.Text = "E-Mail bei"
Me.CheckBox6.UseVisualStyleBackColor = True Me.CheckBox6.UseVisualStyleBackColor = True
' '
'CheckBox4 'CheckBox4
@@ -284,11 +285,25 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung
Me.cbxAVM.Text = "AVM" Me.cbxAVM.Text = "AVM"
Me.cbxAVM.UseVisualStyleBackColor = True 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 'usrCntlKundenAvisoMailBenachrichtigung
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.cboFreigabeArt)
Me.Controls.Add(Me.cbxAVM) Me.Controls.Add(Me.cbxAVM)
Me.Controls.Add(Me.cbxFreigabe_ABD) Me.Controls.Add(Me.cbxFreigabe_ABD)
Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label1)
@@ -336,4 +351,5 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung
Friend WithEvents Label1 As Label Friend WithEvents Label1 As Label
Friend WithEvents cbxFreigabe_ABD As CheckBox Friend WithEvents cbxFreigabe_ABD As CheckBox
Friend WithEvents cbxAVM As CheckBox Friend WithEvents cbxAVM As CheckBox
Friend WithEvents cboFreigabeArt As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class End Class

28
SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb
View File

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

65
SDL/kunden/usrCntlKundenBesonderheiten.vb
View File

@@ -4,7 +4,30 @@
Dim loaded = False Dim loaded = False
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL 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 Private Sub usrCntlKundenBesonderheiten_Load(sender As Object, e As EventArgs) Handles Me.Load
'initDGV() 'initDGV()
cboKategorie.fillWithSQL("SELECT [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien]", False, "FMZOLL", True) cboKategorie.fillWithSQL("SELECT [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien]", False, "FMZOLL", True)
@@ -15,12 +38,12 @@
loaded = True loaded = True
End Sub End Sub
Sub init(kdNr, Optional Kategorie = "", Optional simpleView = False) Sub init(kdNr, Optional Kategorie = "", Optional simpleView = False, Optional preferedKategorie = "", Optional preferedKategorieOtherIN = "")
loaded = False loaded = False
If simpleView Then Panel1.Visible = False 'showhideOptions(False) If simpleView Then Panel1.Visible = False 'showhideOptions(False)
cboKategorie.changeItem(Kategorie) cboKategorie.changeItem(Kategorie)
cbx.Checked = False cbx.Checked = False
initDGV(kdNr, simpleView) initDGV(kdNr, simpleView, preferedKategorie, preferedKategorieOtherIN)
loaded = True loaded = True
End Sub End Sub
@@ -30,7 +53,7 @@
cboKategorie.Visible = visible cboKategorie.Visible = visible
lbl.Visible = visible lbl.Visible = visible
End Sub 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() dgvBesonderheiten.Columns.Clear()
@@ -50,7 +73,14 @@
where &= " and kdb_history=0 " where &= " and kdb_history=0 "
End If 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 If .Columns.Count = 0 Then dgvBesonderheiten.Columns.Clear() : Exit Sub
.ClearSelection() .ClearSelection()
@@ -76,19 +106,22 @@
.Columns("kdb_AenderungAm").DefaultCellStyle.Format = "dd.MM.yyyy" .Columns("kdb_AenderungAm").DefaultCellStyle.Format = "dd.MM.yyyy"
.EnableHeadersVisualStyles = False .EnableHeadersVisualStyles = False
For Each c In .Columns
c.HeaderCell.Style.ForeColor = Color.White
c.HeaderCell.Style.BackColor = Color.FromArgb(0, 54, 128)
Next doStyle()
For Each r As DataGridViewRow In .Rows
If r.Cells("kdb_hervorheben").Value Then 'For Each c In .Columns
r.DefaultCellStyle.BackColor = Color.LightYellow ' c.HeaderCell.Style.ForeColor = Color.White
End If ' c.HeaderCell.Style.BackColor = Color.FromArgb(0, 54, 128)
If r.Cells("kdb_history").Value Then
r.DefaultCellStyle.BackColor = Color.LightGray 'Next
End If 'For Each r As DataGridViewRow In .Rows
Next ' 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 If simpleView Then
.Columns("kdb_kategorie").Visible = False .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"> <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1146, 17</value> <value>1146, 17</value>
</metadata> </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> </root>

198
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -163,6 +163,7 @@ Public Class usrCntlKundenuebersicht
End If 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"}) 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 txtGGDatum._value = Now.ToShortDateString
@@ -277,6 +278,7 @@ Public Class usrCntlKundenuebersicht
initDGVOffenePosten() initDGVOffenePosten()
initDGVVollmachten() initDGVVollmachten()
initDGVGestGarantie() initDGVGestGarantie()
initDGVVertraege()
'initDGVOfferte() 'initDGVOfferte()
initDGVAnhaenge() initDGVAnhaenge()
initDGVOffertenSperrliste() initDGVOffertenSperrliste()
@@ -584,8 +586,7 @@ Public Class usrCntlKundenuebersicht
UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW) UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW)
'UsrCntlKundenBesonderheiten1.Visible = False
If KUNDE_ERW.kde_BesonderheitenNeu Then If KUNDE_ERW.kde_BesonderheitenNeu Then
UsrCntlKundenBesonderheiten1.Size = rtbAbf_Besonderheiten.Size UsrCntlKundenBesonderheiten1.Size = rtbAbf_Besonderheiten.Size
UsrCntlKundenBesonderheiten1.init(kdNr) UsrCntlKundenBesonderheiten1.init(kdNr)
@@ -824,7 +825,7 @@ Public Class usrCntlKundenuebersicht
.Columns("clmnPDF").Visible = True .Columns("clmnPDF").Visible = True
Case Else Case Else
.Columns("clmnTherefore").Visible = True .Columns("clmnTherefore").Visible = True
.Columns("clmnPDF").Visible = False .Columns("clmnPDF").Visible = True
End Select End Select
For Each r As DataGridViewRow In .Rows For Each r As DataGridViewRow In .Rows
If r.Cells("kdvm_erhalten").Value Is DBNull.Value Then If r.Cells("kdvm_erhalten").Value Is DBNull.Value Then
@@ -882,6 +883,46 @@ Public Class usrCntlKundenuebersicht
clearGG() clearGG()
End Sub 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() Sub initDGVOffertenSperrliste()
With dgvOffertenSperrliste With dgvOffertenSperrliste
Dim where As String = "" Dim where As String = ""
@@ -1385,6 +1426,13 @@ Public Class usrCntlKundenuebersicht
End If End If
End Sub 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 Private Sub dgvVollmachten_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachten.CellDoubleClick
Dim tmprowindex As Integer = e.RowIndex Dim tmprowindex As Integer = e.RowIndex
@@ -2005,6 +2053,15 @@ Public Class usrCntlKundenuebersicht
End If End If
End If End If
End Sub 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 Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
If dgvGestGarantie.SelectedRows.Count > 0 Then If dgvGestGarantie.SelectedRows.Count > 0 Then
@@ -2074,6 +2131,15 @@ Public Class usrCntlKundenuebersicht
Button9.Visible = False Button9.Visible = False
End Sub 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 Private Sub PDFLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PDFLöschenToolStripMenuItem.Click
If dgvGestGarantie.SelectedRows.Count = 1 Then If dgvGestGarantie.SelectedRows.Count = 1 Then
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) 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) If pdf <> "" Then Process.Start(pdf)
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub 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 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 ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Dim FISKAL As cFiskal_Daten = Nothing Dim FISKAL As cFiskal_Daten = Nothing
' Dim USRCNTL_FISK As usrCntlKundeFiskaldaten ' Dim USRCNTL_FISK As usrCntlKundeFiskaldaten
Dim EMAIL_ANKUNFT As cEmailBenachrichtigungList = Nothing Dim EMAIL_ANKUNFT As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList = Nothing
Dim EMAIL_FREIGABE As cEmailBenachrichtigungList = Nothing Dim EMAIL_FREIGABE As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList = Nothing
Dim sql As New SQL Dim sql As New SQL
Dim WunschKdNr As Integer = -1 Dim WunschKdNr As Integer = -1
' Dim kdnr = -1 ' Dim kdnr = -1

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