Else
If PremièreLigne Then
Rem. Reproduction des informations de la commande. TR(LR, col. fact) = Détail(col. commande)
TR(LR, 2) = Détail(2)
TR(LR, 3) = Détail(3)
TR(LR, 4) = Détail(4)
TR(LR, 5) = Détail(5)
TR(LR, 6) = Détail(6)
TR(LR, 7) = Détail(7)
PremièreLigne = False: End If
Rem. Cumul des montants de toutes les lignes de commande :
TR(LR, 8) = TR(LR, 8) + Détail(12)
Next Détail
TR(LR, 16) = TR(LR, 8) + TR(LR, 11)
TR(LR, 17) = TR(LR, 16) * 20 / 100
TR(LR, 18) = TR(LR, 16) + TR(LR, 17)
End If: Next RefCmd
If PremièreLigne Then
Rem. Reproduction des informations de la commande. TR(LR, col. fact) = Détail(col. commande)
TR(LR, 2) = Détail(2)
TR(LR, 3) = Détail(3)
TR(LR, 4) = Détail(4)
TR(LR, 5) = Détail(5)
TR(LR, 6) = Détail(6)
TR(LR, 7) = Détail(7)
PremièreLigne = False: End If
Rem. Cumul en colonne 8 du montant de cette ligne de commande, que ce soit la première ou non :
TR(LR, 8) = TR(LR, 8) + Détail(12)
End If: Next Détail
TR(LR, 16) = TR(LR, 8) + TR(LR, 11)
TR(LR, 17) = TR(LR, 16) * 20 / 100
TR(LR, 18) = TR(LR, 16) + TR(LR, 17)
Next RefCmd
Private Sub CLsC_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
If NbrLgn = 1 Then CBnValiderA.Caption = "Modifier": Exit Sub
If NbrLgn = 0 Then LBxC.Clear
LCouC = 0
ReDim TVLC(1 To 1, 1 To 11)
GarnirCommande
CBnValiderC.Caption = "Ajouter"
End Sub
Private Sub CBnValiderA_Click()
TVLA(1, 6) = ValeurTBx(Me.TBxLongueurcolisage, vbDouble)
TVLA(1, 7) = ValeurTBx(Me.TBxLargeurcolisage, vbDouble)
TVLA(1, 8) = ValeurTBx(Me.TBxHauteurcolisage, vbDouble)
TVLA(1, 9) = ValeurTBx(Me.TBxACréele, vbDate)
TVLA(1, 10) = ValeurTBx(Me.TBxANotes)
TVLA(1, 11) = ValeurTBx(Me.TBxADelaislivraison)
TVLA(1, 12) = ValeurTBx(Me.TBxAFraistransport)
TVLA(1, 13) = ValeurTBx(Me.TBxAFacturation)
TVLA(1, 14) = ValeurTBx(Me.CBxModedegestion)
TVLA(1, 15) = ValeurTBx(Me.TBxInfosColisage, vbDouble)
TVLA(1, 16) = ValeurTBx(Me.TBxMinicommande)
TVLA(1, 17) = ValeurTBx(Me.TBxPrixUnitHT, vbCurrency)
TVLA(1, 18) = ValeurTBx(Me.TBxStockmini, vbDouble)
TVLA(1, 19) = ValeurTBx(Me.TBxDateSI, vbDate)
TVLA(1, 20) = ValeurTBx(Me.TBxSI)
If LCouA = 0 Then
CLsA.ValeursVers TVLA
CLsA.Lignes.Add.Range.Resize(, 20).Value = TVLA
CLsA.Actualiser
Me.LabNbArticle = CLsA.Lignes.Count
Set DicA = DicoSujet(CLsA.Item(CBxRefArticle).SujetBdD)
Else
'CLsA.Lignes(LCouA).Range.Value = TVLA 'pour rapatrier toute les valeur mais supprimes supprimes les formules des colonnes
CLsA.Lignes(LCouA).Range.Resize(, 20).Value = TVLA '20=nombre de colonnes contenant des constantes
End If
End Sub
Private Sub CBnRefFact_Click()
If Not Me.ActiveControl Is CBxRefFacturation Then CLsF.Stopper
End If
End Sub
Private Sub CBnValiderF_Click()
If Not CLsF.Actif Then CLsF.ValeursVers TVLF
TVLF(1, 2) = ValeurTBx(Me.TBxDate, vbDate)
TVLF(1, 3) = ValeurTBx(Me.TBxEnregistrepar)
TVLF(1, 5) = ValeurTBx(Me.TBxDelailivraison)
TVLF(1, 6) = ValeurTBx(Me.TBxFraistransport, vbCurrency)
TVLF(1, 7) = ValeurTBx(Me.TBxDatelivestime, vbDate)
TVLF(1, 8) = ValeurTBx(Me.TBxTotalHT, vbCurrency)
TVLF(1, 9) = ValeurTBx(Me.TBxBL)
TVLF(1, 10) = ValeurTBx(Me.TBxdatelivconfirme, vbDate)
TVLF(1, 11) = ValeurTBx(Me.TBxfraisdeport, vbCurrency)
TVLF(1, 13) = ValeurTBx(Me.TBxdatefacturation, vbDate)
If LCouF = 0 Then
CLsF.ValeursVers TVLF
CLsF.Lignes.Add.Range.Resize(, 14).Value = TVLF
CLsF.Actualiser
Me.LabNbRefFacturation = CLsF.Lignes.Count
Else
CLsF.Lignes(LCouF).Range.Resize(, 14).Value = TVLF
If Not CLsF.Actif Then CLsF.Actualiser ' après enregistrement ?
End If
End Sub
If Not CLsF.Actif Then CLsF.Actualiser: CLsF.Réactiver
Private Sub CBnValiderF_Click()
If Not CLsF.Actif Then CLsF.ValeursVers TVLF 'si CLSf n'est pas actif alors les valeur vont vers TVLf
TVLF(1, 2) = ValeurTBx(Me.TBxDate, vbDate)
TVLF(1, 3) = ValeurTBx(Me.TBxEnregistrepar)
TVLF(1, 5) = ValeurTBx(Me.TBxDelailivraison)
TVLF(1, 6) = ValeurTBx(Me.TBxFraistransport, vbCurrency)
TVLF(1, 7) = ValeurTBx(Me.TBxDatelivestime, vbDate)
TVLF(1, 8) = ValeurTBx(Me.TBxTotalHT, vbCurrency)
TVLF(1, 9) = ValeurTBx(Me.TBxBL)
TVLF(1, 10) = ValeurTBx(Me.TBxdatelivconfirme, vbDate)
TVLF(1, 11) = ValeurTBx(Me.TBxfraisdeport, vbCurrency)
TVLF(1, 13) = ValeurTBx(Me.TBxdatefacturation, vbDate)
If LCouF = 0 Then
CLsF.ValeursVers TVLF
CLsF.Lignes.Add.Range.Resize(, 14).Value = TVLF
CLsF.Actualiser
Me.LabNbRefFacturation = CLsF.Lignes.Count
Else
CLsF.Lignes(LCouF).Range.Resize(, 14).Value = TVLF
If Not CLsF.Actif Then CLsF.Actualiser: CLsF.Réactiver 'actualise et réactive le clsf
End If
End Sub