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 Dim timeEntryExisting As Boolean = False
timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting) timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting)
If Not timeEntryExisting Then If Not timeEntryExisting Then
Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & "als Startzeit erfassen?", vbYesNo) Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst!" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)
If a = vbYes Then If a = vbYes Then
Dim info Dim info
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in") timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in")
MsgBox(info) MsgBox(info)

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

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

4
VERAG_PROG_ALLGEMEIN/App.config
View File

@@ -44,7 +44,9 @@
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ADMINConnectionString_DEV" <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$;" /> 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" <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> </connectionStrings>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/> <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 If
End Function End Function
Public Shared Function GetAsfinagConnectionString(TESTSYSTEM) As String
If TESTSYSTEM Then
Return My.MySettings.Default.AsfinagConnectionString()
Else
Try
Return My.MySettings.Default.FMZOLL_PRODConnectionString
Catch ex As Exception
' Return "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;"
Return "Data Source=192.168.0.91\Asfinag;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;"
End Try
End If
End Function
Public Shared Function GetFDConnectionString() As String Public Shared Function GetFDConnectionString() As String
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
Return My.MySettings.Default.FDConnectionString Return My.MySettings.Default.FDConnectionString
@@ -212,6 +225,19 @@ Public Class SQL
End Try End Try
Return Nothing Return Nothing
End Function
Public Shared Function GetNewOpenConnectionAsfinag(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
Try
cn.ConnectionString = 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 End Function
Public Shared Function GetNewOpenConnectionWEB(Optional pooling As Boolean = True) As SqlConnection Public Shared Function GetNewOpenConnectionWEB(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection() Dim cn As New SqlConnection()
@@ -237,6 +263,19 @@ Public Class SQL
End Try End Try
Return Nothing Return Nothing
End Function
Public Shared Function GetNewOpenConnectionFAsfinag_SYSTEM(TESTSYSTEM As Boolean, Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
Try
cn.ConnectionString = GetAsfinagConnectionString(TESTSYSTEM) & IIf(pooling, "", ";pooling=false")
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
End Function End Function
Public Shared Function GetNewOpenConnectionSCANCANON(Optional pooling As Boolean = True) As SqlConnection Public Shared Function GetNewOpenConnectionSCANCANON(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection() Dim cn As New SqlConnection()
@@ -423,6 +462,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "DISPO" : conn = GetNewOpenConnectionDISPO() Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
@@ -433,6 +473,7 @@ Public Class SQL
Case "WEB" : conn = GetNewOpenConnectionWEB() Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA() Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA()
Case "AVISO_ATILLA" Case "AVISO_ATILLA"
conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"
conn.Open() conn.Open()
@@ -466,6 +507,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "DISPO" : conn = GetNewOpenConnectionDISPO() Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
@@ -501,6 +543,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
@@ -567,6 +610,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "DISPO" : conn = GetNewOpenConnectionDISPO() Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
@@ -618,6 +662,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "DISPO" : conn = GetNewOpenConnectionDISPO() Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
@@ -661,6 +706,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
@@ -701,6 +747,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
@@ -735,6 +782,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
@@ -798,6 +846,7 @@ Public Class SQL
Case "SDL" : conn = GetNewOpenConnectionSDL() Case "SDL" : conn = GetNewOpenConnectionSDL()
Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL() Case "FMZOLL" : conn = GetNewOpenConnectionFMZOLL()
Case "ADMIN" : conn = GetNewOpenConnectionADMIN() Case "ADMIN" : conn = GetNewOpenConnectionADMIN()
Case "ASFINAG" : conn = GetNewOpenConnectionAsfinag()
Case "ATLAS" : conn = GetNewOpenConnectionATLAS() Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG() Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL() Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()

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

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.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)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Public NotInheritable Class MySettings Partial Public NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -345,6 +345,17 @@ Namespace My
Return CType(Me("ADMINConnectionString"),String) Return CType(Me("ADMINConnectionString"),String)
End Get End Get
End Property 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 Class
End Namespace End Namespace

7
VERAG_PROG_ALLGEMEIN/My Project/Settings.settings
View File

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

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

@@ -34,6 +34,8 @@ Public Class cATEZ_NCTS_DATA
Public Property SendungsId As Integer Public Property SendungsId As Integer
Public Property atezId As String Public Property atezId As String
Public Property json As String Public Property json As String
Public Property dakosy_ref As String
Public Property selectedDocuments As String
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -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("status", status))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("erstellung", erstellung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("erstellung", erstellung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("json", json)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("json", json))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dakosy_ref", dakosy_ref))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("selectedDocuments", selectedDocuments))
Return list Return list
End Function End Function

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

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