Sergio de Souza Gomes
Membros-
Total de ítens
11 -
Registro em
-
Última visita
Últimos Visitantes
366 visualizações
Sergio de Souza Gomes's Achievements
-
connection rejected by remote interface
Sergio de Souza Gomes replied to hintz's tópico in Object Pascal - Delphi & Lazarus
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. -
connection rejected by remote interface
Sergio de Souza Gomes replied to hintz's tópico in Object Pascal - Delphi & Lazarus
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. -
connection rejected by remote interface
Sergio de Souza Gomes replied to hintz's tópico in Object Pascal - Delphi & Lazarus
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. -
connection rejected by remote interface
Sergio de Souza Gomes replied to hintz's tópico in Object Pascal - Delphi & Lazarus
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 -
connection rejected by remote interface
Sergio de Souza Gomes replied to hintz's tópico in Object Pascal - Delphi & Lazarus
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 [email protected]
-
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 [email protected]
-
Componente Delphi para WhtasApp
Sergio de Souza Gomes replied to edsonalves's tópico in Classificados
Utilizo Delphi7 e estou interessado no componente. Sergio Gomes [email protected] -
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]