Proceso
Tengo dos tablas:
1) Tabla Servicios con los campos ServId (código de servicio), ServNom(nombre), y algún otro que no importa.
2) Tabla AuxSer con los campos UsuId (nombre de usuario), y SerVenId (código de servicio).
La segunda tabla la utilizo para una cansulta que el usuario puede seleccionar los servicios que le interesan.
En la aplicación tengo dos grillas una con la primer tabla y otra con la segunda, un botón para agregar la fila actual, otro para agregar todas las filas, otro para quitar la fila seleccionada y otro para quitar todas las filas; los típicos: << , < , > , >> .
Cuando apreto el de agregar todos utilizo el siguiente código:
Servicios.first;
While not Servicios.eof do
begin
AuxSer.append;
AuxSerUsuId.value:='NombreUsuario';
AuxSerSerVenId.value:=ServiciosServId.value;
AuxSer.post;
Servicios.next;
end;
En este punto es donde me da el error.
|