'Script modifié
'<Origine XEL>

'#######################
' Auteur:	EBM Informatique PM
' Date MAJ:	2000
' Logiciels:	Gestion 8 & X v2,3,4
' Description:	Parcours les articles possedant une famille et écrase les comptes comptables et les taux de tva par ceux présents dans les familles articles.
' Prérequis:	Remplir les comptes par défaut dans les familles
' Utilisation:	Menu stat/Editions Libres/Maj des comptes...
' Précaution:	Seuls les articles ayant une famille sont touchés. Aucune exception possible
'#######################

PageDef "HautPage...BasPage"

global msg

'Msg Avertissement
MsgAlert="Ce script remplace les données comptables des articles par ceux définis dans leur famille." & Car(13) &car(13)
MsgAlert=MsgAlert & "Sauvegarde préalable et vérification immédiate après traitement obligatoire"
Voir MsgAlert


SQL="UPDATE (Article INNER JOIN ArticleCompta ON Article.Code = ArticleCompta.CodeArticle) INNER JOIN FamArtCompta ON (Article.Famille = FamArtCompta.CodeFamille) AND (ArticleCompta.TypeCategorie = FamArtCompta.TypeCategorie) AND (ArticleCompta.Categorie = FamArtCompta.Categorie) SET ArticleCompta.TypeCategorie = [FamArtCompta].[TypeCategorie], ArticleCompta.Categorie = [FamArtCompta].[Categorie], ArticleCompta.Compte = [FamArtCompta].[Compte], ArticleCompta.Tva = [FamArtCompta].[Tva], ArticleCompta.Tpf1 = [FamArtCompta].[Tpf1], ArticleCompta.Tpf2 = [FamArtCompta].[Tpf2], ArticleCompta.CodeAnalytique = [FamArtCompta].[CodeAnalytique];"

Execute SQL

msg="Traitement effectué"

Imprimer "Page"