Application ASP.NET : Datagrid vers Export crystal report puis vers Word automat

Question

Bonjour tout le monde !!

Je viens vous demander un coup de main car je ne me sors pas du probl&#232;me que j'essaye de r&#233;soudre.

J'ai fait une appli en ASP.NET (VB.NET behind) qui g&#232;re des donn&#233;es provenant d'une base SQLServer 2000.

Elle fonctionne sans probl&#232;me, visualisation, saisie, modification, etats CrystalReport et exports Excel, Word, PDF.

Cependant, mon client me demande une subtilit&#233; dans les &#233;ditions.

Je dispose d'une page aspx contenant une datagrid me donnant une liste de bons de commande suivant une requete ex&#233;cut&#233;e &#224; la vol&#233;e. Pour cela pas de soucis. Ensuite, j'ai une page impressions.aspx qui contient un crystalviewer dont la source d&#233;pend d'un param&#232;tre dans la chaine request. Si je d&#233;sire le bon seul, j'envoie 'impression.aspx?doc=BonCommande&numBon=' & DBG_LSTBONS.selectedItem.cells(1).text, sinon si je souhaite les lignes du bon de commande, j'envoie 'impression.aspx?doc=LignesBon&numBon=' & DBG_LSTBONS.selectedItem.cells(1).text. 

Ces instructions sont mise dans un HyperLink serveur de mani&#232;re &#224; pouvoir ouvrir une popup et surtout d&#233;finir la cible dynamiquement.

Mon probl&#232;me est maintenant le suivant : 
A partir de la liste, mon client me demande de faire en sorte que lorsqu'il demande l'impression d'un bon, les lignes du bon sont &#233;galement imprim&#233;es. Je ne vois donc qu'une seule mani&#232;re de faire cela qui serait d'ouvrir deux popups dont chacune pointerait sur la page impressions.aspx mais avec le param&#232;tre qu'il faut.

Seulement je ne vois pas comment faire.

Si quelqu'un pouvait m'aider, ca me d&#233;pannerais grandement.

Merci d'avance.

cs_Yopyop · Answer

re,


je pense que cela d&#233;pend beaucoup de ta page impression.aspx.


D'apr&#232;s ce que je peux voir elle permet d'imprimer le bon ou les lignes du bon.


Ne peut tu pas envoyer doc=BonEtLignes&numBon=' & DBG_LSTBONS.selectedItem.cells(1).text

et imprimer le tout ?
 

yopyop

satanik_mike · Answer

Salut,

Si, cela serait une solution, seulement il faudrait donc pour cela que j'ai deux cristal viewer pour pour monter 2 etats. Cela risque d'&#234;tre assez g&#233;nant pour les utilisateurs.

Merci pour ta r&#233;ponse

cs_Yopyop · Answer

pourquoi ne pas cr&#233;er un nouveau rapport (crystal report) qui incorpore les deux d&#233;j&#224; existants?

yopyop

satanik_mike · Answer

Salut,

Bonne id&#233;e, mais les deux rapports doivent &#234;tre ensuite exportable dans deux fichiers diff&#233;rents (normalement le bon en word car modifiable et les lignes en pdf car non modifiables)

Je sais, j'suis ch****t mais bon ...

cs_Yopyop · Answer

et alors ?

tu forward la request sur ta page d'impression et ensuite sur ta page 
qui g&#233;n&#232;re les fichiers...

voit pas le probl&#232;me ?

yopyop

satanik_mike · Answer

