Hello geeks
The following code is supposed to print Resource number in cell ‘A’+MyP (Value of MyP is 3) and then the count myJ times and add to the ‘A’ and then print another value in the that cell
CurrReport.PAGENO := 1;
FirstGroupTotal := TRUE;
Resource.SETRANGE(Resource.“No.”);
IF “Res. Ledger Entry”.FIND(’-’) THEN
REPEAT
Sheets.Range(‘A’+MyP).Value :=FORMAT(Resource.“No.”);
Sheets.Range(‘B’+MyP).Value :=FORMAT(Resource.Name);
MyP:= myJ;
UNTIL “Res. Ledger Entry”.NEXT =0;
IF exp THEN BEGIN
“Res. Ledger Entry”.SETFILTER(“Res. Ledger Entry”.Quantity,’>0’);
//Resc.SETRANGE(Name,Customer.Name,Resc.Name);
Sheets.Range(‘A’+myJ).Value:=FORMAT(“Res. Ledger Entry”.“Resource No.”);
Sheets.Range(‘B’+myJ).Value:=FORMAT(CustName);
Sheets.Range(‘C’+myJ).Value:=FORMAT(“Res. Ledger Entry”.Description);
Sheets.Range(‘E’+myJ).Value:=FORMAT(“Res. Ledger Entry”.“Unit of Measure Code”);
Sheets.Range(‘F’+myJ).Value:=FORMAT(“Res. Ledger Entry”.Quantity);
Sheets.Range(‘G’+myJ).Value:=FORMAT(“Contract No”);
myJ:=INCSTR(myJ);
END;
;