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

Merge

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-01 11:12:00 +02:00
parent d64fe1c04e 6cdca15d8f
commit 0e57aa03f5
8 changed files with 425 additions and 329 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/frmMain.vb
View File

@@ -147,8 +147,8 @@ Public Class frmMain
Dim timeEntryExisting As Boolean = False Dim timeEntryExisting As Boolean = False
timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting) timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting)
If Not timeEntryExisting Then If Not timeEntryExisting Then
Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & "als Startzeit erfassen?", vbYesNo) Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst!" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)
If a = vbYes Then If a = vbYes Then
Dim info Dim info
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in") timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in")
MsgBox(info) MsgBox(info)

199
SDL/kunden/Berichte/rptFrachtkostenberechnung.Designer.vb generated
View File

@@ -21,8 +21,6 @@ Partial Public Class rptFrachtkostenberechnung
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture() Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblKontrolle = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblKontrolle = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -88,8 +86,6 @@ Partial Public Class rptFrachtkostenberechnung
Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKontrolle, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblKontrolle, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -150,7 +146,7 @@ Partial Public Class rptFrachtkostenberechnung
'PageHeader 'PageHeader
' '
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblUeberschrift}) Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblUeberschrift})
Me.PageHeader.Height = 0.8541666! Me.PageHeader.Height = 1.166667!
Me.PageHeader.Name = "PageHeader" Me.PageHeader.Name = "PageHeader"
' '
'picVERAG 'picVERAG
@@ -166,53 +162,36 @@ Partial Public Class rptFrachtkostenberechnung
' '
'lblUeberschrift 'lblUeberschrift
' '
Me.lblUeberschrift.Height = 0.2831732! Me.lblUeberschrift.DataField = ""
Me.lblUeberschrift.Height = 0.8665355!
Me.lblUeberschrift.HyperLink = Nothing Me.lblUeberschrift.HyperLink = Nothing
Me.lblUeberschrift.Left = 0! Me.lblUeberschrift.Left = 0!
Me.lblUeberschrift.Name = "lblUeberschrift" Me.lblUeberschrift.Name = "lblUeberschrift"
Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.lblUeberschrift.Style = "color: Black; font-size: 14pt; font-weight: bold; text-align: left; ddo-char-set:" &
Me.lblUeberschrift.Text = "Frachtkostenberechnung von" " 1"
Me.lblUeberschrift.Text = "Rechnung f<>r Zollzwecke (tats<74>chliches Kaufgesch<63>ft Lukowa CH an Empf<70>nger in EU)" &
"" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Art. 128 Abs. 1 UZK-IA, Z 5101 Abs. 8" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Lieferkondition DDP excl. VAT<41> " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblUeberschrift.Top = 0.1858268! Me.lblUeberschrift.Top = 0.1858268!
Me.lblUeberschrift.Width = 4.357088! Me.lblUeberschrift.Width = 5.190552!
' '
'Detail 'Detail
' '
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.txtKdNr, Me.Line, Me.lblKontrolle, Me.Label1, Me.Label3, Me.Label7, Me.Line1, Me.Label8, Me.Label11, Me.Label12, Me.Label13, Me.Label15, Me.Label16, Me.Label18, Me.Line2, Me.Label20, Me.Line4, Me.Label21, Me.Label22, Me.Label23, Me.txtWarenbezeichnung, Me.txtPreis, Me.txtGewicht, Me.txtWarenanteilSumme, Me.txtFrachtanteil, Me.txtVerzollungskosten, Me.txtZollBetrag, Me.txtBGLZoll, Me.txtBGLEUST, Me.Label2, Me.txtZollInProzent, Me.txtEU, Me.txtNichtEU, Me.Label4, Me.txtGesamtdistanz, Me.Label6, Me.Label9, Me.Label10, Me.Label14, Me.txtAnteil, Me.Line5, Me.Label17, Me.txtWarenbezeichnung2, Me.Label19, Me.TextBox16, Me.Label24, Me.Label25, Me.txtGesamtgewicht, Me.txtWarengewichtBrutto, Me.txtWarenanteil, Me.Line6, Me.Label26, Me.txtGesamtfracht, Me.Label27, Me.txtGesamtfrachtanteil, Me.Label29, Me.Label30, Me.Label31, Me.Label32}) Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line, Me.lblKontrolle, Me.Label1, Me.Label3, Me.Label7, Me.Line1, Me.Label8, Me.Label11, Me.Label12, Me.Label13, Me.Label15, Me.Label16, Me.Label18, Me.Line2, Me.Label20, Me.Line4, Me.Label21, Me.Label22, Me.Label23, Me.txtWarenbezeichnung, Me.txtPreis, Me.txtGewicht, Me.txtWarenanteilSumme, Me.txtFrachtanteil, Me.txtVerzollungskosten, Me.txtZollBetrag, Me.txtBGLZoll, Me.txtBGLEUST, Me.Label2, Me.txtZollInProzent, Me.txtEU, Me.txtNichtEU, Me.Label4, Me.txtGesamtdistanz, Me.Label6, Me.Label9, Me.Label10, Me.Label14, Me.txtAnteil, Me.Line5, Me.Label17, Me.txtWarenbezeichnung2, Me.Label19, Me.TextBox16, Me.Label24, Me.Label25, Me.txtGesamtgewicht, Me.txtWarengewichtBrutto, Me.txtWarenanteil, Me.Line6, Me.Label26, Me.txtGesamtfracht, Me.Label27, Me.txtGesamtfrachtanteil, Me.Label29, Me.Label30, Me.Label31, Me.Label32})
Me.Detail.Height = 6.456694! Me.Detail.Height = 6.456694!
Me.Detail.Name = "Detail" Me.Detail.Name = "Detail"
' '
'Label5
'
Me.Label5.Height = 0.172441!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.01!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label5.Text = "Empf<EFBFBD>nger"
Me.Label5.Top = 0.015!
Me.Label5.Width = 1.0!
'
'txtKdNr
'
Me.txtKdNr.Height = 0.172!
Me.txtKdNr.Left = 1.01!
Me.txtKdNr.Name = "txtKdNr"
Me.txtKdNr.Style = "font-weight: bold; text-align: left"
Me.txtKdNr.Top = 0.015!
Me.txtKdNr.Width = 0.9999998!
'
'Line 'Line
' '
Me.Line.Height = 0! Me.Line.Height = 0!
Me.Line.Left = 0! Me.Line.Left = 0!
Me.Line.LineWeight = 1.0! Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line" Me.Line.Name = "Line"
Me.Line.Top = 0.5700001! Me.Line.Top = 0.08570087!
Me.Line.Width = 8.178! Me.Line.Width = 8.178!
Me.Line.X1 = 0! Me.Line.X1 = 0!
Me.Line.X2 = 8.178! Me.Line.X2 = 8.178!
Me.Line.Y1 = 0.5700001! Me.Line.Y1 = 0.08570087!
Me.Line.Y2 = 0.5700001! Me.Line.Y2 = 0.08570087!
' '
'lblKontrolle 'lblKontrolle
' '
@@ -234,7 +213,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.Label1.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label1.Text = "Ware: " Me.Label1.Text = "Ware: "
Me.Label1.Top = 0.628! Me.Label1.Top = 0.1437008!
Me.Label1.Width = 0.6872441! Me.Label1.Width = 0.6872441!
' '
'Label3 'Label3
@@ -245,7 +224,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.Label3.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label3.Text = "Preis: " Me.Label3.Text = "Preis: "
Me.Label3.Top = 0.85! Me.Label3.Top = 0.3657008!
Me.Label3.Width = 0.6872442! Me.Label3.Width = 0.6872442!
' '
'Label7 'Label7
@@ -257,7 +236,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label7.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " & Me.Label7.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " &
"1" "1"
Me.Label7.Text = "- inkl. Fracktkostenanteil" Me.Label7.Text = "- inkl. Fracktkostenanteil"
Me.Label7.Top = 1.09! Me.Label7.Top = 0.6057009!
Me.Label7.Width = 4.94! Me.Label7.Width = 4.94!
' '
'Line1 'Line1
@@ -266,12 +245,12 @@ Partial Public Class rptFrachtkostenberechnung
Me.Line1.Left = 0.01! Me.Line1.Left = 0.01!
Me.Line1.LineWeight = 1.0! Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1" Me.Line1.Name = "Line1"
Me.Line1.Top = 1.395! Me.Line1.Top = 0.9107007!
Me.Line1.Width = 8.177999! Me.Line1.Width = 8.177999!
Me.Line1.X1 = 0.01! Me.Line1.X1 = 0.01!
Me.Line1.X2 = 8.188! Me.Line1.X2 = 8.188!
Me.Line1.Y1 = 1.395! Me.Line1.Y1 = 0.9107007!
Me.Line1.Y2 = 1.395! Me.Line1.Y2 = 0.9107007!
' '
'Label8 'Label8
' '
@@ -283,7 +262,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label8.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" & Me.Label8.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" &
"t: 1" "t: 1"
Me.Label8.Text = "<EFBFBD>" Me.Label8.Text = "<EFBFBD>"
Me.Label8.Top = 0.8500001! Me.Label8.Top = 0.3657008!
Me.Label8.Width = 0.3430003! Me.Label8.Width = 0.3430003!
' '
'Label11 'Label11
@@ -295,7 +274,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label11.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" & Me.Label11.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" &
"t: 1" "t: 1"
Me.Label11.Text = "<EFBFBD>" Me.Label11.Text = "<EFBFBD>"
Me.Label11.Top = 1.09! Me.Label11.Top = 0.6057009!
Me.Label11.Width = 0.3430003! Me.Label11.Width = 0.3430003!
' '
'Label12 'Label12
@@ -307,7 +286,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label12.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" & Me.Label12.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" &
"t: 1" "t: 1"
Me.Label12.Text = "<EFBFBD>" Me.Label12.Text = "<EFBFBD>"
Me.Label12.Top = 1.445! Me.Label12.Top = 0.9607009!
Me.Label12.Width = 0.3430003! Me.Label12.Width = 0.3430003!
' '
'Label13 'Label13
@@ -319,7 +298,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label13.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " & Me.Label13.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " &
"1" "1"
Me.Label13.Text = "enthalt. Zoll" Me.Label13.Text = "enthalt. Zoll"
Me.Label13.Top = 1.757! Me.Label13.Top = 1.272701!
Me.Label13.Width = 4.077001! Me.Label13.Width = 4.077001!
' '
'Label15 'Label15
@@ -331,7 +310,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label15.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" & Me.Label15.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" &
"t: 1" "t: 1"
Me.Label15.Text = "<EFBFBD>" Me.Label15.Text = "<EFBFBD>"
Me.Label15.Top = 1.757! Me.Label15.Top = 1.272701!
Me.Label15.Width = 0.3430003! Me.Label15.Width = 0.3430003!
' '
'Label16 'Label16
@@ -343,7 +322,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label16.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " & Me.Label16.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " &
"1" "1"
Me.Label16.Text = "Berechnungsgrundlage Zoll" Me.Label16.Text = "Berechnungsgrundlage Zoll"
Me.Label16.Top = 2.048! Me.Label16.Top = 1.563701!
Me.Label16.Width = 4.983001! Me.Label16.Width = 4.983001!
' '
'Label18 'Label18
@@ -355,7 +334,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label18.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" & Me.Label18.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" &
"t: 1" "t: 1"
Me.Label18.Text = "<EFBFBD>" Me.Label18.Text = "<EFBFBD>"
Me.Label18.Top = 2.048! Me.Label18.Top = 1.563701!
Me.Label18.Width = 0.3430003! Me.Label18.Width = 0.3430003!
' '
'Line2 'Line2
@@ -364,12 +343,12 @@ Partial Public Class rptFrachtkostenberechnung
Me.Line2.Left = 0.06! Me.Line2.Left = 0.06!
Me.Line2.LineWeight = 1.0! Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2" Me.Line2.Name = "Line2"
Me.Line2.Top = 2.374! Me.Line2.Top = 1.889701!
Me.Line2.Width = 8.177999! Me.Line2.Width = 8.177999!
Me.Line2.X1 = 0.06! Me.Line2.X1 = 0.06!
Me.Line2.X2 = 8.238! Me.Line2.X2 = 8.238!
Me.Line2.Y1 = 2.374! Me.Line2.Y1 = 1.889701!
Me.Line2.Y2 = 2.374! Me.Line2.Y2 = 1.889701!
' '
'Label20 'Label20
' '
@@ -380,7 +359,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label20.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" & Me.Label20.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" &
"t: 1" "t: 1"
Me.Label20.Text = "<EFBFBD>" Me.Label20.Text = "<EFBFBD>"
Me.Label20.Top = 2.434! Me.Label20.Top = 1.949701!
Me.Label20.Width = 0.3430003! Me.Label20.Width = 0.3430003!
' '
'Line4 'Line4
@@ -389,12 +368,12 @@ Partial Public Class rptFrachtkostenberechnung
Me.Line4.Left = 0.06! Me.Line4.Left = 0.06!
Me.Line4.LineWeight = 1.0! Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4" Me.Line4.Name = "Line4"
Me.Line4.Top = 2.801! Me.Line4.Top = 2.316701!
Me.Line4.Width = 8.177999! Me.Line4.Width = 8.177999!
Me.Line4.X1 = 0.06! Me.Line4.X1 = 0.06!
Me.Line4.X2 = 8.237999! Me.Line4.X2 = 8.237999!
Me.Line4.Y1 = 2.801! Me.Line4.Y1 = 2.316701!
Me.Line4.Y2 = 2.801! Me.Line4.Y2 = 2.316701!
' '
'Label21 'Label21
' '
@@ -404,7 +383,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label21.Name = "Label21" Me.Label21.Name = "Label21"
Me.Label21.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.Label21.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label21.Text = "Frachtberechnung" Me.Label21.Text = "Frachtberechnung"
Me.Label21.Top = 3.059! Me.Label21.Top = 2.574701!
Me.Label21.Width = 1.19748! Me.Label21.Width = 1.19748!
' '
'Label22 'Label22
@@ -415,7 +394,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label22.Name = "Label22" Me.Label22.Name = "Label22"
Me.Label22.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.Label22.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label22.Text = "EU" Me.Label22.Text = "EU"
Me.Label22.Top = 3.34! Me.Label22.Top = 2.8557!
Me.Label22.Width = 1.625! Me.Label22.Width = 1.625!
' '
'Label23 'Label23
@@ -426,7 +405,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label23.Name = "Label23" Me.Label23.Name = "Label23"
Me.Label23.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.Label23.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label23.Text = "Nicht EU" Me.Label23.Text = "Nicht EU"
Me.Label23.Top = 3.559! Me.Label23.Top = 3.074701!
Me.Label23.Width = 1.625! Me.Label23.Width = 1.625!
' '
'txtWarenbezeichnung 'txtWarenbezeichnung
@@ -438,7 +417,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung" Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
Me.txtWarenbezeichnung.Style = "color: Black; font-weight: bold; text-align: left" Me.txtWarenbezeichnung.Style = "color: Black; font-weight: bold; text-align: left"
Me.txtWarenbezeichnung.SummaryGroup = "" Me.txtWarenbezeichnung.SummaryGroup = ""
Me.txtWarenbezeichnung.Top = 0.628! Me.txtWarenbezeichnung.Text = Nothing
Me.txtWarenbezeichnung.Top = 0.1437008!
Me.txtWarenbezeichnung.Width = 3.99! Me.txtWarenbezeichnung.Width = 3.99!
' '
'txtPreis 'txtPreis
@@ -450,7 +430,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtPreis.Name = "txtPreis" Me.txtPreis.Name = "txtPreis"
Me.txtPreis.Style = "color: Black; font-weight: bold; text-align: left" Me.txtPreis.Style = "color: Black; font-weight: bold; text-align: left"
Me.txtPreis.SummaryGroup = "" Me.txtPreis.SummaryGroup = ""
Me.txtPreis.Top = 0.8500001! Me.txtPreis.Text = Nothing
Me.txtPreis.Top = 0.3657008!
Me.txtPreis.Width = 0.7525198! Me.txtPreis.Width = 0.7525198!
' '
'txtGewicht 'txtGewicht
@@ -462,7 +443,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtGewicht.Name = "txtGewicht" Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Style = "color: Black; font-weight: bold; text-align: left" Me.txtGewicht.Style = "color: Black; font-weight: bold; text-align: left"
Me.txtGewicht.SummaryGroup = "" Me.txtGewicht.SummaryGroup = ""
Me.txtGewicht.Top = 0.8499999! Me.txtGewicht.Text = Nothing
Me.txtGewicht.Top = 0.3657007!
Me.txtGewicht.Width = 2.340157! Me.txtGewicht.Width = 2.340157!
' '
'txtWarenanteilSumme 'txtWarenanteilSumme
@@ -474,7 +456,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtWarenanteilSumme.Name = "txtWarenanteilSumme" Me.txtWarenanteilSumme.Name = "txtWarenanteilSumme"
Me.txtWarenanteilSumme.Style = "color: Black; font-weight: bold; text-align: right" Me.txtWarenanteilSumme.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtWarenanteilSumme.SummaryGroup = "" Me.txtWarenanteilSumme.SummaryGroup = ""
Me.txtWarenanteilSumme.Top = 0.8499999! Me.txtWarenanteilSumme.Text = Nothing
Me.txtWarenanteilSumme.Top = 0.3657007!
Me.txtWarenanteilSumme.Width = 1.554292! Me.txtWarenanteilSumme.Width = 1.554292!
' '
'txtFrachtanteil 'txtFrachtanteil
@@ -486,7 +469,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtFrachtanteil.Name = "txtFrachtanteil" Me.txtFrachtanteil.Name = "txtFrachtanteil"
Me.txtFrachtanteil.Style = "color: Black; font-weight: bold; text-align: right" Me.txtFrachtanteil.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtFrachtanteil.SummaryGroup = "" Me.txtFrachtanteil.SummaryGroup = ""
Me.txtFrachtanteil.Top = 1.09! Me.txtFrachtanteil.Text = Nothing
Me.txtFrachtanteil.Top = 0.6057009!
Me.txtFrachtanteil.Width = 1.554292! Me.txtFrachtanteil.Width = 1.554292!
' '
'txtVerzollungskosten 'txtVerzollungskosten
@@ -498,7 +482,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtVerzollungskosten.Name = "txtVerzollungskosten" Me.txtVerzollungskosten.Name = "txtVerzollungskosten"
Me.txtVerzollungskosten.Style = "color: Black; font-weight: bold; text-align: right" Me.txtVerzollungskosten.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtVerzollungskosten.SummaryGroup = "" Me.txtVerzollungskosten.SummaryGroup = ""
Me.txtVerzollungskosten.Top = 1.445! Me.txtVerzollungskosten.Text = Nothing
Me.txtVerzollungskosten.Top = 0.9607009!
Me.txtVerzollungskosten.Width = 1.554292! Me.txtVerzollungskosten.Width = 1.554292!
' '
'txtZollBetrag 'txtZollBetrag
@@ -510,7 +495,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtZollBetrag.Name = "txtZollBetrag" Me.txtZollBetrag.Name = "txtZollBetrag"
Me.txtZollBetrag.Style = "color: Black; font-weight: bold; text-align: right" Me.txtZollBetrag.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtZollBetrag.SummaryGroup = "" Me.txtZollBetrag.SummaryGroup = ""
Me.txtZollBetrag.Top = 1.757! Me.txtZollBetrag.Text = Nothing
Me.txtZollBetrag.Top = 1.272701!
Me.txtZollBetrag.Width = 1.554292! Me.txtZollBetrag.Width = 1.554292!
' '
'txtBGLZoll 'txtBGLZoll
@@ -522,7 +508,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtBGLZoll.Name = "txtBGLZoll" Me.txtBGLZoll.Name = "txtBGLZoll"
Me.txtBGLZoll.Style = "color: Black; font-weight: bold; text-align: right" Me.txtBGLZoll.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtBGLZoll.SummaryGroup = "" Me.txtBGLZoll.SummaryGroup = ""
Me.txtBGLZoll.Top = 2.048! Me.txtBGLZoll.Text = Nothing
Me.txtBGLZoll.Top = 1.563701!
Me.txtBGLZoll.Width = 1.554292! Me.txtBGLZoll.Width = 1.554292!
' '
'txtBGLEUST 'txtBGLEUST
@@ -534,7 +521,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtBGLEUST.Name = "txtBGLEUST" Me.txtBGLEUST.Name = "txtBGLEUST"
Me.txtBGLEUST.Style = "color: Black; font-weight: bold; text-align: right" Me.txtBGLEUST.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtBGLEUST.SummaryGroup = "" Me.txtBGLEUST.SummaryGroup = ""
Me.txtBGLEUST.Top = 2.434! Me.txtBGLEUST.Text = Nothing
Me.txtBGLEUST.Top = 1.949701!
Me.txtBGLEUST.Width = 1.554292! Me.txtBGLEUST.Width = 1.554292!
' '
'Label2 'Label2
@@ -546,7 +534,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label2.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " & Me.Label2.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " &
"1" "1"
Me.Label2.Text = "Berechnungsgrundlage EUST" Me.Label2.Text = "Berechnungsgrundlage EUST"
Me.Label2.Top = 2.434! Me.Label2.Top = 1.949701!
Me.Label2.Width = 4.983001! Me.Label2.Width = 4.983001!
' '
'txtZollInProzent 'txtZollInProzent
@@ -558,7 +546,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtZollInProzent.Name = "txtZollInProzent" Me.txtZollInProzent.Name = "txtZollInProzent"
Me.txtZollInProzent.Style = "color: Black; font-weight: bold; text-align: left" Me.txtZollInProzent.Style = "color: Black; font-weight: bold; text-align: left"
Me.txtZollInProzent.SummaryGroup = "" Me.txtZollInProzent.SummaryGroup = ""
Me.txtZollInProzent.Top = 1.757! Me.txtZollInProzent.Text = Nothing
Me.txtZollInProzent.Top = 1.272701!
Me.txtZollInProzent.Width = 0.7860001! Me.txtZollInProzent.Width = 0.7860001!
' '
'txtEU 'txtEU
@@ -570,7 +559,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtEU.Name = "txtEU" Me.txtEU.Name = "txtEU"
Me.txtEU.Style = "color: Black; font-weight: bold; text-align: right" Me.txtEU.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtEU.SummaryGroup = "" Me.txtEU.SummaryGroup = ""
Me.txtEU.Top = 3.341339! Me.txtEU.Text = Nothing
Me.txtEU.Top = 2.85704!
Me.txtEU.Width = 1.553938! Me.txtEU.Width = 1.553938!
' '
'txtNichtEU 'txtNichtEU
@@ -582,7 +572,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtNichtEU.Name = "txtNichtEU" Me.txtNichtEU.Name = "txtNichtEU"
Me.txtNichtEU.Style = "color: Black; font-weight: bold; text-align: right" Me.txtNichtEU.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtNichtEU.SummaryGroup = "" Me.txtNichtEU.SummaryGroup = ""
Me.txtNichtEU.Top = 3.559449! Me.txtNichtEU.Text = Nothing
Me.txtNichtEU.Top = 3.07515!
Me.txtNichtEU.Width = 1.553938! Me.txtNichtEU.Width = 1.553938!
' '
'Label4 'Label4
@@ -593,7 +584,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label4.Text = "Gesamtdistanz" Me.Label4.Text = "Gesamtdistanz"
Me.Label4.Top = 3.783! Me.Label4.Top = 3.298701!
Me.Label4.Width = 1.625! Me.Label4.Width = 1.625!
' '
'txtGesamtdistanz 'txtGesamtdistanz
@@ -605,7 +596,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtGesamtdistanz.Name = "txtGesamtdistanz" Me.txtGesamtdistanz.Name = "txtGesamtdistanz"
Me.txtGesamtdistanz.Style = "color: Black; font-weight: bold; text-align: right" Me.txtGesamtdistanz.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtGesamtdistanz.SummaryGroup = "" Me.txtGesamtdistanz.SummaryGroup = ""
Me.txtGesamtdistanz.Top = 3.783859! Me.txtGesamtdistanz.Text = Nothing
Me.txtGesamtdistanz.Top = 3.29956!
Me.txtGesamtdistanz.Width = 1.553938! Me.txtGesamtdistanz.Width = 1.553938!
' '
'Label6 'Label6
@@ -617,7 +609,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label6.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" & Me.Label6.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" &
"t: 1" "t: 1"
Me.Label6.Text = "km" Me.Label6.Text = "km"
Me.Label6.Top = 3.340158! Me.Label6.Top = 2.855859!
Me.Label6.Width = 0.3430003! Me.Label6.Width = 0.3430003!
' '
'Label9 'Label9
@@ -629,7 +621,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label9.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" & Me.Label9.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" &
"t: 1" "t: 1"
Me.Label9.Text = "km" Me.Label9.Text = "km"
Me.Label9.Top = 3.558953! Me.Label9.Top = 3.074654!
Me.Label9.Width = 0.3430003! Me.Label9.Width = 0.3430003!
' '
'Label10 'Label10
@@ -641,7 +633,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label10.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" & Me.Label10.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" &
"t: 1" "t: 1"
Me.Label10.Text = "km" Me.Label10.Text = "km"
Me.Label10.Top = 3.782984! Me.Label10.Top = 3.298685!
Me.Label10.Width = 0.3430003! Me.Label10.Width = 0.3430003!
' '
'Label14 'Label14
@@ -652,7 +644,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label14.Name = "Label14" Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.Label14.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label14.Text = "Gesamtgewicht:" Me.Label14.Text = "Gesamtgewicht:"
Me.Label14.Top = 4.329528! Me.Label14.Top = 3.845229!
Me.Label14.Width = 0.95! Me.Label14.Width = 0.95!
' '
'txtAnteil 'txtAnteil
@@ -664,7 +656,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtAnteil.Name = "txtAnteil" Me.txtAnteil.Name = "txtAnteil"
Me.txtAnteil.Style = "color: Black; font-weight: bold; text-align: left" Me.txtAnteil.Style = "color: Black; font-weight: bold; text-align: left"
Me.txtAnteil.SummaryGroup = "" Me.txtAnteil.SummaryGroup = ""
Me.txtAnteil.Top = 4.568898! Me.txtAnteil.Text = Nothing
Me.txtAnteil.Top = 4.084599!
Me.txtAnteil.Width = 0.8913391! Me.txtAnteil.Width = 0.8913391!
' '
'Line5 'Line5
@@ -673,12 +666,12 @@ Partial Public Class rptFrachtkostenberechnung
Me.Line5.Left = 0! Me.Line5.Left = 0!
Me.Line5.LineWeight = 1.0! Me.Line5.LineWeight = 1.0!
Me.Line5.Name = "Line5" Me.Line5.Name = "Line5"
Me.Line5.Top = 4.144882! Me.Line5.Top = 3.660583!
Me.Line5.Width = 8.177999! Me.Line5.Width = 8.177999!
Me.Line5.X1 = 0! Me.Line5.X1 = 0!
Me.Line5.X2 = 8.177999! Me.Line5.X2 = 8.177999!
Me.Line5.Y1 = 4.144882! Me.Line5.Y1 = 3.660583!
Me.Line5.Y2 = 4.144882! Me.Line5.Y2 = 3.660583!
' '
'Label17 'Label17
' '
@@ -700,7 +693,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtWarenbezeichnung2.Name = "txtWarenbezeichnung2" Me.txtWarenbezeichnung2.Name = "txtWarenbezeichnung2"
Me.txtWarenbezeichnung2.Style = "color: Black; font-weight: bold; text-align: left" Me.txtWarenbezeichnung2.Style = "color: Black; font-weight: bold; text-align: left"
Me.txtWarenbezeichnung2.SummaryGroup = "" Me.txtWarenbezeichnung2.SummaryGroup = ""
Me.txtWarenbezeichnung2.Top = 4.569292! Me.txtWarenbezeichnung2.Text = Nothing
Me.txtWarenbezeichnung2.Top = 4.084993!
Me.txtWarenbezeichnung2.Width = 2.476772! Me.txtWarenbezeichnung2.Width = 2.476772!
' '
'Label19 'Label19
@@ -711,7 +705,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label19.Name = "Label19" Me.Label19.Name = "Label19"
Me.Label19.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.Label19.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label19.Text = "Ware:" Me.Label19.Text = "Ware:"
Me.Label19.Top = 4.569292! Me.Label19.Top = 4.084993!
Me.Label19.Width = 0.5673228! Me.Label19.Width = 0.5673228!
' '
'TextBox16 'TextBox16
@@ -721,7 +715,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.TextBox16.Name = "TextBox16" Me.TextBox16.Name = "TextBox16"
Me.TextBox16.Style = "font-weight: bold; text-align: left" Me.TextBox16.Style = "font-weight: bold; text-align: left"
Me.TextBox16.Text = "100 %" Me.TextBox16.Text = "100 %"
Me.TextBox16.Top = 4.34567! Me.TextBox16.Top = 3.861371!
Me.TextBox16.Width = 0.8913383! Me.TextBox16.Width = 0.8913383!
' '
'Label24 'Label24
@@ -733,7 +727,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label24.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" & Me.Label24.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" &
"t: 1" "t: 1"
Me.Label24.Text = "kg" Me.Label24.Text = "kg"
Me.Label24.Top = 4.345276! Me.Label24.Top = 3.860977!
Me.Label24.Width = 0.3430003! Me.Label24.Width = 0.3430003!
' '
'Label25 'Label25
@@ -745,7 +739,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label25.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" & Me.Label25.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" &
"t: 1" "t: 1"
Me.Label25.Text = "kg" Me.Label25.Text = "kg"
Me.Label25.Top = 4.568898! Me.Label25.Top = 4.084599!
Me.Label25.Width = 0.3430003! Me.Label25.Width = 0.3430003!
' '
'txtGesamtgewicht 'txtGesamtgewicht
@@ -757,7 +751,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtGesamtgewicht.Name = "txtGesamtgewicht" Me.txtGesamtgewicht.Name = "txtGesamtgewicht"
Me.txtGesamtgewicht.Style = "color: Black; font-weight: bold; text-align: left" Me.txtGesamtgewicht.Style = "color: Black; font-weight: bold; text-align: left"
Me.txtGesamtgewicht.SummaryGroup = "" Me.txtGesamtgewicht.SummaryGroup = ""
Me.txtGesamtgewicht.Top = 4.34567! Me.txtGesamtgewicht.Text = Nothing
Me.txtGesamtgewicht.Top = 3.861371!
Me.txtGesamtgewicht.Width = 1.144882! Me.txtGesamtgewicht.Width = 1.144882!
' '
'txtWarengewichtBrutto 'txtWarengewichtBrutto
@@ -769,7 +764,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtWarengewichtBrutto.Name = "txtWarengewichtBrutto" Me.txtWarengewichtBrutto.Name = "txtWarengewichtBrutto"
Me.txtWarengewichtBrutto.Style = "color: Black; font-weight: bold; text-align: left" Me.txtWarengewichtBrutto.Style = "color: Black; font-weight: bold; text-align: left"
Me.txtWarengewichtBrutto.SummaryGroup = "" Me.txtWarengewichtBrutto.SummaryGroup = ""
Me.txtWarengewichtBrutto.Top = 4.585433! Me.txtWarengewichtBrutto.Text = Nothing
Me.txtWarengewichtBrutto.Top = 4.101134!
Me.txtWarengewichtBrutto.Width = 1.144882! Me.txtWarengewichtBrutto.Width = 1.144882!
' '
'txtWarenanteil 'txtWarenanteil
@@ -781,7 +777,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtWarenanteil.Name = "txtWarenanteil" Me.txtWarenanteil.Name = "txtWarenanteil"
Me.txtWarenanteil.Style = "color: Black; font-weight: bold; text-align: right" Me.txtWarenanteil.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtWarenanteil.SummaryGroup = "" Me.txtWarenanteil.SummaryGroup = ""
Me.txtWarenanteil.Top = 4.568898! Me.txtWarenanteil.Text = Nothing
Me.txtWarenanteil.Top = 4.084599!
Me.txtWarenanteil.Width = 1.553937! Me.txtWarenanteil.Width = 1.553937!
' '
'Line6 'Line6
@@ -790,12 +787,12 @@ Partial Public Class rptFrachtkostenberechnung
Me.Line6.Left = 0.05984252! Me.Line6.Left = 0.05984252!
Me.Line6.LineWeight = 1.0! Me.Line6.LineWeight = 1.0!
Me.Line6.Name = "Line6" Me.Line6.Name = "Line6"
Me.Line6.Top = 4.905512! Me.Line6.Top = 4.421213!
Me.Line6.Width = 8.178! Me.Line6.Width = 8.178!
Me.Line6.X1 = 0.05984252! Me.Line6.X1 = 0.05984252!
Me.Line6.X2 = 8.237843! Me.Line6.X2 = 8.237843!
Me.Line6.Y1 = 4.905512! Me.Line6.Y1 = 4.421213!
Me.Line6.Y2 = 4.905512! Me.Line6.Y2 = 4.421213!
' '
'Label26 'Label26
' '
@@ -805,7 +802,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label26.Name = "Label26" Me.Label26.Name = "Label26"
Me.Label26.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1" Me.Label26.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label26.Text = "Gesamtfracht: " Me.Label26.Text = "Gesamtfracht: "
Me.Label26.Top = 5.111024! Me.Label26.Top = 4.626725!
Me.Label26.Width = 0.9062992! Me.Label26.Width = 0.9062992!
' '
'txtGesamtfracht 'txtGesamtfracht
@@ -817,7 +814,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtGesamtfracht.Name = "txtGesamtfracht" Me.txtGesamtfracht.Name = "txtGesamtfracht"
Me.txtGesamtfracht.Style = "color: Black; font-weight: bold; text-align: right" Me.txtGesamtfracht.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtGesamtfracht.SummaryGroup = "" Me.txtGesamtfracht.SummaryGroup = ""
Me.txtGesamtfracht.Top = 5.111024! Me.txtGesamtfracht.Text = Nothing
Me.txtGesamtfracht.Top = 4.626725!
Me.txtGesamtfracht.Width = 1.779134! Me.txtGesamtfracht.Width = 1.779134!
' '
'Label27 'Label27
@@ -829,7 +827,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label27.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" & Me.Label27.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" &
"t: 1" "t: 1"
Me.Label27.Text = "<EFBFBD>" Me.Label27.Text = "<EFBFBD>"
Me.Label27.Top = 5.110237! Me.Label27.Top = 4.625938!
Me.Label27.Width = 0.3430003! Me.Label27.Width = 0.3430003!
' '
'txtGesamtfrachtanteil 'txtGesamtfrachtanteil
@@ -842,7 +840,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtGesamtfrachtanteil.Style = "color: Black; font-weight: bold; text-align: right" Me.txtGesamtfrachtanteil.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtGesamtfrachtanteil.SummaryGroup = "" Me.txtGesamtfrachtanteil.SummaryGroup = ""
Me.txtGesamtfrachtanteil.Tag = "" Me.txtGesamtfrachtanteil.Tag = ""
Me.txtGesamtfrachtanteil.Top = 5.110631! Me.txtGesamtfrachtanteil.Text = Nothing
Me.txtGesamtfrachtanteil.Top = 4.626332!
Me.txtGesamtfrachtanteil.Width = 1.554292! Me.txtGesamtfrachtanteil.Width = 1.554292!
' '
'Label29 'Label29
@@ -854,7 +853,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label29.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" & Me.Label29.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" &
"t: 1" "t: 1"
Me.Label29.Text = "<EFBFBD>" Me.Label29.Text = "<EFBFBD>"
Me.Label29.Top = 5.111024! Me.Label29.Top = 4.626725!
Me.Label29.Width = 0.3430003! Me.Label29.Width = 0.3430003!
' '
'Label30 'Label30
@@ -866,7 +865,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label30.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" & Me.Label30.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" &
"t: 1" "t: 1"
Me.Label30.Text = "<EFBFBD>" Me.Label30.Text = "<EFBFBD>"
Me.Label30.Top = 0.8496063! Me.Label30.Top = 0.365307!
Me.Label30.Width = 0.2480315! Me.Label30.Width = 0.2480315!
' '
'Label31 'Label31
@@ -878,7 +877,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label31.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" & Me.Label31.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" &
"t: 1" "t: 1"
Me.Label31.Text = "x" Me.Label31.Text = "x"
Me.Label31.Top = 0.8500001! Me.Label31.Top = 0.3657008!
Me.Label31.Width = 0.2480315! Me.Label31.Width = 0.2480315!
' '
'Label32 'Label32
@@ -890,7 +889,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label32.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" & Me.Label32.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: center; ddo-char-se" &
"t: 1" "t: 1"
Me.Label32.Text = "kg" Me.Label32.Text = "kg"
Me.Label32.Top = 0.8496063! Me.Label32.Top = 0.365307!
Me.Label32.Width = 0.3430003! Me.Label32.Width = 0.3430003!
' '
'PageFooter 'PageFooter
@@ -964,8 +963,6 @@ Partial Public Class rptFrachtkostenberechnung
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.picVERAG, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKontrolle, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblKontrolle, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1026,8 +1023,6 @@ Partial Public Class rptFrachtkostenberechnung
End Sub End Sub
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lblUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo Private WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo

