rafal pisze:
Kod:
dispatch xDokumentMg = xFactory.NewObject("BDokumentMg")
xDokumentMg.Load((using "kod='%s'","1/10/pzp"))
int i=1
dispatch xPow
xPow =xDokumentMg.PowiazaneDk
for i = 1 to i > xPow.Count()
print xPow.item(i).nazwa + lf
next i
Dzięki!
Poszedłem jednak dalej tak jak radził
wrob:
Kod:
long sub IdZleceniaDokumentuPZP(long lId)
dispatch Cn = "ADODB.Connection"
dispatch Rs = "ADODB.Recordset"
Cn = GetAdoConnection()
Rs = Cn.Execute("SELECT * FROM ZZ WHERE typ=154 AND id2=" + (using "%l", lId))
if !Rs.EOF then
IdZleceniaDokumentuPZP = Rs.Fields("id1").Value
endif
Rs.Close()
endsub
