Buenos días estoy tratando de armar una consulta para Firebird 2.5. La consulta que busco crear tiene que tener el siguiente formato:
Select *
From Clientes c
Where c.activo = 1 and c.cuit not in ("11-11111111","11-11111112",....hasta n codigos)
El siguiente procedimiento es el encargado de llenar la lista con los datos de una grilla:
function TfImportacionArchivoARBARetenPercep.fxListarClientesProveedoresNoEnGrilla(
pboClientes: Boolean): WideString;
var
slAux: TStringList;
niCol, niI: Integer;
wsAux : WideString;
stTabla: String;
qCliProv: TFXQuery;
begin
wsAux := '';
if pboClientes then
begin
niCol := 11;
stTabla := 'Clientes'
end
else
begin
stTabla := 'Proveedores';
niCol := 12;
end;
for niI := 1 to gDetalle.RowCount - 1 do
if Trim(gDetalle.Cells[niCol, niI]) <> '' then
wsAux := wsAux + iif((Trim(wsAux) = ''), '', ',') + Trim(gDetalle.Cells[3, niI]);
slAux := fxObtenerListaCondicionalesConsulta(wsAux );//esta funcion le da formato a la lista de strings
try
qCliProv.SQL.Text :=
' Select Codigo' + iif(pboClientes, Copy(stTabla, 0, 7), Copy(stTabla, 0, 9)) + ' As Codigo' +
' From ' + stTabla +
' Where Activo = 1 ';
if slAux.Count > 0 then
for niI := 0 to slAux.Count - 1 do
begin
if Trim(slAux.Strings[niI]) = '' then
Continue;
qCliProv.SQL.Add(
' And Cuit Not In (' +
slAux.Strings[niI] + ')' );
end;
qCliProv.Open;//el resto de codigo no es importante
Esta es la funcion que le da el formato a la lista de strings:
function TfImportacionArchivoARBARetenPercep.fxObtenerListaCondicionalesConsulta(
pstClientes: WideString): TStringList;
var
slAux, slAuxResultado: TStringList;
niI, niLinea: Integer;
begin
niLinea := 0;
slAuxResultado := TStringList.Create;
slAux := TStringList.Create;
try
slAuxResultado.Add('"');
slAux.Delimiter := ',';
slAux.DelimitedText := pstClientes;
for niI := 0 to slAux.Count - 1 do
begin
if ((Frac(niI/100) = 0) and (nII <> 0)) then
begin
Inc(niLinea);
slAuxResultado.Add('');
end;
slAuxResultado.Strings[niLinea] := slAuxResultado.Strings[niLinea] +
iif((slAuxResultado.Strings[niLinea] = ''), '', ',' ) + slAux.Strings[niI];
end;
result := slAuxResultado;
finally
FreeAndNil(slAux);
end;
end;
He intentando miles de cambios, pero no logro que la lista de strings quede con el formato necesario para realizar la consulta SQL.