Note: Please do not post Personally Identifiable Information like email address, personal phone number, physical home address, product key etc.
Issue abstract:
Detailed description:
My code worked perfect while ago not any more afetr
Product & version number:
windows 10
this code worked fine a while ago not any more what the hell happen after an update:
// Lança o Extracto
// O PATH por defeito é o definido por parametro, porém, se falhar
sCC := IbReyxUtili.IbRtvCfgII(8885, MainForm.cCustosI, ‘’);
if DirectoryExists(sCC) then
sOut_Fname := sCC + '\ExtractoSocioNo' + WNOSOC_ID + '.Pdf'
else // Alternativa deverá existir localmente
sOut_Fname := 'C:\TRAB\WACRA\listas\ExtractoSocioNo' +
WNOSOC_ID + '.Pdf';
try
frxReport1.PrepareReport(True);
frxPDFExport1.FileName := sOut_Fname;
frxPDFExport1.OpenAfterExport := True; // <= No longger works but it should how to fix remove Norton might a good optio
frxPDFExport1.ShowDialog := False;
frxReport1.Export(frxPDFExport1);
except
on E: Exception do
ShowMessage('Erro ao gerar o Extracto!' + sLineBreak +
E.Message);
end;