Problema Firedac Sql Advantagedatabase 12 Multiple Row Insert

[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.

[[AgustinOrtu]]

Es lo que dice casimiro, la coma luego de la lista de parametros no va

[bitbow]

Extrae tu sql resultante (SQL.Text) y valida la sintaxis (reemplaza los params por valores) y ejecutalo en un cliente independiente.

Saludos.

[amadis]

La sintaxis está correcta, luego de ponerle el QuotedStr que comenté al parametro String, funcionó.
Solamente que el problema lógico ahora es que reutilizo los mismos parametros, y al recorrer el ClientDatasat, si este tiene 5 registros, e nel query se agregan las cinco lineas de parámetros y asigna el valor y una a una, pero como el nombre de los parametros es la mismo, en definitiva me guardó 5 veces el registro último.

La COMA del final ES CORRECTA, ya que delimita el grupo de valores, y recorro el ClientDataset hasta -1 para luego en el proximo sqlstring reemplazar la COMA por PUNTOyCOMA, indicando fin de valores.


Lo que tendria que hacer es crear parametros multiplicados por los N registros tenga en el clientdataset.
Nombaralos igual agregando el numero del registro

de esa forma los primeros parametros serían (:art1, :cant1, :com1), luego (:art2, :cant2, :com2) y sucesivamente.

[ecfisa]

Hola.

Empezado por 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.

Entonces te interpreté mal. Aunque hay algunos puntos que desconozco, creo que lo que buscas sería mas o menos así:

Código Delphi [-]
...
begin
  QryGuardaDet.Close;
  QryGuardaDet.SQL.Clear;
  QryGuardaDet.SQL.Add('INSERT INTO DETALLE(ARTICULO, CANTIDAD, COMPROBANTE)');
  QryGuardaDet.SQL.Add('VALUES(:ART, :CAN, :COM)');
  QryGuardaDet.Prepare;

  while not datos.CDSDetalleFcant.Eof do
  begin
    QryGuardaDet.ParamByName('ART').Value := datos.CDSDetalleFarticulos.Value;
    QryGuardaDet.ParamByName('CAN').Value := datos.CDSDetalleFcant.Value;
    QryGuardaDet.ParamByName('CON').Value := xxx {valor de comprobante que corresponda};
    QryGuardaDet.ExecSQL;  // ejecutar la consulta de actualización
    datos.CDSDetalleFcant.Next;
  end;
  ...
end;

Saludos