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

Änderung gui button pdf

Browse Source
This commit is contained in:
ja
2021-11-03 17:02:19 +01:00
parent 580799933e
commit 5eace02936
4 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Customers/Invoices.aspx
View File

@@ -183,7 +183,7 @@
<asp:TableHeaderCell ID="tbl_HeaderCell_KundenAuftrNummer" runat="server" AbbreviatedText="Cust. Order Num">Customer Order Number</asp:TableHeaderCell> <asp:TableHeaderCell ID="tbl_HeaderCell_KundenAuftrNummer" runat="server" AbbreviatedText="Cust. Order Num">Customer Order Number</asp:TableHeaderCell>
<asp:TableHeaderCell ID="tbl_HeaderCell_Absender" runat="server" AbbreviatedText="Sender">Sender</asp:TableHeaderCell> <asp:TableHeaderCell ID="tbl_HeaderCell_Absender" runat="server" AbbreviatedText="Sender">Sender</asp:TableHeaderCell>
<asp:TableHeaderCell ID="tbl_HeaderCell_Empfaenger" runat="server" AbbreviatedText="Reciev">Reciever</asp:TableHeaderCell> <asp:TableHeaderCell ID="tbl_HeaderCell_Empfaenger" runat="server" AbbreviatedText="Reciev">Reciever</asp:TableHeaderCell>
<asp:TableHeaderCell ID="tbl_HeaderCell_Info" runat="server" AbbreviatedText="Info">Information</asp:TableHeaderCell> <asp:TableHeaderCell ID="tbl_HeaderCell_Info" runat="server" Width="36.7px" Height="39.330122116689285px" AbbreviatedText="Info">Information</asp:TableHeaderCell>
</asp:TableHeaderRow> </asp:TableHeaderRow>
</asp:Table> </asp:Table>
</div> </div>

6
Customers/Invoices.aspx.vb
View File

@@ -110,6 +110,8 @@ Partial Class Customers_Default3
t8.BackColor = white t8.BackColor = white
t8.ForeColor = veragblue t8.ForeColor = veragblue
End If End If
t8.Width = Unit.Pixel(36.7)
th1.Font.Bold = True th1.Font.Bold = True
th2.Font.Bold = True th2.Font.Bold = True
th3.Font.Bold = True th3.Font.Bold = True
@@ -134,6 +136,7 @@ Partial Class Customers_Default3
th6.ForeColor = white th6.ForeColor = white
th7.ForeColor = white th7.ForeColor = white
th8.ForeColor = white th8.ForeColor = white
th8.Width = Unit.Pixel(36.7)
End Sub End Sub
Protected Sub btn_b_Click(sender As Object, e As EventArgs) Protected Sub btn_b_Click(sender As Object, e As EventArgs)
@@ -435,8 +438,11 @@ Partial Class Customers_Default3
btn.ImageUrl = "../images/pdficon.gif" btn.ImageUrl = "../images/pdficon.gif"
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("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("Target", "_blank") btn.Attributes.Add("Target", "_blank")
btn.Width = Unit.Percentage(100)
btn.Height = Unit.Percentage(100)
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 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.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_Cell_Info.Width = Unit.Pixel(36.7)
tbl_Cell_Info.Controls.Add(btn) tbl_Cell_Info.Controls.Add(btn)
tr.Cells.Add(tbl_Cell_Info) 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, 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,

6
Customers/pdfviewer.aspx
View File

@@ -41,11 +41,7 @@
<br /> <br />
<h3>Hier finden Sie Informationen zu der Rechnung: <%=VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(Request.QueryString("P3")) %> der Filiale <%=VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(Request.QueryString("P1")) %></h3> <h3>Hier finden Sie Informationen zu der Rechnung: <%=VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(Request.QueryString("P3")) %> der Filiale <%=VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(Request.QueryString("P1")) %></h3>
<div class="container-fluid"> <div class="container-fluid">
<form id="form1">
<%Dim view As Spire.PdfViewer.Forms.PdfViewer = New Spire.PdfViewer.Forms.PdfViewer()
Dim pdf As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = New VERAG_PROG_ALLGEMEIN.cRechnungsausgang()
' view.LoadFromFile(pdf.LOAD(VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(Request.QueryString("P1")), VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(Request.QueryString("P2")), True), "") %>
</form>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>

1
Customers/pdfviewer.aspx.vb
View File

@@ -14,6 +14,7 @@ Partial Class Customers_Default3
End If End If
If Page.IsPostBack = True Then If Page.IsPostBack = True Then
Page.MaintainScrollPositionOnPostBack = True Page.MaintainScrollPositionOnPostBack = True
Else Else
Page.MaintainScrollPositionOnPostBack = False Page.MaintainScrollPositionOnPostBack = False
End If End If