Ir para conteúdo
  • Cadastre-se

Sergio de Souza Gomes

Membros
  • Total de ítens

    11
  • Registro em

  • Última visita

Posts postados por Sergio de Souza Gomes

  1. Bom Dia Juliomar,

    Fiz o inverso, na pasta Program Files\Embarcadero\studio\20.0\bin tinha uma versão 14.0.0.92 para 64 bits, a renomeei e copiei para lá a versão anterior, provavelmente 32 bits,

    e a mensagem de erro mudou, agora é essa: Unknown SQL Data Type (0)

    essa pasta está no path do windows.

    Eu acho, pela mensagem, que não está identificando os campos, já que eu não especifico no objeto e sim nas linhas de código.

     

    Agradeço novamente a sua ajuda.

     

  2. Obrigado Juliomar pela orientação!

    Estou migrando do Delphi 7 para o 10, então ainda estou verde nessa versão.

    Para manutenção dos dados (inclusão, alteração e exclusão) estou usando o FireDac, mas para pesquisas estou usando o IbQruery, pois trouxe esse sistema do Delphi 7 para o 10.

    compila tanto para 32 e 64, mas so funciona no 32. Veja como faço a pesquisa.

      wSaldo_Anterior := 0;
      //Achar Saldo Inicio do Dia
      dmBase.IBQryPesquisa.Close;
      dmBase.IBQryPesquisa.SQL.Clear;
      dmBase.IBQryPesquisa.SQL.Add('Select * from FATURAS ');
      dmBase.IBQryPesquisa.SQL.Add('where ( ((DATA_RECEBIMENTO IS NULL) and (VENCIMENTO < :wDT1)) ');
      dmBase.IBQryPesquisa.SQL.Add(' or   ((NOT DATA_RECEBIMENTO IS NULL) and (DATA_RECEBIMENTO < :wDT1)) )');

      if DBLookupComboBox1.Text <> '' then
         begin
          dmBase.IBQryPesquisa.SQL.Add(' and N_CONTA = :wCONTA and COD_BANCO = :wBANCO and COD_AGENCIA = :wAGENCIA ');
          dmBase.IBQryPesquisa.ParamByName('wCONTA').AsString := dmBase.FDQryBancosN_CONTA.AsString;
          dmBase.IBQryPesquisa.ParamByName('wBANCO').AsInteger := dmBase.FDQryBancosCOD_BANCO.AsInteger;
          dmBase.IBQryPesquisa.ParamByName('wAGENCIA').AsInteger := dmBase.FDQryBancosCOD_AGENCIA.AsInteger;

          //dmBase.IBQryPesquisa.SQL.Add(' and (NOT N_CONTA IS NULL) ');
         end;

      //dmBase.IBQryPesquisa.ParamByName('wDT1').AsDate := DTP1.Date;
      dmBase.IBQryPesquisa.ParamByName('wDT1').AsDate := DP1.Date;

      dmBase.IBQryPesquisa.Prepare;      //o problema ocorre aqui 
      dmBase.IBQryPesquisa.Open;

      dmBase.IBQryPesquisa.First;
      while not dmBase.IBQryPesquisa.Eof do
       begin
        if not dmBase.IBQryPesquisa.FieldByName('DATA_RECEBIMENTO').IsNull then
           wSaldo_Anterior := wSaldo_Anterior + dmBase.IBQryPesquisa.FieldByName('VALOR_RECEBIDO').AsCurrency
        else
           wSaldo_Anterior := wSaldo_Anterior + dmBase.IBQryPesquisa.FieldByName('VALOR').AsCurrency;

        dmBase.IBQryPesquisa.Next;
       end;

      dmBase.IBQryPesquisa.Close;

     

    Desde já agradeço a ajuda
     

     

  3. Boa Tarde,

     

    Tive problemas com o ACBR no Delphi 7, pois qdo vou compilar o programa, a paleta simplesmente some.

     

    Fiz a reinstalação com a nova versão, só que nela não vem o TACBraeECF, que uso para impressão de cheques; e 

    não consigo o instalador para este componente, estou aqui pedindo ajuda aos amigos. Desde já agradeço a quem puder ajudar.

     

    Sérgio Gomes - [email protected]

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...