No artigo de hoje, vamos abordar o que pode causar o problema do TFileDialog ficar com a tela toda branca.
Recentemente em um cliente, pegamos uma situação em que ao utilizar a TFileDialog para abrir uma janela para selecionar arquivos, ficava uma tela branca sem processamento, similar ao print abaixo:
Exemplo de como fica TFileDialog
Rastreando encontramos que poderia se tratar da LIB junto com a versão do WebAgent.
Até a TI da empresa validar, fazer os testes com outras versões de LIB ou WebAgent, a solução momentânea foi trocar do TFileDialog por cGetFile, então abaixo um trecho do antes:
//Chama a fun o para buscar arquivos cArqSel := tFileDialog(; "Arquivos com separações (*.csv)",; // Filtragem de tipos de arquivos que ser o selecionados "Selecao de Arquivos",; // T tulo da Janela para sele o dos arquivos ,; // Compatibilidade "C:\TOTVS",; // Diret rio inicial da busca de arquivos .F.,; // Se for .T., ser uma Save Dialog, sen o ser Open Dialog ; // Se n o passar par metro, ir pegar apenas 1 arquivo; Se for informado GETF_MULTISELECT ser poss vel pegar mais de 1 arquivo; Se for informado GETF_RETDIRECTORY ser poss vel selecionar o diret rio )
E como ficou após a substituição:
cArqSel := cGetFile( 'Arquivo CSV|*.csv',; //[ cMascara],
'Selecao de Arquivos',; //[ cTitulo],
0,; //[ nMascpadrao],
'C:\TOTVS\',; //[ cDirinicial],
.F.,; //[ lSalvar],
GETF_LOCALHARD + GETF_NETWORKDRIVE,; //[ nOpcoes],
.T.) //[ lArvore]
Isso dá um tempo para a empresa validar a versão da LIB junto com a versão do WebAgent (junto com a opção agente local ativada).
Bom pessoal, por hoje é só.
Abraços e até a próxima.
