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

Änderungen GUI sowie Anpassungen an Mobilansicht

Browse Source
This commit is contained in:
ja
2021-11-17 11:39:34 +01:00
parent a902f66b93
commit 133c8a02c8
12 changed files with 356 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Customers/Invoices.aspx.vb
View File

@@ -1,7 +1,10 @@
Imports System.Data
Imports System.Data.SqlClient
Imports System.Globalization
Imports System.IO
Imports System.Web.Services
Imports iTextSharp.text
Imports iTextSharp.text.pdf
Partial Class Customers_Default3
Inherits System.Web.UI.Page
@@ -120,14 +123,15 @@ Partial Class Customers_Default3
End If
If String.IsNullOrEmpty(t8.Text) Then
t8.BackColor = white
t8.BackColor = schwarz
t8.Width = Unit.Percentage(100)
t8.Height = Unit.Percentage(100)
Else
t8.BackColor = white
t8.ForeColor = veragblue
End If
t8.Width = Unit.Pixel(22)
t8.Height = Unit.Pixel(26)
th1.Font.Bold = True
th2.Font.Bold = True
th3.Font.Bold = True
@@ -152,7 +156,7 @@ Partial Class Customers_Default3
th6.ForeColor = white
th7.ForeColor = white
th8.ForeColor = white
th8.Width = Unit.Pixel(22)
th8.Width = Unit.Percentage(100)
End Sub
Protected Sub btn_b_Click(sender As Object, e As EventArgs)
@@ -448,16 +452,22 @@ Partial Class Customers_Default3
Dim btn As New ImageButton
btn.ViewStateMode = ViewStateMode.Enabled
btn.CssClass = "btn btn-primary"
btn.ImageUrl = "../images/Icons/main/833px-PDF_file_icon_small.gif"
btn.ImageAlign = ImageAlign.Middle
btn.ImageUrl = "../images/Icons/main/833px-PDF_file_icon_small_more.png"
btn.BackColor = Drawing.Color.FromArgb(0, Drawing.Color.GhostWhite)
btn.BorderStyle = BorderStyle.None
'Hier PDF-File creation einfügen
btn.Style.Add("Display", "table-cell")
btn.Style.Add("Vertical-align", "middle")
btn.Style.Add("margin", "2px 2px 8px 4px")
btn.ControlStyle.Width = Unit.Percentage(100)
btn.Height = Unit.Percentage(100)
'btn.Attributes.Add("href", "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString() + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString)
btn.Attributes.Add("onclick", "window.open('../pdf/Bonizertifikat.pdf')")
btn.Width = Unit.Pixel(72)
btn.Height = Unit.Pixel(56)
'btn.PostBackUrl = "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString
tbl_Cell_Info.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_Cell_Info.Width = Unit.Pixel(22)
tbl_Cell_Info.Height = Unit.Pixel(26)
tbl_Cell_Info.Width = Unit.Percentage(80)
tbl_Cell_Info.Height = Unit.Percentage(100)
tbl_Cell_Info.Controls.Add(btn)
tr.Cells.Add(tbl_Cell_Info)
initcells(tr, tbl_Cell_Index, tbl_Cell_ReNr, tbl_Cell_LKWs, tbl_Cell_Auftragsdat, tbl_Cell_KundAuftrNr, tbl_Cell_Absender, tbl_Cell_Empfaenger, tbl_Cell_Info,
@@ -528,7 +538,6 @@ Partial Class Customers_Default3
End Sub
Protected Sub valdaterange_2_ServerValidate(source As Object, args As ServerValidateEventArgs)
If Date.Parse(pickdate2.Text) > Date.ParseExact(Date.Now.ToShortDateString, "dd.MM.yyyy", provider) Then
VERAG_VARIABLES.seterrorcount(10)
lbl_status.ForeColor = Drawing.Color.Red