private void addVbcLigneToAbcExistant(IBODocumentVenteLigne3 ligneV, LiaisonCde liaison)
{
IBODocumentAchat3 docA = GetInstance().FactoryDocumentAchat.ReadPiece(DocumentType.DocumentTypeAchatCommandeConf, liaison.NumPiece);
foreach (IBODocumentAchatLigne3 ligneA in docA.FactoryDocumentLigne.List)
{
int dlNoIn = int.Parse(ligneA.InfoLibre["DLNo"]);
if (dlNoIn == liaison.DLNoIn)
{
// Si la quantité demandée est inférieure à la quantité de la ligne
if (liaison.Qte < liaison.DlQteBL)
{
IBODocumentAchatLigne3 liaisonALigne = (IBODocumentAchatLigne3)docA.FactoryDocumentLigne.Create();
addArticleFromLigneAToLigneB(ligneA, liaisonALigne, liaison.Qte);
// Force le prix d'achat de la ligne d'origine (peut être une cde depot)
if (liaisonALigne.Fournisseur.CT_Num != ligneA.Article.FournisseurPrincipal.Fournisseur.CT_Num)
{
liaisonALigne.DL_PrixUnitaire = ligneA.DL_PrixUnitaire;
}
double conversion = 1;
double convDiv = 1;
foreach (IBOArticleTarifFournisseur3 tarif in ligneA.Article.FactoryArticleTarifFournisseur.List)
{
if (tarif.Fournisseur == docA.Fournisseur)
{
conversion = tarif.AF_Conversion;
convDiv = tarif.AF_ConvDiv;
}
}
liaisonALigne.DL_Qte = liaison.Qte;
liaisonALigne.EU_Qte = (liaison.Qte / conversion) * convDiv;
liaisonALigne.SetDefaultRemise();
liaisonALigne.Collaborateur = ligneV.Collaborateur;
liaisonALigne.DO_Ref = liaison.DlNoOut.ToString();
liaisonALigne.DL_Design = ligneV.DL_Design;
liaisonALigne.TxtComplementaire = ligneV.TxtComplementaire;
liaisonALigne.Write();
liaisonALigne.Refresh();
dlNoIn = int.Parse(liaisonALigne.InfoLibre["DLNo"]);
// Si la ligne d'origine avait déjà une contremarque
if (liaison.CMQteTotal > 0)
{
ligneA.DL_Qte = liaison.DlQteBL - liaison.Qte;
ligneA.EU_Qte = (ligneA.DL_Qte / conversion) * convDiv;
ligneA.SetDefaultRemise();
ligneA.Write();
}
else
{
// Crée une nouvelle ligne avec le delta à partir de la ligne d'origine
IBODocumentAchatLigne3 ligneACopy = (IBODocumentAchatLigne3)docA.FactoryDocumentLigne.Create();
double delta = liaison.DlQteBL - liaison.Qte;
addArticleFromLigneAToLigneB(ligneA, ligneACopy, delta);
if (ligneACopy.Fournisseur.CT_Num != ligneA.Article.FournisseurPrincipal.Fournisseur.CT_Num)
{
ligneACopy.DL_PrixUnitaire = ligneA.DL_PrixUnitaire;
}
ligneACopy.DL_Qte = delta;
ligneACopy.EU_Qte = (delta / conversion) * convDiv;
ligneACopy.SetDefaultRemise();
ligneACopy.Collaborateur = ligneA.Collaborateur;
ligneACopy.DL_Design = ligneA.DL_Design;
ligneACopy.TxtComplementaire = ligneA.TxtComplementaire;
ligneACopy.Write();
ligneACopy.Refresh();
// Supprime la ligne d'origine
ligneA.Remove();
}
}
// Ajout de la CM
using (SqlConnection cnx = new SqlConnection(cnxString)) {
cnx.Open();
using (SqlCommand cmd = cnx.CreateCommand())
{
cmd.CommandText = @"INSERT INTO F_CMLIEN(DL_NoOut, DL_NoIn, CM_Qte) VALUES(@dlNoOut, @dlNoIn, @cmQte)";
cmd.Parameters.AddWithValue("@dlNoOut", ligneV.InfoLibre["DLNo"]);
cmd.Parameters.AddWithValue("@dlNoIn", dlNoIn);
cmd.Parameters.AddWithValue("@cmQte", liaison.Qte);
cmd.ExecuteNonQuery();
}
}
}
}
}
/// <summary>
/// Génère des APC en contremarque
/// Envoi les APC au magasin cible
/// </summary>
/// <param name="CmLignes"></param>
/// <param name="doPiece"></param>
/// <param name="disableIntermag"></param>
public void saveAll(Collection <Contremarque> CmLignes, string doPiece, bool disableIntermag)
{
var docV = (IBODocumentVente3)GetDocument(doPiece);
if (!openBaseCial())
{
throw new Exception("Impossible de se connecter à Sage :-(");
}
#region Ajout ABC Existant
// Prétraitement Si Ajout à ABC existant
foreach (IBODocumentVenteLigne3 ligneV in docV.FactoryDocumentLigne.List)
{
int DLNo = int.Parse(ligneV.InfoLibre["DLNo"]);
if (CmLignes.Count(c => c.DlNo == DLNo) == 0)
{
continue;
}
Contremarque cm = CmLignes.Where(c => c.DlNo == DLNo).First();
if (!cm.RowChecked)
{
continue;
}
// Ajout a ABC existant (1 seul possible)
double liaisonTot = cm.Liaisons.Sum(l => l.Qte);
if (liaisonTot > 0)
{
IEnumerable <LiaisonCde> liaisons = cm.Liaisons.Where(l => l.Qte > 0);
LiaisonCde liaison = liaisons.First();
Log($"Réserve {liaison.Qte} x {cm.RefMag} sur {liaison.NumPiece} existant");
liaison.DlNoOut = int.Parse(ligneV.InfoLibre["DLNo"]);
addVbcLigneToAbcExistant(ligneV, liaison);
}
}
#endregion Ajout ABC Existant
#region Groupe les lignes par fournisseur
var dict = new Dictionary <string, Collection <Contremarque> >();
foreach (Contremarque cm in CmLignes)
{
// Ne prend pas en compte les lignes déjà en contremarque ou avec liaison
if (!cm.RowChecked || cm.NumPiece != "" || cm.Liaisons.Sum(l => l.Qte) > 0)
{
continue;
}
string key = cm.SelectedFourn == "Principal" ? cm.FournPrinc : cm.SelectedFourn;
if (!dict.ContainsKey(key))
{
dict.Add(key, new Collection <Contremarque>());
}
dict[key].Add(cm);
}
if (dict.Count == 0)
{
return;
}
#endregion Groupe les lignes par fournisseur
#region Ajout contremarque
foreach (KeyValuePair <string, Collection <Contremarque> > entry in dict)
{
IPMDocument procDocA;
IBOFournisseur3 fourn;
if (!entry.Value[0].IsInterMag)
{
// Génération d'un APC Fournisseur
Log($"Génération d'un APC Fournisseur principal {entry.Value[0].FournPrinc}");
procDocA = GetInstance().CreateProcess_Document(DocumentType.DocumentTypeAchatCommande);
fourn = GetInstance().CptaApplication.FactoryFournisseur.ReadNumero(entry.Value[0].FournPrinc);
}
else
{
// Génération d'un ABC InterMag
Log($"Génération d'un ABC Fournisseur intermag {entry.Key}");
procDocA = GetInstance().CreateProcess_Document(DocumentType.DocumentTypeAchatCommandeConf);
using (SqlConnection cnx = new SqlConnection(cnxString))
{
cnx.Open();
using (SqlCommand cmd = cnx.CreateCommand())
{
cmd.CommandText = "SELECT CT_Num FROM F_COMPTET WHERE CT_Classement = @abrege AND CT_Type = 1";
cmd.Parameters.AddWithValue("@abrege", entry.Value[0].SelectedFourn);
using (SqlDataReader reader = cmd.ExecuteReader(CommandBehavior.SingleRow))
{
reader.Read();
fourn =
GetInstance()
.CptaApplication.FactoryFournisseur.ReadNumero((string)reader["CT_Num"]);
}
}
}
}
IBODocumentAchat3 docAEntete = (IBODocumentAchat3)procDocA.Document;
docAEntete.DO_DateLivr = docV.DO_DateLivr;
docAEntete.SetDefaultFournisseur(fourn);
docAEntete.Collaborateur = docV.Collaborateur;
foreach (Contremarque cm in entry.Value)
{
IBODocumentAchatLigne3 docALigne = null;
if (cm.IsCommentaire)
{
docALigne = (IBODocumentAchatLigne3)docAEntete.FactoryDocumentLigne.Create();
docALigne.DL_Design = cm.Design;
docALigne.WriteDefault();
}
else
{
// Retrouve la ligne de vente pour ajouter l'article
foreach (IBODocumentVenteLigne3 ligneV in docV.FactoryDocumentLigne.List)
{
int DLNo = int.Parse(ligneV.InfoLibre["DLNo"]);
if (DLNo == cm.DlNo)
{
double qt = cm.QteTotal;
docALigne = (IBODocumentAchatLigne3)addArticleFromLigne(procDocA, ligneV, qt);
docALigne.DL_Design = cm.Design;
// Applique par defaut le conditionnement de vente
docALigne.DL_Qte = qt;
docALigne.EU_Qte = qt;
docALigne.EU_Enumere = ligneV.Article.Unite.Intitule;
docALigne.AF_RefFourniss = cm.RefFourn;
// Tente de convertir si fourn princ
foreach (IBOArticleTarifFournisseur3 tarif in docALigne.Article.FactoryArticleTarifFournisseur.List)
{
if (tarif.Fournisseur == fourn && tarif.AF_ConvDiv != tarif.AF_Conversion)
{
//Debug.Print($"{tarif.Article.AR_Ref}, {tarif.AF_Conversion}, {tarif.AF_ConvDiv}");
double qtColisee = qt * (tarif.AF_ConvDiv / tarif.AF_Conversion);
docALigne.EU_Qte = qtColisee;
docALigne.EU_Enumere = tarif.Unite.Intitule;
}
}
docALigne.SetDefaultRemise();
docALigne.Collaborateur = docV.Collaborateur;
docALigne.DO_Ref = cm.DlNo.ToString();
docALigne.DO_DateLivr = ligneV.DO_DateLivr;
docALigne.TxtComplementaire = cm.TexteComplementaire;
docALigne.Write();
}
}
}
}
// Si devis => Demande de prix
// On applique après lacréation des ligne car sinon le DO_Ref va se copier sur chaque ligne
if (CmLignes.First().Type == 0)
{
docAEntete.DO_Ref = "DEMANDE PRIX";
docAEntete.DO_Statut = DocumentStatutType.DocumentStatutTypeSaisie;
}
else
{
docAEntete.DO_Ref = "RESERVATION";
docAEntete.DO_Statut = DocumentStatutType.DocumentStatutTypeAPrepare;
}
// On vire les articles liés en doublons
// on le sait car le champs DO_Ref est vide
foreach (IBODocumentAchatLigne3 ligne in procDocA.Document.FactoryDocumentLigne.List)
{
if (ligne.DO_Ref == "")
{
ligne.Remove();
}
}
if (procDocA.CanProcess)
{
procDocA.Process();
foreach (IBODocumentAchatLigne3 ligne in GetDocument(docAEntete.DO_Piece).FactoryDocumentLigne.List)
{
if (ligne.Article != null && (ligne.Article.AR_Ref == "DIVERS" || ligne.Article.Famille.FA_CodeFamille == "UNIQUE"))
{
new DiversRepository().saveLigneAchat(ligne);
}
}
}
else
{
Log(GetProcessError(procDocA));
return;
}
Log($"Document {docAEntete.DO_Piece} créé.");
// Création des lignes de contremarque
// Log("Création des lignes de contremarque");
using (SqlConnection cnx = new SqlConnection(cnxString))
{
cnx.Open();
foreach (Contremarque cm in entry.Value)
{
if (cm.IsCommentaire || cm.IsRemarqueInterne)
{
continue;
}
using (SqlCommand cmd = cnx.CreateCommand())
{
cmd.CommandText = @"INSERT INTO F_CMLIEN(DL_NoOut, DL_NoIn, CM_Qte)
VALUES(@dlNoOut, (SELECT DL_No FROM F_DOCLIGNE WHERE DO_Ref = @dlNoOut AND DO_Piece = @doPiece), @cmQte)";
cmd.Parameters.AddWithValue("@dlNoOut", cm.DlNo.ToString());
cmd.Parameters.AddWithValue("@doPiece", docAEntete.DO_Piece);
cmd.Parameters.AddWithValue("@cmQte", Convert.ToDouble(cm.Qte, CultureInfo.CurrentCulture));
cmd.ExecuteNonQuery();
}
}
// Maj les NumPiece du doc achat
using (SqlCommand cmd = cnx.CreateCommand())
{
cmd.CommandText = "UPDATE F_DOCLIGNE SET DO_Ref = NULL, NumPiece = dbo.GET_CM_PIECE(DL_No) WHERE DO_Piece = @doPiece";
cmd.Parameters.AddWithValue("@doPiece", docAEntete.DO_Piece);
cmd.ExecuteNonQuery();
}
// Si c'est une commande intermag on envoie en intermag
if (entry.Value[0].IsInterMag)
{
// TODO A surveiller, reload le doc depuis la base car erreur Accès refusé
var docAchat = (IBODocumentAchat3)GetDocument(docAEntete.DO_Piece);
docAchat.DO_Statut = DocumentStatutType.DocumentStatutTypeSaisie;
docAchat.Write();
if (disableIntermag)
{
Log("La commande ne sera pas envoyée par intermag");
}
else
{
Log("Envoi de la commande intermag");
InterMagRepository imRepos = new InterMagRepository();
imRepos.Log += new InterMagRepository.LogEventHandler(Log);
imRepos.sendSqlCde(imRepos.getCommande(docAEntete.DO_Piece), entry.Value[0].SelectedFourn);
}
}
}
Log("------");
} // endforeach dict
// Maj les numPieces du doc vente
using (var cnx = new SqlConnection(cnxString))
{
cnx.Open();
using (var cmd = cnx.CreateCommand())
{
cmd.CommandText = "UPDATE F_DOCLIGNE SET DO_Ref = NULL, NumPiece = dbo.GET_CM_PIECE(DL_No) WHERE DO_Piece = @doPiece";
cmd.Parameters.AddWithValue("@doPiece", docV.DO_Piece);
cmd.ExecuteNonQuery();
}
}
#endregion Ajout contremarque
}