vhDeploy.Deploy %String Koppelingen in beide richtingen invullen op Offertes 1 0 { Set UpdateQuery = "update APPS_VKP_impl.Offerte Set KlantBestellingID = ? where ID = ?" Set lbParams = $LB(ID, OfferteVanHandel) Do ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(UpdateQuery,lbParams) Set UpdateQuery = "update APPS_VKP_impl.Offerte Set LeverancierOfferteId = ? where ID = ?" Set lbParams = $LB(OfferteVanHandel, ID) Do ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(UpdateQuery,lbParams) } Else { Set UpdateQuery = "update APPS_VKP_impl.Offerte set LeverancierOfferteId = ? where ID = ?" Set lbParams = $LB(ID, OfferteVanHandel) Do ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(UpdateQuery,lbParams) Set UpdateQuery = "update APPS_VKP_impl.Offerte set KlantBestellingID = ? where ID = ?" Set lbParams = $LB(OfferteVanHandel, ID) Do ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(UpdateQuery,lbParams) } } ]]>