|
Ok....
function DameUltimoRegistro(Tabla:tIBDataSet; Campo,NombreTabla:String):String;
var cadena:string;
begin
Tabla.Active:=false;
Tabla.SelectSQL.Clear;
Tabla.SelectSQL.Add('SELECT Max('+Campo+')+1 FROM '+NombreTabla);
Tabla.Active:=true;
if not Tabla.IsEmpty then
result:=Tabla.FieldByName(campo).Value;
Tabla.Active:=false;
end;
**Este es la funcion completa que tengo y el error este... Raised exception Class EDatabaseError with message 'bdCalcIva' :Field 'CalculoIva' No Found. Procees Stoped
Lo raro que el campo que me señala si existe fisicamente, ya agregue los campos al dataset y me marca error en otro campo y asi se la pasa con otros campos, siendo que si existen en la base de datos FireBird 1.5
|