fbenoist68
/
mobileportal
1
0
Fork 0
Code Issues 739 Pull Requests Packages Projects Releases Wiki Activity

[FogBugz #120] Promo commercant - ticket bloqué #182

New Issue
Open
opened 2023-07-03 23:37:23 +02:00 by fbenoist68 · 4 comments
fbenoist68 commented 2023-07-03 23:37:23 +02:00
Owner

Assigned To: Frederik Benoist
Project: CAISSE
Area: awcaisse
Category: Bogue
Priority: A fixer impérativement

Assigned To: Frederik Benoist Project: CAISSE Area: awcaisse Category: Bogue Priority: A fixer impérativement
fbenoist68 commented 2023-07-03 23:37:24 +02:00
Poster
Owner

Event ID: 508
Date: 2013-04-04T12:47:59Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist

If TicketL.pPromoCommercant.pIdPromoCommercant = PromoCommercant.pIdPromoCommercant Then

>> TicketL.pPromoCommercant  = nothing et PromoCommercant = nothing donc on a

"La référence d'objet n'est pas définie à une instance d'un objet.   à bTicketLigne.cTicketLigne.get_pMontantProduitPromo(cPromoCommercant PromoCommercant) dans C:\projets\DotSoft\CaisseAuto\bTicketLigne\cTicketLigne\cTicketLigne.vb:ligne 2495"

 

Il faut faire des tests isnot nothing

 

 

 

Event ID: 508 Date: 2013-04-04T12:47:59Z Person: Frederik Benoist Description: Modifié par Frederik Benoist <p> If TicketL.pPromoCommercant.pIdPromoCommercant = PromoCommercant.pIdPromoCommercant Then</p> <p> &gt;&gt;&nbsp;TicketL.pPromoCommercant&nbsp; = nothing et PromoCommercant = nothing donc on a</p> <p> &quot;La r&eacute;f&eacute;rence d&#39;objet n&#39;est pas d&eacute;finie &agrave; une instance d&#39;un objet.&nbsp;&nbsp; &agrave; bTicketLigne.cTicketLigne.get_pMontantProduitPromo(cPromoCommercant PromoCommercant) dans C:\projets\DotSoft\CaisseAuto\bTicketLigne\cTicketLigne\cTicketLigne.vb:ligne 2495&quot;</p> <p> &nbsp;</p> <p> Il faut faire des tests <strong>isnot nothing</strong></p> <p> &nbsp;</p> <p> &nbsp;</p> <p> &nbsp;</p>
fbenoist68 commented 2023-07-03 23:37:26 +02:00
Poster
Owner

Event ID: 507
Date: 2013-04-04T12:46:06Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist

C:\projets\DotSoft\CaisseAuto\bTicketLigne\cTicketLigne\cTicketLigne.vb

 

Private ReadOnly Property pMontantProduitPromo(ByVal PromoCommercant As cPromoCommercant) As Decimal

Get

pMontantProduitPromo = 0

Dim LstLigne As New ArrayList

For Each TicketL As cTicketLigne In Me.vLstLigneTicketTotal

If Not TicketL.pTicketLigneParent Is Nothing Then

Select Case TicketL.pTypLigneTicket

Case eTypLigneTicket.extension_garantie, eTypLigneTicket.produit_standard, eTypLigneTicket.indefini, eTypLigneTicket.Produit_Speciale

Case eTypLigneTicket.remise_commercant_ligne, eTypLigneTicket.remise_commercant_pied, eTypLigneTicket.Remise_Sous_Total

If TicketL.pPromoCommercant.pIdPromoCommercant = PromoCommercant.pIdPromoCommercant Then

If Not LstLigne.Contains(TicketL.pTicketLigneParent.pIdLigne) Then LstLigne.Add(TicketL.pTicketLigneParent.pIdLigne)

End If

End Select

End If

Next

For Each IdLigne As Integer In LstLigne

pMontantProduitPromo += Me.vLstLigneTicketTotal.pItem(IdLigne).pPrixBrutRemise(, , PromoCommercant) ' * Me.vLstLigneTicketTotal.pItem(IdLigne).pQuantite

Next

End Get

End Property

Event ID: 507 Date: 2013-04-04T12:46:06Z Person: Frederik Benoist Description: Modifié par Frederik Benoist <p> C:\projets\DotSoft\CaisseAuto\bTicketLigne\cTicketLigne\cTicketLigne.vb</p> <p> &nbsp;</p> <p> Private ReadOnly Property pMontantProduitPromo(ByVal PromoCommercant As cPromoCommercant) As Decimal</p> <p> Get</p> <p> pMontantProduitPromo = 0</p> <p> Dim LstLigne As New ArrayList</p> <p> For Each TicketL As cTicketLigne In Me.vLstLigneTicketTotal</p> <p> If Not TicketL.pTicketLigneParent Is Nothing Then</p> <p> Select Case TicketL.pTypLigneTicket</p> <p> Case eTypLigneTicket.extension_garantie, eTypLigneTicket.produit_standard, eTypLigneTicket.indefini, eTypLigneTicket.Produit_Speciale</p> <p> Case eTypLigneTicket.remise_commercant_ligne, eTypLigneTicket.remise_commercant_pied, eTypLigneTicket.Remise_Sous_Total</p> <p> If TicketL.pPromoCommercant.pIdPromoCommercant = PromoCommercant.pIdPromoCommercant Then</p> <p> If Not LstLigne.Contains(TicketL.pTicketLigneParent.pIdLigne) Then LstLigne.Add(TicketL.pTicketLigneParent.pIdLigne)</p> <p> End If</p> <p> End Select</p> <p> End If</p> <p> Next</p> <p> For Each IdLigne As Integer In LstLigne</p> <p> pMontantProduitPromo += Me.vLstLigneTicketTotal.pItem(IdLigne).pPrixBrutRemise(, , PromoCommercant) &#39; * Me.vLstLigneTicketTotal.pItem(IdLigne).pQuantite</p> <p> Next</p> <p> End Get</p> <p> End Property</p>
fbenoist68 commented 2023-07-03 23:37:27 +02:00
Poster
Owner

Event ID: 506
Date: 2013-04-04T12:45:02Z
Person: Frederik Benoist
Description: Attribué à Frederik Benoist par Frederik Benoist

Event ID: 506 Date: 2013-04-04T12:45:02Z Person: Frederik Benoist Description: Attribué à Frederik Benoist par Frederik Benoist
fbenoist68 commented 2023-07-03 23:37:29 +02:00
Poster
Owner

Event ID: 505
Date: 2013-04-04T12:45:02Z
Person: Frederik Benoist
Description: Ouvert par Frederik Benoist

Event ID: 505 Date: 2013-04-04T12:45:02Z Person: Frederik Benoist Description: Ouvert par Frederik Benoist
Sign in to join this conversation.
No Branch/Tag Specified
Branches Tags
main
Labels
Clear labels
No items
No Label
Milestone
Clear milestone
No items
No Milestone
Projects
Clear projects
No project
Assignees
Clear assignees
No Assignees
1 Participants
Notifications
Due Date
The due date is invalid or out of range. Please use the format 'yyyy-mm-dd'.

No due date set.

Dependencies

No dependencies set.

Reference: fbenoist68/mobileportal#182
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?