Modifier ParametreField pour chaque facture

Version imprimable

Bonjour

Sur une application que je travail je doit éditer une ou plusieurs factures (avec le montant en letrres) à la fois

pour avoir le montant en lettres j'ai la fonction

ConvertMontantLettre(Num Facture) as string

et dont mon etat j'ai une "ParametreField" pour lui affecter le montant en letrre

Mon problème est :
si j'édit une seule facture

Code:

report.SetParameterValue("MontantEnLettres", ConvertMontantLettre(Num_Facture).ToUpper)

par contre si je veux éditer plusieurs factures

je ne vois pas comment modifier ce "ParametreField" pour chaque facture ...?????

et voici la procédure d'édition des factures
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub ImprimerFacture(ByVal Facture1 As String, ByVal Facture2 As String, ByVal Date1 As DateTime, ByVal Date2 As DateTime) 'Editer les facture entre Facture1 et facture2 et date1 et date2 Try With FrmEtatFacturation Dim report As New CR_Facturation_Facture report.SetParameterValue("@Facture1", Facture1) report.SetParameterValue("@Facture2", Facture2) report.SetParameterValue("@Date1", Date1) report.SetParameterValue("@Date2", Date2) report.SetParameterValue("MontantEnLettres", Ltr.ConvMontantLettre(Facture1).ToUpper) .CRView_Facturation.ReportSource = report .Show() End With Catch ex As Exception .............. End Try End Sub
Merci

- tu peux créer une classe avec les objets à passer en paramètre à ta procédure d'édition. La classe aura comme membres: NumeroFacture et DateFacture. Soit ParamEdition cette classe;

- tu créer ensuite une liste de ParamEdition.

- Tu boucles avec un foreach sur la liste et tu appelles ta procédure d'édition en passant les paramètres:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Dim lstParametres As New List(Of ParamEdition)
ParamEdition param1 = new ParamEdition() 
param1.NumeroFacture = "FACT252"
param1.DateFacture= "12/09/2012"
lstParametres.Add(param1)
 
ParamEdition param2 = new ParamEdition() 
param2.NumeroFacture = "FACT722"
param2.DateFacture= "09/10/2013"
lstParametres.Add(param2)
'.........
ParamEdition paramN = new ParamEdition() 
paramN.NumeroFacture = "FACTN..."
paramN.DateFacture= "12/11/2013"
lstParametres.Add(paramN)
 
For Each item In lstParametres
   ImprimerFacture(item.NumeroFacture, item.DateFacture) 
Next
 
Sub ImprimerFacture(ByVal MaFacture As String, ByVal MaDateFacture As DateTime)
            'Edite les facture de la liste
            Try
                With FrmEtatFacturation
                    Dim report As New CR_Facturation_Facture
                    report.SetParameterValue("@NumeroFacture", MaFacture)
                    report.SetParameterValue("@DateFacturation", MaDateFacture)
                    report.SetParameterValue("@MontantEnLettres", Ltr.ConvMontantLettre(MaFacture).ToUpper) 
                    .CRView_Facturation.ReportSource = report
                    .Show()
                End With
            Catch ex As Exception
                   ..............
            End Try
        End Sub

13/11/2013, 12h56
abd75web

Merci pour la proposition

mais se que je veux éviter c'est d'appler la procédure "ImprimerFacture" plusieurs fois

Se que je veux c'est appeler un seul etat qui contient plusieurs factures et pour chaque facture son montant en lettres et n'est pas appeler plusieurs etats contenant une seule facture