Re ... Le problème est simplement que la page qui contient le CRV et qui génère les doc sont une seule et même page. Voici le code de ma page impression.aspx si cela peut aider. Mais donne moi un peu plus de précisions sur ta drnière réponse, je suis pas sûr d'avoir bine saisi. Merci 'Pour info : l'objet boncde est en fait une classe qui stocke les informations du bon, ainsi que 2 datatables qui contiennent les infos des lignes de bons et des lignes facture(sans importance). Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared Public Class Impression Inherits System.Web.UI.Page #Region " Code gnr par le Concepteur Web Form " 'Cet appel est requis par le Concepteur Web Form. Private Sub InitializeComponent() End Sub Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents BT_ENVOI As System.Web.UI.WebControls.Button Protected WithEvents CRViewer As CrystalDecisions.Web.CrystalReportViewer Protected WithEvents RD_DESTINATION As System.Web.UI.WebControls.RadioButtonList 'REMARQUE: la dclaration d'espace rserv suivante est requise par le Concepteur Web Form. 'Ne pas supprimer ou dplacer. Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: cet appel de mthode est requis par le Concepteur Web Form 'Ne le modifiez pas en utilisant l'diteur de code. InitializeComponent() End Sub #End Region Public doc As String Public numbon As Integer Private Function RemplitEtat() As ReportDocument Dim temprep As New ReportDocument doc = Request.QueryString.Item("doc") numbon = Convert.ToInt32(Request.QueryString.Item("numbon")) 'Selon les paramtres, je slectionne la source de CRViewer Dim logonInfo As New TableLogOnInfo Dim tbReport As Table Dim selFormule As String Try temprep.Load(Server.MapPath(doc & ".rpt")) 'Mise en page de l'tat temprep.PrintOptions.PaperSize = PaperSize.PaperA4 temprep.PrintOptions.PaperOrientation = PaperOrientation.Portrait If doc <> "BonCommande" Then 'Impression d'une fiche Sigef ou Factures 'Je dispose donc des infos contenues dans lesobjets de traitements des bons selFormule "{BonCde.An_BonCde} """ & bonCde.Exercice & """ and {BonCde.Ordonnateur} = """ & _ bonCde.Ordonnateur & """ and {BonCde.N_Cde} = " & bonCde.numBon temprep.RecordSelectionFormula = selFormule Else 'Passage des paramtres de la procdure stocke temprep.SetParameterValue("@Ordo", Request.QueryString.Item("Ordonnateur")) temprep.SetParameterValue("@Annee", Request.QueryString.Item("Annee")) temprep.SetParameterValue("@Bon", Convert.ToInt32(Request.QueryString.Item("NumBon"))) End If ' Dfinir les informations de connexion pour chaque table de l'tat For Each tbReport In temprep.Database.Tables ' Extraire l'objet TableLogonInfo. logonInfo = tbReport.LogOnInfo ' Dfinir le serveur ou le nom de la source de donnes ODBC, le nom de la base de donnes, ' l'ID utilisateur et le mot de passe. logonInfo.ConnectionInfo.ServerName = ConfigurationSettings.AppSettings("serverSql") logonInfo.ConnectionInfo.DatabaseName = ConfigurationSettings.AppSettings("database") logonInfo.ConnectionInfo.UserID = ConfigurationSettings.AppSettings("userSqlServer") logonInfo.ConnectionInfo.Password = ConfigurationSettings.AppSettings("passSqlServer") ' Appliquer les informations de connexion la table. tbReport.ApplyLogOnInfo(logonInfo) Next tbReport Return temprep Catch ex As Exception HttpContext.Current.Response.Write("Erreur lors de l'ouverture de l'tat : " & Server.MapPath(doc & ".rpt")) Exit Function End Try End Function Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not IsPostBack() Or report Is Nothing Then report = RemplitEtat() End If CRViewer.ReportSource = report End Sub Private Sub BT_ENVOI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_ENVOI.Click Dim fic As String, path As String path = Server.MapPath(".") & "" 'Attention, si l'etat est dj charg je ne le regnre pas If Not report.IsLoaded Then report = RemplitEtat() Try Select Case RD_DESTINATION.SelectedIndex Case 0 'PDF fic = Request.QueryString.Item("doc") & "_" & gh_Utilisateur & ".pdf" report.ExportToDisk(ExportFormatType.PortableDocFormat, path & fic) Case 1 'word fic = Request.QueryString.Item("doc") & "_" & gh_Utilisateur & ".doc" report.ExportToDisk(ExportFormatType.WordForWindows, path & fic) Case 2 'excel fic = Request.QueryString.Item("doc") & "_" & gh_Utilisateur & ".xls" report.ExportToDisk(ExportFormatType.Excel, path & fic) End Select Catch ex As Exception Response.Write("Erreur lors de l'exportation de l'tat : " & ex.Message) Exit Sub End Try report.Close() report.Dispose() report = Nothing CRViewer.Dispose() Response.Redirect(fic) End Sub End Class

