Calcul Le prix de vente a partir de prix Unitaire avec un Taux de bénéfice
Fermé
Nizar1969
-
12 sept. 2020 à 09:56
yg_be Messages postés 23400 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 décembre 2024 - 14 sept. 2020 à 10:28
yg_be Messages postés 23400 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 décembre 2024 - 14 sept. 2020 à 10:28
A voir également:
- Calcul Le prix de vente a partir de prix Unitaire avec un Taux de bénéfice
- Site de vente en ligne particulier - Guide
- Gta 6 prix - Accueil - Jeu vidéo
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Prix licence windows 10 - Accueil - Installation
- Prix réparation rétroéclairage tv led - Forum TV & Vidéo
5 réponses
yg_be
Messages postés
23400
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 décembre 2024
Ambassadeur
1 557
12 sept. 2020 à 13:41
12 sept. 2020 à 13:41
bonjour,
peut-être peux-tu donner quelques exemples, avec les résultats obtenus et les résultats espérés?
peut-être peux-tu donner quelques exemples, avec les résultats obtenus et les résultats espérés?
Bonjour,
par exemple une Boitier de Prix_Unitaire 2 euro le Prix de vent sera 2.22 euro si on ajout le TVA (1.2) donc le prix de vent et de 2.664 euro mais le prix réale de boitier et 3 euro
par exemple une Boitier de Prix_Unitaire 2 euro le Prix de vent sera 2.22 euro si on ajout le TVA (1.2) donc le prix de vent et de 2.664 euro mais le prix réale de boitier et 3 euro
yg_be
Messages postés
23400
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 décembre 2024
1 557
12 sept. 2020 à 14:53
12 sept. 2020 à 14:53
qui a décidé du prix réel de 3 euros?
par l'usine de production
yg_be
Messages postés
23400
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 décembre 2024
1 557
12 sept. 2020 à 15:07
12 sept. 2020 à 15:07
en utilisant quelle formule?
Réf_Désignation
Nom_Désignation
Catégorie
Unité
Qte_Stock
Qte_Min
Prix_Unitaire
Taux
Prix_Vente
=> btnEnregistrer
Nom_Désignation
Catégorie
Unité
Qte_Stock
Qte_Min
Prix_Unitaire
Taux
Prix_Vente
=> btnEnregistrer
yg_be
Messages postés
23400
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 décembre 2024
1 557
12 sept. 2020 à 15:37
12 sept. 2020 à 15:37
je pense que tu ne décris pas l'ensemble de l'énoncé.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Nom
Voila le code dont btnEnregistre
Private Sub btnEnregistrerProd_Click()
Dim rst As Recordset
Dim idProduit As Integer
If (Me.txtDesig <> "" And Me.txtidCateg <> "" And Me.txtidUni <> "" And Me.txtPrixUnitaire <> "" And Me.txtQte <> "" And Me.txtQteMin <> "") Then
If (doubleProd(Me.txtDesig <> "", Me.txtLibelle <> "") = False) Then
Set rst = CurrentDb.OpenRecordset("Produits", dbOpenTable)
rst.AddNew
idProduit = rst("idProduit")
rst("Libelle") = Me.txtLibelle
rst("Designation") = Me.txtDesig
rst("IdCategorie") = Me.txtidCateg
rst("idUnite") = Me.txtidUni
rst("QteStock") = Me.txtQte
rst("PrixUnitaire") = Me.txtPrixUnitaire
rst("Taux") = Me.txtTaux.Value
rst("QteMin") = Me.txtQteMin
rst.Update
rst.Close
Set rst = Nothing
Dim Lvrm As LVR_MovLivraisons
Set Lvrm = New LVR_MovLivraisons
Lvrm.idLivraison = 0
Lvrm.idCommande = 0
Lvrm.idProduit = idProduit
Lvrm.PrixUnitaire = Me.txtPrixUnitaire
Lvrm.Qtelivre = Me.txtQte
Lvrm.TypeMovlivre = "Entree"
Lvrm.DateMovlivre = Now
Res = EnregistrerMLvr(Lvrm)
DoCmd.Close acForm, Me.Name
DoCmd.Requery
Else
MsgBox (" Attention Doublant Produit"), vbCritical, "Esteme Doublant"
End If
Else
MsgBox ("Atention ! remplissez toutes les champs"), vbExclamation, "Champs Vide"
End If
End Sub
Voila le code dont btnEnregistre
Private Sub btnEnregistrerProd_Click()
Dim rst As Recordset
Dim idProduit As Integer
If (Me.txtDesig <> "" And Me.txtidCateg <> "" And Me.txtidUni <> "" And Me.txtPrixUnitaire <> "" And Me.txtQte <> "" And Me.txtQteMin <> "") Then
If (doubleProd(Me.txtDesig <> "", Me.txtLibelle <> "") = False) Then
Set rst = CurrentDb.OpenRecordset("Produits", dbOpenTable)
rst.AddNew
idProduit = rst("idProduit")
rst("Libelle") = Me.txtLibelle
rst("Designation") = Me.txtDesig
rst("IdCategorie") = Me.txtidCateg
rst("idUnite") = Me.txtidUni
rst("QteStock") = Me.txtQte
rst("PrixUnitaire") = Me.txtPrixUnitaire
rst("Taux") = Me.txtTaux.Value
rst("QteMin") = Me.txtQteMin
rst.Update
rst.Close
Set rst = Nothing
Dim Lvrm As LVR_MovLivraisons
Set Lvrm = New LVR_MovLivraisons
Lvrm.idLivraison = 0
Lvrm.idCommande = 0
Lvrm.idProduit = idProduit
Lvrm.PrixUnitaire = Me.txtPrixUnitaire
Lvrm.Qtelivre = Me.txtQte
Lvrm.TypeMovlivre = "Entree"
Lvrm.DateMovlivre = Now
Res = EnregistrerMLvr(Lvrm)
DoCmd.Close acForm, Me.Name
DoCmd.Requery
Else
MsgBox (" Attention Doublant Produit"), vbCritical, "Esteme Doublant"
End If
Else
MsgBox ("Atention ! remplissez toutes les champs"), vbExclamation, "Champs Vide"
End If
End Sub
yg_be
Messages postés
23400
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 décembre 2024
1 557
14 sept. 2020 à 10:28
14 sept. 2020 à 10:28
merci d'utiliser les balises de code quand tu postes du code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
je pense que tu ne décris pas complètement ce que tu veux réaliser.
pourquoi fais-tu ce travail?
je pense que tu ne décris pas complètement ce que tu veux réaliser.
pourquoi fais-tu ce travail?