TECH.RegisteredObject,TECH.Iterator AXimpl.InterneFirmaInitialen 1 TECH.Query.QueryAPI 1 TECH.ResultSet 1 AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter 1 DOM.AKP.ToeleveringAPI 1 QueryAPI:TECH.Query.QueryAPI="",Vestiging:AXimpl.InterneFirmaInitialen,ToeleveringApi:DOM.AKP.ToeleveringAPI 1 1 %Status 1 1 '6332'" // Indien nodig is hieronder een filter voorzien om het resultaat te beperken tot overzichtelijk, voor debugging: //_" AND WHERE ID IN ('5002||261154','5005||265590','5026||276749','5490||278804','5938||242802','6051||280399','6118||274544','6317||278043'," //_"'6332||201319','6347||261332','6415||278507','6494||256645','6628||274325','6813||276747','7012||275442','7112||268449','7178||271524'," //_"'7407||272363','7409||251880','7509||280028','7541||272115','7564||270368','7771||274511','7802||264788','8090||278685')" } ElseIf ..Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() { Set SqlStatement = "SELECT DISTINCT a.ID FROM Flow_Toelev.Hoofding a, Flow_Toelev.Lijn b, Prod.Product c "_ "WHERE a.ToeleveringsNr = b.ToeleveringNr AND b.Product = c.ID AND LinkType in ('HH', 'HHZ') AND a.Leverancier <> '6332'" // Indien nodig is hieronder een filter voorzien om het resultaat te beperken tot overzichtelijk, voor debugging: //_" AND WHERE ID IN ('5002||261154','5005||265590','5026||276749','5490||278804','5938||242802','6051||280399','6118||274544','6317||278043'," //_"'6332||201319','6347||261332','6415||278507','6494||256645','6628||274325','6813||276747','7012||275442','7112||268449','7178||271524'," //_"'7407||272363','7409||251880','7509||280028','7541||272115','7564||270368','7771||274511','7802||264788','8090||278685')" } Else { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Geef als parameter ofwel VHBE, ofwel HLX mee! Huidige parameter = '"_..Vestiging)) } Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement)) ]]> %Boolean 0) ]]> AXdixf.AankoopOrderHoofding.AankoopOrderHoofding