/// <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());
}
}
