Вообщем, нужно выводить тотал, не могу понять почему, но у меня не выходит вывести правильный...
код.
Код:
IF HideNull THEN
BEGIN
TempColumnDimOption.RESET;
IF TempColumnDimOption.FINDSET THEN
REPEAT
IF ColumnDimOption=ColumnDimOption::Period THEN
BEGIN
Date1:=TempColumnDimOption."Period Start";
Date2:=TempColumnDimOption."Period End";
END;
CASE ColumnDimOption OF
ColumnDimOption::Element:
element1:=TempColumnDimOption.Code;
ColumnDimOption::"Element Group":
elementgroup1:=TempColumnDimOption.Code;
ColumnDimOption::Employee:
emp1:=TempColumnDimOption.Code;
ColumnDimOption::"Org. Unit":
organizatunit1:=TempColumnDimOption.Code;
END;
SumAmount1:=CalcPayroll1(COMPANYNAME,Date1,Date2,element1,emp1,organizatunit1,elementgroup1);
TotalSum+=SumAmount1;
UNTIL TempColumnDimOption.NEXT=0;
END;
IF ((TotalSum<>0) AND HideNull) OR (NOT HideNull) THEN
BEGIN
xlWorkSheet.Cells.Item(i,2,FORMAT(TempLineDimOption.Code));
xlWorkSheet.Range(ColInInteger(2)+FORMAT(i)+':'+ColInInteger(2)+FORMAT(i))._BorderAround(1,2);
xlWorkSheet.Range(ColInInteger(2)+FORMAT(i)+':'+ColInInteger(2)+FORMAT(i)).EntireColumn.AutoFit;
Col:=3;
TempColumnDimOption.RESET;
cnt:=TempColumnDimOption.COUNT;
IF TempColumnDimOption.FINDSET THEN
REPEAT
IF ColumnDimOption=ColumnDimOption::Period THEN
BEGIN
Date1:=TempColumnDimOption."Period Start";
Date2:=TempColumnDimOption."Period End";
END;
CASE ColumnDimOption OF
ColumnDimOption::Element:
element1:=TempColumnDimOption.Code;
ColumnDimOption::"Element Group":
elementgroup1:=TempColumnDimOption.Code;
ColumnDimOption::Employee:
emp1:=TempColumnDimOption.Code;
ColumnDimOption::"Org. Unit":
organizatunit1:=TempColumnDimOption.Code;
END;
SumAmount1:=0;
SumAmount1:=CalcPayroll1(COMPANYNAME,Date1,Date2,element1,emp1,organizatunit1,elementgroup1);
TotalSum+=SumAmount1;
IF SumAmount1<>0 THEN
xlWorkSheet.Cells.Item(i,Col,FORMAT(SumAmount1));
xlWorkSheet.Range(ColInInteger(Col)+FORMAT(i)+':'+ColInInteger(Col)+FORMAT(i))._BorderAround(1,2);
xlWorkSheet.Range(ColInInteger(Col)+FORMAT(i)+':'+ColInInteger(Col)+FORMAT(i)).EntireColumn.AutoFit;
Col:=Col+1;
UNTIL TempColumnDimOption.NEXT=0;
i:=i+1;
xlWorkSheet.Cells.Item(i,Col-1,FORMAT(TotalSum));
xlWorkSheet.Range(ColInInteger(Col-1)+FORMAT(i)+':'+ColInInteger(Col-1)+FORMAT(i)).EntireColumn.AutoFit;
END;
UNTIL TempLineDimOption.NEXT=0;