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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-06-24 23:04:15 +02:00
parent 5187fe0e71
commit 2d06d935ef
38 changed files with 6730 additions and 1088 deletions
Download Patch File Download Diff File Expand all files Collapse all files

145
Aviso/WLAN/cWLANTicket.vb Normal file
View File

@@ -0,0 +1,145 @@

Imports System.IO
Class sWLANTicket
Public Shared Function printTicket(Optional AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing) As Boolean
Dim usr As String = ""
Dim pwd As String = ""
If genTicket(usr, pwd) Then
Dim rpt As New rptWLANTicket()
rpt.TextBox4.Text = Now.ToShortDateString & " " & Now.ToShortTimeString
rpt.TextBox9.Text = Now.AddHours(24).ToShortDateString & " " & Now.AddHours(24).ToShortTimeString
rpt.TextBox1.Text = usr
rpt.TextBox5.Text = pwd
rpt.TextBox11.Text = "FrontOffice_Guest"
If AVISO IsNot Nothing Then
rpt.TextBox13.Text = AVISO.LKW_Nr
rpt.TextBox15.Text = AVISO.Frächter
End If
Dim printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("EPSON", True)
If printer <> "" Then
SDL.cProgramFunctions.printRpt(rpt, printer, True)
Else
SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
End If
Return True
End If
Return False
End Function
Public Shared Function genTicket(Optional ByRef user As String = "", Optional ByRef pwd As String = "") As Boolean
'Dim a, b As String
user = UsernamePasswordGenerator("u")
pwd = UsernamePasswordGenerator("p")
Return AddGastWLANUser(user, pwd)
' MsgBox(a & vbCrLf & b)
End Function
Public Shared Function UsernamePasswordGenerator(x As String, Optional ByVal Zeichenanzahl As Integer = 6) As String ' wenn u dann Username, sonst Password
Dim str As String
Dim up As String
If x = "u" Then
str = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Else
str = "0123456789"
End If
Dim r As New Random
For i As Integer = 0 To Zeichenanzahl - 1
up &= str(r.Next(0, str.Length)).ToString
Next
Return up
'MsgBox(up)
End Function
Public Shared Function AddGastWLANUser(Username As String, Optional ByVal Password As String = "verag1", Optional ByVal Zugangsdaten As String = "WLANAdmin@192.168.0.97 -pw 6a0D5Ys93uugLi3uVciV", Optional ByVal AblaufZeit As Integer = 2)
Try
If Not File.Exists(Application.StartupPath & "\Resources\WLAN\AddWLANUser.bat") Then File.Create(Application.StartupPath & "\Resources\WLAN\AddWLANUser.bat")
Dim AddWLANUser As String = Application.StartupPath & "\Resources\WLAN\AddWLANUser.bat"
Dim exptime As String = Date.Now.AddHours(AblaufZeit).ToString("yyyy-MM-dd HH:mm")
Dim battext As String = ""
battext = "(
echo configure terminal
echo dynamic-guest username " & Username & "
echo password " & Password & "
echo expire-time " & exptime & "
echo group Fahrer_Gruppe
echo exit
echo exit
echo exit
) | plink -ssh " & Zugangsdaten & "
exit"
WriteToFile(AddWLANUser, battext)
Threading.Thread.Sleep(1500)
Dim Add As New Process
Add.StartInfo.FileName = Application.StartupPath & "\Resources\WLAN\RunNHide.exe"
Add.StartInfo.Arguments = AddWLANUser
Add.Start()
Return True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return False
End Try
End Function
Public Shared Function DeleteGastWLANUser(Username As String, Optional ByVal Zugangsdaten As String = "WLANAdmin@192.168.0.97 -pw 6a0D5Ys93uugLi3uVciV")
Try
If Not File.Exists(Application.StartupPath & "\Resources\WLAN\DELWLANUser.bat") Then File.Create(Application.StartupPath & "\Resources\WLAN\DELWLANUser.bat")
Dim DELWLANUser As String = Application.StartupPath & "\Resources\WLAN\DELWLANUser.bat"
Dim battext As String = ""
battext = "(
echo configure terminal
echo no dynamic-guest " & Username & "
echo exit
echo exit
echo exit
) | plink -ssh " & Zugangsdaten & "
exit"
WriteToFile(DELWLANUser, battext)
Threading.Thread.Sleep(1500)
Dim del As New Process
del.StartInfo.FileName = Application.StartupPath & "\Resources\WLAN\RunNHide.exe"
del.StartInfo.Arguments = DELWLANUser
del.Start()
'Process.Start(Application.StartupPath & "\RunNHide.exe " & DELWLANUser)
Return True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return False
End Try
End Function
Public Shared Function WriteToFile(filepath As String, texttowrite As String)
Try
Dim objWriter As New System.IO.StreamWriter(filepath)
objWriter.Write(texttowrite)
objWriter.Close()
Return True
Catch ex As Exception
MsgBox(filepath & vbCrLf & " konnte nicht geschrieben werden." & vbCrLf & ex.Message)
Return False
End Try
End Function
End Class

