Problema Firedac Sql Advantagedatabase 12 Multiple Row Insert

[amadis]

Que tal colegas.

Estoy intentando optimizar una rutina que guarda detalles del contenido de una compra.

La idea era hacerlo mediante un insert de multiple row.

En otras oportunidades he hecho algo similar pero insertando de una valores prefijados con anterioridad.

Pero en este caso lo que quiero es que mediante la ejecucion de un solo FDSqlQuery pueda agregar varios registros con el detalle de una compra. Y me está dando un error luego de la linea 4.

Código Delphi [-]
        QryGuardaDet.SQL.Clear;
        QryGuardaDet.SQL.Append('insert into detalle');
        QryGuardaDet.SQL.Append('(articulo,cantidad,comprobante)');
        QryGuardaDet.SQL.Append('values');

        datos.CDSDetalle.DisableControls;
        if datos.CDSDetalle.State = dsinsert  then datos.CDSDetalle.cancel;
        datos.CDSDetalle.First;


     for i := 1 to datos.CDSDetalle.RecordCount-1
         do
          begin
              QryGuardaDet.SQL.Append('(:art, :cant, :com),');
              QryGuardaDet.ParamByName('art').AsString := datos.CDSDetalleFarticulos.Value;
              QryGuardaDet.ParamByName('cant').Value := datos.CDSDetalleFcant.AsFloat;
              QryGuardaDet.ParamByName('com').AsInteger := codfact;
              
              datos.CDSDetalle.Next;
          end;
             QryGuardaDet.SQL.Append('(:art, :cant, :com);');//linea final con puntoycoma
              QryGuardaDet.ParamByName('art').AsString := datos.CDSDetalleFarticulos.Value;
              QryGuardaDet.ParamByName('cant').Value := datos.CDSDetalleFcant.AsFloat;
              QryGuardaDet.ParamByName('com').AsInteger := codfact;

Los datos que cargo en los parametros que pretendo reusar una y otra vez estan en un clientdataset, dentro de un datamodule.

Me da error en la linea 4, se esperaba PUNTOYCOMA, cuando deberia aceptarme la COMA ya que luego del bucle le agrego el puntoycoma.

Quizá pueda ser algun error con las comillas o algo similar.

O no se si se pueden usar los mismos parametros.

Toda luz será bienvenida.

[Casimiro Notevi]

No entiendo la lógica de lo que estás haciendo, aunque de todas formas, a simple vista diría que lo que está mal es esa coma del final.

Código Delphi [-]
QryGuardaDet.SQL.Append('(:art, :cant, :com),');

[amadis]

La lógica de la sintaxis que estoy usando es la siguiente

Código SQL [-]
INSERT INTO table1 (First, Last)
VALUES
    ('Fred', 'Smith'),
    ('John', 'Smith'),
    ('Michael', 'Smith'),
    ('Robert', 'Smith');

Los valores los tendo en un clientdataset creado en memoria.

Si asigno los valores prefijados como en este ejemplo de recién funciona.

Pero al poner en juego los parámetros, al final de la linea 4, me dice que NO ESPERA LA COMA, que espera PUNTOYCOMA.
Le pongo punto y coma que no corresponde y ejecuta la linea 4 y en la 5, se para diciendo que debo iniciar con INSERT. ETC ETC.

Yo estaba usando ese query una y otra vez hasta que termine el clientdataset, pero se me ocurrió que podría optimizarse de esa forma.

[amadis]

Recién al ver el ejemplo que puse de sintaxis, se me ocurrió ponerle QUOTEDSTR, al valor del primer parámetro.

Y funcionó, se ejecutó el query, pero no resultó como quería, aunque lo sospechaba.

me insertó tantos registros como había en el clientdataset, pero todos con el último valor, lógico, porque los parametros que usé son los mismos. Por un momento pensé que podía funcionar.

[ecfisa]

Hola.

Al parecer te falta la condición, vg.:

Código Delphi [-]
    QryGuardaDet.SQL.Clear;
    QryGuardaDet.SQL.Append('insert into detalle');
    QryGuardaDet.SQL.Append('(articulo,cantidad,comprobante)');
    QryGuardaDet.SQL.Append('values');
    QryGuardaDet.SQL.Append('(:art, :cant, :com),');
    QryGuardaDet.SQL.Append('WHERE CAMPO_CLAVE = :PARAM');
    
    for ....
    begin
      QryGuardaDet.ParamByName('art').AsString := datos.CDSDetalleFarticulos.Value;
      QryGuardaDet.ParamByName('cant').Value := datos.CDSDetalleFcant.AsFloat;
      QryGuardaDet.ParamByName('com').AsInteger := codfact
      QryGuardaDet.ParamByName('PARAM').Value := (lo que corresponda)
    ...

Saludos

[amadis]

No tengo condición.

Inserto en la tabla todos los registros que hay en el Clientdataset. que tienen el dato del articulo facturado, la cantidad y el numero de comprobante.