Ir para conteúdo

Chrnos

Members
  • Total de itens

    1546
  • Registro em

  • Última visita

  • Dias vencidos

    4

Posts postados por Chrnos


  1. 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.


  2. 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!


  3. 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; 
    

  4. 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).


  5. 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;

  6. 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.


  7. 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');
    
    • +1 1

  8. 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.


  9. Nem me fale em trabalho...

    acabo de receber a escala de trabalho e adivinha qm foi o sorteado para trabalhar nos dias 24,26 e 31 e 02... claro, eu ¬¬

    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


  10. 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?


  11. a erikinha que diga pois a próxima segunda-feira dela, é só na metade de janeiro, hahhaa

     

     

    aqui não tem disso não, mas ganho uma faz tudo, hahhahahaa

     

    bora almoçar???

    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


  12. greve de fome enquanto eu não conseguir colocar internet em casa, PQP, que complicação

    a CLARO está fazendo de tudo pra não me vender, hehehe

    e a VIVO está indo pelo mesmo caminho, disse que queria contratar e a tia do chat me abandonou, até que meia hora depois caiu a conexão.

    Na Oi paga 120 de instalação com o fixo e paga mais a telefonia fixa ou sem o fixo paga 160 de instalação

    a TIM nem tem esse serviço, hahahahaha

     

    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.


  13. férias são férias e cerveja é cerveja, mas somando-se os dois, igual a felicidade

     

    festa dos botecos chegando na cidade, ahá, uhú

    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....

     

    férias??? eh de comer? se for quero 3 kkkkk

    Rapaz, não sei viu? Estou tentando descobrir isso a alguns anos já e não consegui ainda kkkkkk


  14. cara de sorte, trabalha durante todos os feriados e só depois pega férias.

    Pra mim ia ser bem ao contrário

     

    Só com muita cerveja

    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.


  15. É isso aí! Trazer blusa, gorro, luvas etc!

    Eu quero sempre deixar o ar condicionado no máximo, mas o povo reclama de frio. Que frescura :P

     

    Bom dia, pessoal.

    E a se.xta está quaaaase chegando!

    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/

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.