[FogBugz #225] Montants différents entre entre client_facture et client_facture_ligne #287
Loading…
Reference in New Issue
There is no content yet.
Delete Branch "%!s(<nil>)"
Deleting a branch is permanent. Although the deleted branch may exist for a short time before cleaning up, in most cases it CANNOT be undone. Continue?
Assigned To: Frederik Benoist
Project: CAISSE
Area: awcaisse
Category: Bogue
Priority: A fixer impérativement
Event ID: 978
Date: 2013-11-19T13:30:47Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist
C:\projets\DotSoft\CaisseAuto\bTicketLigne\cTicketLigne\cTicketLignes.vb
Public Function mCalculerTotalTtc(Optional ByVal PromoCommercantPied As cPromoCommercant = Nothing) As Decimal ' Implements iTicketLignes.mCalculerTotalTtc
Dim totalTtc As Decimal = 0
For Each TicketL As cTicketLigne In Me
If TicketL.pSupprime Then Continue For
Select Case TicketL.pTypLigneTicket
Case eTypLigneTicket.extension_garantie, eTypLigneTicket.produit_standard, eTypLigneTicket.retour_produit, eTypLigneTicket.Produit_Speciale, eTypLigneTicket.Eco_Part, eTypLigneTicket.extension_garantie
totalTtc += TicketL.pAPayer(, , PromoCommercantPied)
Case eTypLigneTicket.remise_commercant_pied, eTypLigneTicket.remise_promo_pied, eTypLigneTicket.Remise_Sous_Total
If Not (Me.vTicketEntete.pModeTicket = eTypModeTicket.Commande_Stock AndAlso Me.vTicketEntete.pModeReservationKeria) Then
If PromoCommercantPied Is Nothing Then totalTtc += TicketL.pAPayer
End If
'If PromoCommercantPied Is Nothing Then TotalTTC += TicketL.pAPayer
End Select
Next
Return totalTtc
End Function
Event ID: 977
Date: 2013-11-19T13:29:52Z
Person: Frederik Benoist
Description: Attribué à Frederik Benoist par Frederik Benoist
Event ID: 976
Date: 2013-11-19T13:29:51Z
Person: Frederik Benoist
Description: Ouvert par Frederik Benoist