showing item no when it's quantity>0 in item ledger entry

monir_asian

OBJECT Report 50008 Item Sales and Transfer
{
OBJECT-PROPERTIES
{
Date=08.12.11;
Time=13:59:11;
Modified=Yes;
Version List=;
}
PROPERTIES
{
}
DATAITEMS
{
{ PROPERTIES
{
DataItemTable=Table27;
DataItemTableView=SORTING(No.);
OnPreDataItem=BEGIN
ItemLedgerEntry.SETFILTER(ItemLedgerEntry."Location Code",LocationCode);
ItemLedgerEntry.SETFILTER(ItemLedgerEntry.Positive,FORMAT(TRUE));
ItemLedgerEntry.SETFILTER( ItemLedgerEntry.Open,FORMAT(TRUE));


ItemLedgerEntry.SETFILTER("Item No.",Item."No.") ;
END;

OnAfterGetRecord=BEGIN

WITH ItemLedgerEntry DO BEGIN
IF ItemLedgerEntry.FIND('-') THEN BEGIN

REPEAT

IF ItemLedgerEntry."Item No."=Item."No." THEN BEGIN
Quantity:= Quantity+ItemLedgerEntry.Quantity;
END;

UNTIL ItemLedgerEntry.NEXT<=0;



END;
END;



/////////

IF quantity>0 THEN BEGIN
itemno:= Item."No.";

totalquantity:= quantity ;
Description:=Item.Description;

END;


END;

}
SECTIONS
{
{ PROPERTIES
{
SectionType=Header;
SectionWidth=22050;
SectionHeight=846;
}
CONTROLS
{
{ 1000000005;Label ;10500;423 ;4050 ;423 ;CaptionML=ENU=Quantity }
{ 1000000000;Label ;600 ;423 ;3150 ;423 ;CaptionML=ENU=Item Description }
{ 1000000002;Label ;4350 ;423 ;4800 ;423 ;CaptionML=ENU=Item No }
}
}
{ PROPERTIES
{
SectionType=Body;
SectionWidth=22050;
SectionHeight=1269;
}
CONTROLS
{
{ 1000000004;TextBox;10500;0 ;4200 ;423 ;SourceExpr=totalquantity }
{ 1000000001;TextBox;600 ;0 ;3150 ;423 ;SourceExpr=Description }
{ 1000000003;TextBox;4350 ;0 ;4800 ;423 ;SourceExpr=itemno }
}
}
}
}
}
REQUESTFORM
{
PROPERTIES
{
Width=13750;
Height=4950;
}
CONTROLS
{
{ 1000000000;TextBox;5280 ;770 ;4510 ;440 ;InPage=-1;
CaptionML=ENU=Location;
SourceExpr=LocationCode;
TableRelation=Location.Code }
{ 1000000001;Label ;1870 ;770 ;3300 ;440 ;ParentControl=1000000000 }
}
}
REQUESTPAGE
{
PROPERTIES
{
}
CONTROLS
{
}
}
CODE
{
VAR
Slno@1000000000 : BigInteger;
LocationCode@1000000001 : Code[10];
ErrorText@1000000003 : Text[250];
ItemLedgerEntry@1000000004 : Record 32;
totalquantity@1000000005 : BigInteger;
itemno@1000000006 : Code[20];
description@1000000007 : Text[30];
quantity@1000000008 : BigInteger;

BEGIN
END.
}
RDLDATA
{
}
}

mohana_cse06

You can simply use

Item.CALCFIELDS(Inventory);

Filter on inventory > 0