Option Strict Off
Imports Objets100cLib
Imports System
Module CreationBaseCpta
Sub Main()
Dim BaseCpta As New BSCPTAApplication100c
If CreeBaseCpta(BaseCpta, "C:\temp\test1.mae") Then
Console.WriteLine("Base comptable correctement créée !")
End If
End Sub

Sub Main()
Dim BaseCpta As New BSCPTAApplication100c
Dim BaseCial As New BSCIALApplication100c
Dim Article As IBOArticle3
Dim ParamBaseCpta As ParamBase = Nothing
Dim ParamBaseCial As ParamBase = Nothing
ParamBaseCpta.NomBase = "C:\temp\Bijou.mae"
ParamBaseCial.NomBase = "C:\temp\Bijou.gcm"
If OuvreBaseCial(BaseCial, BaseCpta, ParamBaseCial, ParamBaseCpta) Then
Try
If BaseCial.FactoryArticle.ExistReference("BAAR01") Then
Dim PU, Qte As Double
' Paramétrage des 3 frais de l'article BAAR01 :
Article = BaseCial.FactoryArticle.ReadReference("BAAR01")
CreeFraisArticle(Article, 1, Nothing, "2U") ' Coût de stockage
CreeFraisArticle(Article, 2, Nothing, "10%+1U") ' Coût de transport
CreeFraisArticle(Article, 3, "Coût de manutention", "8%+50F+10U")
Article.Write()
' Calcul et affichage du montant unitaire des frais en fonction du PU et de la Qte :
PU = 100 : Qte = 10
AfficheCalculTotalFrais(Article, PU, Qte) ' Coût total
AfficheCalculDetailFrais(Article, 1, PU, Qte) ' Coût de stockage
AfficheCalculDetailFrais(Article, 2, PU, Qte) ' Coût de transport
AfficheCalculDetailFrais(Article, 3, PU, Qte) ' Coût de manutention
End If
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally