Insertar Datos con un ciclo repetitivo

[[Lepe]]

Gracias por ampliar el mensaje, ahora es más fácil hacerse una idea de lo que necesitas.

Te aconsejo busques un manual de SQL para tu BBDD en cuestión porque te será mucho más fácil atacar estos problemas. Según lo dicho, todos los productos deben facturarse todos los meses, y para todos los clientes, porque es algo periódico, de ahí el nombre de la tabla cargos fijos, por tanto quedaría así:

La mejor forma de entender este mamotreto es desde dentro hacia afuera, es decir:
- la consulta más interna lo que hace es unir la tabla productos y clientes en una sola tabla temporal de forma que cada fila identifica un producto determinado de un cliente. De esa tabla, solo nos quedamos con el codigo del cliente (clientes.tc_cliente) y del codigo de producto (productos.codigoproducto).

- Ahora vamos a la consulta más externa: es una inserción masiva en dos campos de la tabla cargosfijos codigo cliente y codigo producto, y los valores que insertará será precisamente los de la consulta anterior, por tanto al final tenemos en cargosfijos "Un registro por cada producto de cada cliente" useasé, cargos fijos por esos productos mensuales consumidos.

Código SQL [-]
insert into cargosfijos(cf_codigocliente, cf_producto)
VALUES ( 
select clientes.tc_cliente, productos.codigoproducto 
from clientes inner join productos  on clientes.tc_cliente = productos.codigocliente)

He vuelto a suponer que en la tabla productos: el código de un producto lo guardas en el campo codigoproducto y además el código de cliente de ese producto lo guardas en el campo codigocliente

No he trabajado con TDBISAM, pero ese código es código SQL por lo que debería funcionar perfectamente.

Saludos y reitero las gracias por completar de forma detallada tu problema y tablas, así da gusto responder a mensajes... aunque sea un viernes a las 23:30

[L3st4t]

Gracias Lepe por responder un viernes a las 23:30, yo veia peliculas a esa hora porque en casa no tengo internet

Por otro lado anidando ese código SQL a un ciclo repetitivo como lo valido para que me lo por la cantidad de clientes que hay en el sistema. es decir si hay 100 clientes se repita las 100 veces (obvio que uno para cada cliente).

Gracias

Saludos

[[Lepe]]

Eso ya lo hace con solo ejecutarlo 1 vez.

[L3st4t]

Bueno listo solo queda probarlo....


Muchas gracias Lepe...

Te estaré avisando...

Saludos....

[L3st4t]

Código Delphi [-]
Procedure TF_CargosA.InsertaRegistros;
var fccodigo : string;
begin
  with DataM.Q_Clientes do
  begin
   while not Eof do
   begin;
   //First;
  DataM.Q_Clientes.SQL.Clear;
  DataM.Q_Clientes.Close;
  DataM.Q_Clientes.SQL.Add('SELECT FC_CODIGO FROM SCLIENTES');
  DataM.Q_Clientes.ExecSQL;
  fccodigo := FieldByName('FC_CODIGO').AsString;
  end;
    With DataM.Q_CargosF do
    begin
    Next;
  DataM.Q_CargosF.SQL.Clear;
  DataM.Q_CargosF.Close;
  DataM.Q_CargosF.SQL.Add('INSERT INTO SCARGOSFIJOS  (FCF_CLIENTE,FCF_CODIGOPRODUCTO)');
  DataM.Q_CargosF.SQL.Add('VALUES  (aram1, aram2)');
  DataM.Q_CargosF.ParamByName('param1').AsString := fccodigo;
  DataM.Q_CargosF.ParamByName('param2').AsString := Edit1.Text;
  DataM.Q_CargosF.ExecSQL;
    end;
  end; //while

end;

Saludos

Lepe estuve probando el código que me diste pero no me funciono, pero fue porque no me explique bien. pero bueno decidí echarle un poco por mi lado y obtuve el que me muestro arriba, me funciona bien pero tengo problemas con el while, no logro que lo haga mas de una vez, solo me inserta el primer registro en la fila...Que esta mal?

Gracias

[[fjcg02]]

Estás usando el mismos dataset para gestionar el while y para hacer las inserciones. Al hacer el SQL.Clear, lo destripas.
Además, las instrucciones SQL no tienes que volverlas a crear. Simplemente, cambias los valores de los parámetros y las ejecutas.
Observa cómo he realzaido los bucles. Tu código no tiene mucha lógica, ya que no tiene las iteraciones hechas correctamente.

Echa un vistazo a este código y dinos qué te parece. Indenta el código correctamente, tú mismo lo agradecerás.

Código Delphi [-]
Procedure TF_CargosA.InsertaRegistros;
var fccodigo : string;
begin
  // defines la query de clientes
    DataM.Q_Clientes.SQL.Clear;
    DataM.Q_Clientes.Close;
    DataM.Q_Clientes.SQL.Add('SELECT FC_CODIGO FROM SCLIENTES');

  // defines la query de actualización
    DataM.Q_CargosF.SQL.Clear;
    DataM.Q_CargosF.Close;
    DataM.Q_CargosF.SQL.Add('INSERT INTO SCARGOSFIJOS  (FCF_CLIENTE,FCF_CODIGOPRODUCTO)');
    DataM.Q_CargosF.SQL.Add('VALUES  (aram1, aram2)');

  // abres la q de clientes y te posicionas en el primero
    DataM.Q_Clientes.Open;
    First;
  // recorres la query de clientes
    while not DataM.Q_Clientes.Eof do
      begin;
        // por cada registro, lanzas la query de actualización
        fccodigo := FieldByName('FC_CODIGO').AsString;
        DataM.Q_CargosF.ParamByName('param1').AsString := fccodigo;
        DataM.Q_CargosF.ParamByName('param2').AsString := Edit1.Text;
        DataM.Q_CargosF.ExecSQL;

        // siguiente registro de clientes
        Next;
     end; //while

end;

Espero que te sirva de ayuda

Un saludo

[L3st4t]

Saludos, gracias por responder.

En base al que pasaste corregi el mio, el cual funcionaba bien solo que tenia algunas cosas de mas...

Pero estoy muy agradecido...


Buen dia...