SCRIPT DE RECODAGE D’UN ELEMENT DANS BATIGEST

/// PageDef « HautPage…BasPage » Form Demander « Ancien code Article »,Cdoldart,texte,25,ELEMEN Demander « Nouveau code Article  » CdNewart,texte,25 finform execute « update AnaConso set CodeElement = ‘ »&CdNewart& »‘ where CodeElement =' »&Cdoldcl& »‘  » execute « update AnaConsoDate set CodeElement = ‘ »&CdNewart& »‘ where CodeElement =' »&Cdoldart& »‘  » execute « update BibliLien set CodeOuvrage = ‘ »&CdNewart& »‘ where CodeOuvrage =' »&Cdoldart& »‘  » execute « update BibliLien set CodeArticle = ‘ »&CdNewart& »‘ where CodeArticle = ‘ »&Cdoldart& »‘  » execute « update BibliTech set code = ‘ »&CdNewart& »‘ where code = ‘ »&Cdoldart& »‘  » execute « update BonReceptionLigne set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update CmdFouLigne set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update CmdSsTraitLigne set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update DevisEtudeDebLigne set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update DevisLigne set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update ElementCompo set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update ElementCompo set CodeCompo = ‘ »&CdNewart& »‘ where CodeCompo = ‘ »&Cdoldart& »‘  » execute « update ElementDef set Code = ‘ »&CdNewart& »‘ where Code = ‘ »&Cdoldart& »‘  » execute « update ElementFrais set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update ElementMat set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update ElementMat set CodeMat = ‘ »&CdNewart& »‘ where CodeMat = ‘ »&Cdoldart& »‘  » execute « update ElementMvtStock set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update ElementPrixAchat set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update ElementRemp set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update ElementRemp set CodeRemp = ‘ »&CdNewart& »‘ where CodeRemp = ‘ »&Cdoldart& »‘  » execute « update ElementStock set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update FactureFourLigne set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update FactureLigne set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update FactureSsTraitLigne set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update OuvrageRecalcul set Code = ‘ »&CdNewart& »‘ where Code = ‘ »&Cdoldart& »‘  » execute « update SuiviConso set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update SuiviHisto set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update SuiviLibelle set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update SuiviPrev set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update SysEtudeDePrix set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update TacheResAff set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » execute « update TacheResPrev set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » ‘execute « update BonLivraisonLigne set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » ‘execute « update CommandeLigne set CodeElem = ‘ »&CdNewart& »‘ where CodeElem = ‘ »&Cdoldart& »‘  » Imprimer Page ///