Progress : Rodar executável passando parâmetro sem esperar ele terminar DOS SILENT VALUE(‘R:\Files\teste.bat ‘ + ‘123’) . Dentro do .bat echo off start R:\Files\teste.exe %1 exit
Progress – Totvs 12: Conferir mensagem de erro de PIS duplicado Com o programa abaixo podemos verificar se o funcionário tem mais de uma pessoa física cadastrada FOR EACH funcionario WHERE funcionario.cod_pis...
Delphi: Forçar criação de Diretório if not DirectoryExists(ExtractFilePath(Application.ExeName) + ‘/teste’) then ForceDirectories(ExtractFilePath(Application.ExeName) + ‘/teste’);
Delphi: Ler Arquivo texto de um endereço HTTP Ler Arquivo texto de um endereço HTTP Ler Arquivo texto de um endereço Online var S: string; IdHTTP: TIdHTTP; begin IdHTTP...
Progress – Totvs 12: Conferir tipo de mão de Obra – Integração HCM x Contabilidade DEFINE VARIABLE l-entrou AS LOGICAL NO-UNDO. funcionario: FOR EACH funcionario WHERE funcionario.dat_desligto_func = ? NO-LOCK. ASSIGN l-entrou...
Delphi: Receber parâmetros Colocar no evento onCreate do Form o trecho de codigo abaixo for j := 0 to ParamCount do begin if ParamStr(j) <> ” then begin emb := ParamStr(j);...
Delphi: Evitar que programa abra duas vezes Pessoal para evitar que um programa Delphi seja executado duas vezes simultaneamente, a melhor forma é utilizar Mutex, conforme abaixo. Var hMutex : integer; begin hMutex :=...