/// <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 }
/// <summary> /// Cde Retro: Duplique le bon de commande fournisseur en cde magasin /// </summary> /// <param name="docOrigin"></param> /// <param name="magPieces"></param> /// <param name="targetDb"></param> private void editCommandeRetro(IBODocumentAchat3 docOrigin, string magPieces, string targetDb) { try { // Commande RETRO IBOFournisseur3 fourn; using (SqlConnection cnx = new SqlConnection(cnxString)) { cnx.Open(); using (SqlCommand cmd = cnx.CreateCommand()) { cmd.CommandText = "SELECT CT_Num FROM F_COMPTET WHERE CT_Classement = @ctClassement AND CT_Type = 1"; cmd.Parameters.AddWithValue("@ctClassement", targetDb); using (SqlDataReader reader = cmd.ExecuteReader(CommandBehavior.SingleRow)) { if (reader.HasRows) { reader.Read(); fourn = GetInstance().CptaApplication.FactoryFournisseur.ReadNumero(reader["CT_Num"].ToString()); } else { throw new Exception($"Fournisseur '{targetDb}' non trouvé"); } } } } // Duplication du doc d'origine en document d'achat magasin IPMDocument procDoc = GetInstance().CreateProcess_Document(DocumentType.DocumentTypeAchatCommandeConf); IBODocumentAchat3 docNew = (IBODocumentAchat3)procDoc.Document; docNew.SetDefaultDO_Piece(); docNew.DO_Statut = DocumentStatutType.DocumentStatutTypeConfirme; docNew.DO_Ref = magPieces; docNew.SetDefaultFournisseur(fourn); docNew.Collaborateur = docOrigin.Collaborateur; IBODocumentAchatLigne3 docNewLigne; foreach (IBODocumentAchatLigne3 docOrigineLigne in docOrigin.FactoryDocumentLigne.List) { if (docOrigineLigne.Article == null) { // Ligne de commentaire docNewLigne = (IBODocumentAchatLigne3)docNew.FactoryDocumentLigne.Create(); docNewLigne.DL_Design = docOrigineLigne.DL_Design; docNewLigne.Write(); } else { docNewLigne = (IBODocumentAchatLigne3)addArticleFromLigne(procDoc, docOrigineLigne, docOrigineLigne.DL_Qte); docNewLigne.AF_RefFourniss = docOrigineLigne.AF_RefFourniss; docNewLigne.Taxe[0] = GetInstance().CptaApplication.FactoryTaxe.ReadCode("8"); docNewLigne.DL_PrixUnitaire = docOrigineLigne.DL_MontantHT / docOrigineLigne.DL_Qte; docNewLigne.SetDefaultRemise(); docNewLigne.DO_Ref = docOrigineLigne.InfoLibre["DLNo"]; docNewLigne.TxtComplementaire = docOrigineLigne.TxtComplementaire; docNewLigne.DL_Design = docOrigineLigne.DL_Design; docNewLigne.Write(); } } if (procDoc.CanProcess) { procDoc.Process(); foreach (IBODocumentAchatLigne3 ligne in GetDocument(docNew.DO_Piece).FactoryDocumentLigne.List) { if (ligne.Article != null && (ligne.Article.AR_Ref == "DIVERS" || ligne.Article.Famille.FA_CodeFamille == "UNIQUE")) { new DiversRepository().saveLigneAchat(ligne); } } using (SqlConnection cnx = new SqlConnection(cnxString)) { cnx.Open(); // Met à jour les infos libres using (SqlCommand cmd = cnx.CreateCommand()) { cmd.CommandText = @"UPDATE F_DOCENTETE SET [Date Statut] = GETDATE(), [RETRO_FOURN] = @retroFourn WHERE DO_Piece = @doPiece"; cmd.Parameters.AddWithValue("@doPiece", docNew.DO_Piece); cmd.Parameters.AddWithValue("@retroFourn", docOrigin.Fournisseur.CT_Num); cmd.ExecuteNonQuery(); } } docNew.Refresh(); } else { throw new Exception(GetProcessError(procDoc)); } // Met à jour la référence du doc origine docOrigin.DO_Ref = $"Voir {docNew.DO_Piece}"; docOrigin.DO_Statut = DocumentStatutType.DocumentStatutTypeConfirme; docOrigin.Write(); // Contremarque using (SqlConnection cnx = new SqlConnection(cnxString)) { cnx.Open(); SqlTransaction transaction = cnx.BeginTransaction(); try { using (SqlCommand cmd = cnx.CreateCommand()) { cmd.Transaction = transaction; // Recup les lignes du doc d'origine cmd.CommandText = @"SELECT CM.DL_NoIn, CM.DL_NoOut, CM_Qte FROM F_CMLIEN CM JOIN F_DOCLIGNE DL ON DL.DL_No = CM.DL_NoIn WHERE DL.DO_PIECE = @doPiece "; cmd.Parameters.AddWithValue("@doPiece", docOrigin.DO_Piece); using (SqlDataReader reader = cmd.ExecuteReader()) { if (reader.HasRows) { // Y a de la contremarque sur le doc while (reader.Read()) { int dlNoIn = (int)reader["DL_NoIn"]; using (SqlCommand cmd3 = cnx.CreateCommand()) { cmd3.Transaction = transaction; cmd3.CommandText = "UPDATE F_CMLIEN SET DL_NoIn = (SELECT DL_No FROM F_DOCLIGNE WHERE DO_Ref = @dlNoIn) WHERE DL_NoIn = @dlNoIn"; cmd3.Parameters.AddWithValue("@dlNoIn", dlNoIn.ToString()); cmd3.ExecuteNonQuery(); } // On remplace DO_Ref par sa valeur réelle using (SqlCommand cmdUpd = cnx.CreateCommand()) { cmdUpd.Transaction = transaction; cmdUpd.CommandText = "UPDATE F_DOCLIGNE SET DO_Ref = @doRef WHERE DO_Ref = @uid"; cmdUpd.Parameters.AddWithValue("@doRef", magPieces); cmdUpd.Parameters.AddWithValue("@uid", docOrigin.DO_Piece + dlNoIn); cmdUpd.ExecuteNonQuery(); } } } } transaction.Commit(); } } catch (Exception e) { transaction.Rollback(); throw new Exception(e.ToString()); } } Log($"{dbName} :: Doc Achat {docOrigin.DO_Piece} dupliqué vers le doc achat {docNew.DO_Piece}"); // Met à jour la commande distante IntermagServiceClient client = createClient(targetDb); client.SetDoRef(docNew.DO_Piece, targetDb, magPieces.Split('/')[0]); client.Close(); // Suppression du document fournisseur d'origine if (MessageBox.Show( "Souhaitez-vous supprimer le document fournisseur d'origine?", "Suppression doc origine", MessageBoxButtons.YesNo) == DialogResult.Yes) { docOrigin.Remove(); } else { Log($"Vous devrez supprimer le document d'achat n° {docOrigin.DO_Piece} manuellement."); // Dévérouille le doc docOrigin.Read(); } } catch (Exception e) { throw new Exception(e.ToString()); } }