343
Aviso/WLAN/rptWLANTicket.Designer.vb generated Normal file
View File

@@ -0,0 +1,343 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptWLANTicket
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptWLANTicket))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox13 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox14 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox15 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox16 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox15, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Picture1
'
Me.Picture1.DataField = ""
Me.Picture1.Height = 0.6043308!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
Me.Picture1.Left = 0.02165365!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture1.Top = 0!
Me.Picture1.Width = 2.638189!
'
'Detail
'
Me.Detail.Height = 0!
Me.Detail.Name = "Detail"
'
'TextBox3
'
Me.TextBox3.Height = 0.17!
Me.TextBox3.Left = 0!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.OutputFormat = resources.GetString("TextBox3.OutputFormat")
Me.TextBox3.Style = "font-size: 9pt; font-weight: normal; text-justify: distribute; ddo-char-set: 0"
Me.TextBox3.Text = "Username:"
Me.TextBox3.Top = 1.890945!
Me.TextBox3.Width = 1.13189!
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture1, Me.TextBox3, Me.TextBox2, Me.TextBox6, Me.TextBox1, Me.TextBox4, Me.TextBox5, Me.TextBox7, Me.TextBox8, Me.TextBox9, Me.TextBox10, Me.TextBox11, Me.TextBox12, Me.TextBox13, Me.TextBox14, Me.TextBox15, Me.TextBox16})
Me.ReportHeader1.Height = 4.02126!
Me.ReportHeader1.Name = "ReportHeader1"
'
'TextBox2
'
Me.TextBox2.Height = 0.17!
Me.TextBox2.Left = 0!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.OutputFormat = resources.GetString("TextBox2.OutputFormat")
Me.TextBox2.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox2.Text = "Start Date:"
Me.TextBox2.Top = 1.12126!
Me.TextBox2.Width = 1.13189!
'
'TextBox6
'
Me.TextBox6.Height = 0.17!
Me.TextBox6.Left = 0!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.OutputFormat = resources.GetString("TextBox6.OutputFormat")
Me.TextBox6.Style = "font-size: 9pt; font-weight: normal; text-justify: distribute; ddo-char-set: 0"
Me.TextBox6.Text = "Password:"
Me.TextBox6.Top = 2.175591!
Me.TextBox6.Width = 1.13189!
'
'TextBox1
'
Me.TextBox1.Height = 0.2845668!
Me.TextBox1.Left = 0.8716536!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.OutputFormat = resources.GetString("TextBox1.OutputFormat")
Me.TextBox1.Style = "font-size: 16pt; font-weight: bold; text-align: left; text-justify: distribute; d" &
"do-char-set: 0"
Me.TextBox1.Text = "USER"
Me.TextBox1.Top = 1.823622!
Me.TextBox1.Width = 1.714961!
'
'TextBox4
'
Me.TextBox4.Height = 0.17!
Me.TextBox4.Left = 0.8716536!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.OutputFormat = resources.GetString("TextBox4.OutputFormat")
Me.TextBox4.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
Me.TextBox4.Text = "Date:"
Me.TextBox4.Top = 1.12126!
Me.TextBox4.Width = 1.714961!
'
'TextBox5
'
Me.TextBox5.Height = 0.2845668!
Me.TextBox5.Left = 0.8716536!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.OutputFormat = resources.GetString("TextBox5.OutputFormat")
Me.TextBox5.Style = "font-size: 16pt; font-weight: bold; text-align: left; text-justify: distribute; d" &
"do-char-set: 0"
Me.TextBox5.Text = "Password:"
Me.TextBox5.Top = 2.108268!
Me.TextBox5.Width = 1.714961!
'
'TextBox7
'
Me.TextBox7.Height = 0.2845668!
Me.TextBox7.Left = 0!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.OutputFormat = resources.GetString("TextBox7.OutputFormat")
Me.TextBox7.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-decoration: underlin" &
"e; text-justify: distribute; ddo-char-set: 0"
Me.TextBox7.Text = "WLAN-Ticket"
Me.TextBox7.Top = 0.6940945!
Me.TextBox7.Width = 2.586614!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'TextBox8
'
Me.TextBox8.Height = 0.17!
Me.TextBox8.Left = 0.0000003688037!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.OutputFormat = resources.GetString("TextBox8.OutputFormat")
Me.TextBox8.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox8.Text = "End Date:"
Me.TextBox8.Top = 1.293701!
Me.TextBox8.Width = 1.13189!
'
'TextBox9
'
Me.TextBox9.Height = 0.17!
Me.TextBox9.Left = 0.8716537!
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.OutputFormat = resources.GetString("TextBox9.OutputFormat")
Me.TextBox9.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
Me.TextBox9.Text = "Date:"
Me.TextBox9.Top = 1.293701!
Me.TextBox9.Width = 1.71496!
'
'TextBox10
'
Me.TextBox10.Height = 0.17!
Me.TextBox10.Left = 0!
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.OutputFormat = resources.GetString("TextBox10.OutputFormat")
Me.TextBox10.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox10.Text = "WLAN Name:"
Me.TextBox10.Top = 1.499213!
Me.TextBox10.Width = 1.13189!
'
'TextBox11
'
Me.TextBox11.Height = 0.17!
Me.TextBox11.Left = 0.871653!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.OutputFormat = resources.GetString("TextBox11.OutputFormat")
Me.TextBox11.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
Me.TextBox11.Text = "Date:"
Me.TextBox11.Top = 1.499213!
Me.TextBox11.Width = 1.71496!
'
'TextBox12
'
Me.TextBox12.Height = 0.17!
Me.TextBox12.Left = 0!
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.OutputFormat = resources.GetString("TextBox12.OutputFormat")
Me.TextBox12.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox12.Text = "Truck-Nr:"
Me.TextBox12.Top = 2.511024!
Me.TextBox12.Width = 1.13189!
'
'TextBox13
'
Me.TextBox13.Height = 0.17!
Me.TextBox13.Left = 0.8716528!
Me.TextBox13.Name = "TextBox13"
Me.TextBox13.OutputFormat = resources.GetString("TextBox13.OutputFormat")
Me.TextBox13.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
Me.TextBox13.Text = "Date:"
Me.TextBox13.Top = 2.511024!
Me.TextBox13.Width = 1.71496!
'
'TextBox14
'
Me.TextBox14.Height = 0.17!
Me.TextBox14.Left = 0!
Me.TextBox14.Name = "TextBox14"
Me.TextBox14.OutputFormat = resources.GetString("TextBox14.OutputFormat")
Me.TextBox14.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox14.Text = "Company:"
Me.TextBox14.Top = 2.681103!
Me.TextBox14.Width = 1.13189!
'
'TextBox15
'
Me.TextBox15.Height = 0.17!
Me.TextBox15.Left = 0.8716528!
Me.TextBox15.Name = "TextBox15"
Me.TextBox15.OutputFormat = resources.GetString("TextBox15.OutputFormat")
Me.TextBox15.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
Me.TextBox15.Text = "Date:"
Me.TextBox15.Top = 2.681103!
Me.TextBox15.Width = 1.71496!
'
'TextBox16
'
Me.TextBox16.Height = 1.170079!
Me.TextBox16.Left = 0!
Me.TextBox16.Name = "TextBox16"
Me.TextBox16.OutputFormat = resources.GetString("TextBox16.OutputFormat")
Me.TextBox16.Style = "font-size: 7pt; font-weight: normal; text-align: justify; text-justify: auto; ver" &
"tical-align: middle; ddo-char-set: 0"
Me.TextBox16.Text = resources.GetString("TextBox16.Text")
Me.TextBox16.Top = 2.851181!
Me.TextBox16.Width = 2.659843!
'
'rptWLANTicket
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 2.659842!
Me.ScriptLanguage = "VB.NET"
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox15, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Friend WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox13 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox14 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox16 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox15 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

1882
Aviso/WLAN/rptWLANTicket.resx Normal file
View File

File diff suppressed because it is too large Load Diff

8
Aviso/WLAN/rptWLANTicket.vb Normal file
View File

@@ -0,0 +1,8 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports VERAG_PROG_ALLGEMEIN
Public Class rptWLANTicket
End Class