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