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

Azet, TimasAPI, Asfinag

Browse Source
This commit is contained in:
d.breimaier
2023-08-28 17:14:53 +02:00
parent 7f403e3604
commit 03638e668e
8 changed files with 178 additions and 110 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

4
VERAG_PROG_ALLGEMEIN/App.config
View File

@@ -44,7 +44,9 @@
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ADMINConnectionString_DEV"
connectionString="Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ADMINConnectionString"
connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" />
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"/>

49
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -76,6 +76,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
@@ -212,6 +225,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 = GetFMZOLLConnectionString() & 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 GetNewOpenConnectionWEB(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
@@ -237,6 +263,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()
@@ -423,6 +462,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()
@@ -433,6 +473,7 @@ Public Class SQL
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA()
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()
@@ -466,6 +507,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()
@@ -501,6 +543,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()
@@ -567,6 +610,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()
@@ -618,6 +662,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()
@@ -661,6 +706,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()
@@ -701,6 +747,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()
@@ -735,6 +782,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()
@@ -798,6 +846,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()

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

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.2.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)> _
Partial Public NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -345,6 +345,17 @@ Namespace My
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=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
End Class
End Namespace

7
VERAG_PROG_ALLGEMEIN/My Project/Settings.settings
View File

@@ -152,5 +152,12 @@
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</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

@@ -34,6 +34,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
@@ -67,6 +69,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