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

[FogBugz #260] Points PROMO calculés sur prix brut #323

New Issue
Open
opened 2023-07-04 07:04:45 +02:00 by fbenoist68 · 7 comments
fbenoist68 commented 2023-07-04 07:04:45 +02:00
Owner

Assigned To: Frederik Benoist
Project: CAISSE
Area: awcaisse
Category: Bogue
Priority: Ce serait bien !

Assigned To: Frederik Benoist Project: CAISSE Area: awcaisse Category: Bogue Priority: Ce serait bien !
fbenoist68 commented 2023-07-04 07:04:49 +02:00
Poster
Owner

Event ID: 1131
Date: 2014-01-28T14:33:25Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist

En fait dans MajTout()

Me.vTicketLignes.mTraiteTicketPromo(Me.vCibleClient.pCible, Xml, cApplication.pEmployeCourant, App.pTicketGestionCourant.pTicketTotal.ProgressBar1)

 

C'est lors de l'initialisation de "Me.vCibleClient.pCible" en parametre que sont évalués les points acquis + gagnés dans le ticket (donc avant tout calcul de promo...) :

Atr = Me.vCible.CreateAttribute("npsg")

Pour que ensuite le xpath de promo soit appliqué sur cet attribut ....

 

Event ID: 1131 Date: 2014-01-28T14:33:25Z Person: Frederik Benoist Description: Modifié par Frederik Benoist <p> En fait dans MajTout()</p> <p> Me.vTicketLignes.mTraiteTicketPromo(Me.vCibleClient.pCible, Xml, cApplication.pEmployeCourant, App.pTicketGestionCourant.pTicketTotal.ProgressBar1)</p> <p> &nbsp;</p> <p> C&#39;est lors de l&#39;initialisation de &quot;Me.vCibleClient.pCible&quot; en parametre que sont &eacute;valu&eacute;s les&nbsp;points acquis + gagn&eacute;s dans le ticket (donc avant tout calcul de promo...) : </p> <p> Atr = Me.vCible.CreateAttribute(&quot;npsg&quot;)</p> <p> Pour que ensuite le xpath de promo soit appliqu&eacute; sur cet attribut ....</p> <p> &nbsp;</p>
fbenoist68 commented 2023-07-04 07:04:53 +02:00
Poster
Owner

Event ID: 1127
Date: 2014-01-27T17:57:36Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist

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

 

 

Public ReadOnly Property pNombrePointGagnes(ByVal ticketencaiss As cTicketEncaissements) As Integer ' Implements iTicketLignes.pNombrePointGagnes

Get

If Me.vFlagChargerNombrePointGagnes Then

Me.vFlagChargerNombrePointGagnes = False

Me.vNombrePointGagnes = mCalculerNombrePointsGagnes(ticketencaiss, Me.pTicketEntete.pCarteFideliteTypeChoisi)

End If

Return Me.vNombrePointGagnes

End Get

End Property

Event ID: 1127 Date: 2014-01-27T17:57:36Z Person: Frederik Benoist Description: Modifié par Frederik Benoist <p> C:\projets\DotSoft\CaisseAuto\bTicketLigne\cTicketLigne\cTicketLignes.vb</p> <p> &nbsp;</p> <p> &nbsp;</p> <p> Public ReadOnly Property pNombrePointGagnes(ByVal ticketencaiss As cTicketEncaissements) As Integer &#39; Implements iTicketLignes.pNombrePointGagnes</p> <p> Get</p> <p> If Me.vFlagChargerNombrePointGagnes Then</p> <p> Me.vFlagChargerNombrePointGagnes = False</p> <p> Me.vNombrePointGagnes = mCalculerNombrePointsGagnes(ticketencaiss, Me.pTicketEntete.pCarteFideliteTypeChoisi)</p> <p> End If</p> <p> Return Me.vNombrePointGagnes</p> <p> End Get</p> <p> End Property</p>
fbenoist68 commented 2023-07-04 07:04:56 +02:00
Poster
Owner

Event ID: 1126
Date: 2014-01-27T17:54:43Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist

C:\projets\DotSoft\CaisseAuto\bTicketLigne\CiblePromo\cCibleClient.vb

 

Atr = Me.vCible.CreateAttribute("npsg")

If Not Me.pTicketEnTete.pCarteFideliteChoisie Is Nothing Then

If Me.pTicketEnTete.pTypAdhesionCarte = cCarteFideliteAdhesion.eTypAdhesion.Valable Then

Atr.Value = (Me.pTicketEnTete.pCarteFideliteChoisie.pNbrePointsUtilisables(bApplication.cApplication.pDateOuvertureCaisse) + Me.vTicketLignes.pNombrePointGagnes(Me.vTicketEnCaiss)).ToString

Else

Atr.Value = "0"

End If

Else

If Not Me.pTicketEnTete.pCarteFideliteTypeChoisi Is Nothing Then

'on a une cration de carte fidlite

Atr.Value = Me.vTicketLignes.pNombrePointGagnes(Nothing).ToString

Else

Atr.Value = "0"

End If

End If

ElemClient.Attributes.Append(Atr)

Event ID: 1126 Date: 2014-01-27T17:54:43Z Person: Frederik Benoist Description: Modifié par Frederik Benoist <p> C:\projets\DotSoft\CaisseAuto\bTicketLigne\CiblePromo\cCibleClient.vb</p> <p> &nbsp;</p> <p> Atr = Me.vCible.CreateAttribute(&quot;npsg&quot;)</p> <p> If Not Me.pTicketEnTete.pCarteFideliteChoisie Is Nothing Then</p> <p> If Me.pTicketEnTete.pTypAdhesionCarte = cCarteFideliteAdhesion.eTypAdhesion.Valable Then</p> <p> Atr.Value = (Me.pTicketEnTete.pCarteFideliteChoisie.pNbrePointsUtilisables(bApplication.cApplication.pDateOuvertureCaisse) + Me.vTicketLignes.pNombrePointGagnes(Me.vTicketEnCaiss)).ToString</p> <p> Else</p> <p> Atr.Value = &quot;0&quot;</p> <p> End If</p> <p> Else</p> <p> If Not Me.pTicketEnTete.pCarteFideliteTypeChoisi Is Nothing Then</p> <p> &#39;on a une cration de carte fidlite</p> <p> Atr.Value = Me.vTicketLignes.pNombrePointGagnes(Nothing).ToString</p> <p> Else</p> <p> Atr.Value = &quot;0&quot;</p> <p> End If</p> <p> End If</p> <p> ElemClient.Attributes.Append(Atr)</p>
fbenoist68 commented 2023-07-04 07:04:59 +02:00
Poster
Owner

Event ID: 1125
Date: 2014-01-27T17:51:45Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist

C:\projets\DotSoft\CaisseAuto\bDomaine\Domaine\Promo\cPromoLigne.vb

 

Public ReadOnly Property pXpath(ByVal id_devise As Integer) As String

Get

If Me.vXpath.Length = 0 Then

Me.vXpath = Me.pPromoTemplate.pXPath

Me.vXpath = cPromoLigne.msReplace(Me.vXpath.Replace("%1", cPromo.TraNullVideNumeric(Me.mVar1(id_devise))).Replace("%2", cPromo.TraNullVideNumeric(Me.mVar2(id_devise))).Replace("%3", cPromo.TraNullVideNumeric(Me.mVar3(id_devise))).Replace("%4", cPromo.TraNullVideNumeric(Me.mVar4(id_devise))).Replace("%5", cPromo.TraNullVideNumeric(Me.mVar5(id_devise))).Replace("%6", cPromo.TraNullVideNumeric(Me.mVar6(id_devise))).Replace("%7", cPromo.TraNullVideNumeric(Me.mVar7(id_devise))).Replace("%8", cPromo.TraNullVideNumeric(Me.mVar8(id_devise))).Replace("%9", cPromo.TraNullVideNumeric(Me.mVar9(id_devise)))).Replace("%10", cPromo.TraNullVideNumeric(Me.mVar10(id_devise)))

End If

Return Me.vXpath

End Get

End Property

avec xpath = /c[@npsg>=120 and @npsg<240]

Event ID: 1125 Date: 2014-01-27T17:51:45Z Person: Frederik Benoist Description: Modifié par Frederik Benoist <p> C:\projets\DotSoft\CaisseAuto\bDomaine\Domaine\Promo\cPromoLigne.vb</p> <p> &nbsp;</p> <p> Public ReadOnly Property pXpath(ByVal id_devise As Integer) As String</p> <p> Get</p> <p> If Me.vXpath.Length = 0 Then</p> <p> Me.vXpath = Me.pPromoTemplate.pXPath</p> <p> Me.vXpath = cPromoLigne.msReplace(Me.vXpath.Replace(&quot;%1&quot;, cPromo.TraNullVideNumeric(Me.mVar1(id_devise))).Replace(&quot;%2&quot;, cPromo.TraNullVideNumeric(Me.mVar2(id_devise))).Replace(&quot;%3&quot;, cPromo.TraNullVideNumeric(Me.mVar3(id_devise))).Replace(&quot;%4&quot;, cPromo.TraNullVideNumeric(Me.mVar4(id_devise))).Replace(&quot;%5&quot;, cPromo.TraNullVideNumeric(Me.mVar5(id_devise))).Replace(&quot;%6&quot;, cPromo.TraNullVideNumeric(Me.mVar6(id_devise))).Replace(&quot;%7&quot;, cPromo.TraNullVideNumeric(Me.mVar7(id_devise))).Replace(&quot;%8&quot;, cPromo.TraNullVideNumeric(Me.mVar8(id_devise))).Replace(&quot;%9&quot;, cPromo.TraNullVideNumeric(Me.mVar9(id_devise)))).Replace(&quot;%10&quot;, cPromo.TraNullVideNumeric(Me.mVar10(id_devise)))</p> <p> End If</p> <p> Return Me.vXpath</p> <p> End Get</p> <p> End Property</p> <p> avec xpath = /c[@npsg&gt;=120 and @npsg&lt;240]</p>
fbenoist68 commented 2023-07-04 07:05:02 +02:00
Poster
Owner

Event ID: 1124
Date: 2014-01-27T17:15:12Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist

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

 

Public ReadOnly Property pNombrePointGagnes(ByVal ticketencaiss As cTicketEncaissements) As Integer ' Implements iTicketLignes.pNombrePointGagnes

Get

If Me.vFlagChargerNombrePointGagnes Then

Me.vFlagChargerNombrePointGagnes = False

Me.vNombrePointGagnes = mCalculerNombrePointsGagnes(ticketencaiss, Me.pTicketEntete.pCarteFideliteTypeChoisi)

End If

Return Me.vNombrePointGagnes

End Get

End Property

Event ID: 1124 Date: 2014-01-27T17:15:12Z Person: Frederik Benoist Description: Modifié par Frederik Benoist <p> C:\projets\DotSoft\CaisseAuto\bTicketLigne\cTicketLigne\cTicketLignes.vb</p> <p> &nbsp;</p> <p> Public ReadOnly Property pNombrePointGagnes(ByVal ticketencaiss As cTicketEncaissements) As Integer &#39; Implements iTicketLignes.pNombrePointGagnes</p> <p> Get</p> <p> If Me.vFlagChargerNombrePointGagnes Then</p> <p> Me.vFlagChargerNombrePointGagnes = False</p> <p> Me.vNombrePointGagnes = mCalculerNombrePointsGagnes(ticketencaiss, Me.pTicketEntete.pCarteFideliteTypeChoisi)</p> <p> End If</p> <p> Return Me.vNombrePointGagnes</p> <p> End Get</p> <p> End Property</p>
fbenoist68 commented 2023-07-04 07:05:06 +02:00
Poster
Owner

Event ID: 1123
Date: 2014-01-27T17:10:19Z
Person: Frederik Benoist
Description: Attribué à Frederik Benoist par Frederik Benoist

Event ID: 1123 Date: 2014-01-27T17:10:19Z Person: Frederik Benoist Description: Attribué à Frederik Benoist par Frederik Benoist
fbenoist68 commented 2023-07-04 07:05:08 +02:00
Poster
Owner

Event ID: 1122
Date: 2014-01-27T17:10:18Z
Person: Frederik Benoist
Description: Ouvert par Frederik Benoist

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

Points interne

'le produit de la ligne n'est pas exclue du calcul de la fidlisation

Me.vCAPourCalculNombrePointGagne = CDec(Me.pAPayerAvecRemisePied)

Event ID: 1122 Date: 2014-01-27T17:10:18Z Person: Frederik Benoist Description: Ouvert par Frederik Benoist <p> C:\projets\DotSoft\CaisseAuto\bTicketLigne\cTicketLigne\cTicketLigne.vb</p> <p> Points interne</p> <p> &#39;le produit de la ligne n&#39;est pas exclue du calcul de la fidlisation</p> <p> Me.vCAPourCalculNombrePointGagne = CDec(Me.pAPayerAvecRemisePied)</p>
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#323
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?