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

[FogBugz #226] Montant TVA US #288

New Issue
Open
opened 2023-07-03 23:59:41 +02:00 by fbenoist68 · 7 comments
fbenoist68 commented 2023-07-03 23:59:41 +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:59:43 +02:00
Poster
Owner

Event ID: 1027
Date: 2013-11-29T06:44:52Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist

Event ID: 1027 Date: 2013-11-29T06:44:52Z Person: Frederik Benoist Description: Modifié par Frederik Benoist
screenshot.png
13 KiB
screenshot.png
fbenoist68 commented 2023-07-03 23:59:49 +02:00
Poster
Owner

Event ID: 1026
Date: 2013-11-28T14:59:04Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist

C:\projets\DotSoft\CaisseAuto\awCaisse\Controles\Bouton\ccPanelBouton.vb

Private Sub CcBouton1_eChangeTVA() Handles CcBouton1.eChangeTVA

' Si aucune ligne n'est slectionn, ne rien faire

If App.pTicketGestionCourant.pTicketLigneSelected Is Nothing Then Return

' Rcuprer la liste des taxes possibles pour le pays en cours et le produit slectionn

Dim taxes As cListeMetier(Of cParamTaxes) = cManager.pParamTaxe.mListerParPays(bApplication.cApplication.pStructure.pIdPays3)

' Faire choisir la taxe l'utilisateur

Dim paramTaxe As cParamTaxes = bTicketLigne.cfChoixParamTaxes.msShowDialog(taxes, Me.FindForm, App.pTicketGestionCourant.pTicketEntete.pIdPays, App.pTicketGestionCourant.pTicketEntete.pDate, App.pTicketGestionCourant.pTicketLigneSelected.pParamTaxes)

If paramTaxe Is Nothing Then Return

' Rpercuter les changements de la taxe

App.pTicketGestionCourant.pTicketLigneSelected.pParamTaxes = paramTaxe

DirectCast(App.pTicketGestionCourant.pTicketLignes, cTicketLignes).mReinitialiseCalcul()

App.pTicketGestionCourant.mLanceThreadMajGrille(App.pTicketGestionCourant.pTicketLigneSelected)

End Sub

Event ID: 1026 Date: 2013-11-28T14:59:04Z Person: Frederik Benoist Description: Modifié par Frederik Benoist <p> C:\projets\DotSoft\CaisseAuto\awCaisse\Controles\Bouton\ccPanelBouton.vb</p> <p> Private Sub CcBouton1_eChangeTVA() Handles CcBouton1.eChangeTVA</p> <p> &#39; Si aucune ligne n&#39;est slectionn, ne rien faire</p> <p> If App.pTicketGestionCourant.pTicketLigneSelected Is Nothing Then Return</p> <p> &#39; Rcuprer la liste des taxes possibles pour le pays en cours et le produit slectionn</p> <p> Dim taxes As cListeMetier(Of cParamTaxes) = cManager.pParamTaxe.mListerParPays(bApplication.cApplication.pStructure.pIdPays3)</p> <p> &#39; Faire choisir la taxe l&#39;utilisateur</p> <p> Dim paramTaxe As cParamTaxes = bTicketLigne.cfChoixParamTaxes.msShowDialog(taxes, Me.FindForm, App.pTicketGestionCourant.pTicketEntete.pIdPays, App.pTicketGestionCourant.pTicketEntete.pDate, App.pTicketGestionCourant.pTicketLigneSelected.pParamTaxes)</p> <p> If paramTaxe Is Nothing Then Return</p> <p> &#39; Rpercuter les changements de la taxe</p> <p> App.pTicketGestionCourant.pTicketLigneSelected.pParamTaxes = paramTaxe</p> <p> DirectCast(App.pTicketGestionCourant.pTicketLignes, cTicketLignes).mReinitialiseCalcul()</p> <p> App.pTicketGestionCourant.mLanceThreadMajGrille(App.pTicketGestionCourant.pTicketLigneSelected)</p> <p> End Sub</p>
fbenoist68 commented 2023-07-03 23:59:52 +02:00
Poster
Owner

Event ID: 983
Date: 2013-11-21T15:29:41Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist

C:\projets\DotSoft\CaisseAuto\bFenetre\TicketGrille\ccTicketGrille.vb

 

Select Case TypLigneTicket

Case eTypLigneTicket.extension_garantie, eTypLigneTicket.produit_standard, eTypLigneTicket.retour_produit, eTypLigneTicket.Produit_Speciale, eTypLigneTicket.Eco_Part, eTypLigneTicket.extension_garantie

Dt.Item("prix_vente") = TicketL.pPrixVente

Event ID: 983 Date: 2013-11-21T15:29:41Z Person: Frederik Benoist Description: Modifié par Frederik Benoist <p> C:\projets\DotSoft\CaisseAuto\bFenetre\TicketGrille\ccTicketGrille.vb</p> <p> &nbsp;</p> <p> Select Case TypLigneTicket</p> <p> Case eTypLigneTicket.extension_garantie, eTypLigneTicket.produit_standard, eTypLigneTicket.retour_produit, eTypLigneTicket.Produit_Speciale, eTypLigneTicket.Eco_Part, eTypLigneTicket.extension_garantie</p> <p> Dt.Item(&quot;prix_vente&quot;) = TicketL.pPrixVente</p>
fbenoist68 commented 2023-07-03 23:59:55 +02:00
Poster
Owner

Event ID: 982
Date: 2013-11-20T16:55:22Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist

C:\projets\DotSoft\CaisseAuto\bService\cTaxeService.vb

 Public Shared Function msCalculerParamTaxesPourProduit(ByVal produit As cProduit, ByVal prix_vente As Decimal, ByVal id_Structure As Integer) As cParamTaxes

 

 

Event ID: 982 Date: 2013-11-20T16:55:22Z Person: Frederik Benoist Description: Modifié par Frederik Benoist <p> C:\projets\DotSoft\CaisseAuto\bService\cTaxeService.vb</p> <p> &nbsp;Public Shared Function msCalculerParamTaxesPourProduit(ByVal produit As cProduit, ByVal prix_vente As Decimal, ByVal id_Structure As Integer) As cParamTaxes</p> <p> &nbsp;</p> <p> &nbsp;</p>
fbenoist68 commented 2023-07-03 23:59:58 +02:00
Poster
Owner

Event ID: 981
Date: 2013-11-20T16:41:31Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist

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

 

Private Sub mDefinirPrixVente(Optional ByVal RetourProduit As cRetourProduit = Nothing)

 

horsTaxe = tarifLigne IsNot Nothing AndAlso tarifLigne.pTarif IsNot Nothing AndAlso tarifLigne.pTarif.pHorsTaxe

Event ID: 981 Date: 2013-11-20T16:41:31Z Person: Frederik Benoist Description: Modifié par Frederik Benoist <p> C:\projets\DotSoft\CaisseAuto\bTicketLigne\cTicketLigne\cTicketLigne.vb</p> <p> &nbsp;</p> <p> Private Sub mDefinirPrixVente(Optional ByVal RetourProduit As cRetourProduit = Nothing)</p> <p> &nbsp;</p> <p> horsTaxe = tarifLigne IsNot Nothing AndAlso tarifLigne.pTarif IsNot Nothing AndAlso tarifLigne.pTarif.pHorsTaxe</p>
fbenoist68 commented 2023-07-04 00:00:01 +02:00
Poster
Owner

Event ID: 980
Date: 2013-11-20T16:40:57Z
Person: Frederik Benoist
Description: Attribué à Frederik Benoist par Frederik Benoist

Event ID: 980 Date: 2013-11-20T16:40:57Z Person: Frederik Benoist Description: Attribué à Frederik Benoist par Frederik Benoist
fbenoist68 commented 2023-07-04 00:00:06 +02:00
Poster
Owner

Event ID: 979
Date: 2013-11-20T16:40:55Z
Person: Frederik Benoist
Description: Ouvert par Frederik Benoist

Event ID: 979 Date: 2013-11-20T16:40:55Z 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#288
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?