28. September 2006 11:45
Sheet.Range('D'+ FORMAT(i)).Font.Bold := TRUE;
Sheet.Range('D'+ FORMAT(i)).Value := txtSurname;
28. September 2006 11:55
28. September 2006 12:09
28. September 2006 12:14
28. September 2006 12:22
IF Rec_MailingGroup.FIND('-') THEN
BEGIN
i := i + 1;
REPEAT
Sheet.Range('A1').NumberFormat := '@';
Sheet.Range('A'+ FORMAT(i)).Value := Structure."Structure No.";
28. September 2006 12:27
28. September 2006 12:32
28. September 2006 12:36
28. September 2006 12:38
28. September 2006 12:40
28. September 2006 12:42
28. September 2006 12:47
28. September 2006 17:16
EnterCell(RowNo, ColumnNo, TEXT000 + gr_JobBQPos.Description, '')