Code: Alles auswählen
Aufruf:
tmpStream := TResourceStream.Create(HInstance, 'Query05', 'TEXT');
try
query.SQL.LoadFromStream(tmpStream);
finally
tmpStream.Free;
end;
Code: Alles auswählen
SQL-Script:
SELECT substr(ptu.ptu_coord,1,3) coord,
ptu.ptu_ident,
to_char(psi.psi_qtyact) psi_qtyact,
to_char(psi.psi_qtyres) psi_qtyres,
ptu.ptu_coord,
case when ptu.ptu_refparent <> 0 then (SELECT DISTINCT ptu_ident FROM pstock_tu WHERE ptu_ref IN (ptu.ptu_refparent)) else ''0'' end parent_id
FROM pstock_tu ptu,
pstock_item psi
WHERE ptu.ptu_ref = psi.ptu_ref
AND psi.psi_batchno = trim(:wz)
ORDER BY ptu.ptu_coord