[magnu9]

Hola chicos... utilizo el siguiente procedimiento para guardar una localidad de un articulo... en un sistema de farmacia que estoy construyendo... me explico un poco. Lo que quiero es borrar una localidad cuando lo desee. Pero si esta localidad esta asignada a un articulo pues no se puede borrar sin antes haber borrado el articulo. Pero aunque la localidad no tenga articulo asignado como quiera el procedimiento me lanza el mensaje de que "La localidad tiene articulos asignados". Se animan ayudarme. Gracias de antemanos.

Código Delphi [-]
procedure TmtLocalidad.borrarClick(Sender: TObject);
begin
        querArticulo.close;
        querArticulo.SQL.Text:='SELECT articulo.codloc FROM articulo INNER JOIN localidad ON articulo.codloc = localidad.codloc';
          querArticulo.Open;  
        if querArticulo.Fields[0].AsInteger <> 0 then
          showmessage('Esta Localidad Tiene Articulos Asignados')
        else
        if dbCodigo.text = '' then
             MessageDlg('No existe localidad para borrar', mtInformation,[mbCancel], 0,)
         else if MessageDlg('¿ Seguro que desea borrar la localidad' + dbCodigo.Text + ' ?',
              mtConfirmation, [mbYes, mbNo], 0) = mrYes then
              querLocalidad.Delete;
              btnNuevo.Enabled:=true;
              btnGuardar.Enabled:=false;
end;