Report (Label Printing for Invoices for a specific date)

Soloper

Hi all;

I'm trying to design report which lists the shipment addresses of the invoices for a specific date.

For the invoices posted in 12/02/09; prepare the labels for postmailing. If there are two or more invoice for a customer I want to get only one label.

Could you please help on it?

I tried it with different ways but havent succeed.

By the way every customer has a shipment address called "INVSHP" for Invoice mailing.

DataItems

---

Ship-to Address
Sales Invoice Header

Variables

---

Addr : Text
NoOfRecords : Integer
RecordNo : Integer
NoOfColumns : Integer
ColumnNo : Integer
i : Integer
Cust : Record (Customer)

Code for " Sales Invoice Header"

---

RecordNo := RecordNo + 1;
ColumnNo := ColumnNo + 1;

Cust.SETRANGE(Cust."No.","Sales Invoice Header"."Sell-to Customer No.");
Cust.FIND('-');

Addr[ColumnNo][1] := FORMAT(Cust."Search Name");
Addr[ColumnNo][2] := FORMAT(Cust.Address);
Addr[ColumnNo][3] := FORMAT(Cust."Address 2");

COMPRESSARRAY(Addr[ColumnNo]);

IF RecordNo = NoOfRecords THEN BEGIN
FOR i := ColumnNo + 1 TO NoOfColumns DO
CLEAR(Addr);
ColumnNo := 0;
END ELSE BEGIN
IF ColumnNo = NoOfColumns THEN
ColumnNo := 0;
END;