Categoria: Dicas
MegaEvoluções PokemonGo
Bom dia pessoal, muita gente perguntando sobre as mega-evoluções do PokemonGo. Vocês já viram por ai fotos de pessoas evoluindo um beedrill para Charizard Y ou Charizard x ? Pois é, fui pesquisar como...
Delphi: Exportar StringGrid para CSV
Delphi: Exportar StringGrid para CSV Dica: Exemplo de função para Exportar StringGrid para CSV var csv: tstringlist; row, col: integer; s,fn: string; begin fn := ExtractFilePath(Application.ExeName) + ‘bkp\’ + FormatDateTime(‘ddmmyy-hhnnsszzz’,Now) + ‘.csv’; csv:= tstringlist.create;...
Códigos de Rejeição de NFe (Nota fiscal eletronica) Sefaz
Abaixo segue a lista de Códigos de Rejeição de NFe (Nota fiscal eletronica) Sefaz Código|Descrição 100|Autorizado o uso da NF-e 101|Cancelamento de NF-e homologado 102|Inutilização de número homologado 103|Lote recebido com sucesso 104|Lote...
Progress : Rodar executável passando parâmetro sem esperar ele terminar
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
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 = ‘123456789‘...
Delphi: Forçar criação de Diretório
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
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 := TIdHTTP.Create(nil);...
Progress – Totvs 12: Conferir tipo de mão de Obra – Integração HCM x Contabilidade
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
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);...
