1 vhConsistency.Check %Boolean 1 Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,1,"vhConsistency.Checks.ProductData") %Status "_Product.GeefIdentNr()) Do AdministratiefProduct.ZetIdentNr(Product.GeefIdentNr()) } If (AdministratiefProduct.GeefKorttekst() '= Product.GeefKorttekst()) { Do ..VoegMeldingToe("Product "_Product.GeefID()_" heeft verschillende korttekst: "_AdministratiefProduct.GeefKorttekst()_" <> "_Product.GeefKorttekst()) Do AdministratiefProduct.ZetKorttekst(Product.GeefKorttekst()) } Do ..ControleerLangtekst(.AdministratiefProduct,Product,##class(DOM.enu.Taal).Nederlands()) Do ..ControleerLangtekst(.AdministratiefProduct,Product,##class(DOM.enu.Taal).Engels()) Do ..ControleerLangtekst(.AdministratiefProduct,Product,##class(DOM.enu.Taal).Frans()) Do ..ControleerLangtekst(.AdministratiefProduct,Product,##class(DOM.enu.Taal).Duits()) } Do AdministratiefProduct.Save() } Quit ..GeefAantalMeldingen()=0 ]]> "_Product.GeefLangtekst(Taal)) Do AdministratiefProduct.ZetLangtekst(Taal,Product.GeefLangtekst(Taal)) Do ..VoegMeldingToe($C(9)_"Automatisch gecorrigeerd naar '"_Product.GeefLangtekst(Taal)_"'") } ]]>