PRGACNTs TECH.RegisteredObject 0 1 OrderID:%String %Boolean 1 OrderID:%String %Boolean 1 WSOrderID:%String %String Set WSOrd=##class(APPS.TBXWeb.UtilsHein).KopieerKlantGegevens(fromID,ToID) write WSOrd,! 1 FromWSOrderID,ToWSOrderID WS.TBX.OrderAbstract Set OrderIDs=##class(APPS.TBXWeb.UtilsHein).GeefLijstOrderIDsVanKlant(4645,"") write ##class(TECH.ListUtils).ListToPieces(OrderIDs,", "),! 1 KlantNr:%String,WebDomein:%String="" %ListOfDataTypes Set OrderID=##class(APPS.TBXWeb.UtilsHein).GeefRecentOrderIDVanKlant(4645) write OrderID,! 1 KlantNr:%String %String Set WSOrd=##class(APPS.TBXWeb.UtilsHein).OrderOmzettenNaarAndereKlant(WSOrderID,KlantNrTo) write WSOrd,! 1 WSOrderID,KlantNrTo WS.TBX.OrderAbstract Write ##class(APPS.TBXWeb.UtilsHein).GeefInfoOrdersOmzettenNaarKlant(OudeKlantNr,KlantNummerToeTeKennen,WebDomein) 1 OudeKlantNr:%String,KlantNummerToeTeKennen:%String,WebDomein:%String="" %String 1000 { Set Info=Info_"Aantal: "_OrderIDs.Count()_ " - Eerste ID: "_OrderIDs.GetAt(1) _" - Laatste ID: "_OrderIDs.GetAt(OrderIDs.Count()) _$$$CRLF } Else { Set Info=Info_##class(TECH.ListUtils).ListToPieces(OrderIDs,", ")_$$$CRLF } } Else { Set Info="Geen orders gevonden voor klant "_OudeKlantNr_"." } } Else { Set Info="Geen recent order gevonden voor klant "_KlantNummerToeTeKennen_". De orders kunnen niet omgezet worden." } Quit Info ]]> Do ##class(APPS.TBXWeb.UtilsHein).OrdersOmzettenNaarAndereKlant(OudeKlantNr,KlantNummerToeTeKennen,WebDomein) 1 OudeKlantNr:%String,KlantNummerToeTeKennen:%String,WebDomein:%String="" %String Do ##class(APPS.TBXWeb.UtilsHein).OrdersOmzettenNaarAndereKlantViaCMD(OudeKlantNr,KlantNummerToeTeKennen,WebDomein) 1 OudeKlantNr:%String,KlantNummerToeTeKennen:%String,WebDomein:%String="" 1000 { Write "Aantal: "_OrderIDs.Count()_ " - Eerste ID: "_OrderIDs.GetAt(1) _" - Laatste ID: "_OrderIDs.GetAt(OrderIDs.Count()),! } Else { Write ##class(TECH.ListUtils).ListToPieces(OrderIDs,", "),! } Write !,!, "Doorgaan [J/N] ? " Read Key If $$$UCase(Key)="J" { Set Cnt=..OrderIDsOmzettenNaarAndereKlant(OrderIDs,KlantNummerToeTeKennen,1,1) Write !,"Er zijn "_Cnt_" orders omgezet naar andere klant.",! Do } Else { Write !,"Geen orders omgezet naar andere klant.",! } ]]> 1 OrderIDs:%ListOfDataTypes,KlantNummerToeTeKennen:%String,MetOutput:%Boolean,RecentOrderVerwijderen:%Boolean=0 1 %Integer 0) { Set scDelete = ##class(WS.TBX.OrderAbstract).%DeleteId(RecentOrderID) Write "Het referentieOrder (ID: '"_RecentOrderID_"') is "_$S($$$ISERR(scDelete):"NIET ", 1:"")_"verwijderd. "_ $$ParseStatus^vhLib(scDelete),! } } Else { Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Geen recent order gevonden voor klant "_KlantNummerToeTeKennen_". De orders kunnen niet omgezet worden.") Do ##class(TECH.ExceptionHandler).Throw(Exception) } Quit Cnt ]]>