/Sales Header/.SETCURRENTKEY(/Document Date/,/Document Type/);
/Sales Header/.SETRANGE(/Document Type/,/Sales Header/./Document Type/::Order);
/Sales Header/.CALCFIELDS(Amount);
/Sales Header/.SETFILTER(Amount,'<>0');
/Sales Header/.SETASCENDING(/Document Date/,TRUE);
LastTransactionCount:=0;
IF /Sales Header/.FIND('-') THEN BEGIN
REPEAT
LastTransactionCount:=LastTransactionCount+1
UNTIL (LastTransactionCount=2) OR (/Sales Header/.NEXT(-1)=0);
END;