Index: vhUnitTest/DOM/CRM/TestMaakKlant.cls.xml =================================================================== diff -u -r950 -r966 --- vhUnitTest/DOM/CRM/TestMaakKlant.cls.xml (.../TestMaakKlant.cls.xml) (revision 950) +++ vhUnitTest/DOM/CRM/TestMaakKlant.cls.xml (.../TestMaakKlant.cls.xml) (revision 966) @@ -1,9 +1,9 @@ - + 1 vhUnitTest.TestCase -62174,38422.594743 +62174,60388.689928 0 @@ -51,35 +51,35 @@ Do $$$AssertEquals(KlantObject.BTWNummer,Klant.GeefBTWNr(),"BTWNummer is gelijk.") //Indexen controleren - Set KlantIndex = Klant.GeefKlantIndex() - Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",101,Klant.GeefGoedeIndexSleutel(Klant.GeefNummer())),"Index op klantnummer is ingesteld.") - Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",102,Klant.GeefKlantIndex()),"Index op klantindex is ingesteld.") - Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",105,Klant.GeefGoedeIndexSleutel(Klant.GeefAdres().GeefStraat())),"Index op straat is ingesteld.") - Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",106,Klant.GeefGoedeIndexSleutel(Klant.GeefAdres().GeefPostcode())),"Index op postcode is ingesteld.") - Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",107,Klant.GeefGoedeIndexSleutel(Klant.GeefAdres().GeefGemeente())),"Index op gemeente is ingesteld.") - Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",113,Klant.GeefGoedeIndexSleutel(Klant.GeefTelefoon1())),"Index op telefoon is ingesteld.") - Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",116,Klant.GeefGoedeIndexSleutel(Klant.GeefBTWNr())),"Index op btwnr is ingesteld.") - Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",226,Klant.GeefGoedeIndexSleutel(Klant.GeefTKFax())),"Index op Tkfax is ingesteld.") + Set KlantIndex = Klant.GeefKlantIndexKKL() + Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",101,Klant.GeefIndexSleutel(Klant.GeefNummer())),"Index op klantnummer is ingesteld.") + Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",102,Klant.GeefKlantIndexKKL()),"Index op klantindex is ingesteld.") + Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",105,Klant.GeefIndexSleutel(Klant.GeefAdres().GeefStraat())),"Index op straat is ingesteld.") + Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",106,Klant.GeefIndexSleutel(Klant.GeefAdres().GeefPostcode())),"Index op postcode is ingesteld.") + Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",107,Klant.GeefIndexSleutel(Klant.GeefAdres().GeefGemeente())),"Index op gemeente is ingesteld.") + Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",113,Klant.GeefIndexSleutel(Klant.GeefTelefoon1())),"Index op telefoon is ingesteld.") + Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",116,Klant.GeefIndexSleutel(Klant.GeefBTWNr())),"Index op btwnr is ingesteld.") + Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",226,Klant.GeefIndexSleutel(Klant.GeefTKFax())),"Index op Tkfax is ingesteld.") - Do $$$AssertEquals(^KK1(Klant.GeefNummer()),Klant.GeefKlantIndex(),"Index KK1 op klantnr is ingesteld.") + Do $$$AssertEquals(^KK1(Klant.GeefNummer()),Klant.GeefKlantIndexKKL(),"Index KK1 op klantnr is ingesteld.") /// NAAM wijzigen /// Hierbij worden alle indexen ook aangepast in ^INDEX en ^KK1 /// En ook de sleutel van ^KKL Do Klant.ZetNaam("UT Klant") Do Klant.Save() Kill KlantIndex - Set KlantIndex = Klant.GeefKlantIndex() + Set KlantIndex = Klant.GeefKlantIndexKKL() Do $$$AssertEquals(KlantIndex,"UTKLANT "_Klant.GeefNummer(),"KlantIndex is correct aangepast na saven.") Do $$$AssertEquals("UT KLANT",Klant.GeefNaam(),"KlantNaam is gelijk na saven.") - Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",101,Klant.GeefGoedeIndexSleutel(Klant.GeefNummer())),"Index op klantnummer is correct aangepast na saven.") - Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",102,Klant.GeefKlantIndex()),"Index op klantindex is ingesteld.") - Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",105,Klant.GeefGoedeIndexSleutel(Klant.GeefAdres().GeefStraat())),"Index op straat is correct aangepast na saven.") - Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",106,Klant.GeefGoedeIndexSleutel(Klant.GeefAdres().GeefPostcode())),"Index op postcode is correct aangepast na saven.") - Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",107,Klant.GeefGoedeIndexSleutel(Klant.GeefAdres().GeefGemeente())),"Index op gemeente is correct aangepast na saven.") - Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",113,Klant.GeefGoedeIndexSleutel(Klant.GeefTelefoon1())),"Index op telefoon is correct aangepast na saven.") - Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",116,Klant.GeefGoedeIndexSleutel(Klant.GeefBTWNr())),"Index op btwnr is correct aangepast na saven.") - Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",226,Klant.GeefGoedeIndexSleutel(Klant.GeefTKFax())),"Index op Tkfax is correct aangepast na saven.") + Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",101,Klant.GeefIndexSleutel(Klant.GeefNummer())),"Index op klantnummer is correct aangepast na saven.") + Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",102,Klant.GeefKlantIndexKKL()),"Index op klantindex is ingesteld.") + Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",105,Klant.GeefIndexSleutel(Klant.GeefAdres().GeefStraat())),"Index op straat is correct aangepast na saven.") + Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",106,Klant.GeefIndexSleutel(Klant.GeefAdres().GeefPostcode())),"Index op postcode is correct aangepast na saven.") + Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",107,Klant.GeefIndexSleutel(Klant.GeefAdres().GeefGemeente())),"Index op gemeente is correct aangepast na saven.") + Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",113,Klant.GeefIndexSleutel(Klant.GeefTelefoon1())),"Index op telefoon is correct aangepast na saven.") + Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",116,Klant.GeefIndexSleutel(Klant.GeefBTWNr())),"Index op btwnr is correct aangepast na saven.") + Do $$$AssertEquals(KlantIndex,^INDEX("K","KL",226,Klant.GeefIndexSleutel(Klant.GeefTKFax())),"Index op Tkfax is correct aangepast na saven.") Do $$$AssertEquals(^KK1(Klant.GeefNummer()),KlantIndex,"Index KK1 op klantnr is correct aangepast na saven.") @@ -105,7 +105,7 @@ - + Index: DOM/HR/Protime/Werknemer.cls.xml =================================================================== diff -u -r946 -r966 --- DOM/HR/Protime/Werknemer.cls.xml (.../Werknemer.cls.xml) (revision 946) +++ DOM/HR/Protime/Werknemer.cls.xml (.../Werknemer.cls.xml) (revision 966) @@ -1,13 +1,13 @@ - + persistent vhLib.Macro 1 Werknemers MySQLStorage %Library.Persistent -62172,40003.420733 +62174,58084.508159 61699,60987.846246 0 @@ -132,6 +132,21 @@ ]]> + +Datum:%Date +%Boolean + + + DOM.CRM.dto.Klant ^DOM.HR.Protime.WerknemerS - + Index: DOM/EC/OL/Winkelkar/Visitor/WinkelkarToOfferte.cls.xml =================================================================== diff -u -r946 -r966 --- DOM/EC/OL/Winkelkar/Visitor/WinkelkarToOfferte.cls.xml (.../WinkelkarToOfferte.cls.xml) (revision 946) +++ DOM/EC/OL/Winkelkar/Visitor/WinkelkarToOfferte.cls.xml (.../WinkelkarToOfferte.cls.xml) (revision 966) @@ -1,10 +1,10 @@ - + BL.EC.Common,BL.Derde.KlantSpecifiek,%VHMacro,%occStatus,TECH.Error 1 WinkelkarVisitor -62171,48787.963771 +62174,61283.203508 0 @@ -98,6 +98,9 @@ 1 DOM.CRM.Klant - + Index: vhUnitTest/APPS/HR/ProTime/TestFacade.cls.xml =================================================================== diff -u -r950 -r966 --- vhUnitTest/APPS/HR/ProTime/TestFacade.cls.xml (.../TestFacade.cls.xml) (revision 950) +++ vhUnitTest/APPS/HR/ProTime/TestFacade.cls.xml (.../TestFacade.cls.xml) (revision 966) @@ -1,11 +1,11 @@ - + do ##class(vhUnitTest.Manager).RunTest("/display=all","APPS.HR.ProTime.TestFacade") 1 vhUnitTest.TestCase -62174,37705.408629 +62174,60375.714519 0 @@ -36,9 +36,9 @@ For i=-3:1:-1 { Set ProTimeNummer = i - Set Klant = KlantAPI.GeefMedewerker(ProTimeNummer) + Set Klant = KlantAPI.GeefKlantViaProtimeNr(ProTimeNummer) if ($IsObject(Klant)){ - Set KlantIndex = Klant.GeefKlantIndex() + Set KlantIndex = Klant.GeefKlantIndexKKL() Set KlantNummer = Klant.GeefNummer() Do Klant.VerwijderIndexen() @@ -58,21 +58,21 @@ Bij deze medewerkers is het de 'initiële' import zogezegd. @@ -100,14 +100,17 @@ Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI() - Set Klant1 = KlantAPI.GeefMedewerker(-1) + Set Klant1 = KlantAPI.GeefKlantViaProtimeNr(-1) Do $$$AssertTrue($IsObject(Klant1), "Unit Test1 medewerker bestaat reeds als klant.") + Do $$$AssertEquals(Klant1.GeefCommercieleStatus(),##class(DOM.CRM.enu.CommercieleStatus).Actief(),"Medewerker1 is commercieel actief als klant.") - Set Klant2 = KlantAPI.GeefMedewerker(-2) + Set Klant2 = KlantAPI.GeefKlantViaProtimeNr(-2) Do $$$AssertTrue($IsObject(Klant2), "Unit Test2 medewerker bestaat reeds als klant.") + Do $$$AssertEquals(Klant2.GeefCommercieleStatus(),##class(DOM.CRM.enu.CommercieleStatus).Actief(),"Medewerker2 is commercieel actief als klant.") - Set Klant3 = KlantAPI.GeefMedewerker(-3) + Set Klant3 = KlantAPI.GeefKlantViaProtimeNr(-3) Do $$$AssertTrue($IsObject(Klant3), "Unit Test3 medewerker bestaat reeds als klant.") + Do $$$AssertEquals(Klant3.GeefCommercieleStatus(),##class(DOM.CRM.enu.CommercieleStatus).Actief(),"Medewerker3 is commercieel actief als klant.") Set ProTimeFacade = ##class(vhUnitTest.APPS.HR.ProTime.FacadeUpdate).%New() @@ -155,5 +158,5 @@ - + Index: DOM/CRM/KlantAPI.cls.xml =================================================================== diff -u -r946 -r966 --- DOM/CRM/KlantAPI.cls.xml (.../KlantAPI.cls.xml) (revision 946) +++ DOM/CRM/KlantAPI.cls.xml (.../KlantAPI.cls.xml) (revision 966) @@ -1,9 +1,9 @@ - + 1 1 -62171,50092.383067 +62174,58548.0629 0 @@ -25,7 +25,7 @@ TECH.Iterator - + Zoekt tussen de klanten de medewerkers van VanHoecke en Halux Dit op basis van het PersNr vanuit ProTime dat kan worden opgegeven. @@ -37,5 +37,5 @@ ]]> - + Index: vhLib/OldSchool.cls.xml =================================================================== diff -u -r734 -r966 --- vhLib/OldSchool.cls.xml (.../OldSchool.cls.xml) (revision 734) +++ vhLib/OldSchool.cls.xml (.../OldSchool.cls.xml) (revision 966) @@ -1,9 +1,9 @@ - + 0 %RegisteredObject -61957,64853.146675 +62174,37646.839908 0 @@ -14,10 +14,11 @@ Set D = $get(D,"\") Set U = $get(U,";") Set Q = $get(Q,"K") + Set QT = $get(QT) Quit ]]> - + Index: DOM/CRM/Klant.cls.xml =================================================================== diff -u -r950 -r966 --- DOM/CRM/Klant.cls.xml (.../Klant.cls.xml) (revision 950) +++ DOM/CRM/Klant.cls.xml (.../Klant.cls.xml) (revision 966) @@ -1,9 +1,9 @@ - + 1 1 -62173,60877.839103 +62174,60367.744263 0 @@ -132,7 +132,7 @@ TECH.Iterator - + 1 %String Telefoon1:%String - + Index: DOM/CRM/impl/KlantImpl.cls.xml =================================================================== diff -u -r950 -r966 --- DOM/CRM/impl/KlantImpl.cls.xml (.../KlantImpl.cls.xml) (revision 950) +++ DOM/CRM/impl/KlantImpl.cls.xml (.../KlantImpl.cls.xml) (revision 966) @@ -1,9 +1,9 @@ - + 1 DOM.CRM.Klant,%RegisteredObject -62173,60856.794474 +62174,60360.613078 0 @@ -91,10 +91,10 @@ ]]> - + Sleutel:%String %String - @@ -160,9 +160,9 @@ ]]> - + %String - @@ -230,5 +230,5 @@ ]]> - + Index: DOM/CRM/impl/DataM/DataMKlant.cls.xml =================================================================== diff -u -r950 -r966 --- DOM/CRM/impl/DataM/DataMKlant.cls.xml (.../DataMKlant.cls.xml) (revision 950) +++ DOM/CRM/impl/DataM/DataMKlant.cls.xml (.../DataMKlant.cls.xml) (revision 966) @@ -1,10 +1,10 @@ - + TECH.Error 1 DOM.CRM.impl.DataM.DataMKlantBase -62174,38666.977193 +62174,62477.197921 0 @@ -22,7 +22,7 @@ 2 - + %Integer 4 @@ -147,10 +147,10 @@ /// Nieuwe gegevens in de global wegschrijven Set ^DKL("K","KL.A",..KlantNummer,..#AlgemeneGegevensNode) = ..AlgemeneGegevens - Set ^KKL(..GeefKlantIndex(),..#AlgemeneGegevensNode) = ..AlgemeneGegevens + Set ^KKL(..GeefKlantIndexKKL(),..#AlgemeneGegevensNode) = ..AlgemeneGegevens /// In KKL moet alles verplaatst worden - Do ..IndexGewijzigd(IndexUpdated, OudeKlantIndex) + //Do ..IndexGewijzigd(IndexUpdated, OudeKlantIndex) /// De vhisie-accounts verwijderen voor deze klant. If (..ActiefChanged){ @@ -160,25 +160,22 @@ ..GeefActiefStatus() = ##class(DOM.CRM.enu.ActiefStatus).Verwijderd()) { /// vhisie accounts verwijderen - Do V6^KCOAK(..GeefKlantIndex()) + Do V6^KCOAK(..GeefKlantIndexKKL()) } } } If (..BetalingsGegevens1Dirty){ Set OudeBetalingsGegevens = ^DKL("K","KL.A",..KlantNummer,..#BetalingsGegevens1Node) Do ..LogWijzigingen(..KlantNummer, ..#BetalingsGegevens1Node, OudeBetalingsGegevens, ..BetalingsGegevens1) - /// Indexen updaten indien nodig - Set IndexUpdated = 0 If (..GeefTKFax() '= $Piece(OudeBetalingsGegevens,"\",26)) { Do ..VerwijderIndexen() Do ..BouwIndexenOp() - Set IndexUpdated = 1 } Set ^DKL("K","KL.A",..KlantNummer,..#BetalingsGegevens1Node) = ..BetalingsGegevens1 - Set ^KKL(..GeefKlantIndex(),..#BetalingsGegevens1Node) = ..BetalingsGegevens1 + Set ^KKL(..GeefKlantIndexKKL(),..#BetalingsGegevens1Node) = ..BetalingsGegevens1 /// In KKL moet alles verplaatst worden Do ..IndexGewijzigd(IndexUpdated, OudeKlantIndex) @@ -189,14 +186,14 @@ Do ..LogWijzigingen(..KlantNummer, ..#BetalingsGegevens2Node, OudeBetalingsGegevens, ..BetalingsGegevens2) Set ^DKL("K","KL.A",..KlantNummer,..#BetalingsGegevens2Node) = ..BetalingsGegevens2 - Set ^KKL(..GeefKlantIndex(),..#BetalingsGegevens2Node) = ..BetalingsGegevens2 + Set ^KKL(..GeefKlantIndexKKL(),..#BetalingsGegevens2Node) = ..BetalingsGegevens2 } If (..Opmerkingen2Dirty){ - Set OudeOpmerkigen2 = ^DKL("K","KL.A",..KlantNummer,..#Opmerkigen2Node) - Do ..LogWijzigingen(..KlantNummer, ..#Opmerkigen2Node, OudeOpmerkigen2, ..Opmerkingen2) + Set OudeOpmerkigen2 = ^DKL("K","KL.A",..KlantNummer,..#Opmerkingen2Node) + Do ..LogWijzigingen(..KlantNummer, ..#Opmerkingen2Node, OudeOpmerkigen2, ..Opmerkingen2) - Set ^DKL("K","KL.A",..KlantNummer,..#Opmerkigen2Node) = ..Opmerkingen2 - Set ^KKL(..GeefKlantIndex(),..#Opmerkigen2Node) = ..Opmerkingen2 + Set ^DKL("K","KL.A",..KlantNummer,..#Opmerkingen2Node) = ..Opmerkingen2 + Set ^KKL(..GeefKlantIndexKKL(),..#Opmerkingen2Node) = ..Opmerkingen2 } } Quit $$$OK @@ -209,7 +206,7 @@ Hier specifiek in KKL de nodes overkopiëren. IndexUpdated:%Boolean,OudeKlantIndex:%String KlantNummer:%Integer,Node:%Integer,OudeGegevens:%String,NieuweGegevens:%String,OverTeSlagenPieces:%ListOfDataTypes="" @@ -260,12 +258,33 @@ ]]> + + vraag voor FRANK of PIETER + +]]> + + + + + + + + + + 1 %String @@ -289,6 +309,7 @@ @@ -311,6 +332,7 @@ @@ -322,10 +344,11 @@ - + Index: DOM/CRM/impl/DataM/DataMKlantBase.cls.xml =================================================================== diff -u -r950 -r966 --- DOM/CRM/impl/DataM/DataMKlantBase.cls.xml (.../DataMKlantBase.cls.xml) (revision 950) +++ DOM/CRM/impl/DataM/DataMKlantBase.cls.xml (.../DataMKlantBase.cls.xml) (revision 966) @@ -1,12 +1,12 @@ - + JBL + 2011-03-21 vhLib.Macro 1 DOM.CRM.Klant,%RegisteredObject -62174,35846.445466 +62174,61538.786485 0 @@ -60,17 +60,19 @@ + +Bouwt de indexen op van een bestaand object %Status +Verwijdert indexen van een bestaand object Gevaarlijk om uit te voeren, weet wat je hierbij doet ! %Status - -Sleutel:%String -%String - - - - + -Index voor KKL via KK1 ophalen. +Index voor KKL via KK1 ophalen. %String + +Sleutel:%String +%String + + + 1 - + Index: APPS/HR/ProTime/Facade.cls.xml =================================================================== diff -u -r950 -r966 --- APPS/HR/ProTime/Facade.cls.xml (.../Facade.cls.xml) (revision 950) +++ APPS/HR/ProTime/Facade.cls.xml (.../Facade.cls.xml) (revision 966) @@ -1,10 +1,12 @@ - + + +Do ##class(APPS.HR.ProTime.Facade).%New().SynchroniseerNaarKlant() %VHMacro 1 %RegisteredObject -62174,37734.66078 +62174,60670.824801 0 @@ -63,7 +65,7 @@ Set Persoon = ##class(DOM.HR.Protime.Werknemer).%OpenId(ProTimePersNrsIt.Next()) If ('$$$StartsWith(Persoon.Naam,..#ProTimeVakantiejobTag) && '$$$StartsWith(Persoon.Naam,..#ProTimeInterimTag) && - '$$$StartsWith(Persoon.Statuut,..#StatuutInterimTag)) // &&(Persoon.UitDienst = "0") uit dienst moet er wel in staan, omdat deze om niet actief moeten gezet worden als klant. + '$$$StartsWith(Persoon.Statuut,..#StatuutInterimTag)) { Do ProTimeWerknemers.Insert(Persoon) } @@ -72,6 +74,20 @@ ]]> + + + + + + + + Werknemers vanuit ProTime synchroniseren als Klant @@ -88,51 +104,69 @@ While (ProTimeWerknemersIt.HasNext()) { Set ProTimeWerknemer = ProTimeWerknemersIt.Next() - Set KlantObject = ProTimeWerknemer.GeefKlantObject() + Set dtoKlant = ProTimeWerknemer.GeefKlantObject() - Set Klant = KlantAPI.GeefMedewerker(ProTimeWerknemer.Nr) + Set Klant = KlantAPI.GeefKlantViaProtimeNr(ProTimeWerknemer.Nr) If ($IsObject(Klant)) { - If (ProTimeWerknemer.UitDienst '= 0) + If (ProTimeWerknemer.IsInDienst()) { + /// De medewerker is in dienst. + If (Klant.GeefCommercieleStatus() = ##class(DOM.CRM.enu.CommercieleStatus).NietActief() || + Klant.GeefActiefStatus() = ##class(DOM.CRM.enu.ActiefStatus).BuitenGebruik()) + { + Do Klant.ZetCommercieleStatus(##class(DOM.CRM.enu.CommercieleStatus).Actief()) + Do Klant.ZetActiefStatus(##class(DOM.CRM.enu.ActiefStatus).Actief()) + } + }Else{ /// De medewerker is uit dienst. - w "Uitdienst :",KlantObject.KlantNaam,! - Do Klant.ZetCommercieleStatus(##class(DOM.CRM.enu.CommercieleStatus).NietActief()) - Do Klant.ZetActiefStatus(##class(DOM.CRM.enu.ActiefStatus).BuitenGebruik()) + If ((Klant.GeefCommercieleStatus() '= ##class(DOM.CRM.enu.CommercieleStatus).NietActief()) || + (Klant.GeefActiefStatus() '= ##class(DOM.CRM.enu.ActiefStatus).BuitenGebruik())) + { + Do Klant.ZetCommercieleStatus(##class(DOM.CRM.enu.CommercieleStatus).NietActief()) + Do Klant.ZetActiefStatus(##class(DOM.CRM.enu.ActiefStatus).BuitenGebruik()) + } } /// De medewerker bestaat reeds als klant, dus wijzigingen doorvoeren - If (Klant.GeefNaam() '= KlantObject.KlantNaam){ - Do Klant.ZetNaam(KlantObject.KlantNaam) + If (Klant.GeefNaam() '= dtoKlant.KlantNaam){ + Do Klant.ZetNaam(dtoKlant.KlantNaam) } - Set KAdres = Klant.GeefAdres() - Set KOAdres = KlantObject.Adres - If ((KAdres.GeefStraat() '= KOAdres.GeefStraat()) || - (KAdres.GeefPostcode() '= KOAdres.GeefPostcode()) || - (KAdres.GeefGemeente() '= KOAdres.GeefGemeente()) || - (KAdres.GeefLandNr() '= KOAdres.GeefLandNr())) - { - Do Klant.ZetAdres(KOAdres) + + Set dtoKlantAdres = dtoKlant.Adres + If ..IsAdresGewijzigd(Klant.GeefAdres(),dtoKlantAdres) { + Do Klant.ZetAdres(dtoKlantAdres) } Do Klant.Save() }Else{ - w KlantObject.KlantNaam,! /// De klant bestond nog niet, dus nieuwe aanmaken - Set Klant = KlantAPI.MaakKlant(KlantObject,##class(DOM.CRM.enu.TypeTemplateKlant).Medewerker()) - If (ProTimeWerknemer.UitDienst '= 0) - { - /// De medewerker is uit dienst. - w "Uitdienst :",KlantObject.KlantNaam,! + If (ProTimeWerknemer.IsInDienst()){ + Set Klant = KlantAPI.MaakKlant(dtoKlant,##class(DOM.CRM.enu.TypeTemplateKlant).Medewerker()) + } + /* TO DO : vragen of werknemers uit dienst ook moeten toegevoegd worden + Else { + Set Klant = KlantAPI.MaakKlant(dtoKlant,##class(DOM.CRM.enu.TypeTemplateKlant).Medewerker()) Do Klant.ZetCommercieleStatus(##class(DOM.CRM.enu.CommercieleStatus).NietActief()) Do Klant.ZetActiefStatus(##class(DOM.CRM.enu.ActiefStatus).BuitenGebruik()) Do Klant.Save() } + */ } } Quit $$$OK ]]> + + +KlantAdres:DOM.common.Adres,dtoKlantAdres:DOM.common.Adres + + - + Index: DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml =================================================================== diff -u -r950 -r966 --- DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml (.../DataMKlantAPI.cls.xml) (revision 950) +++ DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml (.../DataMKlantAPI.cls.xml) (revision 966) @@ -1,10 +1,10 @@ - + TECH.Error,BL.Derde.KlantSpecifiek 1 DOM.CRM.KlantAPI,%RegisteredObject -62174,39308.180731 +62178,31438.324418 0 @@ -39,7 +39,7 @@ -Klant:DOM.CRM.dto.Klant,TypeTemplateKlant:DOM.CRM.enu.TypeTemplateKlant +dtoKlant:DOM.CRM.dto.Klant,TypeTemplateKlant:DOM.CRM.enu.TypeTemplateKlant DOM.CRM.Klant - + Zoekt tussen de klanten de medewerkers van VanHoecke en Halux Dit op basis van het PersNr vanuit ProTime dat kan worden opgegeven. @@ -155,6 +132,27 @@ ]]> + + +Ophalen van template uit ^KBA("%A",1,"KL") +TypeTemplateKlant:DOM.CRM.enu.TypeTemplateKlant +1 + + + 1 1 @@ -165,5 +163,5 @@ ]]> - +