Discussion :

[abd75web]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[callo]

- 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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