IF GeneralLedgSetup.GET() THEN
PathFile := GeneralLedgSetup."Route of Export (DPV)";
DestinationFile := FileMng.ServerTempFileName('csv');
Filevar.CREATE(DestinationFile);
Filevar.CREATEOUTSTREAM(OutstreamVar);
OutstreamVar.WRITETEXT('No.' + ';');
OutstreamVar.WRITETEXT('Name' + ';');
OutstreamVar.WRITETEXT('Address' + ';');
OutstreamVar.WRITETEXT('City' + ';');
OutstreamVar.WRITETEXT('Postal Code' + ';');
OutstreamVar.WRITETEXT('County' + ';');
OutstreamVar.WRITETEXT('Code of ship to' + ';');
OutstreamVar.WRITETEXT('Name' + ';');
OutstreamVar.WRITETEXT('Address' + ';');
OutstreamVar.WRITETEXT('City' + ';');
OutstreamVar.WRITETEXT('Postal Code' + ';');
OutstreamVar.WRITETEXT('County' + ';');
Cust.RESET;
ShipToAddress.RESET;
Cust.SETRANGE("Second Level Field", 'MASS MARKET');
Cust.SETRANGE("Blocked Field", Cust."Blocked Field"::" ");
IF Cust.FINDSET THEN REPEAT
ShipToAddress.SETRANGE("Customer No.", Cust."No.");
ShipToAddress.SETRANGE("Blocked Field",FALSE);
IF ShipToAddress.FINDSET THEN BEGIN
OutstreamVar.WRITETEXT(ShipToAddress.Code + ';');
OutstreamVar.WRITETEXT(ShipToAddress.Name + ';');
OutstreamVar.WRITETEXT(ShipToAddress.Address + ';');
OutstreamVar.WRITETEXT(ShipToAddress.City + ';');
OutstreamVar.WRITETEXT(ShipToAddress."Post Code" + ';');
OutstreamVar.WRITETEXT(ShipToAddress.County + ';');
END;
OutstreamVar.WRITETEXT(Cust."No."+ ';');
OutstreamVar.WRITETEXT(Cust.Name + ';');
OutstreamVar.WRITETEXT(Cust.Address + ';');
OutstreamVar.WRITETEXT(Cust.City + ';');
OutstreamVar.WRITETEXT(Cust."Post Code" + ';');
OutstreamVar.WRITETEXT(Cust.County + ';');
UNTIL Cust.NEXT = 0;
FileMng.DownloadToFile(DestinationFile, PathFile);
Filevar.CLOSE;