

Chrnos
Members-
Total de itens
1546 -
Registro em
-
Última visita
-
Dias vencidos
4
Tudo que Chrnos postou
-
Sei de nada, estou aqui quase num coma alcoólico jogado num canto do boteco só observando a zuera kkkkk
-
Foi eu ficar um tempo sem aparecer que o A. Jr. virou empresário? Vish, se eu sumir de novo será o apocalipse zumbi pelo jeito... seria bom, desde que antes eu tenha já meu tanque e minha AK-47 huahuahauhauha. Bora beber que a vida anda difícil.
-
Use o filtro do clientdataset... dê uma olhada neste tópico já resolvido aqui do fórum pra ter uma idéia de como fazer: http://forum.imasters.com.br/topic/268056-resolvido-filtrar-registros-de-dataset-sem-fazer-outro-select/
-
De cara já vejo dois possíveis problemas aqui: um é a sintaxe que está errada, pois está faltando inserir no seu sql os parênteses após o values... outro, que você está montando o insert como se fosse um update... lembre-se que qualquer insert é feito seguindo a regra abaixo: insert into tabela (campo1, campo2, ..., campoN) values (valor1, valor2, ..., valorN) Se observar seu código, seu sql está gerando um insert do tipo abaixo: INSERT INTO EMPRESA VALUES CODIGO = '4', --Considerando-se aqui que o valor do campo CODIGO.text seja 4 'RAZAO = 'RAZAO', Logo, já vemos de cara que não irá funcionar... um outro possível problema que terá com o insert desta forma é: se algum campo da tabela não for do tipo caracter, dará erro de conversão. Dê uma revisada, há inúmeros exemplos de como montar inserts dinâmicos passando os valores como parâmetro. Qualquer coisa retorne!
-
Detalhes do cliente em um relatório usando Fast Report no Delphi
Chrnos respondeu ao tópico de manefilho em Delphi
Veja se este link consegue lhe ajudar: http://anaprogramadorajunior.blogspot.com.br/2013/10/fastreport-no-delphi.html Depois dá um retorno se conseguiu ou quais são as dúvidas. -
Poderia ilustrar o que procura com um exemplo? Não consegui entender qual é o problema.
-
Amigo, se tivesse feito uma pesquisa no fórum teria encontrado este tópico com a solução do seu problema. Só que tem um porém: você até pode gravar as cores no seu BD, mas tem que fazer um parse com as cores no padrão do delphi, pois no delphi, por exemplo, não existe a cor vermelho, mas o clRed. http://forum.imasters.com.br/topic/368229-alterar-cor-das-linhas-do-dbgrid/
-
Faz tempo que não uso o fast report ... mas o problema não seria porque está dando um show no relatório antes de reabrir o componente de conexão neste ponto do código? Até onde me consta, para o relatório ter dados a ser exibidos ele precisa ter, antes de ser chamado, ter dados para exibir carregados.... DataModule3.frxReport.ShowReport; DataModule2.IBDatabase.Connected:= true;
-
O problema de usar o showmodal é que ele troca o foco de execução do form atual para o form chamado... em geral, neste tipo de situação, eu criava um form padrão com um gif animado com um "por favor aguarde" e dava um show neste form no início do processamento e um close nele após o término. Pelo menos visualmente o usuário não ficará sem informação... outra alternativa seria por um statusbar na sua aplicação e ir informando ao usuário por mensagens o status atual do processamento na própria tela (talvez usando junto um progressbar).
-
Ficaria algo como o postado a seguir.... só não lembro se o comando DirectoryExists funciona com endereço de rede não mapeado agora. var diretorio: String; bExclusaoOk : Boolean; begin //Flag auxiliar para verificar se conseguiu remover o diretório bExclusaoOk := True; //Diretório a ser verificado para exclusão diretorio := '\\server\listagem\images\' + DBid.caption; //Testa se existe o diretório if DirectoryExists(diretorio) then bExclusaoOk := RemoveDir(diretorio); //Se não conseguir excluir o diretório, retornar FALSO //Como a auxiliar foi inicializada como TRUE, só não irá executar o bloco abaixo caso não consiga //excluir o diretório da foto if bExclusaoOk then begin //exclui do BD o caminhos das fotos with dm.q_fotos do begin Close; sql.Clear; sql.Add('delete from tbl_fotos where id_ligar like '''+ f_incluir_imoveis.db_id.Text +'%'''); try ExecSQL; except on E:Exception do ShowMessage('Ocorreram erros durante a execução: ' + E.Message); end; end; end; end;
-
Seu problema está neste ponto... if RemoveDir(diretorio) then Se não existir um diretório para remover, você não entra no bloco que executa o delete, e o delete deveria ser executado de forma independente do diretório existir correto? Um tratamento que poderia usar é só chamar o RemoveDir se existir um diretório a ser excluído e executar o delete da mesma forma. Para garantir que os dois sejam excluídos juntos, poderia criar uma flag por exemplo para só permitir o delete se excluiu o diretório, inicializar ela como true e, caso não consiga excluir o diretório, torná-la falsa e só permitir a exclusão com ela true por exemplo.
-
Vamos por partes... veja o código que postou com um pouco mais de atenção... nele você está dizendo ao programa para: a) Converter o valor digitado no edit1 e por na variável dist. B) Inserir no texto do edit2 o valor da variável tarifa (que não foi inicializada e pode ser qualquer coisa) c) Fazer o teste desejado e atribuir a variável tarifa o valor 12 se true ou a mensagem de erro se falso. d) Fim do programa Note que você inseriu o valor sem testar no edit2 e sem inicializar, por isso o erro. Tente assim: dist:=strtofloat(edit1.text); if (combobox1.text='programada') and (dist>4) then edit2.text:= '12' else Showmessage('errado');
-
Pela mensagem apresentada, algum dos seus campos numéricos está recebendo um valor não numérico... por exemplo, um espaço em branco não é um número... reveja a forma como está preenchendo os dados no formulário e confira se o problema não está na conversão de algum dos dados de string para número.
-
Dos dias que citou vou estar na escala só dia 26.... saio de férias dia 05/01, mas por estar na escala dia 26 agora vou emendar do dia 01/01 já em férias hahahahaha.... 20 dias longe de tudo aqui hehehehe... mas será bom pra recuperar, só as baladas deste final de semana me deixaram destruído huahuahuahuhauahuhaa.... virar a noite em uma e depois ir pra outra é legal, mas destrói o peão no fim da noite kkkkk. Pra recuperar, manda uma dose de absinto ai... e deixa a garrafa kkkkk
-
E qual a dúvida mesmo? Postar o código pedindo pra ver o que tem errado num tópico escrito ajuda sem dizer nem o que está tentando fazer e nada é a mesma coisa meu amigo... formule melhor o post explicando a sua dúvida e, numa próxima, coloque no título do tópico mais explicativo ok?
-
Provavelmente eles te enviarião a dll e as funções que pode utilizar para consumir o serviço deles.... dúvido que darão o código fonte do próprio produto. E tirando códigos fontes criados em pascal, até onde sei o delphi não consegue compilar fontes em outras linguagens.
-
Eu só saio de férias a partir do dia 03/01... 30 dias, finalmente.... e vai pagar o almoço? Tirou as cobra e os escorpiões do bolso pra pagar? kkkkkkkk
-
Segunda-feira, que droga.... pelo menos é um dia mais perto das férias :p Bom dia bando de bebuns!!
-
A tia deve ter visto no cadastro que está devendo milhares de reais aqui no buteco e resolveu cair fora da venda huahuahuahuahuahuahua... aproveita que vai ficar sozinho e limpa o buteco, ganha R$ 1,00 por ano pra isso e não limpa o lugar nunca u.u Mas talvez eu aproveite as férias pra estudar pra um concurso público... vamos ver.
-
Você deve ser a alegria dos donos de boteco né? Uhahahaahhaha... mas ainda estou esperando a confirmação oficial, isso é o porre da coisa.... mas acho que não terá stress.... Rapaz, não sei viu? Estou tentando descobrir isso a alguns anos já e não consegui ainda kkkkkk
-
Na verdade eu estou programando estas férias pra poder viajar com a minha filha nas férias escolares dela.... fazem uns 7 anos que não tiro férias reais já... vou tentar descansar um pouco pra variar... ai programei as férias pra poder sair dia 05/01 oficialmente de férias..... mas esse mês ainda trampo normal e vou tentar procurar outro trampo no período de todo modo. Cerveja? Nada, manda tequila, rum... cerveja não me atrai mais huahauahahaua.
-
Dia que está sendo longo esse.... já chegou as 18hs... do dia 02/01/2015? Férias, chega logooooooo!!!! :p Enquanto não chega.... manda a tequila pra cá \o/
-
Nem me lembre disso... a minha alegria é que mês que vem tiro férias.... :skull:
-
Também pudera, pra você tem que ser frio antártico pra se sentir bem né Beraldo? Uhahauhuahuahahaa Mas também sofro com isso aqui... povo vive reclamando que está com frio quando estou de boa e quando pra eles está bom pra mim está um forno huahuahuahuahuaha. Pelo menos amanhã já é se xta \o/
-
Bom dia :mellow: