1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117
| PROCEDURE SetReqModifArticle(sku, sSDesc, sDesc, sPublish, sSpecial, dMdate, sName, id, mPrix, nISouCategorie)
m_suffixe = "jos_"
bOk est un booléen = False
sErreur est une chaîne
:m_sRequeteUpdateArticle = "UPDATE " + ...
:m_sSuffixe+ "vm_product " + ...
"SET " + ...
"product_sku = '"+ sku +"', " + ...
"product_s_desc ='"+sSDesc+"', " + ...
"product_desc= '"+sDesc+"', " + ...
"product_publish = '" + sPublish + "', " + ...
"product_special = '" + sSpecial + "', " + ...
"mdate = " + dMdate + ", " + ...
"product_name = '"+sName+"' " + ...
"where product_id = " + id
// on met a jour l'article lui meme ------------------------------------------------
reqUpdateArticle est une Source de Données
HAnnuleDéclaration(reqUpdateArticle)
SI SQLExec(m_sRequeteUpdateArticle, reqUpdateArticle) ALORS
bOk = Vrai
SINON
bOk = Faux
SQLInfoGene(reqUpdateArticle)
//Erreur(SQL.MesErreur)
sErreur = SQL.MesErreur
FIN
HAnnuleDéclaration(reqUpdateArticle)
// on met a jour la table des tarifs -------------------------------------------
bAjout est booléen = Faux
nICombien est entier = 0
sTrouevPrixArticle est chaîne = "SELECT Count(*) as COMBIEN FROM " + :m_sSuffixe + "vm_product_price WHERE product_id = " + id
reqTrouveTarif est une Source de Données
HAnnuleDéclaration(reqTrouveTarif)
SI SQLExec(sTrouevPrixArticle, reqTrouveTarif) ALORS
nNbCol est entier = SQL.NbCol
SQLPremier(reqTrouveTarif)
nICombien = SQLCol(reqTrouveTarif, 1)
SI nICombien <= 0 ALORS
bAjout = Vrai
FIN
//trace(nICombien)
bOk = Vrai
SINON
bOk = Faux
SQLInfoGene(reqTrouveTarif)
//Erreur(SQL.MesErreur)
sErreur = SQL.MesErreur
FIN
HAnnuleDéclaration(reqTrouveTarif)
sTableTarif est chaîne
SI bAjout = Vrai ALORS
sTableTarif = "INSERT INTO " + :m_sSuffixe + "vm_product_price (product_id, product_price, mdate, cdate, product_currency, shopper_group_id) VALUES ( " + id + ","+ mPrix + ", " + dMdate + "," + dMdate + ",'" + gclRequete:GetDevise() + "'," + 5 +")"
SINON
sTableTarif = "UPDATE " + :m_sSuffixe + "vm_product_price SET product_price = " + mPrix + ", mdate = " + dMdate + " WHERE product_id = " + id
FIN
reqUpdateTarif est une Source de Données
HAnnuleDéclaration(reqUpdateTarif)
SI SQLExec(sTableTarif, reqUpdateTarif) ALORS
bOk = Vrai
SINON
bOk = Faux
SQLInfoGene(reqUpdateTarif)
//Erreur(SQL.MesErreur)
sErreur = SQL.MesErreur
FIN
HAnnuleDéclaration(reqUpdateTarif)
// On met a jour la tables des categories produit ------------------------------------------------------------------------------------
sUpdateCategorieProduit est chaîne = "UPDATE " + :m_sSuffixe + "vm_product_category_xref SET category_id = " + nISouCategorie + " WHERE product_id = " + id
reqUpdateCategorieProduit est une Source de Données
HAnnuleDéclaration(reqUpdateCategorieProduit)
SI SQLExec(sUpdateCategorieProduit, reqUpdateCategorieProduit) ALORS
bOk = Vrai
SINON
bOk = Faux
SQLInfoGene(reqUpdateCategorieProduit)
//Erreur(SQL.MesErreur)
sErreur = SQL.MesErreur
FIN
HAnnuleDéclaration(reqUpdateCategorieProduit)
// -----------------------------------------------------------------------------------------------------------------------------------
// On met à jour la tables des articles par fournisseur ------------------------------------------------------------------------------
//HLitRecherchePremier(jos_vm_product_mf_xref,product_id, idARticle)
//SI HTrouve(jos_vm_product_mf_xref) ALORS
// jos_vm_product_mf_xref.manufacturer_id = idFabricant
// HModifie(jos_vm_product_mf_xref)
//FIN
sUpdateArticleParFournisseur est chaîne = "UPDATE " + :m_sSuffixe + "vm_product_mf_xref SET manufacturer_id = " + 1 + " WHERE product_id = " + id
reqUpdateArticleParFournisseur est une Source de Données
HAnnuleDéclaration(reqUpdateArticleParFournisseur)
SI SQLExec(sUpdateArticleParFournisseur, reqUpdateArticleParFournisseur) ALORS
bOk = Vrai
SINON
bOk = Faux
SQLInfoGene(reqUpdateArticleParFournisseur)
//Erreur(SQL.MesErreur)
sErreur = SQL.MesErreur
FIN
HAnnuleDéclaration(reqUpdateArticleParFournisseur)
// --------------------------------------------------------------------------------------------------------------------------------
// ------------------------------------------------------------------------------
SI bOk ALORS
Info("L'article : " + sName +" a été MAJ...")
SINON
Info("L'article : " + sName +" n'a pas pu être MAJ..." + CRLF + sErreur)
FIN |
Partager