Rechnugs anzahl in Excel mit gesamt beträgen

Hallo zusammen .

ich hatte hier eine code unit vor einem Jahr erstellt möchte das gerne jetzt erweitern.

mit dieser code unit kann ich die anzahl der rechnungen nach exel expotieren als diagram.

ich möchte jetzt aber immer den gesamten betrag auch anzeigen.

Code:

CREATE(Exapp);
Exapp.Visible := TRUE;
 
ExWorkbook := Exapp.Workbooks.Add(-4167);
Exsheet := Exapp.ActiveSheet;
 
Exsheet.Range('A1').Value := 'Monat';
Exsheet.Range('B1').Value := 'Anzahl Rechnung';
 
 
 
Invoice.RESET;
//Invoice.SETRANGE("Document Type",Invoice."Document Type"::Invoice);    //order rechnungsfilter
 
FOR idx := 1 TO 12 DO BEGIN //12 ist gleich monate
 
   dat := DMY2DATE(1,idx,DATE2DMY(TODAY,3));
   Invoice.SETRANGE("Order Date",dat,CALCDATE('<CM>',dat));
   CASE idx OF
   1 :monthname := 'Januar';
   2 :monthname := 'Februer';
   3 :monthname := 'März';
   4 :monthname := 'April';
   5 :monthname := 'Mai';
   6 :monthname := 'Juni';
   7 :monthname := 'Juli';
   8 :monthname := 'August';
   9 :monthname := 'September';
  10 :monthname := 'Oktober';
  11 :monthname := 'November';
  12 :monthname := 'December';
 END;
 Exsheet.Range('A' + FORMAT(idx + 1)).Value := monthname;
 Exsheet.Range('B'+ FORMAT(idx + 1)).Value := Invoice.COUNT;
 
END;
Exrange := Exsheet.Range('A2:B13');
ExChart := ExWorkbook.Charts.Add;
ExChart.Name := 'Rechnungen';
ExChart.ChartWizard(Exrange, -4100,2,2,1,0,0,'Rechnung/ Monat','Monat','Anz. Rechnung');


Zuletzt geändert von nav4 am 4. Mai 2009 09:53, insgesamt 2-mal geändert.

Hallo nav4,

dein Quelltext ist leichter zu lesen und zu verstehen, wenn du ihn zwischen so genannte Code-Tags setzt. Insbesondere deine Formatierungen werden so auch beibehalten.

Daher bitten wir dich, deinen Beitrag zu editieren und vor und nach deinem Quelltext diese Code-Tags einzufügen. Beispiel:

[code]Dein Quelltext[/code]

Gruß, Natalie
MSDynamics.de-Team