Ao realizar testes na aplicação onde migrei o BD de Firebird para PostgreSQL o seguinte erro ocorre ao tentar salvar um item no banco:
Revisando o código pude ver que o erro ocorre na verdade neste ponto do código:
dmCadMib.Consulta_Cliente(Cliente); // Nessa Linha pula para a procedure Consulta_Cliente
dmCadMib.ConsClienteNoGrupo;
dmCadMib.localizaCliente(StrToInt(Cliente));
Procedure Consulta_Cliente:
procedure TdmCadMIB.Consulta_Cliente(Codigo: string);
begin
cdsEmpresa.Close;
sdsEmpresa.CommandText := 'select * from Empresa where Codigo =' + Codigo;
cdsEmpresa.Open;
end;
string
formada da forma que vai pro BD?cdsEmpresaNOME.AsString
, dependendo o que está nesta variável pode dar problema de sintaxe no SQL ou pior. Ao invés disso, use parâmetros