public Task <string> Create(Order order)
{
lock (_sageAccess.DatabaseLock)
{
if (Utility.ComObject.Open(_sageAccess) == false)
{
Utility.ComObject.Close(_sageAccess);
return(null);
}
IBODocumentVente3 orderHeader = _sageAccess.GetSageDatabase.FactoryDocumentVente.CreateType(DocumentType.DocumentTypeVenteCommande);
IBOClient3 tiersPayeur = _sageAccess.GetSageDatabase.CptaApplication.FactoryClient.ReadNumero(order.DO_Tiers);
IBODocumentVenteLigne3 orderLines;
try
{
orderHeader.SetDefaultClient(tiersPayeur);
orderHeader.DO_Ref = order.DO_Ref;
orderHeader.DO_Date = DateTime.Now;
orderHeader.DO_Statut = DocumentStatutType.DocumentStatutTypeConfirme;
orderHeader.SetDefaultDO_Piece();
orderHeader.WriteDefault();
orderHeader.CouldModified();
orderHeader.Write();
foreach (DocLine docLine in order.DocLines)
{
if (_sageAccess.GetSageDatabase.FactoryArticle.ExistReference(docLine.AR_Ref))
{
orderLines = (IBODocumentVenteLigne3)orderHeader.FactoryDocumentLigne.Create();
orderLines.SetDefaultArticle(_sageAccess.GetSageDatabase.FactoryArticle.ReadReference(docLine.AR_Ref), docLine.DL_Qte);
orderLines.WriteDefault();
}
else
{
//Log
}
}
string result = orderHeader.DO_Piece;
Utility.ComObject.Close(_sageAccess);
return(Task.FromResult(result));
}
catch (Exception e)
{
Utility.ComObject.Close(_sageAccess);
return(null);
}
}
}
/// <summary>
/// Crée une commande dépot
/// </summary>
/// <param name="dt"></param>
/// <param name="targetDb"></param>
/// <returns></returns>
public string createCommandeDepot(DataTable dt, string targetDb)
{
BSCIALApplication100c bsc = GetInstance();
try
{
bsc.Open();
IBOClient3 client = getClient(bsc, dt.Rows[0]["DBCLIENT"].ToString() + " DEPOT");
string doRef = dt.Rows[0]["DO_Piece"].ToString();
CheckCommandeClientExiste(client.CT_Num, doRef, targetDb);
// Crée le bon de commande client
IPMDocument procDocV = bsc.CreateProcess_Document(DocumentType.DocumentTypeVenteCommande);
IBODocumentVente3 docVEntete = (IBODocumentVente3)procDocV.Document;
docVEntete.DO_Ref = doRef;
// Affecte le numéro de pièce
docVEntete.SetDefaultDO_Piece();
docVEntete.SetDefaultClient(client);
docVEntete.CategorieTarif = bsc.FactoryCategorieTarif.ReadIntitule("Tarif Article N° 6");
IBODocumentVenteLigne3 docVLigne;
foreach (DataRow row in dt.Rows)
{
string arRef = row["AR_Ref"].ToString();
string gamme1 = row["Gamme1"].ToString();
string gamme2 = row["Gamme2"].ToString();
double qt = double.Parse(row["DL_Qte"].ToString(), System.Globalization.CultureInfo.InvariantCulture);
string refFourn = row["AF_RefFourniss"].ToString();
string design = row["DL_Design"].ToString();
string txtComplementaire = row["DT_Text"].ToString();
string unite = row["EU_Enumere"].ToString();
if (arRef != "")
{
docVLigne = (IBODocumentVenteLigne3)addArticleToLigne(procDocV, arRef, gamme1, gamme2, qt, unite);
// Si pas de ref fourn, on essaie de recup la ref fourn principal
if (refFourn == "" && docVLigne.Article.FournisseurPrincipal != null)
{
refFourn = docVLigne.Article.FournisseurPrincipal.Reference;
}
docVLigne.AF_RefFourniss = refFourn;
docVLigne.SetDefaultRemise();
docVLigne.DO_Ref = doRef;
docVLigne.DL_Design = design;
docVLigne.TxtComplementaire = txtComplementaire;
docVLigne.Write();
}
else
{
// Sinon c'est une ligne de commentaire
docVLigne = (IBODocumentVenteLigne3)docVEntete.FactoryDocumentLigne.Create();
docVLigne.DL_Design = design;
docVLigne.Write();
}
}
if (procDocV.CanProcess)
{
procDocV.Process();
// Cherche les divers pour forcer la maj du texte complémentaire
// Ne peut pas être effectué pendant le process car les info libres n'existent pas encore
foreach (IBODocumentVenteLigne3 ligne in GetDocument(docVEntete.DO_Piece).FactoryDocumentLigne.List)
{
if (ligne.Article != null && (ligne.Article.AR_Ref == "DIVERS" || ligne.Article.Famille.FA_CodeFamille == "UNIQUE"))
{
new DiversRepository().saveLigneVente(ligne);
}
}
}
else
{
throw new Exception(GetProcessError(procDocV));
}
string subject = $"[INTERMAG] Commande Dépôt {client.CT_Classement} {docVEntete.DO_Piece}";
string body = $@"<p>Le magasin {client.CT_Classement} vous a passé une commande dépôt n° <b>{docVEntete.DO_Piece}</b></p>
<p>Collaborateur : {dt.Rows[0]["Collaborateur"].ToString()}</p>
<p>Merci de vous référer à Sage pour en connaître le contenu.</p>";
sendMail(dt.Rows[0]["DBCLIENT"].ToString(), bsc.DatabaseInfo.DatabaseName, subject, body);
EventLog.WriteEntry(log, subject, EventLogEntryType.Information, 100);
return(string.Format(
"[OK];{0};{1}: Commande client {2} créée",
docVEntete.DO_Piece,
bsc.DatabaseInfo.DatabaseName,
docVEntete.DO_Piece
));
}
catch (Exception e)
{
EventLog.WriteEntry(log, e.ToString(), EventLogEntryType.Error, 100);
throw new Exception(e.Message);
}
finally
{
if (bsc != null)
{
bsc.Close();
}
}
}
/// <summary>
/// Crée une commande Retro
/// TODO utiliser le programme Contremarque pour générer l'APC? eg crée le document de vente en premier puis ajoute une contremarque sur toute les lignes
/// </summary>
/// <param name="dt"></param>
/// <returns></returns>
public string createCommandeRetro(DataTable dt, string targetDb)
{
BSCIALApplication100c bsc = GetInstance();
try
{
bsc.Open();
IBOClient3 client = getClient(bsc, dt.Rows[0]["DBCLIENT"].ToString() + " RETRO");
string doRef = dt.Rows[0]["DO_Piece"].ToString();
CheckCommandeClientExiste(client.CT_Num, doRef, targetDb);
// Crée le bon de commande client
IPMDocument procDocV = bsc.CreateProcess_Document(DocumentType.DocumentTypeVenteCommande);
IBODocumentVente3 docVEntete = (IBODocumentVente3)procDocV.Document;
// Affecte le numéro de pièce
docVEntete.SetDefaultDO_Piece();
docVEntete.SetDefaultClient(client);
docVEntete.CategorieTarif = bsc.FactoryCategorieTarif.ReadIntitule("Tarif Article N° 13");
IBODocumentVenteLigne3 docVLigne;
foreach (DataRow row in dt.Rows)
{
string arRef = row["AR_Ref"].ToString();
string gamme1 = row["Gamme1"].ToString();
string gamme2 = row["Gamme2"].ToString();
double montantHT = double.Parse(row["DL_MontantHT"].ToString(), System.Globalization.CultureInfo.InvariantCulture);
double qt = double.Parse(row["DL_Qte"].ToString(), System.Globalization.CultureInfo.InvariantCulture);
double prixUNet = montantHT / qt;
string refFourn = row["AF_RefFourniss"].ToString();
string design = row["DL_Design"].ToString();
string txtComplementaire = row["DT_Text"].ToString();
string unite = row["EU_Enumere"].ToString();
docVLigne = null;
if (arRef != "")
{
docVLigne = (IBODocumentVenteLigne3)addArticleToLigne(procDocV, arRef, gamme1, gamme2, qt, unite);
docVLigne.DL_PrixUnitaire = prixUNet;
docVLigne.DL_Design = design;
docVLigne.TxtComplementaire = txtComplementaire;
docVLigne.Write();
}
else
{
// Sinon c'est une ligne de commentaire
docVLigne = (IBODocumentVenteLigne3)docVEntete.FactoryDocumentLigne.Create();
docVLigne.DL_Design = design;
docVLigne.Write();
}
}
if (procDocV.CanProcess)
{
procDocV.Process();
// Cherche les divers pour forcer la maj du texte complémentaire
// Ne peut pas être effectué pendant le process car les info libres n'existent pas encore
foreach (IBODocumentVenteLigne3 ligne in GetDocument(docVEntete.DO_Piece).FactoryDocumentLigne.List)
{
if (ligne.Article != null && (ligne.Article.AR_Ref == "DIVERS" || ligne.Article.Famille.FA_CodeFamille == "UNIQUE"))
{
new DiversRepository().saveLigneVente(ligne);
}
}
// Ajoute les lignes en contremarque
ContremarqueRepository cmRepos = new ContremarqueRepository();
cmRepos.Log += Log;
Collection <Contremarque> cms = cmRepos.getAll(docVEntete.DO_Piece);
cms.Select(c => {
c.RowChecked = true;
c.SelectedFourn = "Principal";
// On force pour chaque ligne le fournisseur demandé
// Cela permet de faire du retro sur un fournisseur secondaire
c.FournPrinc = dt.Rows[0]["DO_Tiers"].ToString();
return(c);
}).ToList();
cmRepos.saveAll(cms, docVEntete.DO_Piece, true);
}
else
{
throw new Exception(GetProcessError(procDocV));
}
string subject = $"[INTERMAG] Commande Retro {client.CT_Classement} {docVEntete.DO_Piece}";
string body = $@"<p>Le magasin {client.CT_Classement} vous a passé une commande Retro n° <b>{docVEntete.DO_Piece}</b></p>
<p>Collaborateur : {dt.Rows[0]["Collaborateur"].ToString()}</p>
<p>Merci de vous référer à Sage pour en connaître le contenu.</p>";
sendMail(dt.Rows[0]["DBCLIENT"].ToString(), bsc.DatabaseInfo.DatabaseName, subject, body);
EventLog.WriteEntry(log, subject, EventLogEntryType.Information, 100);
return($"[OK];{docVEntete.DO_Piece};{bsc.DatabaseInfo.DatabaseName}: Commande client {docVEntete.DO_Piece} créée {Environment.NewLine}{cmLogMessage}");
}
catch (Exception e)
{
EventLog.WriteEntry(log, e.ToString(), EventLogEntryType.Error, 100);
throw new Exception(e.Message);
}
finally
{
if (bsc != null)
{
bsc.Close();
}
}
}