3
VERAG_PROG_ALLGEMEIN/App.config
View File

@@ -49,6 +49,9 @@
connectionString="Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;" /> connectionString="Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.PARKZEITConnectionString_DEV" <add name="VERAG_PROG_ALLGEMEIN.My.MySettings.PARKZEITConnectionString_DEV"
connectionString="Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;" /> connectionString="Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;" />
connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=ASFINAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AsfinagConnectionString"
connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=ASFINAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" />
</connectionStrings> </connectionStrings>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>

91
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -62,6 +62,32 @@ Public Class SQL
End If End If
End Function
Public Shared Function GetAsfinagConnectionString() As String
'Properties.Settings.Default.
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
Try
Return My.MySettings.Default.AsfinagConnectionString
Catch ex As Exception
'Return "Data Source=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;"
Return "Data Source=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=ASFINAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
End Try
Else
Try
Return My.MySettings.Default.AsfinagConnectionString 'nach Prod-Start austauschen!
Catch ex As Exception
' Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;"
Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=ASFINAG;Integrated Security=false;User ID=test;Password=BmWr501956;"
End Try
End If
End Function End Function
Public Shared Function GetWEBConnectionString() As String Public Shared Function GetWEBConnectionString() As String
'Properties.Settings.Default. 'Properties.Settings.Default.
@@ -90,6 +116,19 @@ Public Class SQL
End If End If
End Function End Function
Public Shared Function GetAsfinagConnectionString(TESTSYSTEM) As String
If TESTSYSTEM Then
Return My.MySettings.Default.AsfinagConnectionString()
Else
Try
Return My.MySettings.Default.FMZOLL_PRODConnectionString
Catch ex As Exception
' Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;"
Return "Data Source=192.168.0.91\Asfinag;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;"
End Try
End If
End Function
Public Shared Function GetFDConnectionString() As String Public Shared Function GetFDConnectionString() As String
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
Return My.MySettings.Default.FDConnectionString Return My.MySettings.Default.FDConnectionString
@@ -226,6 +265,19 @@ Public Class SQL
End Try End Try
Return Nothing Return Nothing
End Function
Public Shared Function GetNewOpenConnectionAsfinag(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
Try
cn.ConnectionString = GetAsfinagConnectionString() & IIf(pooling, "", ";pooling=false")
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
End Function End Function
Public Shared Function GetNewOpenConnectionPARKZEIT(Optional pooling As Boolean = True) As SqlConnection Public Shared Function GetNewOpenConnectionPARKZEIT(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection() Dim cn As New SqlConnection()
@@ -263,6 +315,19 @@ Public Class SQL
End Try End Try
Return Nothing Return Nothing
End Function
Public Shared Function GetNewOpenConnectionFAsfinag_SYSTEM(TESTSYSTEM As Boolean, Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
Try
cn.ConnectionString = GetAsfinagConnectionString(TESTSYSTEM) & IIf(pooling, "", ";pooling=false")
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
End Function End Function
Public Shared Function GetNewOpenConnectionSCANCANON(Optional pooling As Boolean = True) As SqlConnection Public Shared Function GetNewOpenConnectionSCANCANON(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection() Dim cn As New SqlConnection()
@@ -449,6 +514,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "DISPO" : conn = GetNewOpenConnectionDISPO() Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
@@ -460,6 +526,7 @@ Public Class SQL
Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA() Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT() Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
Case "AVISO_ATILLA" Case "AVISO_ATILLA"
conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"
conn.Open() conn.Open()
@@ -493,6 +560,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "DISPO" : conn = GetNewOpenConnectionDISPO() Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
@@ -529,6 +597,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
@@ -596,6 +665,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "DISPO" : conn = GetNewOpenConnectionDISPO() Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
@@ -648,6 +718,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "DISPO" : conn = GetNewOpenConnectionDISPO() Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
@@ -692,6 +763,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
@@ -733,6 +805,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
@@ -768,6 +841,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
@@ -832,6 +906,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
@@ -1208,14 +1283,14 @@ Public Class SQL
" FROM veoadr WHERE basman_nr='" & basman_nr & "' And basman_nl='" & basman_nl & "' And veoant_beznr='" & veoant_beznr & "' " & " FROM veoadr WHERE basman_nr='" & basman_nr & "' And basman_nl='" & basman_nl & "' And veoant_beznr='" & veoant_beznr & "' " &
" And veoant_lfdnr=" & intLfdNr & " And veopos_posnr=" & intPosNr & " And veoadr_typ=" & lngTyp & " " & " And veoant_lfdnr=" & intLfdNr & " And veopos_posnr=" & intPosNr & " And veoadr_typ=" & lngTyp & " " &
" ORDER BY basman_nr, basman_nl, veoant_beznr, veoant_lfdnr, veopos_posnr, veoadr_typ ", conn) " ORDER BY basman_nr, basman_nl, veoant_beznr, veoant_lfdnr, veopos_posnr, veoadr_typ ", conn)
Dim dr As SqlDataReader = cmd.ExecuteReader() Dim dr As SqlDataReader = cmd.ExecuteReader()
If dr.HasRows Then If dr.HasRows Then
dr.Read() dr.Read()
s = Left(Trim(dr.Item("veoadr_name1")) & Trim(", " & dr.Item("baslnd_alpha")) & Trim(", " & dr.Item("veoadr_plz")) & Trim(", " & dr.Item("veoadr_ort")), 50) s = Left(Trim(dr.Item("veoadr_name1")) & Trim(", " & dr.Item("baslnd_alpha")) & Trim(", " & dr.Item("veoadr_plz")) & Trim(", " & dr.Item("veoadr_ort")), 50)
End If End If
dr.Close() dr.Close()
End Using End Using
conn.Close() conn.Close()
End If End If
Return s Return s

438
VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb generated
View File

@@ -13,17 +13,18 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.3.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.6.0.0"),
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.3.0.0"),
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>
Partial Public NotInheritable Class MySettings Partial Public NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()), MySettings)
#Region "Automatische My.Settings-Speicherfunktion" #Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then #If _MYTYPE = "WindowsForms" Then
Private Shared addedHandler As Boolean Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object Private Shared addedHandlerLockObject As New Object
@@ -36,11 +37,11 @@ Namespace My
End Sub End Sub
#End If #End If
#End Region #End Region
Public Shared ReadOnly Property [Default]() As MySettings Public Shared ReadOnly Property [Default]() As MySettings
Get Get
#If _MyType = "WindowsForms" Then #If _MYTYPE = "WindowsForms" Then
If Not addedHandler Then If Not addedHandler Then
SyncLock addedHandlerLockObject SyncLock addedHandlerLockObject
If Not addedHandler Then If Not addedHandler Then
@@ -53,331 +54,342 @@ Namespace My
Return defaultInstance Return defaultInstance
End Get End Get
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.99;Initial Catalog=Therefore;Integrated Security=false;User"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.99;Initial Catalog=Therefore;Integrated Security=false;User" &
" ID=sa;Password=BmWr501956;")> _ " ID=sa;Password=BmWr501956;")>
Public Property SCANCANON_PRODConnectionString() As String Public Property SCANCANON_PRODConnectionString() As String
Get Get
Return CType(Me("SCANCANON_PRODConnectionString"),String) Return CType(Me("SCANCANON_PRODConnectionString"), String)
End Get End Get
Set Set
Me("SCANCANON_PRODConnectionString") = value Me("SCANCANON_PRODConnectionString") = Value
End Set End Set
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
Global.System.Configuration.DefaultSettingValueAttribute("http://ec.europa.eu/taxation_customs/vies/services/checkVatService")> _ Global.System.Configuration.DefaultSettingValueAttribute("http://ec.europa.eu/taxation_customs/vies/services/checkVatService")>
Public ReadOnly Property VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService() As String Public ReadOnly Property VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService() As String
Get Get
Return CType(Me("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"),String) Return CType(Me("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=fa"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=fa" &
"lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo"& _ "lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo" &
"l Size=200")> _ "l Size=200")>
Public Property DISPOConnectionString() As String Public Property DISPOConnectionString() As String
Get Get
Return CType(Me("DISPOConnectionString"),String) Return CType(Me("DISPOConnectionString"), String)
End Get End Get
Set Set
Me("DISPOConnectionString") = value Me("DISPOConnectionString") = Value
End Set End Set
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
Global.System.Configuration.DefaultSettingValueAttribute("https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/")> _ Global.System.Configuration.DefaultSettingValueAttribute("https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/")>
Public ReadOnly Property VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService() As String Public ReadOnly Property VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService() As String
Get Get
Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService"),String) Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
Global.System.Configuration.DefaultSettingValueAttribute("https://finanzonline.bmf.gv.at:443/fonws/ws/session")> _ Global.System.Configuration.DefaultSettingValueAttribute("https://finanzonline.bmf.gv.at:443/fonws/ws/session")>
Public ReadOnly Property VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService() As String Public ReadOnly Property VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService() As String
Get Get
Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService"),String) Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.DefaultSettingValueAttribute("")> _ Global.System.Configuration.DefaultSettingValueAttribute("")>
Public Property asdadasdasdasdasdasd() As String Public Property asdadasdasdasdasdasd() As String
Get Get
Return CType(Me("asdadasdasdasdasdasd"),String) Return CType(Me("asdadasdasdasdasdasd"), String)
End Get End Get
Set Set
Me("asdadasdasdasdasdasd") = value Me("asdadasdasdasdasdasd") = Value
End Set End Set
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=fals"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=fals" &
"e;User ID=AppUser;Password=yp/THDd?xM+pZ$;")> _ "e;User ID=AppUser;Password=yp/THDd?xM+pZ$;")>
Public ReadOnly Property FMZOLL_PRODConnectionString() As String Public ReadOnly Property FMZOLL_PRODConnectionString() As String
Get Get
Return CType(Me("FMZOLL_PRODConnectionString"),String) Return CType(Me("FMZOLL_PRODConnectionString"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=FIBU2;Integrated Security=f"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=FIBU2;Integrated Security=f" &
"alse;User ID=Aviso_User;Password=DMQRNdUCcK;")> _ "alse;User ID=Aviso_User;Password=DMQRNdUCcK;")>
Public ReadOnly Property SYSKAConnectionString() As String Public ReadOnly Property SYSKAConnectionString() As String
Get Get
Return CType(Me("SYSKAConnectionString"),String) Return CType(Me("SYSKAConnectionString"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false" &
";User ID=sa;Password=BmWr501956;")> _ ";User ID=sa;Password=BmWr501956;")>
Public ReadOnly Property ATLASConnectionString() As String Public ReadOnly Property ATLASConnectionString() As String
Get Get
Return CType(Me("ATLASConnectionString"),String) Return CType(Me("ATLASConnectionString"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=fa"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=fa" &
"lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;")> _ "lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;")>
Public ReadOnly Property ADMINConnectionString_DEV() As String Public ReadOnly Property ADMINConnectionString_DEV() As String
Get Get
Return CType(Me("ADMINConnectionString_DEV"),String) Return CType(Me("ADMINConnectionString_DEV"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;" &
"User ID=AppUser;Password=yp/THDd?xM+pZ$;")> _ "User ID=AppUser;Password=yp/THDd?xM+pZ$;")>
Public ReadOnly Property SDL_PRODConnectionString() As String Public ReadOnly Property SDL_PRODConnectionString() As String
Get Get
Return CType(Me("SDL_PRODConnectionString"),String) Return CType(Me("SDL_PRODConnectionString"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;U"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;U" &
"ser ID=AppUser;Password=yp/THDd?xM+pZ$;")> _ "ser ID=AppUser;Password=yp/THDd?xM+pZ$;")>
Public ReadOnly Property FMZOLLConnectionString() As String Public ReadOnly Property FMZOLLConnectionString() As String
Get Get
Return CType(Me("FMZOLLConnectionString"),String) Return CType(Me("FMZOLLConnectionString"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=fal"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=fal" &
"se;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool"& _ "se;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool" &
" Size=200")> _ " Size=200")>
Public ReadOnly Property AVISOConnectionStringTEST() As String Public ReadOnly Property AVISOConnectionStringTEST() As String
Get Get
Return CType(Me("AVISOConnectionStringTEST"),String) Return CType(Me("AVISOConnectionStringTEST"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=fa"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=fa" &
"lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo"& _ "lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo" &
"l Size=200")> _ "l Size=200")>
Public ReadOnly Property AVISOConnectionString() As String Public ReadOnly Property AVISOConnectionString() As String
Get Get
Return CType(Me("AVISOConnectionString"),String) Return CType(Me("AVISOConnectionString"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Per"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Per" &
"sist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCerti"& _ "sist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCerti" &
"ficate=False")> _ "ficate=False")>
Public ReadOnly Property SDLConnectionString() As String Public ReadOnly Property SDLConnectionString() As String
Get Get
Return CType(Me("SDLConnectionString"),String) Return CType(Me("SDLConnectionString"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=f"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=f" &
"alse;User ID=AppUser;Password=yp/THDd?xM+pZ$;")> _ "alse;User ID=AppUser;Password=yp/THDd?xM+pZ$;")>
Public ReadOnly Property EZOLLConnectionString() As String Public ReadOnly Property EZOLLConnectionString() As String
Get Get
Return CType(Me("EZOLLConnectionString"),String) Return CType(Me("EZOLLConnectionString"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=fa"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=fa" &
"lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo"& _ "lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo" &
"l Size=200")> _ "l Size=200")>
Public ReadOnly Property AVISO_ATILLAConnectionString() As String Public ReadOnly Property AVISO_ATILLAConnectionString() As String
Get Get
Return CType(Me("AVISO_ATILLAConnectionString"),String) Return CType(Me("AVISO_ATILLAConnectionString"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User I"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User I" &
"D=sa;Password=BmWr501956;")> _ "D=sa;Password=BmWr501956;")>
Public ReadOnly Property ATLAS_SBGConnectionString() As String Public ReadOnly Property ATLAS_SBGConnectionString() As String
Get Get
Return CType(Me("ATLAS_SBGConnectionString"),String) Return CType(Me("ATLAS_SBGConnectionString"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;Us"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;Us" &
"er ID=sa;Password=BmWr501956")> _ "er ID=sa;Password=BmWr501956")>
Public ReadOnly Property UIDConnectionString() As String Public ReadOnly Property UIDConnectionString() As String
Get Get
Return CType(Me("UIDConnectionString"),String) Return CType(Me("UIDConnectionString"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Security=fals"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Security=fals" &
"e;User ID=sa;Password=BmWr501956;")> _ "e;User ID=sa;Password=BmWr501956;")>
Public ReadOnly Property UID_PRODConnectionString() As String Public ReadOnly Property UID_PRODConnectionString() As String
Get Get
Return CType(Me("UID_PRODConnectionString"),String) Return CType(Me("UID_PRODConnectionString"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Security=false"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Security=false" &
";User ID=sa;Password=BmWr501956;")> _ ";User ID=sa;Password=BmWr501956;")>
Public ReadOnly Property FDConnectionString() As String Public ReadOnly Property FDConnectionString() As String
Get Get
Return CType(Me("FDConnectionString"),String) Return CType(Me("FDConnectionString"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User" &
" ID=sa;Password=BmWr501956;")> _ " ID=sa;Password=BmWr501956;")>
Public ReadOnly Property FD_PRODConnectionString() As String Public ReadOnly Property FD_PRODConnectionString() As String
Get Get
Return CType(Me("FD_PRODConnectionString"),String) Return CType(Me("FD_PRODConnectionString"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;U"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;U" &
"ser ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Siz"& _ "ser ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Siz" &
"e=200")> _ "e=200")>
Public ReadOnly Property DISPOConnectionStringTEST() As String Public ReadOnly Property DISPOConnectionStringTEST() As String
Get Get
Return CType(Me("DISPOConnectionStringTEST"),String) Return CType(Me("DISPOConnectionStringTEST"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
Global.System.Configuration.DefaultSettingValueAttribute("http://localhost:8733/DSFinVKService")> _ Global.System.Configuration.DefaultSettingValueAttribute("http://localhost:8733/DSFinVKService")>
Public ReadOnly Property VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer() As String Public ReadOnly Property VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer() As String
Get Get
Return CType(Me("VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer"),String) Return CType(Me("VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
Global.System.Configuration.DefaultSettingValueAttribute("http://ec.europa.eu/taxation_customs/vies/services/checkVatTestService")> _ Global.System.Configuration.DefaultSettingValueAttribute("http://ec.europa.eu/taxation_customs/vies/services/checkVatTestService")>
Public ReadOnly Property VERAG_PROG_ALLGEMEIN_eu_europa_ec_checkVatTestService() As String Public ReadOnly Property VERAG_PROG_ALLGEMEIN_eu_europa_ec_checkVatTestService() As String
Get Get
Return CType(Me("VERAG_PROG_ALLGEMEIN_eu_europa_ec_checkVatTestService"),String) Return CType(Me("VERAG_PROG_ALLGEMEIN_eu_europa_ec_checkVatTestService"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=ADMIN;Integrated Security=false;U"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=ADMIN;Integrated Security=false;U" &
"ser ID=AppUser;Password=yp/THDd?xM+pZ$;")> _ "ser ID=AppUser;Password=yp/THDd?xM+pZ$;")>
Public ReadOnly Property ADMINConnectionString() As String Public ReadOnly Property ADMINConnectionString() As String
Get Get
Return CType(Me("ADMINConnectionString"),String) Return CType(Me("ADMINConnectionString"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=Parkzeit;Integrated Security"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=ASFINAG;Integrated Security=false" &
"=false;User ID=sa;Password=BmWr501956;")> _ ";User ID=AppUser;Password=yp/THDd?xM+pZ$;")>
Public ReadOnly Property AsfinagConnectionString() As String
Get
Return CType(Me("AsfinagConnectionString"), String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=Parkzeit;Integrated Security" &
"=false;User ID=sa;Password=BmWr501956;")>
Public ReadOnly Property PARKZEITConnectionString_PROD() As String Public ReadOnly Property PARKZEITConnectionString_PROD() As String
Get Get
Return CType(Me("PARKZEITConnectionString_PROD"),String) Return CType(Me("PARKZEITConnectionString_PROD"), String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;U"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;U" &
"ser ID=sa;Password=BmWr501956;")> _ "ser ID=sa;Password=BmWr501956;")>
Public ReadOnly Property PARKZEITConnectionString_DEV() As String Public ReadOnly Property PARKZEITConnectionString_DEV() As String
Get Get
Return CType(Me("PARKZEITConnectionString_DEV"),String) Return CType(Me("PARKZEITConnectionString_DEV"), String)
End Get End Get
End Property End Property
End Class End Class
End Namespace End Namespace
Namespace My Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _ <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>
Friend Module MySettingsProperty Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>
Friend ReadOnly Property Settings() As Global.VERAG_PROG_ALLGEMEIN.My.MySettings Friend ReadOnly Property Settings() As Global.VERAG_PROG_ALLGEMEIN.My.MySettings
Get Get
Return Global.VERAG_PROG_ALLGEMEIN.My.MySettings.Default Return Global.VERAG_PROG_ALLGEMEIN.My.MySettings.Default

7
VERAG_PROG_ALLGEMEIN/My Project/Settings.settings
View File

@@ -166,5 +166,12 @@
&lt;/SerializableConnectionString&gt;</DesignTimeValue> &lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value> <Value Profile="(Default)">Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting> </Setting>
<Setting Name="AsfinagConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=ASFINAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=ASFINAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</Value>
</Setting>
</Settings> </Settings>
</SettingsFile> </SettingsFile>

4
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb
View File

@@ -35,6 +35,8 @@ Public Class cATEZ_NCTS_DATA
Public Property SendungsId As Integer Public Property SendungsId As Integer
Public Property atezId As String Public Property atezId As String
Public Property json As String Public Property json As String
Public Property dakosy_ref As String
Public Property selectedDocuments As String
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -69,6 +71,8 @@ Public Class cATEZ_NCTS_DATA
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("status", status)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("status", status))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("erstellung", erstellung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("erstellung", erstellung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("json", json)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("json", json))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dakosy_ref", dakosy_ref))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("selectedDocuments", selectedDocuments))
Return list Return list
End Function End Function

8
VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb
View File

@@ -222,12 +222,12 @@ Public Class cTimasAPI
Dim json As New Chilkat.JsonObject Dim json As New Chilkat.JsonObject
success = json.UpdateString("externid", mitarbeiter.mit_id) success = json.UpdateString("externid", mitarbeiter.mit_id)
success = json.UpdateString("markingColor", "#3acc2d") success = json.UpdateString("markingColor", "#3acc2d")
success = json.UpdateString("pnr1", mitarbeiter.mit_PersonalNr) success = json.UpdateString("pnr1", mitarbeiter.mit_PersonalNr) 'für Personalverr.
'success = json.UpdateString("pnr2", "ZZ-3A-Q") 'success = json.UpdateString("pnr2", "ZZ-3A-Q")
success = json.UpdateString("firstname", mitarbeiter.mit_vname) success = json.UpdateString("firstname", mitarbeiter.mit_vname)
success = json.UpdateString("lastname", mitarbeiter.mit_nname) success = json.UpdateString("lastname", mitarbeiter.mit_nname)
success = json.UpdateString("gender", IIf(mitarbeiter.mit_geschlecht = "m", "male", "female")) success = json.UpdateString("gender", IIf(mitarbeiter.mit_geschlecht = "m", "male", "female"))
'success = json.UpdateInt("card", 42) success = json.UpdateInt("card", mitarbeiter.mit_id)
success = json.UpdateString("info", mitarbeiter.mit_firma & " - " & mitarbeiter.mit_abteilung) success = json.UpdateString("info", mitarbeiter.mit_firma & " - " & mitarbeiter.mit_abteilung)
'success = json.UpdateString("clientNumber", "5600-02") 'success = json.UpdateString("clientNumber", "5600-02")
'success = json.UpdateInt("rfid", 178230359) 'success = json.UpdateInt("rfid", 178230359)
@@ -237,7 +237,7 @@ Public Class cTimasAPI
success = json.UpdateString("entry", CDate(mitarbeiter.mit_einstiegsdatum).ToString("yyyy-MM-dd")) success = json.UpdateString("entry", CDate(mitarbeiter.mit_einstiegsdatum).ToString("yyyy-MM-dd"))
success = json.UpdateNull("exit") success = json.UpdateNull("exit")
success = json.UpdateString("importSign", "Iimport from Aviso") success = json.UpdateString("importSign", "Import from Aviso")
success = json.UpdateString("login", mitarbeiter.mit_AliasAD_Username) success = json.UpdateString("login", mitarbeiter.mit_AliasAD_Username)
success = json.UpdateBool("loginActive", 1) success = json.UpdateBool("loginActive", 1)
success = json.UpdateString("email", mitarbeiter.mit_email) success = json.UpdateString("email", mitarbeiter.mit_email)
@@ -452,7 +452,7 @@ Public Class cTimasAPI
End If End If
If Not mitarbeiter.mit_timasId > 0 Then If Not mitarbeiter.mit_timasId > 0 Then
info = "Mitarbeiter besitzt keine TImas-Zuordnung" info = "Mitarbeiter besitzt keine Timas-Zuordnung"
Return timeEntryCreated Return timeEntryCreated
End If End If