Cadetill aqui te pongo lo q hago, mandando llamar a la funcion q me pusiste, si es una sola vez funciona muy bien, el problema es cuando es mas de un dato en la tabla exped. la funcion q pusiste esta casi igual no hice ningun cambio asi q por eso no la he puesto porq ya esta aqui...
procedure TForm1.AgregarClick(Sender: TObject);
var pos: integer;
begin
Exped.open;
pos:=12;
exped.first;
while not exped.eof do
begin
CheckCampo('UBICACION', Exped.fieldbyname('documento').asstring, 'DATE', i);
pos:=pos+1;
exped.next;
end;
end;
Bueno espero me puedes ayudar.
|