Index: vhUnitTest/APPS/PM/Maatwerk/OLM/TestOpMaatFactory.cls.xml =================================================================== diff -u -r29059 -r63145 --- vhUnitTest/APPS/PM/Maatwerk/OLM/TestOpMaatFactory.cls.xml (.../TestOpMaatFactory.cls.xml) (revision 29059) +++ vhUnitTest/APPS/PM/Maatwerk/OLM/TestOpMaatFactory.cls.xml (.../TestOpMaatFactory.cls.xml) (revision 63145) @@ -27,6 +27,7 @@ Do $$$AssertEquals(DwarslatClassificatieID,1327,"De dwarslat op maat werd gemaakt") Do $$$AssertEquals($P($G(^PRLINK("D",OrgaluxOpMaatProduct.GeefPRNr(),DwarslatOpMaatPRNr)),"\"),4,"4 verzaagde dwarslatten") Do $$$AssertTrue($D(^PRLINK("IKM",DwarslatOpMaatPRNr,OrgaluxOpMaatProduct.GeefPRNr())),"Kind moeder index is aanwezig") + Do $$$AssertEquals(OrgaluxOpMaatProduct.GeefBarcodeWaarde(),"") Do DELETE^PRODUKT2(OrgaluxOpMaatProduct.GeefPRNr(),1) @@ -62,6 +63,7 @@ Do $$$AssertEquals(DwarslatClassificatieID,1327,"De dwarslat op maat werd gemaakt") Do $$$AssertEquals($P($G(^PRLINK("D",OrgaluxOpMaatProduct.GeefPRNr(),DwarslatOpMaatPRNr)),"\"),1,"1 verzaagde dwarslat") Do $$$AssertTrue($D(^PRLINK("IKM",DwarslatOpMaatPRNr,OrgaluxOpMaatProduct.GeefPRNr())),"Kind moeder index is aanwezig") + Do $$$AssertEquals(OrgaluxOpMaatProduct.GeefBarcodeWaarde(),"") Do ..AssertTeVervangenBouwsteenIsNietAanwezigInIngekortOrgaluxProduct( OrgaluxOpMaatProduct, ProductAPI ) @@ -109,6 +111,7 @@ Do $$$AssertEquals(DwarslatClassificatieID,1327,"De dwarslat op maat werd gemaakt") Do $$$AssertEquals($P($G(^PRLINK("D",OrgaluxOpMaatProduct.GeefPRNr(),DwarslatOpMaatPRNr)),"\"),3,"3 verzaagde dwarslatten") Do $$$AssertTrue($D(^PRLINK("IKM",DwarslatOpMaatPRNr,OrgaluxOpMaatProduct.GeefPRNr())),"Kind moeder index is aanwezig") + Do $$$AssertEquals(OrgaluxOpMaatProduct.GeefBarcodeWaarde(),"") // TODO: Hier toch 1 eindprijs testen? Of gebeurt dat ergens anders al? Index: APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml =================================================================== diff -u -r29059 -r63145 --- APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml (.../AbstractOpMaatFactory.cls.xml) (revision 29059) +++ APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml (.../AbstractOpMaatFactory.cls.xml) (revision 63145) @@ -63,7 +63,11 @@ Do Gewijzigd^PRODUKT2(PRNr) Do Gewijzigd^PRODUKT2(IngekortProduct.GeefID()) - Quit ..ProductAPI.GeefProduct(PRNr) + #dim IngekortOrgaluxProduct As DOM.PM.Product = ..ProductAPI.GeefProduct(PRNr) + Do IngekortOrgaluxProduct.ZetBarcodeWaarde("") + Do IngekortOrgaluxProduct.Save() + + Quit IngekortOrgaluxProduct ]]>