Purch. Inv. Header - OnAfterGetRecord()
recPurchInvHeader2.SETVIEW("Purch. Inv. Header".GETVIEW);
recPurchInvHeader2.GET("No.");
IF recPurchInvHeader2.NEXT() <> 0 THEN BEGIN
IF EVALUATE(iStartNo,DELCHR("Purch. Inv. Header"."No.",'=',DELCHR("Purch. Inv. Header"."No.",'=','0123456789'))) AND
EVALUATE(iStopNo ,DELCHR(recPurchInvHeader2."No.", '=',DELCHR(recPurchInvHeader2."No.", '=','0123456789'))) AND
(iStopNo - iStartNo = 1) THEN
CurrReport.SKIP();
END
ELSE
CurrReport.SKIP();
Comments
something like:
IF yourfield = '' THEN
//do what you want
ELSE
CurrReport.SKIP
Pargesoft
Purch. Inv. Header - OnPreDataItem()
Purch. Inv. Header - OnAfterGetRecord()
recPurchInvHeader2.SETVIEW("Purch. Inv. Header".GETVIEW);
recPurchInvHeader2.GET("No.");
IF recPurchInvHeader2.NEXT() <> 0 THEN BEGIN
IF EVALUATE(iStartNo,DELCHR("Purch. Inv. Header"."No.",'=',DELCHR("Purch. Inv. Header"."No.",'=','0123456789'))) AND
EVALUATE(iStopNo ,DELCHR(recPurchInvHeader2."No.", '=',DELCHR(recPurchInvHeader2."No.", '=','0123456789'))) AND
(iStopNo - iStartNo = 1) THEN
CurrReport.SKIP();
END
ELSE
CurrReport.SKIP();
Integer - OnPreDataItem()
SETRANGE(Number,iStartNo,iStopNo);
Integer - OnAfterGetRecord()
cPrefix := DELCHR("Purch. Inv. Header"."No.",'=','0123456789');
Pargesoft