Dim qry As String = $"SELECT o.DT, o.FRM_N,
FROM T_IN_OT2 i
JOIN T_IN_OT1 o ON o.ID = i.ID_IN_OT1
JOIN M_TRS_TYP mt ON mt.ID = o.ID_TRS_TYP
JOIN M_FNGD f ON f.ID = i.ID_GD
WHERE o.DT BETWEEN ? AND ?
AND mt.ID = ?
AND ( ? = '-1' OR f.ID = ? )
"ORDER BY o.DT, o.FRM_N, f.ID"$
Dim qry As String = $"SELECT o.DT, o.FRM_N,
FROM T_IN_OT2 i
JOIN T_IN_OT1 o ON o.ID = i.ID_IN_OT1
JOIN M_TRS_TYP mt ON mt.ID = o.ID_TRS_TYP
JOIN M_FNGD f ON f.ID = i.ID_GD
WHERE o.DT BETWEEN ? AND ?
AND mt.ID = ?
AND ( ? = '-1' OR f.ID = ? )
"ORDER BY o.DT, o.FRM_N, f.ID"$