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
timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting)
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)
If a = vbYes 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)
If a = vbYes Then
Dim info
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in")
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.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
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.lblKontrolle = 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()
CType(Me.picVERAG, 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.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -150,7 +146,7 @@ Partial Public Class rptFrachtkostenberechnung
'PageHeader
'
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"
'
'picVERAG
@@ -166,53 +162,36 @@ Partial Public Class rptFrachtkostenberechnung
'
'lblUeberschrift
'
Me.lblUeberschrift.Height = 0.2831732!
Me.lblUeberschrift.DataField = ""
Me.lblUeberschrift.Height = 0.8665355!
Me.lblUeberschrift.HyperLink = Nothing
Me.lblUeberschrift.Left = 0!
Me.lblUeberschrift.Name = "lblUeberschrift"
Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblUeberschrift.Text = "Frachtkostenberechnung von"
Me.lblUeberschrift.Style = "color: Black; font-size: 14pt; font-weight: bold; text-align: left; ddo-char-set:" &
" 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.Width = 4.357088!
Me.lblUeberschrift.Width = 5.190552!
'
'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.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
'
Me.Line.Height = 0!
Me.Line.Left = 0!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
Me.Line.Top = 0.5700001!
Me.Line.Top = 0.08570087!
Me.Line.Width = 8.178!
Me.Line.X1 = 0!
Me.Line.X2 = 8.178!
Me.Line.Y1 = 0.5700001!
Me.Line.Y2 = 0.5700001!
Me.Line.Y1 = 0.08570087!
Me.Line.Y2 = 0.08570087!
'
'lblKontrolle
'
@@ -234,7 +213,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label1.Text = "Ware: "
Me.Label1.Top = 0.628!
Me.Label1.Top = 0.1437008!
Me.Label1.Width = 0.6872441!
'
'Label3
@@ -245,7 +224,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label3.Text = "Preis: "
Me.Label3.Top = 0.85!
Me.Label3.Top = 0.3657008!
Me.Label3.Width = 0.6872442!
'
'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: " &
"1"
Me.Label7.Text = "- inkl. Fracktkostenanteil"
Me.Label7.Top = 1.09!
Me.Label7.Top = 0.6057009!
Me.Label7.Width = 4.94!
'
'Line1
@@ -266,12 +245,12 @@ Partial Public Class rptFrachtkostenberechnung
Me.Line1.Left = 0.01!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 1.395!
Me.Line1.Top = 0.9107007!
Me.Line1.Width = 8.177999!
Me.Line1.X1 = 0.01!
Me.Line1.X2 = 8.188!
Me.Line1.Y1 = 1.395!
Me.Line1.Y2 = 1.395!
Me.Line1.Y1 = 0.9107007!
Me.Line1.Y2 = 0.9107007!
'
'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" &
"t: 1"
Me.Label8.Text = "<EFBFBD>"
Me.Label8.Top = 0.8500001!
Me.Label8.Top = 0.3657008!
Me.Label8.Width = 0.3430003!
'
'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" &
"t: 1"
Me.Label11.Text = "<EFBFBD>"
Me.Label11.Top = 1.09!
Me.Label11.Top = 0.6057009!
Me.Label11.Width = 0.3430003!
'
'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" &
"t: 1"
Me.Label12.Text = "<EFBFBD>"
Me.Label12.Top = 1.445!
Me.Label12.Top = 0.9607009!
Me.Label12.Width = 0.3430003!
'
'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: " &
"1"
Me.Label13.Text = "enthalt. Zoll"
Me.Label13.Top = 1.757!
Me.Label13.Top = 1.272701!
Me.Label13.Width = 4.077001!
'
'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" &
"t: 1"
Me.Label15.Text = "<EFBFBD>"
Me.Label15.Top = 1.757!
Me.Label15.Top = 1.272701!
Me.Label15.Width = 0.3430003!
'
'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: " &
"1"
Me.Label16.Text = "Berechnungsgrundlage Zoll"
Me.Label16.Top = 2.048!
Me.Label16.Top = 1.563701!
Me.Label16.Width = 4.983001!
'
'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" &
"t: 1"
Me.Label18.Text = "<EFBFBD>"
Me.Label18.Top = 2.048!
Me.Label18.Top = 1.563701!
Me.Label18.Width = 0.3430003!
'
'Line2
@@ -364,12 +343,12 @@ Partial Public Class rptFrachtkostenberechnung
Me.Line2.Left = 0.06!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 2.374!
Me.Line2.Top = 1.889701!
Me.Line2.Width = 8.177999!
Me.Line2.X1 = 0.06!
Me.Line2.X2 = 8.238!
Me.Line2.Y1 = 2.374!
Me.Line2.Y2 = 2.374!
Me.Line2.Y1 = 1.889701!
Me.Line2.Y2 = 1.889701!
'
'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" &
"t: 1"
Me.Label20.Text = "<EFBFBD>"
Me.Label20.Top = 2.434!
Me.Label20.Top = 1.949701!
Me.Label20.Width = 0.3430003!
'
'Line4
@@ -389,12 +368,12 @@ Partial Public Class rptFrachtkostenberechnung
Me.Line4.Left = 0.06!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 2.801!
Me.Line4.Top = 2.316701!
Me.Line4.Width = 8.177999!
Me.Line4.X1 = 0.06!
Me.Line4.X2 = 8.237999!
Me.Line4.Y1 = 2.801!
Me.Line4.Y2 = 2.801!
Me.Line4.Y1 = 2.316701!
Me.Line4.Y2 = 2.316701!
'
'Label21
'
@@ -404,7 +383,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label21.Name = "Label21"
Me.Label21.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label21.Text = "Frachtberechnung"
Me.Label21.Top = 3.059!
Me.Label21.Top = 2.574701!
Me.Label21.Width = 1.19748!
'
'Label22
@@ -415,7 +394,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label22.Name = "Label22"
Me.Label22.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label22.Text = "EU"
Me.Label22.Top = 3.34!
Me.Label22.Top = 2.8557!
Me.Label22.Width = 1.625!
'
'Label23
@@ -426,7 +405,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label23.Name = "Label23"
Me.Label23.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label23.Text = "Nicht EU"
Me.Label23.Top = 3.559!
Me.Label23.Top = 3.074701!
Me.Label23.Width = 1.625!
'
'txtWarenbezeichnung
@@ -438,7 +417,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
Me.txtWarenbezeichnung.Style = "color: Black; font-weight: bold; text-align: left"
Me.txtWarenbezeichnung.SummaryGroup = ""
Me.txtWarenbezeichnung.Top = 0.628!
Me.txtWarenbezeichnung.Text = Nothing
Me.txtWarenbezeichnung.Top = 0.1437008!
Me.txtWarenbezeichnung.Width = 3.99!
'
'txtPreis
@@ -450,7 +430,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtPreis.Name = "txtPreis"
Me.txtPreis.Style = "color: Black; font-weight: bold; text-align: left"
Me.txtPreis.SummaryGroup = ""
Me.txtPreis.Top = 0.8500001!
Me.txtPreis.Text = Nothing
Me.txtPreis.Top = 0.3657008!
Me.txtPreis.Width = 0.7525198!
'
'txtGewicht
@@ -462,7 +443,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Style = "color: Black; font-weight: bold; text-align: left"
Me.txtGewicht.SummaryGroup = ""
Me.txtGewicht.Top = 0.8499999!
Me.txtGewicht.Text = Nothing
Me.txtGewicht.Top = 0.3657007!
Me.txtGewicht.Width = 2.340157!
'
'txtWarenanteilSumme
@@ -474,7 +456,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtWarenanteilSumme.Name = "txtWarenanteilSumme"
Me.txtWarenanteilSumme.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtWarenanteilSumme.SummaryGroup = ""
Me.txtWarenanteilSumme.Top = 0.8499999!
Me.txtWarenanteilSumme.Text = Nothing
Me.txtWarenanteilSumme.Top = 0.3657007!
Me.txtWarenanteilSumme.Width = 1.554292!
'
'txtFrachtanteil
@@ -486,7 +469,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtFrachtanteil.Name = "txtFrachtanteil"
Me.txtFrachtanteil.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtFrachtanteil.SummaryGroup = ""
Me.txtFrachtanteil.Top = 1.09!
Me.txtFrachtanteil.Text = Nothing
Me.txtFrachtanteil.Top = 0.6057009!
Me.txtFrachtanteil.Width = 1.554292!
'
'txtVerzollungskosten
@@ -498,7 +482,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtVerzollungskosten.Name = "txtVerzollungskosten"
Me.txtVerzollungskosten.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtVerzollungskosten.SummaryGroup = ""
Me.txtVerzollungskosten.Top = 1.445!
Me.txtVerzollungskosten.Text = Nothing
Me.txtVerzollungskosten.Top = 0.9607009!
Me.txtVerzollungskosten.Width = 1.554292!
'
'txtZollBetrag
@@ -510,7 +495,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtZollBetrag.Name = "txtZollBetrag"
Me.txtZollBetrag.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtZollBetrag.SummaryGroup = ""
Me.txtZollBetrag.Top = 1.757!
Me.txtZollBetrag.Text = Nothing
Me.txtZollBetrag.Top = 1.272701!
Me.txtZollBetrag.Width = 1.554292!
'
'txtBGLZoll
@@ -522,7 +508,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtBGLZoll.Name = "txtBGLZoll"
Me.txtBGLZoll.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtBGLZoll.SummaryGroup = ""
Me.txtBGLZoll.Top = 2.048!
Me.txtBGLZoll.Text = Nothing
Me.txtBGLZoll.Top = 1.563701!
Me.txtBGLZoll.Width = 1.554292!
'
'txtBGLEUST
@@ -534,7 +521,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtBGLEUST.Name = "txtBGLEUST"
Me.txtBGLEUST.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtBGLEUST.SummaryGroup = ""
Me.txtBGLEUST.Top = 2.434!
Me.txtBGLEUST.Text = Nothing
Me.txtBGLEUST.Top = 1.949701!
Me.txtBGLEUST.Width = 1.554292!
'
'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: " &
"1"
Me.Label2.Text = "Berechnungsgrundlage EUST"
Me.Label2.Top = 2.434!
Me.Label2.Top = 1.949701!
Me.Label2.Width = 4.983001!
'
'txtZollInProzent
@@ -558,7 +546,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtZollInProzent.Name = "txtZollInProzent"
Me.txtZollInProzent.Style = "color: Black; font-weight: bold; text-align: left"
Me.txtZollInProzent.SummaryGroup = ""
Me.txtZollInProzent.Top = 1.757!
Me.txtZollInProzent.Text = Nothing
Me.txtZollInProzent.Top = 1.272701!
Me.txtZollInProzent.Width = 0.7860001!
'
'txtEU
@@ -570,7 +559,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtEU.Name = "txtEU"
Me.txtEU.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtEU.SummaryGroup = ""
Me.txtEU.Top = 3.341339!
Me.txtEU.Text = Nothing
Me.txtEU.Top = 2.85704!
Me.txtEU.Width = 1.553938!
'
'txtNichtEU
@@ -582,7 +572,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtNichtEU.Name = "txtNichtEU"
Me.txtNichtEU.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtNichtEU.SummaryGroup = ""
Me.txtNichtEU.Top = 3.559449!
Me.txtNichtEU.Text = Nothing
Me.txtNichtEU.Top = 3.07515!
Me.txtNichtEU.Width = 1.553938!
'
'Label4
@@ -593,7 +584,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label4.Text = "Gesamtdistanz"
Me.Label4.Top = 3.783!
Me.Label4.Top = 3.298701!
Me.Label4.Width = 1.625!
'
'txtGesamtdistanz
@@ -605,7 +596,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtGesamtdistanz.Name = "txtGesamtdistanz"
Me.txtGesamtdistanz.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtGesamtdistanz.SummaryGroup = ""
Me.txtGesamtdistanz.Top = 3.783859!
Me.txtGesamtdistanz.Text = Nothing
Me.txtGesamtdistanz.Top = 3.29956!
Me.txtGesamtdistanz.Width = 1.553938!
'
'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" &
"t: 1"
Me.Label6.Text = "km"
Me.Label6.Top = 3.340158!
Me.Label6.Top = 2.855859!
Me.Label6.Width = 0.3430003!
'
'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" &
"t: 1"
Me.Label9.Text = "km"
Me.Label9.Top = 3.558953!
Me.Label9.Top = 3.074654!
Me.Label9.Width = 0.3430003!
'
'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" &
"t: 1"
Me.Label10.Text = "km"
Me.Label10.Top = 3.782984!
Me.Label10.Top = 3.298685!
Me.Label10.Width = 0.3430003!
'
'Label14
@@ -652,7 +644,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label14.Text = "Gesamtgewicht:"
Me.Label14.Top = 4.329528!
Me.Label14.Top = 3.845229!
Me.Label14.Width = 0.95!
'
'txtAnteil
@@ -664,7 +656,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtAnteil.Name = "txtAnteil"
Me.txtAnteil.Style = "color: Black; font-weight: bold; text-align: left"
Me.txtAnteil.SummaryGroup = ""
Me.txtAnteil.Top = 4.568898!
Me.txtAnteil.Text = Nothing
Me.txtAnteil.Top = 4.084599!
Me.txtAnteil.Width = 0.8913391!
'
'Line5
@@ -673,12 +666,12 @@ Partial Public Class rptFrachtkostenberechnung
Me.Line5.Left = 0!
Me.Line5.LineWeight = 1.0!
Me.Line5.Name = "Line5"
Me.Line5.Top = 4.144882!
Me.Line5.Top = 3.660583!
Me.Line5.Width = 8.177999!
Me.Line5.X1 = 0!
Me.Line5.X2 = 8.177999!
Me.Line5.Y1 = 4.144882!
Me.Line5.Y2 = 4.144882!
Me.Line5.Y1 = 3.660583!
Me.Line5.Y2 = 3.660583!
'
'Label17
'
@@ -700,7 +693,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtWarenbezeichnung2.Name = "txtWarenbezeichnung2"
Me.txtWarenbezeichnung2.Style = "color: Black; font-weight: bold; text-align: left"
Me.txtWarenbezeichnung2.SummaryGroup = ""
Me.txtWarenbezeichnung2.Top = 4.569292!
Me.txtWarenbezeichnung2.Text = Nothing
Me.txtWarenbezeichnung2.Top = 4.084993!
Me.txtWarenbezeichnung2.Width = 2.476772!
'
'Label19
@@ -711,7 +705,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label19.Name = "Label19"
Me.Label19.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label19.Text = "Ware:"
Me.Label19.Top = 4.569292!
Me.Label19.Top = 4.084993!
Me.Label19.Width = 0.5673228!
'
'TextBox16
@@ -721,7 +715,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.TextBox16.Name = "TextBox16"
Me.TextBox16.Style = "font-weight: bold; text-align: left"
Me.TextBox16.Text = "100 %"
Me.TextBox16.Top = 4.34567!
Me.TextBox16.Top = 3.861371!
Me.TextBox16.Width = 0.8913383!
'
'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" &
"t: 1"
Me.Label24.Text = "kg"
Me.Label24.Top = 4.345276!
Me.Label24.Top = 3.860977!
Me.Label24.Width = 0.3430003!
'
'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" &
"t: 1"
Me.Label25.Text = "kg"
Me.Label25.Top = 4.568898!
Me.Label25.Top = 4.084599!
Me.Label25.Width = 0.3430003!
'
'txtGesamtgewicht
@@ -757,7 +751,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtGesamtgewicht.Name = "txtGesamtgewicht"
Me.txtGesamtgewicht.Style = "color: Black; font-weight: bold; text-align: left"
Me.txtGesamtgewicht.SummaryGroup = ""
Me.txtGesamtgewicht.Top = 4.34567!
Me.txtGesamtgewicht.Text = Nothing
Me.txtGesamtgewicht.Top = 3.861371!
Me.txtGesamtgewicht.Width = 1.144882!
'
'txtWarengewichtBrutto
@@ -769,7 +764,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtWarengewichtBrutto.Name = "txtWarengewichtBrutto"
Me.txtWarengewichtBrutto.Style = "color: Black; font-weight: bold; text-align: left"
Me.txtWarengewichtBrutto.SummaryGroup = ""
Me.txtWarengewichtBrutto.Top = 4.585433!
Me.txtWarengewichtBrutto.Text = Nothing
Me.txtWarengewichtBrutto.Top = 4.101134!
Me.txtWarengewichtBrutto.Width = 1.144882!
'
'txtWarenanteil
@@ -781,7 +777,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtWarenanteil.Name = "txtWarenanteil"
Me.txtWarenanteil.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtWarenanteil.SummaryGroup = ""
Me.txtWarenanteil.Top = 4.568898!
Me.txtWarenanteil.Text = Nothing
Me.txtWarenanteil.Top = 4.084599!
Me.txtWarenanteil.Width = 1.553937!
'
'Line6
@@ -790,12 +787,12 @@ Partial Public Class rptFrachtkostenberechnung
Me.Line6.Left = 0.05984252!
Me.Line6.LineWeight = 1.0!
Me.Line6.Name = "Line6"
Me.Line6.Top = 4.905512!
Me.Line6.Top = 4.421213!
Me.Line6.Width = 8.178!
Me.Line6.X1 = 0.05984252!
Me.Line6.X2 = 8.237843!
Me.Line6.Y1 = 4.905512!
Me.Line6.Y2 = 4.905512!
Me.Line6.Y1 = 4.421213!
Me.Line6.Y2 = 4.421213!
'
'Label26
'
@@ -805,7 +802,7 @@ Partial Public Class rptFrachtkostenberechnung
Me.Label26.Name = "Label26"
Me.Label26.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label26.Text = "Gesamtfracht: "
Me.Label26.Top = 5.111024!
Me.Label26.Top = 4.626725!
Me.Label26.Width = 0.9062992!
'
'txtGesamtfracht
@@ -817,7 +814,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtGesamtfracht.Name = "txtGesamtfracht"
Me.txtGesamtfracht.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtGesamtfracht.SummaryGroup = ""
Me.txtGesamtfracht.Top = 5.111024!
Me.txtGesamtfracht.Text = Nothing
Me.txtGesamtfracht.Top = 4.626725!
Me.txtGesamtfracht.Width = 1.779134!
'
'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" &
"t: 1"
Me.Label27.Text = "<EFBFBD>"
Me.Label27.Top = 5.110237!
Me.Label27.Top = 4.625938!
Me.Label27.Width = 0.3430003!
'
'txtGesamtfrachtanteil
@@ -842,7 +840,8 @@ Partial Public Class rptFrachtkostenberechnung
Me.txtGesamtfrachtanteil.Style = "color: Black; font-weight: bold; text-align: right"
Me.txtGesamtfrachtanteil.SummaryGroup = ""
Me.txtGesamtfrachtanteil.Tag = ""
Me.txtGesamtfrachtanteil.Top = 5.110631!
Me.txtGesamtfrachtanteil.Text = Nothing
Me.txtGesamtfrachtanteil.Top = 4.626332!
Me.txtGesamtfrachtanteil.Width = 1.554292!
'
'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" &
"t: 1"
Me.Label29.Text = "<EFBFBD>"
Me.Label29.Top = 5.111024!
Me.Label29.Top = 4.626725!
Me.Label29.Width = 0.3430003!
'
'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" &
"t: 1"
Me.Label30.Text = "<EFBFBD>"
Me.Label30.Top = 0.8496063!
Me.Label30.Top = 0.365307!
Me.Label30.Width = 0.2480315!
'
'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" &
"t: 1"
Me.Label31.Text = "x"
Me.Label31.Top = 0.8500001!
Me.Label31.Top = 0.3657008!
Me.Label31.Width = 0.2480315!
'
'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" &
"t: 1"
Me.Label32.Text = "kg"
Me.Label32.Top = 0.8496063!
Me.Label32.Top = 0.365307!
Me.Label32.Width = 0.3430003!
'
'PageFooter
@@ -964,8 +963,6 @@ Partial Public Class rptFrachtkostenberechnung
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.picVERAG, 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.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1026,8 +1023,6 @@ Partial Public Class rptFrachtkostenberechnung
End Sub
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
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 Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
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;" />
<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=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>
<startup>
<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 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
Public Shared Function GetWEBConnectionString() As String
'Properties.Settings.Default.
@@ -90,6 +116,19 @@ Public Class SQL
End If
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
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
Return My.MySettings.Default.FDConnectionString
@@ -226,6 +265,19 @@ Public Class SQL
End Try
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
Public Shared Function GetNewOpenConnectionPARKZEIT(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
@@ -263,6 +315,19 @@ Public Class SQL
End Try
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
Public Shared Function GetNewOpenConnectionSCANCANON(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
@@ -449,6 +514,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
@@ -460,6 +526,7 @@ Public Class SQL
Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA()
Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
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.Open()
@@ -493,6 +560,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
@@ -529,6 +597,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
@@ -596,6 +665,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
@@ -648,6 +718,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
@@ -692,6 +763,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
@@ -733,6 +805,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
@@ -768,6 +841,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
@@ -832,6 +906,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
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 & "' " &
" 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)
Dim dr As SqlDataReader = cmd.ExecuteReader()
If dr.HasRows Then
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)
End If
dr.Close()
End Using
conn.Close()
Dim dr As SqlDataReader = cmd.ExecuteReader()
If dr.HasRows Then
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)
End If
dr.Close()
End Using
conn.Close()
End If
Return s

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

@@ -13,17 +13,18 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.3.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.6.0.0"),
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
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"
#If _MyType = "WindowsForms" Then
#If _MYTYPE = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
@@ -36,11 +37,11 @@ Namespace My
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
#If _MYTYPE = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
@@ -53,331 +54,342 @@ Namespace My
Return defaultInstance
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.99;Initial Catalog=Therefore;Integrated Security=false;User"& _
" ID=sa;Password=BmWr501956;")> _
<Global.System.Configuration.UserScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.99;Initial Catalog=Therefore;Integrated Security=false;User" &
" ID=sa;Password=BmWr501956;")>
Public Property SCANCANON_PRODConnectionString() As String
Get
Return CType(Me("SCANCANON_PRODConnectionString"),String)
Return CType(Me("SCANCANON_PRODConnectionString"), String)
End Get
Set
Me("SCANCANON_PRODConnectionString") = value
Me("SCANCANON_PRODConnectionString") = Value
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
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.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
Global.System.Configuration.DefaultSettingValueAttribute("http://ec.europa.eu/taxation_customs/vies/services/checkVatService")>
Public ReadOnly Property VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService() As String
Get
Return CType(Me("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"),String)
Return CType(Me("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"), String)
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
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"& _
"l Size=200")> _
<Global.System.Configuration.UserScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
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" &
"l Size=200")>
Public Property DISPOConnectionString() As String
Get
Return CType(Me("DISPOConnectionString"),String)
Return CType(Me("DISPOConnectionString"), String)
End Get
Set
Me("DISPOConnectionString") = value
Me("DISPOConnectionString") = Value
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl), _
Global.System.Configuration.DefaultSettingValueAttribute("https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
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
Get
Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService"),String)
Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService"), String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
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.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
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
Get
Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService"),String)
Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService"), String)
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
<Global.System.Configuration.UserScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.DefaultSettingValueAttribute("")>
Public Property asdadasdasdasdasdasd() As String
Get
Return CType(Me("asdadasdasdasdasdasd"),String)
Return CType(Me("asdadasdasdasdasdasd"), String)
End Get
Set
Me("asdadasdasdasdasdasd") = value
Me("asdadasdasdasdasdasd") = Value
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
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"& _
"e;User ID=AppUser;Password=yp/THDd?xM+pZ$;")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
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" &
"e;User ID=AppUser;Password=yp/THDd?xM+pZ$;")>
Public ReadOnly Property FMZOLL_PRODConnectionString() As String
Get
Return CType(Me("FMZOLL_PRODConnectionString"),String)
Return CType(Me("FMZOLL_PRODConnectionString"), 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=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=FIBU2;Integrated Security=f"& _
"alse;User ID=Aviso_User;Password=DMQRNdUCcK;")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
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" &
"alse;User ID=Aviso_User;Password=DMQRNdUCcK;")>
Public ReadOnly Property SYSKAConnectionString() As String
Get
Return CType(Me("SYSKAConnectionString"),String)
Return CType(Me("SYSKAConnectionString"), 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=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false"& _
";User ID=sa;Password=BmWr501956;")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
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" &
";User ID=sa;Password=BmWr501956;")>
Public ReadOnly Property ATLASConnectionString() As String
Get
Return CType(Me("ATLASConnectionString"),String)
Return CType(Me("ATLASConnectionString"), 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=ADMIN;Integrated Security=fa"& _
"lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;")> _
<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=ADMIN;Integrated Security=fa" &
"lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;")>
Public ReadOnly Property ADMINConnectionString_DEV() As String
Get
Return CType(Me("ADMINConnectionString_DEV"),String)
Return CType(Me("ADMINConnectionString_DEV"), 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=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;"& _
"User ID=AppUser;Password=yp/THDd?xM+pZ$;")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
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;" &
"User ID=AppUser;Password=yp/THDd?xM+pZ$;")>
Public ReadOnly Property SDL_PRODConnectionString() As String
Get
Return CType(Me("SDL_PRODConnectionString"),String)
Return CType(Me("SDL_PRODConnectionString"), 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=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;U"& _
"ser ID=AppUser;Password=yp/THDd?xM+pZ$;")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
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" &
"ser ID=AppUser;Password=yp/THDd?xM+pZ$;")>
Public ReadOnly Property FMZOLLConnectionString() As String
Get
Return CType(Me("FMZOLLConnectionString"),String)
Return CType(Me("FMZOLLConnectionString"), 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=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"& _
" Size=200")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
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" &
"se;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool" &
" Size=200")>
Public ReadOnly Property AVISOConnectionStringTEST() As String
Get
Return CType(Me("AVISOConnectionStringTEST"),String)
Return CType(Me("AVISOConnectionStringTEST"), 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=AVISO;Integrated Security=fa"& _
"lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo"& _
"l Size=200")> _
<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=AVISO;Integrated Security=fa" &
"lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo" &
"l Size=200")>
Public ReadOnly Property AVISOConnectionString() As String
Get
Return CType(Me("AVISOConnectionString"),String)
Return CType(Me("AVISOConnectionString"), 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=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"& _
"ficate=False")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
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" &
"sist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCerti" &
"ficate=False")>
Public ReadOnly Property SDLConnectionString() As String
Get
Return CType(Me("SDLConnectionString"),String)
Return CType(Me("SDLConnectionString"), 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=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=f"& _
"alse;User ID=AppUser;Password=yp/THDd?xM+pZ$;")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
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" &
"alse;User ID=AppUser;Password=yp/THDd?xM+pZ$;")>
Public ReadOnly Property EZOLLConnectionString() As String
Get
Return CType(Me("EZOLLConnectionString"),String)
Return CType(Me("EZOLLConnectionString"), 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=AVISO;Integrated Security=fa"& _
"lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo"& _
"l Size=200")> _
<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=AVISO;Integrated Security=fa" &
"lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo" &
"l Size=200")>
Public ReadOnly Property AVISO_ATILLAConnectionString() As String
Get
Return CType(Me("AVISO_ATILLAConnectionString"),String)
Return CType(Me("AVISO_ATILLAConnectionString"), 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=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User I"& _
"D=sa;Password=BmWr501956;")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
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" &
"D=sa;Password=BmWr501956;")>
Public ReadOnly Property ATLAS_SBGConnectionString() As String
Get
Return CType(Me("ATLAS_SBGConnectionString"),String)
Return CType(Me("ATLAS_SBGConnectionString"), 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=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;Us"& _
"er ID=sa;Password=BmWr501956")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
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" &
"er ID=sa;Password=BmWr501956")>
Public ReadOnly Property UIDConnectionString() As String
Get
Return CType(Me("UIDConnectionString"),String)
Return CType(Me("UIDConnectionString"), 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=UID;Integrated Security=fals"& _
"e;User ID=sa;Password=BmWr501956;")> _
<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=UID;Integrated Security=fals" &
"e;User ID=sa;Password=BmWr501956;")>
Public ReadOnly Property UID_PRODConnectionString() As String
Get
Return CType(Me("UID_PRODConnectionString"),String)
Return CType(Me("UID_PRODConnectionString"), 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=FD;Integrated Security=false"& _
";User ID=sa;Password=BmWr501956;")> _
<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=FD;Integrated Security=false" &
";User ID=sa;Password=BmWr501956;")>
Public ReadOnly Property FDConnectionString() As String
Get
Return CType(Me("FDConnectionString"),String)
Return CType(Me("FDConnectionString"), 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=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User"& _
" ID=sa;Password=BmWr501956;")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
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" &
" ID=sa;Password=BmWr501956;")>
Public ReadOnly Property FD_PRODConnectionString() As String
Get
Return CType(Me("FD_PRODConnectionString"),String)
Return CType(Me("FD_PRODConnectionString"), 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=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"& _
"e=200")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
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" &
"ser ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Siz" &
"e=200")>
Public ReadOnly Property DISPOConnectionStringTEST() As String
Get
Return CType(Me("DISPOConnectionStringTEST"),String)
Return CType(Me("DISPOConnectionStringTEST"), String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl), _
Global.System.Configuration.DefaultSettingValueAttribute("http://localhost:8733/DSFinVKService")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
Global.System.Configuration.DefaultSettingValueAttribute("http://localhost:8733/DSFinVKService")>
Public ReadOnly Property VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer() As String
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 Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
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.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
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
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 Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
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"& _
"ser ID=AppUser;Password=yp/THDd?xM+pZ$;")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
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" &
"ser ID=AppUser;Password=yp/THDd?xM+pZ$;")>
Public ReadOnly Property ADMINConnectionString() As String
Get
Return CType(Me("ADMINConnectionString"),String)
Return CType(Me("ADMINConnectionString"), 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;")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=ASFINAG;Integrated Security=false" &
";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
Get
Return CType(Me("PARKZEITConnectionString_PROD"),String)
Return CType(Me("PARKZEITConnectionString_PROD"), 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=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;U"& _
"ser ID=sa;Password=BmWr501956;")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;U" &
"ser ID=sa;Password=BmWr501956;")>
Public ReadOnly Property PARKZEITConnectionString_DEV() As String
Get
Return CType(Me("PARKZEITConnectionString_DEV"),String)
Return CType(Me("PARKZEITConnectionString_DEV"), String)
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>
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
Get
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>
<Value Profile="(Default)">Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</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>
</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 atezId 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
@@ -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("erstellung", erstellung))
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
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
success = json.UpdateString("externid", mitarbeiter.mit_id)
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("firstname", mitarbeiter.mit_vname)
success = json.UpdateString("lastname", mitarbeiter.mit_nname)
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("clientNumber", "5600-02")
'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.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.UpdateBool("loginActive", 1)
success = json.UpdateString("email", mitarbeiter.mit_email)
@@ -452,7 +452,7 @@ Public Class cTimasAPI
End If
If Not mitarbeiter.mit_timasId > 0 Then
info = "Mitarbeiter besitzt keine TImas-Zuordnung"
info = "Mitarbeiter besitzt keine Timas-Zuordnung"
Return timeEntryCreated
End If