Query Extend

Hello folks,
I have the following problem and I hope you can help me.
In the tdsls4101m000 program I want to make a custom form command that calls the tcitr3600m000 session. I want to land in the intercompany order associated with the sales line and position. So I've programmed the following so far using Extensionmodeller.

Code:

function extern void function.ext.ic.command.execute()

{

        ext.ic_nr = ""

        

        select tcitr300.*

        from tcitr300

        where (tcitr300.obon = "tdsls040"

        and tcitr300.oboi = :tdsls401.orno

        and tcitr300.sitm = :tdsls401.item)

        as set with 1 rows

        

        selectdo

                ext.ic_nr = tcitr300.orno

        endselect

        

        

 

        if ext.ic_nr <> "" 

        then 

                query.extend.where.in.zoom("tcitr300.orno = " & quoted.string (ext.ic_nr))

                start.session  (MODAL,"tcitr3600m000","", "")

        else 

                message("Kein Intercompany Handelsauftrag gefunden!")

        endif



}

The problem is that I would have to give a second parameter (tcitr300.pono) in the query.extend.where.in.zoom. Each intercompany position has the same intercompany entry, which is why I always end up on the 1st data record.

I hope you understand the Problem.

Greetings from Germany.