Sergio de Souza Gomes
-
Total de ítens
11 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Sergio de Souza Gomes
-
-
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.
-
Sim Juliomar, fiz isso e o problema continua.
Você tem alguma sugestão e/ou exemplos de como posso substituir essas linhas de programação com outro objeto?
te agradeço muito a sua ajuda.
-
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
-
estou com o mesmo problema.
quando compilo 32 bits funciona normalmente, mas em 64 não.
tentei a solução acima, mas não deu certo.
uso Delphi 10.3.3 Rio
Agradeço alguma ajuda
-
Obrigado Daniel Simões !!!
dessa vez consegui baixar.
-
Bom Dia a todos
Pessoal onde consigo o Fortes Report para o Delphi 10.3 ?
o site do Fortes Report não abre mais, no Githit não encontro.
Agradeço a quem me ajudar
Sérgio Gomes
-
Bom Dia a todos
Pessoal onde consigo o Fortes Report para o Delphi 10.3 ?
o site do Fortes Report não abre mais, no Githit não encontro.
Agradeço a quem me ajudar
Sérgio Gomes
-
-
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]
connection rejected by remote interface
em Object Pascal - Delphi & Lazarus
Postado
Boa Tarde Juliomar
Problema resolvido !!!!!!
Troquei o TIBQuery por TSQLQuery. só precisei dar replace no código fonte.
Obrigado meu amigo pela compreensão e ajuda.
Mais lições que aprendo.