dotNETportal.cz

Dobrý den,

v článku "Platnost stránky při návratu" ze dne 03.09.2009 jsem chtěl vyřešit problém se zobrazováním stránky pro náhled a tisk obhodních podmínek.

Nyní se problém pokouším vyřešit následovně:

Na stránce s registračním formulářem "NewUser_F.aspx" mám umístěné tlačítko "IButtonPrint_04" s událostí OnClik ...

<asp:ImageButton ID="IButtonPrint_04" runat="server" ImageUrl="~/images/ico_print.gif" ToolTip="Tisk smlouvy" OnClick="IButtonPrint_04_Click"></asp:ImageButton>

Dále jsem vytvořil nový soubor "window.js" pro otevření stránky "ContractF_print.aspx" s obhodními podmínkami ...

<!--

function window {
var url;
var wWidth, wHeight, wLeft, wTop;
var scrWidth, scrHeight;
var screen;

url = urlparam;

scrWidth = window.screen.width();
scrHeight = window.screen.height();

if (scrWidth > 800) {wWidth = 800;}
else {wWidth = scrWidth;}

if (scrHeight > 600) {wHeight = 600;}
else {wHeight = scrHeight;}

wLeft = (scrWidth / 2) - (wWidth / 2);
wTop = (scrHeight / 2) - (wHeight / 2);

screen = window.open(url + ", 'smlouva', 'width=" + wWidth + ", height=" + wHeight + ", left=" + wLeft + ", top=" + wTop + ", menubar=0, toolbar=1, location=0,scroolbars=1, resizable=1'");
screen.focus();

}

//-->

Po kliknutí na tlačítko "IButtonPrint_04" se spustí následující procedura:

    'Tisk obchodních podmínek (otevření sestavy)
    Protected Sub IButtonPrint_04_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        
        Dim T1 As String
        If TimeFromToBox.Text = "" Then
            T1 = ""
        Else
            T1 = TimeFromToBox.Text.Substring(0, 2) & TimeFromToBox.Text.Substring(3, 2)
        End If
        
        Dim T2 As String
        If TimeToFromBox.Text = "" Then
            T2 = ""
        Else
            T2 = TimeToFromBox.Text.Substring(0, 2) & TimeToFromBox.Text.Substring(3, 2)
        End If
        
        Dim p1 As String = "p1=" & CompanyNameBox.Text.ToString() & "&"
        Dim p2 As String = "p2=" & AdressStreetBox.Text.ToString() & "&"
        Dim p3 As String = "p3=" & AdressNumberBox.Text.ToString() & "&"
        Dim p4 As String = "p4=" & AdressZipCodeBox.Text.ToString() & "&"
        Dim p5 As String = "p5=" & AdressCityBox.Text.ToString() & "&"
        Dim p6 As String = "p6=" & DICBox.Text.ToString() & "&"
        Dim p7 As String = "p7=" & ICBox.Text.ToString() & "&"
        Dim p8 As String = "p8=" & CType(Contract.FindControl("lbl_ContractDate"), Label).Text & "&"
        Dim p9 As String = "p9=" & (TimeFromBox.Text.Substring(0, 2) & TimeFromBox.Text.Substring(3, 2)).ToString() & "&"
        Dim p10 As String = "p10=" & T1.ToString() & "&"
        Dim p11 As String = "p11=" & T2.ToString() & "&"
        Dim p12 As String = "p12=" & (TimeToBox.Text.Substring(0, 2) & TimeToBox.Text.Substring(3, 2)).ToString() & "&"
        Dim p13 As String = "p13=" & DeliveryStreetBox.Text.ToString() & "&"
        Dim p14 As String = "p14=" & DeliveryNumberBox.Text.ToString() & "&"
        Dim p15 As String = "p15=" & DeliveryZipCodeBox.Text.ToString() & "&"
        Dim p16 As String = "p16=" & DeliveryCityBox.Text.ToString()
        
        Dim urlparam As String = "'ContractF_print.aspx?" & p1 & p2 & p3 & p4 & p5 & p6 & p7 & p8 & p9 & p10 & p11 & p12 & p13 & p14 & p15 & p16 & "'"
        
    End Sub

ve které ukládám do proměnné "urlparam" adresu stránky s parametry a potřebuji, aby se tato hodnota předala do scriptu "window.js" a spustil se tento skrypt...

Zkoušel jsem do procedury "IButtonPrint_04_Click" vložit

Server.MapPath("~/window.js")

, ale nefungovalo to.

Nevíte jak postupovat?