168 lines
5.2 KiB
VB.net
168 lines
5.2 KiB
VB.net
Imports GrapeCity.ActiveReports
|
|
|
|
Public Class frmTIR_alt
|
|
|
|
|
|
Private Sub frmTIR_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
Me.Height = Screen.FromPoint(Cursor.Position).WorkingArea.Size.Height
|
|
Me.Top = 0
|
|
|
|
AddHandler UsrCntlTIR1.DGVchanged, AddressOf UsrCntlTIR1_SomethChanged
|
|
|
|
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
|
btnLaden.Visible = False
|
|
End If
|
|
|
|
lblGedruckt.Visible = False
|
|
|
|
cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0", "0"))
|
|
cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12", "12"))
|
|
cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("14", "14"))
|
|
cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17", "17"))
|
|
cboAbriss777.changeItem("12")
|
|
|
|
cProgramFunctions.initDrucker(cboPrinter, "TALLY")
|
|
|
|
End Sub
|
|
|
|
Private Sub print_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim rpt As New rptTIR_alt(cboAbriss777._value)
|
|
|
|
Dim anzahl_778 As Integer = 0
|
|
|
|
rpt.txtAbgangszollstelle1.Text = If(UsrCntlTIR1.txtAbgangszollstelle1.Text, "")
|
|
rpt.txtAbgangszollstelle2.Text = If(UsrCntlTIR1.txtAbgangszollstelle2.Text, "")
|
|
rpt.txtAbgangszollstelle3.Text = If(UsrCntlTIR1.txtAbgangszollstelle3.Text, "")
|
|
|
|
|
|
rpt.txtAbfahrsland.Text = If(UsrCntlTIR1.txtAbfahrtsland.Text, "")
|
|
rpt.txtBestimmungsland.Text = If(UsrCntlTIR1.txtBestimmungsland.Text, "")
|
|
rpt.txtFahrzeug.Text = If(UsrCntlTIR1.txtFahrzeug1.Text, "")
|
|
rpt.txtZusDok.Text = If(UsrCntlTIR1.txtZusDocument.Text, "")
|
|
|
|
|
|
|
|
|
|
rpt.txtGesamtpaket1.Text = If(UsrCntlTIR1.txtGesamtpaket1.Text, "")
|
|
rpt.txtGesamtpaket2.Text = If(UsrCntlTIR1.txtGesamtpaket2.Text, "")
|
|
rpt.txtGesamtpaket3.Text = If(UsrCntlTIR1.txtGesamtpaket3.Text, "")
|
|
|
|
|
|
|
|
rpt.txtGesamtpaketName1.Text = If(UsrCntlTIR1.txtGesamtpaketName1.Text, "")
|
|
rpt.txtGesamtpaketName2.Text = If(UsrCntlTIR1.txtGesamtpaketName2.Text, "")
|
|
rpt.txtGesamtpaketName3.Text = If(UsrCntlTIR1.txtGesamtpaketName3.Text, "")
|
|
|
|
|
|
|
|
rpt.txtMain1.Text = ""
|
|
rpt.txtMain2.Text = ""
|
|
rpt.txtMain3.Text = ""
|
|
|
|
|
|
For Each r As DataGridViewRow In UsrCntlTIR1.dgvGegenstände.Rows
|
|
If r IsNot Nothing Then
|
|
|
|
rpt.txtMain1.Text &= If(r.Cells(0).Value <> "", r.Cells(0).Value & vbNewLine, "")
|
|
rpt.txtMain2.Text &= If(r.Cells(1).Value <> "", r.Cells(1).Value & " ", "")
|
|
rpt.txtMain2.Text &= If(r.Cells(2).Value <> "", r.Cells(2).Value & vbNewLine, "")
|
|
rpt.txtMain3.Text &= If(r.Cells(3).Value <> "", r.Cells(3).Value & vbNewLine, "")
|
|
|
|
|
|
End If
|
|
Next
|
|
|
|
rpt.txtSumme.Text = lblEigenmasse.Text
|
|
|
|
Try
|
|
rpt.Run(False)
|
|
rpt.Document.Printer.PrinterName = cboPrinter._value
|
|
rpt.Document.Print(CBool(cboPrinter.Text = ""), False)
|
|
rpt.Dispose()
|
|
lblGedruckt.Visible = True
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
|
|
Me.Cursor = Cursors.Default
|
|
|
|
End Sub
|
|
|
|
Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
|
|
|
|
For Each c As Control In UsrCntlTIR1.Controls
|
|
If TypeOf c Is RichTextBox Then
|
|
c.Text = ""
|
|
End If
|
|
|
|
If TypeOf c Is DataGridView Then
|
|
Dim dgv As DataGridView = c
|
|
dgv.Rows.Clear()
|
|
For i As Integer = 0 To 10
|
|
dgv.Rows.Add("", "", "", "")
|
|
Next
|
|
|
|
End If
|
|
|
|
Next
|
|
lblGedruckt.Visible = False
|
|
|
|
End Sub
|
|
|
|
Private Sub btnLaden_Click(sender As Object, e As EventArgs) Handles btnLaden.Click
|
|
|
|
UsrCntlTIR1.txtAbgangszollstelle1.Text = "Testtext1"
|
|
UsrCntlTIR1.txtAbgangszollstelle2.Text = "Testtext2"
|
|
UsrCntlTIR1.txtAbgangszollstelle3.Text = "Testtext3"
|
|
|
|
|
|
UsrCntlTIR1.txtAbfahrtsland.Text = "TestABFL"
|
|
UsrCntlTIR1.txtBestimmungsland.Text = "TestBESTL"
|
|
UsrCntlTIR1.txtFahrzeug1.Text = "XXXXXXX" & vbNewLine & "Fahrezeug 1"
|
|
UsrCntlTIR1.txtZusDocument.Text = "Testtext1"
|
|
|
|
UsrCntlTIR1.dgvGegenstände.Rows.Clear()
|
|
|
|
For i As Integer = 0 To 10
|
|
If i < 4 Then
|
|
UsrCntlTIR1.dgvGegenstände.Rows.Add(i & "-Test", "Testtext", "Text", i & "")
|
|
Else
|
|
UsrCntlTIR1.dgvGegenstände.Rows.Add("", "", "", "")
|
|
End If
|
|
|
|
Next
|
|
|
|
UsrCntlTIR1.txtGesamtpaket1.Text = "Paket1"
|
|
UsrCntlTIR1.txtGesamtpaket2.Text = "Paket2"
|
|
UsrCntlTIR1.txtGesamtpaket3.Text = "Paket3"
|
|
|
|
|
|
|
|
UsrCntlTIR1.txtGesamtpaketName1.Text = "1"
|
|
UsrCntlTIR1.txtGesamtpaketName2.Text = "2"
|
|
UsrCntlTIR1.txtGesamtpaketName3.Text = "3"
|
|
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub UsrCntlTIR1_SomethChanged() Handles UsrCntlTIR1.DGVchanged
|
|
|
|
Dim count As Double = 0
|
|
|
|
For Each r As DataGridViewRow In UsrCntlTIR1.dgvGegenstände.Rows
|
|
|
|
If r IsNot Nothing And IsNumeric(r.Cells(3).Value) Then
|
|
count += CDbl(r.Cells(3).Value)
|
|
End If
|
|
|
|
|
|
Next
|
|
|
|
lblEigenmasse.Text = count & " kg"
|
|
|
|
End Sub
|
|
End Class |