cs_Yopyop · Answer

oki,

le probl&#232;me (si j'ai bien compris), c'est que ton code n'imprime pas les documents automatiquement, mais il les g&#233;n&#232;re et ensuite les ouvre pour que l'utilisateur puisse
les imprimer ... c'est ca ?
En fait ta page impression n'imprime rien, mais elle g&#233;n&#232;re des documents 
c'est bien ca ?

Maintenant ton user ne veux pas l'un ou l'autre des documents, mais les deux->
g&#233;n&#233;ration des 2 rapports->2 fen&#234;tres avec chacune 1 rapport &#224; imprimer...

Si c'est bien le ca, tu vas &#234;tre oblig&#233; d'ouvrir 2 fen&#234;tres car tu doit g&#233;n&#233;rer un
pdf et un word dans ce cas (j'ai bien compris?).

L'id&#233;e serait donc d'ouvrir une seule fen&#234;tre avec les deux docuements...

Est-ce que tu as pens&#233; a utiliser des frames ?
Une fen&#234;tre en trois parties:
1. Le document Word
2. Le document PDF
3. Le bouton print qui fait un print des 2 documents...

Ca irait ca ?

je vais manger miam:)

yopyop

satanik_mike · Answer

Re,

En effet, c'est bien le fonctionnement actuel mais qui est vou&#233; a changer. Mais ca on verra plus tard.

En plus, les utilisateurs utilisent plusieurs navigateurs diff&#233;rents et certains n'acceptent pas les frames, ce qui m'obligerait &#224; rajouter un traitement (que je ne connais pas encore) qui ferait un chargement diff&#233;rent selon le type de navigateur.

Ta solution serait effectivement envisageable, seulement j'ai peur de ne pas avoir le temps n&#233;cessaire pour la d&#233;velopper. En fait, je pense que le plus simple serait que le bouton qui demande l'ouverture de la page impressions.aspx puisse ouvrir 2 fen&#234;tres chargeant la page impression.aspx avec chacune des param&#232;tres diff&#233;rents. 
J'ai fait une &#233;bauche avec un script javascript sur le bouton appelant, mais je ne parviens pas &#224; r&#233;cup&#233;rer le num&#233;ro du bon s&#233;lectionn&#233; dans la datagrid d'origine.

Merci de ton inter&#234;t,

cs_Yopyop · Answer

re, si tu te bases sur une id de base de données tu peux utiliser Datakeys dans ta datagrid et la passer en paramètre à ta page. ou si tu as déjà l'id tu mets un itemtemplate avec [impression.aspx?doc=BonCommande&numBon= <%#Convert.ToString(DataBinder.Eval(Container.DataItem, imprimer bon] ou si tu passes par un javascript [# );">print both documents] et maFonctionJavascript(iId) recoit l'id et fait 2 window.open. <%# Convert.ToString(DataBinder.Eval(Container.DataItem,"Id")) %> yopyop

satanik_mike · Answer

Merci,

Ca correspond plus &#224; ce que je recherche. Je fais l'essai et je te tiens au courant de ce que ca donne.

Merci encore de m'avoir accord&#233; du temps.

Application ASP.NET : Datagrid vers Export crystal report puis vers Word automat

10 réponses

Votre réponse

Discussions similaires