Insertar Datos con un ciclo repetitivo

[[Lepe]]

Usa un query lo siguiente:

Código Delphi [-]
begin
  query.sql.text := 'insert into scargosfijos(codigoCliente) values (select codigoCliente from Clientes)'
  query.ExecSql;
end;

He supuesto que tu tabla Clientes tiene un campo llamado codigoCliente y que en tu tabla scargosfijos tambien tiene otro campo llamado igual para almacenar dicho código.

Puesto que no dices los demás campos que hay en las tablas, pues paso del tema y no digo nada más, pero se podrían añadir valores a la tabla scargosfijos.

Por cierto, la próxima vez que quieras hacer algo sobre tablas, por fa, dinos como se llaman las tablas, qué campos tienen y de qué tipos son cada uno. Cuanto más detalles dés, más acertadas seran las respuestas.

Saludos

[L3st4t]

Tengo 3 tablas Clientes, productos y cargosfijos vamos a olvidarnos de la tabla productos realmente no la necesito y nos quedamos con clientes y cargosfijos.

En cargosfijos fijos tengo que vacíar la información de cada uno de los items que se le cobra a un cliente en particular mensualmente para que el sistema lo haga de forma automática, es decir al generar una factura en lote (a todos los clientes de un solo golpe) el sistema le va cargar el producto o servicio fijo a cada cliente, un ejemplo seria una empresa de cable, el plan familiar cuesta 80$, a final de mes se van a procesar todas las facturas masivas a esos clientes para eso es la tabla cargosfijos y ahí se guarda la información para dicha operación.

Ahora bien la tabla cargo fijos esta compuesta por los campos Cf_tipo,Cf_codigocliente, Cf_producto, CF_......

Dichos campos los voy a rellenar con valores fijos a excepcion de los campos CF_CodigoCliente y CF_Producto

EL campo CF_Cliente debo rellenarlo con el codigo de cada cliente que se encuentra en la tabla cliente donde dicho campo tiene como nombre TC_Cliente (muy diferente al nombre del campo en la tabla cargosfijos) que es lo que necesito rellenar las filas de la tabla cargosfijos con todos los codigos de los clientes que existen en el sistema que se guardan en la tabla clientes, donde el campo CF_Cliente es el unico campo que va cambiar en la tabla cargosfijos

El campo CF_Producto lo voy a rellenar con un txt para pode utilizar la aplicacion con otros sistemas que manejen la misma informacion.

Realice un insert pero obviamente me ejecuta la operacion una sola vez y no supe como llamar el campo TC_Cliente de la tabla cliente para ingresarlo en el campo CF_Cliente de la tabla scargosfijos.

Estoy trabajando con Delphi5, componente TDBISAM

Espero haberme explicado mejor, gracias y disculpen nuevamente saludos a todos.

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