Personalmente utilizo el sistema de un procedimiento almacenado. No le veo tantos problemas :
A) Objetos StoredProc y sus parámetros. Yo utilizo herencia visual, por lo que ya tengo por defecto un StoredProc en cada formulario, a punto para usarlo para esto (junto con todo el código necesario). Aunque si no quieres usar herencia visual, y tampoco quieres tener un StoredProc en cada pantalla, simplemente puedes crearte una función genérica, a la que le pasas un nombre de generador y te devuelva el siguiente código para ese generador.
Ejplo. para la pantalla de clientes :
procedure frmClientes.qryClientesAfterInsert(Dataset: TDataset);
begin
Dataset.FieldValues['CODIGO'] := General.NuevoCodigo('GEN_CLIENTES');
end;
Como puedes ver, solo necesitarás un StoredProc (o un Query), en la función Genérica NuevoCodigo.
B) Tráfico de datos entre cliente y servidor. El tráfico será mas bien menor. Tal como lo estás haciendo ahora, tienes que volver a cargar el Dataset para poder ver el nuevo registro con su código de clave primaria. En cambio consultar el nuevo código desde la aplicación Delphi para asignarlo al nuevo registro, comporta un tráfico muy pequeño (solo hay que recoger un valor entero) y implica que ya no es necesario volver a cargar el Dataset, y posicionarnos en el ultimo registro.
Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no).
|