Select distinct T0.[CardCode], T0.[CardName], T1.[Project], T0.[DocNum], T0.[DocDate],T4.[DocNum],
T4.[DocDate],T0.[NumAtCard], T1.[ItemCode], T1.[Dscription], T3.[BatchNum], T3.[Quantity],
T1.[UseBaseUn], T2.[ExpDate], T2.[PrdDate]
FROM OPDN T0
INNER JOIN PDN1 T1 ON T0.[DocEntry] = T1.[DocEntry], OIBT T2 INNER JOIN IBT1 T3 ON T2.[ItemCode] = T3.[BatchNum], OPOR T4
where T0.docentry=5729