i want to show customer information as like
customer code-------- name--------- beg.amount. ---------payment--------receivable-endingamount
11011-----------------monir-----------------10000--------------------500----------300- 200
but when i am trying to loop on customer ledger entry table on amount field . it shows me 0. because it is a calculation field and come from details customer ledger entry table.
how can i get this amount field value?
OBJECT Report 50000 Customer Send to Vendor
{
OBJECT-PROPERTIES
{
Date=22.12.11;
Time=12:57:45;
Modified=Yes;
Version List=;
}
PROPERTIES
{
}
DATAITEMS
{
{ PROPERTIES
{
DataItemTable=Table18;
DataItemTableView=SORTING(No.);
OnPreDataItem=BEGIN
IF CustomerNo<>’’ THEN BEGIN
Customer.SETRANGE(Customer.“No.”, CustomerNo);
END;
END;
OnAfterGetRecord=BEGIN
CustomerNo:= Customer.“No.”;
CustomerName:=Customer.Name;
“Cust. Ledger Entry”.RESET;
IF(( StartDate<>0D) AND( EndDate<>0D)) THEN BEGIN
“Cust. Ledger Entry”.SETRANGE(“Posting Date”, StartDate, EndDate);
END;
IF CustomerNo<>’’ THEN BEGIN
“Cust. Ledger Entry”.SETRANGE(“Cust. Ledger Entry”.“Customer No.”, CustomerNo);
END;
WITH “Cust. Ledger Entry” DO BEGIN
IF “Cust. Ledger Entry”.FIND(’-’) THEN BEGIN
“Cust. Ledger Entry”.CALCFIELDS(“Cust. Ledger Entry”.Amount) ;
BeginningAmount:= “Cust. Ledger Entry”.Amount;
REPEAT
IF ( CustomerNo=“Cust. Ledger Entry”.“Customer No.”) THEN BEGIN
IF (“Cust. Ledger Entry”.Amount<0) THEN BEGIN
Receivable:=Receivable+ “Cust. Ledger Entry”.Amount;
END ELSE BEGIN
Payment:=Payment+ “Cust. Ledger Entry”.Amount;
END;
END;
UNTIL “Cust. Ledger Entry”.NEXT<=0;
END;
EndingAmount:= BeginningAmount- Payment;
END;
END;
}
SECTIONS
{
{ PROPERTIES
{
SectionType=Header;
SectionWidth=20100;
SectionHeight=846;
OnPreSection=BEGIN
// CurrReport.SHOWOUTPUT(CustomerNo<>’’) ;
END;
}
CONTROLS
{
{ 1000000000;Label ;600 ;423 ;2400 ;423 ;HorzAlign=Left;
CaptionML=ENU=Cust Code }
{ 1000000002;Label ;3300 ;423 ;2850 ;423 ;HorzAlign=Left;
CaptionML=ENU=Name }
{ 1000000004;Label ;6600 ;423 ;2400 ;423 ;HorzAlign=Left;
CaptionML=ENU=Beg.Amount }
{ 1000000005;Label ;9450 ;423 ;2100 ;423 ;HorzAlign=Left;
CaptionML=ENU=Payment }
{ 1000000006;Label ;12000;423 ;2100 ;423 ;HorzAlign=Left;
CaptionML=ENU=Receivable }
{ 1000000007;Label ;14400;423 ;1800 ;423 ;HorzAlign=Left;
CaptionML=ENU=End Amount }
{ 1000000011;Label ;16650;423 ;2250 ;423 ;Name=CurrencyLabel;
HorzAlign=Left;
CaptionML=ENU=Currency }
}
}
{ PROPERTIES
{
SectionType=Body;
SectionWidth=20100;
SectionHeight=846;
OnPreSection=BEGIN
// CurrReport.SHOWOUTPUT(CustomerNo<>’’) ;
END;
}
CONTROLS
{
{ 1000000001;TextBox;600 ;0 ;2400 ;423 ;HorzAlign=Left;
SourceExpr=CustomerNo }
{ 1000000003;TextBox;3300 ;0 ;2850 ;423 ;HorzAlign=Left;
SourceExpr=CustomerName }
{ 1000000008;TextBox;6600 ;0 ;2400 ;423 ;HorzAlign=Left;
SourceExpr=BeginningAmount }
{ 1000000009;TextBox;9450 ;0 ;2100 ;423 ;HorzAlign=Left;
SourceExpr=Payment }
{ 1000000010;TextBox;12000;0 ;2250 ;423 ;HorzAlign=Left;
SourceExpr=Receivable }
{ 1000000012;TextBox;16650;0 ;2400 ;423 ;Name=CurrencyData;
HorzAlign=Left;
SourceExpr=“Cust. Ledger Entry”.“Currency Code” }
{ 1000000013;TextBox;14400;0 ;1950 ;423 ;HorzAlign=Left;
SourceExpr=EndingAmount }
}
}
}
}
}
REQUESTFORM
{
PROPERTIES
{
Width=16390;
Height=7590;
OnOpenForm=BEGIN
IF StartDate =0D THEN BEGIN
StartDate:= WORKDATE;
END;
IF EndDate=0D THEN BEGIN
EndDate:=WORKDATE;
END;
END;
}
CONTROLS
{
{ 1000000000;Label ;2420 ;1100 ;2750 ;550 ;InPage=-1;
HorzAlign=Left;
CaptionML=ENU=Start Date }
{ 1000000001;Label ;2420 ;1980 ;2750 ;550 ;HorzAlign=Left;
CaptionML=ENU=End Date }
{ 1000000002;TextBox;5940 ;1100 ;3520 ;550 ;InPage=-1;
HorzAlign=Left;
SourceExpr=StartDate }
{ 1000000003;TextBox;5940 ;1980 ;3520 ;550 ;HorzAlign=Left;
SourceExpr=EndDate }
{ 1000000004;Label ;2310 ;2860 ;2860 ;550 ;InPage=-1;
HorzAlign=Left;
CaptionML=ENU=Currency }
{ 1000000005;TextBox;5940 ;2860 ;3520 ;550 ;SourceExpr=CurrencyCode;
TableRelation=Currency.Code }
{ 1000000006;Label ;2310 ;3850 ;2860 ;550 ;InPage=-1;
HorzAlign=Left;
CaptionML=ENU=Customer Code }
{ 1000000009;TextBox;5830 ;3850 ;4180 ;550 ;Name=CustomerNo;
Enabled=Yes;
Editable=Yes;
InPage=-1;
SourceExpr=CustomerNo;
TableRelation=Customer.No. }
}
}
REQUESTPAGE
{
PROPERTIES
{
}
CONTROLS
{
}
}
CODE
{
VAR
StartDate@1000000000 : Date;
EndDate@1000000001 : Date;
Currency@1000000002 : Record 4;
CustomerNo@1000000005 : Code[20];
CurrencyCode@1000000006 : Code[20];
CustomerName@1000000007 : Text[30];
“Cust. Ledger Entry”@1000000008 : Record 21;
BeginningAmount@1000000011 : Decimal;
Receivable@1000000012 : Decimal;
Payment@1000000013 : Decimal;
EndingAmount@1000000003 : Decimal;
BEGIN
END.
}
RDLDATA
{
}
}